前面于第十讲中我曾写过一段系统界面登录程序的代码,但是由于当时是直接从我的HIS程序中复制过来的,和其它的程序有关联,可能会造成大家的阅读困难,在此,我特意重写了一段最为简单的代码,供大家参考交流。代码经过本验证,绝对正确,根据操作步骤复制即有效。 在此, 我将以一个初学者的角度,从头开始,一步一步地介绍登录注册界面的制作过程。 首先,我们来进行代码前的准备工作,为求简便,我们使用Access 2003来建立一个新的空数据库,命名为db1,存储路径为D:\db1,在db1中创建一张新的表格,命名为用户信息表,并设定用户信息表中有两个字段,分别为用户名称和用户口令,注意它们的数据类型均为文本格式,一定要注意,不然到后面代码就会出错,而且极难查错。 完成设计视图之后输入一条记录,记录中的用户名属性值为Angel,密码为123。输入一条记录的目的是用于检验登录代码是否正确以及起到一点演示效果。 下面打开VB6.0,建立一个新的工程,命名为工程1,打开就有一个新的窗体Form1。布置界面如图所示,当然这只是个示例,你可以有更好的界面设计。图中,管理员名称和口令是两个文本框,名称分别为TxtUserName 和TxtPassword,登录和取消为两个按钮,名称分别为CmdLogin和CmdCancel。 准备工作完成之后,就可以添加代码了。代码如下,我将逐行注释。 取消按钮最为简单,代码如下: Private Sub CmdCancel_Click() 下面添加登录按钮的代码。 Private Sub CmdLogin_Click()
Dim conn As New ADODB.Connection '定义新的连接 Dim rs As New ADODB.Recordset '定义新的记录集 MsgBox "对不起,用户或密码不能为空!请重新输入!!", vbCritical, "错误" ElseIf UserName <> Empty And PassWord <> Empty Then '否则如果用户名与密码都不为空则Cnum自加1,Cnum为窗体载入时添加数字变量,用于记录错误登录次数 Form2.Show End if End if Private Sub Form_Load() |
联系客服