毕业设计源代码汇.doc

毕业设计源代码 学生姓名： 班级学号指导教师： 职 称： 所在系（教研室）： 其中登录按钮的源码如下: Private Sub cmdLogin_Click() 首先检查用户是否输入了用户名和密码 If txtUser.Text = Then MsgBox 请输入用户名！, vbOKOnly + vbInformation, 注意 txtUser.SetFocus Exit Sub ElseIf txtPwd.Text = Then MsgBox 请输入密码！, vbOKOnly + vbInformation, 注意 txtPwd.SetFocus Exit Sub End If Dim sqluser As String 构造查询该用户名和密码的sql语句 sqluser = select * from UserTable where Username = txtUser.Text _ and Password = txtPwd.Text rs_user.CursorLocation = adUseClient 打开数据游标 rs_user.Open sqluser, conn, adOpenKeyset, adLockPessimistic If rs_user.EOF = True Then MsgBox 用户名或密码不正确！, vbOKOnly + vbInformation, 注意 rs_user.Close 清空txtUser和txtPwd文本框 txtUser.Text = txtPwd.Text = Exit Sub Else 还需使其他菜单可用 MDIfrmMain.mnAddUser.Enabled = True MDIfrmMain.mnBasicData.Enabled = True MDIfrmMain.mnWuYe.Enabled = True MDIfrmMain.mnDataTg.Enabled = True 提示用户登录成功并关闭游标和登录窗口 MsgBox 登录成功！, vbOKOnly + vbInformation, 注意 rs_user.Close Unload Me End If End Sub 并添加相关代码.其中重点分析按钮源码如下:。 添加按钮的代码： Private Sub cmdAdd_Click() 设置除保存和取消按钮外的其他按钮不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要清空所有text框，并且设置它们可写 For i = 0 To 14 Text1(i).Text = Text1(i).Enabled = True Next i Combo1.Enabled = True add变量用于保存时判断是从添加还是修改后保存 add = 1 Text1(0).SetFocus Text1(13).Text = Date End Sub 修改按钮的源码: Private Sub cmdEdit_Click() 设置除保存和取消按钮外的其他按钮不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enab