大学生综合测评系统实例.pdf

《大学生综合测评系统实例.pdf》由会员分享，可在线阅读，更多相关《大学生综合测评系统实例.pdf（61页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、学生管理系统-系统功能分析系统开发的总体任务是实现学生信息关系的系统化，规范化和自动化。主要功能有：1 有关学籍等信息的输入，包括输入学生基本信息，所在班机，所学课程和成绩等。2 学生信息的查询，包括查询学生基本信息，所在班级，已学课程，和成绩等3 学生信息修改4 班级管理信息的输入，包括输入班级设置，年级信息等。5 班级管理信息查询6 班级管理信息修改7 学校基本课程信息输入8 基本课程信息修改9 学生课程的设置和修改10学生成绩信息的输入1 1 学生成绩信息的修改1 2 学生成绩信息的查询13学生成绩信息的统计1.1.2 系统功能模块设计二 数据库设计1.2.1数据库需求分析I学生基本信息

2、：学 号，姓名，性别，出生日期，班号，电话，入校日期，家庭住址，备注等。2班级信息：班号，所在年级，班主任姓名，所在教室3课程基本信息：课程号，课程名称，课程类别，课程描述4课程设置信息：年级信息，所学课程等。5学生成绩信息：考试编号，所在班级，学生学号，学生姓名，所学课程，考试分数1.2.2数据库概念结构设计根据扇面的设计规划出的实体有：学生实体，班级实体，年级实体，课程实体各个实体具体的描述E-R图如下学生成绩信息实体和实体之间的关系E-R如下三数据库结构的实现1.3.1创建数据库和数据表1 创建系统用户表格user-infoCREATTABLE dbo.user-info(user-ID

3、 char(10)COLLATE Chinese-PRC-CLAS NOT NULL,user-PWD charj(10)COLLATE Chinese-PRC-CI-AS NULL,user-DesJ char(10)COLLATE Chinese-PRC-CI-AS NULL,)ON PRIMARY2 创建学生基本信息表格student_InfoCREATE TABLE dbo.student_Info(studem_ID im NOT NULL,student-IDJ char(10)COLLATE Chinese-PRC-CI-AS NULL,student-Sex char(2)CO

4、LLATE Chinese-PRC-CI-AS NULL,born_Date datetime NULL,class_NO int NULL,tele_Number char(10)COLLATE Chinese-PRC-CI-AS NULL,ru_Date datetime NULL,address LvarcharJ(50)COLLATE Chinese-PRC-CI-AS NULL,comment varchar(200)COLLATE Chinese-PRC-CI-AS NULL,)ON PRIMARY3 创建班级信息表格classjnfoCREATTABLE dbo.class-in

5、fo(class_NoJ intj NOT NULL,grade char(10)COLLATE Chinese-PRC-CI-AS NULLdirector char(10)COLLATE Chinese-PRC-CI-AS NULLclassroom.No char(10)COLLATE Chinese-PRC-CI-AS NULL)ON PRIMARY14 创建课程基本信息表course_InfoCREATTABLE dbo.course-info(course_NoJ int NOT NULL,course_Name char(10)COLLATE Chinese-PRC-CI-AS

6、NULLcourse_Type char(10)COLLATE Chinese-PRC-CI-AS NULLcourse_Des char(50)COLLATE Chinese-PRC-CI-AS NULL)ON PRIMARY5 创建年级课程设置信息表gradecourse_InfoCREATTABLE dbo.gradecourse-info(grade char(10)COLLATE Chinese-PRC-CI-AS NULLcourse_Name char(10)COLLATE Chinese-PRC-CI-AS NULL)ON PRIMARY6 创建学生成绩信息表result_In

7、foCREAT TABLE dbo.result-info(exam_No char(10)COLLATE Chinese-PRC-CI-AS NOT NULstudentJD int NOT NULLstudent-Name char(10)COLLATE Chinese-PRC-CI-AS NULLclass_No int NULLcourse.Name Lchar(10)COLLATE Chinese-PRC-CI-AS NULLresult float NULL)ON PRIMARY四系统用户管理模块的创建控 件属 性属性取值frmLogin(From)NamefrmLoginCapt

8、ionStartUpPostionCenterScreenWindowStateNomaltxtUserNameNametxtUserNametxtpasswordNametxtPasswordPassword*cmdOKNamecmdOKCaption确定cmdCancelNamecmdCancelCaption取消Label 1Caption学生信息管理系统Label2Caption用户名Label3Caption用户密码LabelCaption版权提供主要实现：1 用户登录2 添加用户3 修改用户密码系统启动后，将首先出现如下图所示的用户登录窗体，用户首先输入用户名，然后输入密码，如果用

