毕业设计源代码

2024年4月29日发(作者：)

毕业设计源代码

学生姓名： 班级学号：

指导教师： 职 称：

所在系（教研室）：

其中登录按钮的源码如下:

Private Sub cmdLogin_Click()

'首先检查用户是否输入了用户名和密码

If = "" Then

MsgBox "请输入用户名！", vbOKOnly + vbInformation, "注意"

Focus

Exit Sub

ElseIf = "" Then

MsgBox "请输入密码！", vbOKOnly + vbInformation, "注意"

Exit Sub

End If

Dim sqluser As String

'构造查询该用户名和密码的sql语句

sqluser = "select * from UserTable where Username = '" &

_

& "' and Password = '" & & "'"

rs_Location = adUseClient

'打开数据游标

rs_ sqluser, conn, adOpenKeyset, adLockPessimistic

If rs_ = True Then

MsgBox "用户名或密码不正确！", vbOKOnly + vbInformation, "

注意"

'清空txtUser和txtPwd文本框

= ""

= ""

Exit Sub

Else

'还需使其他菜单可用

d = True

d = True

d = True

d = True

'提示用户登录成功并关闭游标和登录窗口

MsgBox "登录成功！", vbOKOnly + vbInformation, "注意"

Unload Me

End If

End Sub

并添加相关代码.其中重点分析按钮源码如下:。

添加按钮的代码：

Private Sub cmdAdd_Click()