这要根据你所建立的模块编写代码,下面是别人设计的模块,供参考:代码设计:1 用户登陆模块代码:A:教务处管理人员登陆◆Private Sub 教务处人员登录_Click()On Error GoTo Err_教务处人员登录_ClickDim stDocName As StringstDocName = ChrW(25945) & ChrW(21153) & ChrW(22788) & ChrW(20154) & ChrW(21592) & ChrW (30331) & ChrW(24405)DoCmd.RunMacro stDocNameExit_教务处人员登录_Click:Exit SubErr_教务处人员登录_Click:MsgBox Err.DescriptionResume Exit_教务处人员登录_ClickEnd SubB: 教师登陆◆Private Sub 教师登录_Click()On Error GoTo Err_教师登录_ClickDim stDocName As StringstDocName = ChrW(25945) & ChrW(24072) & ChrW(30331) & ChrW(24405)DoCmd.RunMacro stDocNameExit_教师登录_Click:Exit SubErr_教师登录_Click:MsgBox Err.DescriptionResume Exit_教师登录_ClickEnd Sub◆Private Sub ok_Click()If Len(Nz(Me!UserName)) = 0 And Len(Nz(Me!UserPassword)) = 0 ThenMsgBox "用户名、密码为空!请输入", vbCritical, "error"Me!UserName.SetFocusElseIf Len(Nz(Me!UserName)) = 0 ThenMsgBox "用户名为空!请输入", vbCritical, "error"Me!UserName.SetFocusElseIf Len(Nz(Me!UserPassword)) = 0 ThenMsgBox "密码为空!请输入", vbCritical, "error"Me!UserName.SetFocusElseIf Me!UserName = "刘力" ThenIf UCase(Me!UserPassword) = "980102" ThenMsgBox "欢迎使用!", vbInformation, "成功"DoCmd.OpenForm "教师-综合信息查询"ElseMsgBox "密码有误,非正常退出。
", vbCritical, "error"DoCmd.CloseEnd IfElseMsgBox "用户名有误,非正常退出。
", vbCritical, "error"DoCmd.CloseEnd IfEnd IfEnd Sub2 学生个人信息查询模块代码A:指定学生信息查询:◆Private Sub Command1_Click()On Error GoTo Err_Command1_ClickDim stDocName As StringstDocName = ChrW(23398) & ChrW(29983) & ChrW(20010) & ChrW(20154) & ChrW(20449) & ChrW (24687) & ChrW(26597) & ChrW(-29726)DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command1_Click:Exit SubErr_Command1_Click:MsgBox Err.DescriptionResume Exit_Command1_ClickEnd SubB:班级所有学生信息查询:◆Private Sub Command20_Click()On Error GoTo Err_Command20_ClickDim stDocName As StringstDocName = ChrW(29677) & ChrW(32423) & ChrW(23398) & ChrW(29983) & ChrW(20449) & ChrW (24687) & ChrW(26597) & ChrW(-29726)DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command20_Click:Exit SubErr_Command20_Click:MsgBox Err.DescriptionResume Exit_Command20_ClickEnd Sub3 教师信息查询及修改模块代码A:指定教师信息查询◆Private Sub Command13_Click()On Error GoTo Err_Command13_ClickDim stDocName As StringstDocName = ChrW(25945) & ChrW(24072) & ChrW(20449) & ChrW(24687) & ChrW(21333) & ChrW (20010) & ChrW(26597) & ChrW(-29726)DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command13_Click:Exit SubErr_Command13_Click:MsgBox Err.DescriptionResume Exit_Command13_ClickEnd SubB:全体教师信息查询:◆Private Sub Command14_Click()On Error GoTo Err_Command14_ClickDim stDocName As StringstDocName = ChrW(25945) & ChrW(24072) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW (-29726)DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command14_Click:Exit SubErr_Command14_Click:MsgBox Err.DescriptionResume Exit_Command14_ClickEnd Sub4 成绩查询及修改模块代码A:指定学生个体成绩查询:◆Private Sub Command23_Click()On Error GoTo Err_Command23_ClickDim stDocName As StringstDocName = ChrW(23398) & ChrW(29983) & ChrW(20010) & ChrW(20154) & ChrW(25104) & ChrW (32489) & ChrW(26597) & ChrW(-29726)DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command23_Click:Exit SubErr_Command23_Click:MsgBox Err.DescriptionResume Exit_Command23_ClickEnd SubB: 指定班级综合成绩查询◆Private Sub Command24_Click()On Error GoTo Err_Command24_ClickDim stDocName As StringstDocName = ChrW(25353) & ChrW(29677) & ChrW(32423) & ChrW(26597) & ChrW(-29726) & ChrW (23398) & ChrW(29983) & ChrW(25104) & ChrW(32489)DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command24_Click:Exit SubErr_Command24_Click:MsgBox Err.DescriptionResume Exit_Command24_ClickEnd Sub5 用户信息修改模块代码◆Private Sub Command28_Click()On Error GoTo Err_Command28_ClickDim stDocName As StringstDocName = ChrW(25945) & ChrW(21153) & ChrW(22788) & ChrW(20154) & ChrW(21592) & ChrW (20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command28_Click:Exit SubErr_Command28_Click:MsgBox Err.DescriptionResume Exit_Command28_ClickEnd Sub6 退出模块代码◆Private Sub Command31_Click()On Error GoTo Err_Command31_ClickDoCmd.QuitExit_Command31_Click:Exit SubErr_Command31_Click:MsgBox Err.DescriptionResume Exit_Command31_ClickEnd Sub。