9、户3 次输入密码不正确，将退出程序。用户登录窗体中放置两个文本文档(TextBox)，用来输入用户名和用户密码；两个按钮(CommandButton)用来确定或取消登录；4 个 标 签(Label)用来标示窗体的信息。为窗体定义全局变量O K,用来判断登陆是否成功；定 义 m iCount,用来记载输入密码的次数，并且在载入窗体时初始化这两个变量，代码如下：用户登录窗体创建 强制变量声明代码实现如下：Option ExplicitPublic OK As Boolean”记录确定次数Dim miCount As IntegerPrivate Sub Form_Load()OK=FalsemiC

10、ount=0End SubOption Explicit是用来规定所有变量使用前必须定义。这样可以避免山于输入错误而产生的新变量。当用户输入完用户名和用户密码，单击cmdOK按钮将对用户输入信息进行判断。用户单击按钮，将触发按钮cmdOK的 Click事件，代码如下：Private Sub cmdOK_Click()用来存放SQL语行Dim txtSQL As String用来存放记录集对象Dim mrc As ADODB.Recordset用来存放返回信息Dim MsgText As String,ToDo:create test for correct passwordcheck for

11、correct passwordUserName=If Trim(txtUserName.Text=)Then判断输入用户名为空MsgBox”没有这个用户，请重新输入用户名！vbOKOnly+vbExclamation,警告”txtU serN ame.S etFocusElsetxtSQL=select*from user_Info where user_ID=&txtUserName.Text&n,Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=True ThenMsgBox”没有这个用户，请重新输入用户名二vbOKOnly+vbExclamati

