应注意的事项及 用户在使用时遇到问题时可以于开发者联系联系方式. ☆窗体 9五.源程序 在物理设计中我们已经编辑好个窗体接下来就是编写源程序了以及各模块所要编写的程序.1.窗体部份程序 ☆窗体 1:登陆界面 1 在窗体的装载事件中输入如下代码:(蓝色的是系统给出的不必输入,也可自己输) Private Sub Form_Load On Error GoTo ErrMsg 清空文本框 txtName.Text quotquot txtPassword.Text quotquot 调用模块中的 ConnectDB 过程连接数据库,可以把连接模块直接写在这里 Call ConnectDB 错误处理功能 ErrMsg: If Err.Number ltgt 0 Then MsgBox Err.Number amp Err.Description vbOKOnly vbCritical quot出错提示quot Exit Sub End Sub 2 在“确认”按钮 cmdOK 的单击事件中输入如下代码: Private Sub cmdOK_Click 运行时自动检测错误,检测到则到 ErrMsg 标号处做相应的处理 On Error GoTo ErrMsg Dim SQL As String 定义一个保存 SQL 语句的变量 到 Login 表中查询是否有符合条件的记录存在 使用的是 Select Count From ...返回值是一个大于等于 0 的整数 SQL quotquot SQL quotSelect Count From Login Where Namequot amp TrimtxtName.Text amp quotquot SQL SQL amp quot And Passwordquot amp TrimtxtPassword.Text amp quotquot Set adoRS adoCon.ExecuteSQL If adoRS0 0 Then MsgBox quot您输入的用户名或密码有误,请更正!quot vbOKOnly vbExclamation quot系统提示quot txtName.SetFocus Exit SubEnd If通过身份验证后卸载登录窗体Unload Me显示系统界面,可以进入系统操作frmSystem.Show错误处理ErrMsg: If Err.Number ltgt 0 Then MsgBox Err.NumberampErr.Description vbOKOnly vbCritical quot错误提示quot Exit Sub End IfEnd Sub3 在“取消”按钮 cmdCancel 的单击事件中编写如下代码:Private Sub cmdCancel_ClickIf MsgBoxquot您真的要退出本系统的使用吗?quot vbYesNo vbQuestion quot退出询问quot vbYes Then 把记录集从内存中清除 Set adoRS Nothing 断开与数据库的连接 adoCon.Close 把连接变量从内存中清除 Set adoCon Nothing 从内存中卸载登录窗体,终止程序的执行 Unload MeEnd IfEnd Sub ☆ 窗体 4:主界面程序 Option Explicit Public mdbFile mdbDataName As String Public Data.
上一篇:
电子商务网站的建立与实现
下一篇:
建筑劳动毕业论文提纲格式