VB设计一个登陆(注册)界面
’代码开始
VERSION
5.00
Begin
VB.Form
Form1
Caption
=
"Form1"
ClientHeight
=
1260
ClientLeft
=
60
ClientTop
=
345
ClientWidth
=
4065
LinkTopic
=
"Form1"
ScaleHeight
=
1260
ScaleWidth
=
4065
StartUpPosition
=
3
'窗口缺省
Begin
VB.CommandButton
C1
Caption
=
"确定"
Height
=
495
Left
=
960
TabIndex
=
2
Top
=
480
Width
=
1815
End
Begin
VB.TextBox
T1
Height
=
270
Left
=
840
TabIndex
=
0
Top
=
120
Width
=
2895
End
Begin
VB.Label
Label1
AutoSize
=
-1
'True
BorderStyle
=
1
'Fixed
Single
Caption
=
"账号："
Height
=
240
Left
=
120
TabIndex
=
1
Top
=
120
Width
=
600
End
End
Attribute
VB_Name
=
"Form1"
Attribute
VB_GlobalNameSpace
=
False
Attribute
VB_Creatable
=
False
Attribute
VB_PredeclaredId
=
True
Attribute
VB_Exposed
=
False
Private
Sub
C1_Click()
Static
num
As
Integer
'定义静态变量，储存次数
If
T1
=
"abcd"
Then
'假设账号为abcd
MsgBox
"登录成功"
End
ElseIf
num
=
3
-
1
Then
MsgBox
"你无权使用本系统"
End
Else
MsgBox
"账号错误,再次一次"
num
=
num
+
1
End
If
End
Sub
'代码结束
怎样用VB编写一个登陆系统,可以注册账号的那种
VB编写一个可以注册帐号的登录系统步骤：1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。3）然后在FORM1窗体中添加ADO...
VB设计一个登陆(注册)界面
将以下代码复制到Form1.frm中，然后用vb打开Form1.frm。’代码开始 VERSION 5.00 Begin VB.Form Form1 Caption = "Form1"ClientHeight = 1260 ClientLeft = 60 ClientTop = 345 ClientWidth = 4065 LinkTopic = "Form1"ScaleHeight = 1260 ScaleWidth = 4065 StartUpPosition = 3 '窗口缺省 Begi...
设计一个用户登录页面login.asp
这是我写的一个信息管理系统的登录模块。登录模块和验证密码模块（check）放在了一起。希望对你有帮助。<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="..\/inc\/conn.asp"--> <!--#include file="..\/inc\/function.asp"--> < Response.expires = 0 Response.expiresabsolute =...
用VB和Access实现用户注册功能
你会做登陆就简单了，注册的基本意思就是将 用户名和密码 输入到数据库中，先设计一个注册按钮，然后出现注册信息填写栏，待写好 用户名 和密码 后，用以下语句放到数据库中，就可以了。Private Sub Command2_Click()Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用户名") = Text1.Text Adodc...
如何设计安全的用户登录功能
1、首先第一步就是要进行登录用户的视图代码编写，然后就是进行设置name属性即可。2、接着就是进行测试用户登录功能，这时候注意的是如果该数据库中没有该用户就提示到注册页面，让用户注册，注册后就可以登录了，如下图所示。3、然后急速进行注册视图代码编写，设置name属性即可。4、接着就是进行测试...
javascript html 设计一个登录界面
lang="en"><head> <meta charset="UTF-8"> <title>登录<\/title><\/head><body><form onsubmit="return false" method="post"> <input type="text" placeholder="用户名"><br> <input type="password" placeholder="密码"><br> <input type="submit" value="登录" onclick...
「登录注册模块」设计
用户系统建立的第一步就是登陆注册你的产品,这个模块可以非常简单,填下用户名密码就可以了,但是如今账户信息的重要性越来越大,安全性更是一个重要的因素,这其中隐藏着很多逻辑陷阱,所以在登陆注册系统的设计中也是一个便捷性与安全性的取舍平衡。 此文对登陆注册系统设计进行了总结,方便大家在产品设计时参考。 用户...
如何设计一个 App 的注册登录流程
（1）大概设计板块有APP启动页面设计，APP界面设计的尺寸规范，app图标设计等 一般来说，手机屏幕是从上往下布局的，重要的信息会放在上方。但是在操作上，大部分人都是单手拿手机，常用的操作，要放在界面的下方。另外还有一个原则，最小的触摸单位，一般是44个像素。如果再小，你的拇指难以触碰，或者...
求一个网页设计的html作业 有一个登陆页一个注册页一两个子页就可以...
<head> <meta charset="utf-8"> <title>php 登录与注册 <\/title> <link rel="stylesheet" type="text\/css" href="style.css"> <script src="http:\/\/libs.baidu.com\/jquery\/1.9.1\/jquery.js"><\/script> <\/head> <body> <div id="div"> <h3>欢迎登陆后台管理系统<\/h3> <div id...
VB 做 QQ自动登录
If tmphWnd <> QQ_MainhWnd Then '如果该子窗口的父窗口不是QQ登录窗口的话 '注意:QQ号码框被设计在一个ComboBox类的组合框中。 '父子关系如下:QQ登录窗口__ComboBox(父窗口为QQ登录窗口)__QQ号码框(父窗口为ComboBox) '这种关系在QQ登录窗口中是唯一的,要查找QQ号码框要满足的条件如下: '1:类名必须是...
佼璐嘉瑞： Private Sub Command1_Click() Static i As Integer If Text1.Text = ＂＂ And Text2.Text = ＂＂ Then MsgBox ＂请输入用户名和密码＂, vbOKOnly, ＂提示＂ Text1.SetFocus Exit Sub End If If Text1.Text = ＂admin＂ And Text2.Text = ＂admin＂ ...
蒙城县13269642481： 用VB设计一个登陆界面,急!!!？
佼璐嘉瑞： 用VB新建一个工程,在窗体Form1上画两个label控件,一个是Label1一个是Label2,把Label1的Caption属性设为“用户名”,Label2的Caption属性设为“密码”,然后分别在这俩Label右边各画一个textbox控件,一个叫Text1,一个叫Text2,把...
蒙城县13269642481： 用VB设计一个登录界面 - ？
佼璐嘉瑞： ''''''以下登录界面Dim t As Integer, s As Integer Private Sub Form_Load() t = 0 s = 10 Timer1.Interval = 1000 Timer1.Enabled = FalseEnd Sub Private Sub Command1_Click() '确定按钮 Timer1.Enabled = False s = 10 If Text1.Text＂经理＂ Or ...
蒙城县13269642481： 请问用VB做一个用户注册登录界面中的注册部分啊 - ？
佼璐嘉瑞： '点工程->引用 选中 Microsoft Activex Data Objects 2.1 Library '添加两个文本框(用于输入用户名及密码),一个命令按钮 '下面的代码中,请将数据库名称/表名称/字段名称,换成你的数据库的内容 Private Sub Command1_Click() Dim s As ...
蒙城县13269642481： vb语言写一个登入界面 - ？
佼璐嘉瑞： '添加好控件,把代码复制到窗体模块可以了吧.'label1,Label2,Text1'Command1:确定,command2:重输 Private Sub Form_Load() Text1.PasswordChar = ＂*＂ Text1.MaxLength = 6 Command1.Enabled = False Command2.Visible = False ...
蒙城县13269642481： 求一个用vb程序设计的用户登陆界面代码 - ？
佼璐嘉瑞： Private Sub Command1_Click() If Text1 = ＂＂ Or Text2 = ＂＂ Then MsgBox (＂你的输入不完整,请重新输入＂) End End If End Sub
蒙城县13269642481： 用VB写一个登陆界面. - ？
佼璐嘉瑞： Public conn As New SqlConnection(＂server=(local);database=student;Integrated Security=True＂) -----这是连接数据库的代码 Public comm As New SqlCommand Public dr As SqlDataReader comm.Connection = conn comm.CommandType = ...
蒙城县13269642481： VB语言..设计一个登陆界面....？
佼璐嘉瑞： Dim x As Integer Private Sub Command1_Click() If Text1.Text = ＂admin＂ And Text2.Text = ＂admin＂ Then MsgBox ＂验证成功!＂ ElseIf x = 3 Then MsgBox ＂非法用户!＂ Else MsgBox ＂密码或账号错误!＂ x = x + 1 End If End Sub 有何不懂请问~ ^ _ ^
蒙城县13269642481： VB 制作一登陆界面？
佼璐嘉瑞： 无论使用什么语言. 跟数据库连接,使用的编程语言都提供了连接的技术的. 至于登录次数,这个也简单.你可以数据库里一张表,结构如下 序号 帐号 密码 登录次数1 张三 aaa 12 李四 bbb 4 每当张三登录一次,验证他输入的的用户名和密码,跟数据库一致就同意登录. 并且给登录次数加一有空看看淘宝特卖商城www.taobaowang1.tk 电脑常识
蒙城县13269642481： 跪求!用VB制作一个简单的登陆界面 - ？
佼璐嘉瑞： 窗体上画两个text(txt_user,txt_psw),两个label(用户名,密码),两个command(login,cancel) login_click事件 if txt_user=＂我的名字＂ then if txt_psw=＂我的密码＂ msgbox ＂welcome＂ else msgbox ＂口令不对＂ endif else msgbox ＂名不对＂ endif