12、on,警告txtU serN ame.SetFocusElseIf Trim(mrc.Fields(1)=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox”输入密码不正确，请重新输入！”,vbOKOnly+vbExclamation,警告“txtPassword.SetFocustxtPassword.Text 二”End IfEnd IfEnd IfmiCount=miCount+1If miCount=3 ThenMe.HideEnd IfExit SubEn

13、d Subr Student_MH-MKrowfl Visual Bask,de5gnj-Sludeul _Mi*-frn4oui(i(Fortu)X 般，c I：同 理1 8 甘火64)打 1788,1488 哥 2525x288X N lU H.Id l X|0&e 匕&Vew ftroeGeneral|A fabi匕 F G国 国&Q-J国打、口 碧Q B雷_)3三 所后 浜(3 E磨 麻1 年s z s s i|tx TAlOLOJ0L0Pa,RFSCOTa2T ai ITa-JTextReturns/the text_ jn J。和-Bro皿|&5 tu d e rtg 今我的艾省|

14、电 一 字 生 售.|力ProjectH ”|金山词2002|s（送 军 力/10:49 一 d用户如果没有输入用户名密码，将出现消息框给予提示。如果输入的用户名在用户表格中没有找到，将提示重新输入用户名，文本档txtUserName将重新获得输入焦点。如果用户输入密码不正确，文本档txtUserName将重新获得输入焦点。用户登录成功，全局变量OK将被赋值为Ture；一 旦三次输入密码均不正确，全局变量OK将被赋值为False。公用模块中的Main过程将根据O K 的值决定是退出，或者进入系统。如果用户取消登录，单 击“取消”按钮，将触发按钮的Click事件；代码如下：OK=Falseme.

15、HideM e是 Visual Basic中一个常用的对象，用来指代当前对象本身。添加用户窗体创建控 件属 性属性取值frmLogin(From)NamefrmLoginCaptionStartUpPostionCenterScreenWindowStateNomaltxtUserNameNametxtUserNameTxtpassword 1NametxtPassword 1password*NametxtPasswordPassword*cmdOKNamecmdOKCaption确定cmdCancelNamecmdCancelCaption取消Label 1CaptionLabel2Cap

16、tionLabel3Caption用户需要两次输入密码，用来确保输入密码的正确。用户输入信息完毕，单击“确定”按键将触发Click事件，代码如下：Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringIfTrim(Textl(O).Text)=n ThenMsgBox”请输入用户名称！:vbOKOnly+vbExclamation,“警告”Exit SubTextl(0).Se

17、tFocusElsetxtSQL=select*from user_Info”Set mrc=ExecuteSQL(txtSQL,MsgText)判断数据集是否为空While(mrc.EOF=False)判断是否有重复记录If Trim(mrc.Fields(O)=Trim(Textl(O)ThenMsgBox”用 户 已 经 存 在，请 重 新 输 入 用 户 名！:vbOKOnly+vbExclamation,“警告”Textl(0).SetFocusTextl(O).Text=,H,Textl(l).Text=n,Textl(2).Text=nnExit SubElse移动到下一条记录m

18、rc.MoveNextEnd IfWendEnd If判断两次输入密码是否一致If Trim(Text 1 (1).Text)Trim(Text 1 (2).Text)ThenMsgBox”两次输入密码不一样，请确认！”,vbOKOnly+vbExclamation,“警告”Textl(l).SetFocusTextl(l).Text=H,Textl(2).Text=Exit SubElse判断输入密码是否为空IfTextl(l).Text=nn ThenMsgBox”密码不能为空！”,vbOKOnly+vbExclamation,“警告”Textl(l).SetFocusTextl(l).T

19、ext=,n,Textl(2).Text=,n,Elsemrc.AddNewmrc.Fields(O)=Trim(Text 1 (O).Text)mrc.Fields(l)=Trim(Text 1 (1).Text)mrc.Updatemrc.CloseMe.HideMsgBox”添加用户成功!”,vbOKOnly+vbExclamation,添力口 用 户End IfEnd IfEnd Sub一旦输入密码完毕，系统将首先查询数据库中与新建用户名相同的记录，如果有相同的记录将提示用户重新输入用户名。但确定数据库中没有相同的用户名，并且两次输入密码致的时候，将把该条记录添加到数据库中。单击取消按

20、钮将取消添加用户的操作。修改用户密码窗体创建两次输入密码后，单 击“确认”按钮，将触发Click事件判断是否修改密码，代码如下控 件属 性属性取值frmLogin(From)NamefrmLoginCaption修改密码StartUpPostionCenterScreenWindowStateNomaltxtUserNameNametxtUserNameTxtpassword 1NametxtPassword 1password*NametxtPasswordPassword*cmdOKNamecmdOKCaption确定cmdCancelNamecmdCancelCaption取消Label

21、 1Caption请输入密码Label2Caption请确认密码Private Sub cudOK_Click()Dim txtSQL,MsgText As StringDim mrc ADODB.Recrodset 判断是否为空If Trim(Text(1 ).Text)oTrim(Text(2).Text)ThenMsgBox”密码输入不正确！，vbOKOnly+vbExclamation,“警告Text(l).SetFocusText(l).Text=ElsetxtSQL=select*from user_Info where user_ID=&UserName&Set mrc=Exec

22、uteSQL(txtSQL,MsgText)mrc.Fields(1 )=Text(1 ).Textmrc.Updatemrc.CloseMsgBox”密码修改成功!”,vbOKOnly+vbExclamation,修改密码”Me.hideEnd ifEnd subw lffl X|Status2004 2 23 8:，。，口案 开 始I恁 幺*/。个我的文档 I电）一 竽 生 看 理 系 电stu d 8 tg-KJ r 学生0 1“Iio g g密码学籍管理模块的创建U 8:44控 件属 性属性取值txtSIDNametxtSIDtxtTelNametxtTeltxtRudateNamet

23、xtRudatetxtAddressScrollBarsVerticalMultiLineTruetxtCommentNametxtCommentScrollBarsVerticalMultiLineTruecomboGenderNamecomboGendercomboClassNoNamecomboClassNocmdFirstNamecndOKCaption第一条记录cmdPreviousNamecmdNextCaption上一条记录cmdNextNamecmdNextCaption下一条记录cmdLastNamecmdLastCaption最后一条记录cmdEditNamecmdEdit

24、Caption修改记录cmdUpdateNamecmdUpdateCaption更新记录cmdCancelNamecmdCancelCaption取消修改记录cmdDeleteNamecmdDeleteCaption删除记录Frame 1Caption查看学籍信息Frame2Caption修改学籍信息Label 1Caption学号Label2Caption姓名Label3Caption性别Label4Caption出生H期Label5Caption班号Label6Caption联系电话Label7Caption入校日期Label8Caption家庭住址Label9Caption备注功能如F1

25、添加学籍信息2 修改学籍信息3 查询学籍信息代码如下：添加学籍信息窗体创建Private Sub Command l_Click()定义数据集对象Dim mrc As ADODB.Recordset定义字符串变量，表示查询语句Dim txtSQL As String定义字符串变量，返回查询信息Dim MsgText As String是否输入学号If Not Testtxt(txtSID.Text)ThenMsgBox”请输入学号！”,vbOKOnly+vbExclamation,警告”txtSID.SetFocusExit SubEnd IfIf Not Testtxt(txtName.Te

26、xt)ThenMsgBox”请输入姓名!”,vbOKOnly+vbExclamation,警告”txtN ame.SetFocusExit SubEnd If判断是否输入姓名If Not Testtxt(comboSex.Text)ThenMsgBox”请选择性别!”,vbOKOnly+vbExclamation,警告”comboSex.SetFocusExit SubEnd If判断是否输入性别If Not Testtxt(txtBorndate.Text)ThenMsgBox”请输入出生日期！vbOKOnly+vbExclamalion,“警告”txtBorndate.SetFocusEx

27、it SubEnd If判断是否输入出生日期If Not Testtxt(comboClassno.Text)ThenMsgBox”请选择班号！vbOKOnly+vbExclamation,”警告“comboClassno.SetFocusExit SubEnd If判断是否选择班号If Not Testtxt(txtTel.Text)ThenMsgBox”请输入联系电话！”,vbOKOnly+vbExclamation,警告”txtTel.SetFocusExit SubEnd If判断是否输入联系电话If Not Testtxt(txtRudate.Text)ThenMsgBox”请输入入

28、校日期！vbOKOnly+vbExclamalion,“警告”txtRudate.SetFocusExit SubEnd IfIf Not Testtxt(txtAddress.Text)ThenMsgBox”请输入家庭住址!,vbOKOnly+vbExclamation,“警告”txtAddress.SetFocusExit SubEnd IfIf Not IsNumeric(Trim(txtSID.Text)ThenMsgBox”请输入数字！，vbOKOnly+vbExclamalion,警告”Exit SubtxtSID.SetFocusEnd IftxtSQL=select*from

29、student_Info where studentJD=,H&Trim(txtSID.Text)&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThenMsgBox”学号重复，请重新输入！”,vbOKOnly+vbExclamation,警告”mrc.ClosetxtSID.SetFocusElsemrc.CloseIf Not IsDate(txtBorndate.Text)ThenMsgBox”出 生 时 间 应 输 入 日 期 格 式(yyyy-mm-dd)!”，vbOKOnly+vbExclamation,“警告”txtBorn

30、date.SetFocusElsetxtBomdate=Format(txtBorndate,yyyy-mm-dd,)If Not IsDate(txtRudate.Text)ThenMsgBox”入校时间应输 入 日 期 格 式(yyyy-mm-dd)!”，vbOKOnly+vbExclamation,警告”txtRudate.SetFocusElsetxtRudate=Format(txtRudate,yyyy-mm-ddu)txtSQL=select*from student_InfoMSet mrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewnirc.Fi

31、elds(O)=Trim(txtSID.Text)rmc.Fields(l)=Trim(txtN ame.Text)mrc.Fields(2)=Trim(comboSex.Text)mrc.Fields(3)=Trim(txtBorndate.Text)mrc.Fields(4)=Trim(comboClassno.Text)mrc.Fields(5)=Trim(txtTel.Text)mrc.Fields(6)=Trim(txtRudate.Text)nirc.Fields(7)=Trim(txtAddress.Text)mrc.Fields(8)=Trim(txtComment.Text)

32、mrc.UpdateMsgBox”添加学籍信息成功!,vbOKOnly+vbExclamation,警告”mrc.CloseMe.HideEnd IfEnd IfEnd If程序首先对是否输入内容进行判断，然后进行格式判断，使用了下面两个函数 判断数据是否日期格式IsDate(txtBorndate.Text)判断数据是否日期格式IsDate(txtRudate.Text)判断是否有重复记录是很重要的，否则数据库中将发生错误。r Student_MH-Mwrosoft Vnual Bosk.de*gn-Sludnit _Mi*-frmAdd.info(Form)煜 0 15 n 0 F，八 杳

33、 8 语 决 t.l 45,0 昌 874sxs7450 3骐 g&o)ect Ftftnat Qebug M Qywy DfaQram loot*W in s Jtfndow gA RbiGeneral|F G国 国工勤金0 a-j国矽、口 碧0 3窟J J山1H -后#磨 概1 w lJ lXj-1UJ _开阑 卷X”3 6 1 ).父 场 靖 I 正 造1 T O M 阳.|出.uderO fc-M t M ft训 修改学籍信息窗体1创建控 件属 性属性取值txtSIDNametxtSIDtxtTelNametxtTeltxtRudateNametxtRudatetxtAddressSc

34、rollBarsVerticalMultiLineTruetxtCommentNametxtCommentScrollBarsVerticalMultiLineTruecomboGenderNamecomboGendercomboClassNoNamecomboClassNocmdFirstNamecndOKCaption第一条记录cmdPreviousNamecmdNextCaption上一条记录cmdNextNamecmdNextCaption下一条记录cmdLastNamecmdLastCaption最后一条记录cmdEditNamecmdEditCaption修改记录cmdUpdate

35、NamecmdUpdateCaption更新记录cmdCancelNamecmdCancelCaption取消修改记录cmdDeleteNamecmdDeleteCaption删除记录Frame 1Caption查看学籍信息Frame2Caption修改学籍信息Label 1Caption学号Label2Caption姓名Label3Caption性别Label4Caption出生H期Label5Caption班号Label6Caption联系电话Label7Caption入校日期Label8Caption家庭住址Label9Caption备注定义数据集对象Dim mrc As ADODB.R

36、ecordset定义书签，用来记载当前记录位置Dim myBookmark As Variant判断是否修改记录Dim mcclean As Boolean程序在窗体载入时自动加入各条记录Private Sub editCommand_Click()mcclean=FalseFrame2.Enabled=FalsefirstCommand.Enabled=FalsepreviousCommand.Enabled=FalsenextCommand.Enabled=FalselastCommand.Enabled=FalsetxtSID.Enabled=TruetxtName.Enabled=Tr

37、uecomboSex.Enabled=TruetxtBomdate.Enabled=TruecomboClassno.Enabled=TruetxtRudate.Enabled=TruetxtTel.Enabled=TruetxtAddress.Enabled=TruetxtComment.Enabled=TruemyBookmark=mrc.BookmarkEnd SubPrivate Sub cancelCommand_Click()If Not mcclean ThenFrame2.Enabled=TruefirstCommand.Enabled=TruepreviousCommand.

38、Enabled=TruenextCommand.Enabled=TruelastCommand.Enabled=TruetxtSID.Enabled=FalsetxtName.Enabled=FalsecomboSex.Enabled=FalsetxtBomdate.Enabled=FalsecomboClassno.Enabled=FalsetxtRudate.Enabled=FalsetxtTel.Enabled=FalsetxtAddress.Enabled=FalsetxtComment.Enabled=Falsemrc.Bookmark=my BookmarkCall viewDat

39、aElseMsgBox”什么都没有修改，有什么好取消的！，vbOKOnly+vbExclamation,“警告”End IfEnd SubPrivate Sub deleteCommand_Click()myBookmark=mrc.Bookmarkstr2$=MsgBox(是否删除当前记录？，vbOKCancel,”删除当前记录”)If str2$=vbOK Thenmrc.MoveNextIf mrc.EOF Thenmrc.MoveFirstmyBookmark=mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark=myBookmarkCall v

40、iewDataElsemyBookmark=mrc.Bookmarkmrc.MovePreviousmrc.Deletemrc.Bookmark=myBookmarkCall viewDataEnd IfElsemrc.Bookmark.=my BookmarkCall viewDataEnd IfEnd SubPrivate Sub firstCommand_Click()mrc.MoveFirstCall viewDataEnd SubPrivate Sub Form_Load()SOL语句Dim txtSQL As StringDim MsgText As StringtxtSQL=se

41、lect*from student_Info 执行查询操作Set mrc=ExecuteSQL(txtSQL,MsgText)mrc.MoveFirst显示数据Call viewDalamcbookmark=mrc.Bookmarkmcclean=TrueEnd Sub由于程序各处需要显示数据，定义函数viewDataPublic Sub viewData()txtSID.Text=mrc.Fields(O)txtName.Text=mrc.Fields(l)comboSex.Text=mrc.Fields(2)txtBorndate.Text=Format(mrc.Fields(3),yyy

42、y-mm-dd)comboClassno.Text=mrc.Fields(4)txtTel.Text=mrc.Fields(5)txtRudate.Text=Format(mrc.Fields(6),yyyy-mm-dd)txtAddress.Text=mrc.Fields(7)txtComment.Text=mrc.Fields(8)End Sub单 击“最后条记录”，将显示最后一条记录Private Sub lastCommand_Click()移动到数据集的最后一条记录mrc.MoveLastCall viewDataEnd SubPrivate Sub nextCommand_Clic

43、k()mrc.MoveNextIf mrc.EOF Thenmrc.MoveFirstEnd IfCall viewDataEnd SubPrivate Sub previousCommand_Click()mrc.MovePreviousIf mrc.BOF Thenmrc.MoveLastEnd IfCall viewDataEnd Sub修改完毕后，单 击“更新记录 按钮，将触发Click事件Private Sub updateCommand_Click()Dim txtSQL As StringDim MsgText As StringDim mrcc As ADODB.Records

44、et判断是否处于修改状态If mcclean ThenMsgBox”请先修改学籍信息”,vbOKOnly+vbExclamation,警告”Exit SubEnd If判断数据是否为空If Not Testtxt(txtSID.Text)ThenMsgBox”请输入学号！vbOKOnly+vbExclamation,警告”txtSID.SetFocusExit SubEnd If判断学号是否为空If Not Testtxt(txtName.Text)ThenMsgBox”请输入姓名！”,vbOKOnly+vbExclamation,警告”txtName.SetFocusExit SubEnd

45、If判断姓名是否为空If Not Testtxt(comboSex.Text)ThenMsgBox”请选择性别！，vbOKOnly+vbExclamation,”警告“comboSex.SetFocusExit SubEnd If判断性别是否为空If Not Testtxt(txtBomdate.Text)ThenMsgBox”请输入出生日期！”,vbOKOnly+vbExclamation,警告”txtBorndate.SetFocusExit SubEnd If判断出生11期是否为空If Not Testtxt(comboClassno.Text)ThenMsgBox”请选择班号!”,vb

46、OKOnly+vbExclamation,“警告”comboClassno.SetFocusExit SubEnd If判断班号是否为空If Not Testtxt(txtTeLText)ThenMsgBox”请输入联系电话！,vbOKOnly+vbExclamation,警告”txtTel.SetFocusExit SubEnd If判断联系电话是否为空If Not Testtxt(txtRudate.Text)ThenMsgBox”请输入入校日期！”,vbOKOnly+vbExclamation,警告”txtRudate.SetFocusExit SubEnd If判断入校11期是否为空I

47、f Not Testtxt(txtAddress.Text)ThenMsgBox”请输入家庭住址！，vbOKOnly+vbExclamation,警告”txtAddress.SetFocusExit SubEnd If判断家庭住址是否为空If Not IsNumeric(Trim(txtSID.Text)ThenMsgBox”学号请输入数字！，vbOKOnly+vbExclamation,“警告”txtSID.SetFocusExit Sub判断是否为数字End If判断是否有重复记录mrc.DeletetxtSQL=select*from student_Info where student

48、JD=,H&Trim(txtSID.Text)&Set mrcc=ExecuteSQL(txtSQL,MsgText)If mrcc.EOF=False ThenMsgBox”学号重复，请重新输入！,vbOKOnly+vbExclamation,警告”mrcc.ClosetxtSID.SetFocusElsemrcc.CloseIf Not IsDate(txtBomdate.Text)ThenMsgBox”出 生 时 间 应 输 入 I I 期 格 式(yyyy-mm-dd)!”，vbOKOnly+vbExclamation,“警告”txtBorndate.SetFocusElsetxtBo

49、mdate=Format(txtBorndate,nyyyy-mm-dd)If Not IsDate(txtRudate.Text)ThenMsgBox”入 校 时 间 应 输 入 日 期 格 式(yyyy-mm-dd)!”，vbOKOnly+vbExclamation,“警告”txtRudate.SetFocusElsetxtRudate=Format(txtRudate,yyyy-mm-ddu)mrc.AddNewmrc.Fields(O)=Trim(txtSID.Text)mrc.Fields(l)=Trim(txtName.Text)mrc.Fields(2)=Trim(comboSe

50、x.Text)mrc.Fields(3)=Trim(txtBorndate.Text)nirc.Fields(4)=Trim(comboClassno.Text)mi-c.Fields(5)=Trim(txtTel.Text)mrc.Fields(6)=Trim(txtRudate.Text)mrc.FieldsC?)=Trim(txtAddress.Text)mrc.Fields(8)=Trim(txtComment.Text)mrc.UpdateMsgBox”修改学籍信息成功！”,vbOKOnly+vbExclamation,修改学籍信息”mrc.Bookmark=myBookmarkCa