1、Dim MsgText As StringDim TxtSQL As StringIf Frmstart_UserInfo = Have Then 如果有表中有用户信息TxtSQL = select * from User_Disk where User_ID= & Trim（TxtUserID.Text） & and User_Type= ComUserType.Text&Set Mrc = ExecuteSQL（TxtSQL, MsgText）If Mrc.EOF = False ThenIf Trim（TxtUserPWD.Text） = DeCrypt（Mrc.Fields（2）, 1
2、9820226） Then 利用解密算法（数据库中的密码解密后与输入的 密码比较）User_AdminType = ComUserType.Text 记录用户类型User_AdminID = Trim（TxtUserID.Text） 记录用户编号User_AdminName = Mrc.Fields（0） 记录用户姓名Unload MeMDIFrm_Admin.ShowElseMsgBox 对不起，您输入的密码错误，请重新输入！,vbOKOnly + vbExclamation, 用户 PWD昔误”TxtUserPWD.Text = TxtUserPWD.SetFocusFrmStart_In
3、writeNO = FrmStart_InwriteNO + 1End IfIf TxtUserID.Text = admin ThenIf TxtUserPWD.Text = User_AdminType = 超级管理员 User_AdminID = User_AdminName = 对不起，您输入的用户 ID 错误，请重新输入！, vbOKOnly + vbExclamation, 用户 ID 错误TxtUserID.Text = : TxtUserPWD.Text = TxtUserID.SetFocus 对不起，您输入的用户 ID 错误，请重新输入！ 用户 ID 错误 Else 表中无
4、用户信息 And TxtUserPWD.Text = 用户名和密码都是 adminIf TxtUserID.Text 对不起，你输入的用户 ID 错误，请重新输入！, vbOKOnly + vbExclamation, 检查用户名或密码错误的次数，如果大于 6 次则退出系统，防止 恶意破译密码If FrmStart_InwriteNO = 6 Then 对不起，您输入用户信息的错误次数过多！ 系统警告 2.2 学生基本信息录入的实现代码如下：Private Sub CMD_OK_Click（）If Not Testtxt（Trim（TxtStudent_Name.Text） Then 学 生
5、姓 名 不 能 为 空 ， 请 您 填 写 ！ 系统提示 TxtStudent_Name.SetFocusExit SubIf Not Testtxt（Trim（ComStudent_Six.Text） Then 性 别 不 能 为 空 ， 请 您 选 择 ！, vbOKOnly vbExclamation, ComStudent_Six.SetFocusIf Not Testtxt（Trim（ComStudent_BirthdayYear.Text） Then 出 生 日 期 不 能 为 空 ， 请 您 选 择 ！ComStudent_BirthdayYear.SetFocusIf Not
6、Testtxt（Trim（ComStudent_BirthdayMonth.Text） ThenComStudent_BirthdayMonth.SetFocusIf Not Testtxt（Trim（ComStudent_BirthdayDay.Text） Then 出生日 期不能为空，请您选择！ComStudent_BirthdayDay.SetFocusIf Not Testtxt（Trim（TxtStudent_FaMaName.Text） Then 家 长 姓 名 不 能 为 空 ， 请 您 填 写 ！TxtStudent_FaMaName.SetFocusIf Not Testtx
7、t（Trim（ComStudent_StuGX.Text） Then 与学生关系不能为空，请您选择！ComStudent_StuGX.SetFocusIf Not Testtxt（Trim（TxtStudent_FaMaJob.Text） Then 家 长 职 业 不 能 为 空 ， 请 您 填 写 ！TxtStudent_FaMaJob.SetFocusIf Not Testtxt（Trim（TxtStudent_FamilyAdress.Text） Then 家 庭 住 址 不 能 为 空 ， 请 您 填 写 ！TxtStudent_FamilyAdress.SetFocusIf Not
8、Testtxt（Trim（TxtStudent_SchoolNO.Text） Then 学 号 不 能 为 空 ， 请 您 填 写 ！TxtStudent_SchoolNO.SetFocusIf Not Testtxt（Trim（ComStudent_ClassNO.Text） Then 班 级 不 能 为 空 ， 请 您 选 择 ！ComStudent_ClassNO.SetFocusIf Not Testtxt（Trim（ComStudent_XB.Text） Then 系 别 不 能 为 空 ， 请 您 选 择 ！ComStudent_XB.SetFocusIf Not Testtxt（Trim（ComStudent_InSchoolYear.Text） Then 入 学 时 间 不 能 为 空 ， 请 您 选 择 ！ComStudent_InSchoolYear.SetFocusIf Not Testtxt（Trim（ComStu
