MicrosoftSQLSERVER-学生信息管理系统数据库设计示例培训资料

1、Good is good, but better carries it.精益求精，善益求善。MicrosoftSQLSERVER-学生信息管理系统数据库设计示例-学生信息管理系统（MicrosoftSQLSERVER）数据库设计示例一、前言随着我国教育产业化的飞速发展，社会对教育水平和教学管理软硬件的要求日益提高，尤其是学校对学生管理能够具有一整套完善的教学管理软件提出了更多的要求。为了适应这种形式，教育系统尤其不仅首先要有坚实的硬件基础，还要有一整套完善的教学管理软件管理系统。而要实现这一功能，就要求学校管理者配备一套高效的教育管理网络系统，以便在学校内实施良好的一整套完善的管理且以最快地速

2、度响应教师和学生的需求，及时为他们提供服务，为他们提供一个高效、便捷的环境。学生管理信息系统（MIS）是校园网络中一个重要的应用系统，它大大了改善学校教学、科研与管理的基础环境，在一定程度上反映出学校管理现代化的水平。学生信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面.对于前者要求建立数据一致性和完整性强,数据安全性好的数据库.而对于后者则要求应用程序功能完备,易使用等特点.学生信息管理系统主要功能有学生学籍管理、成绩管理、班级管理、课程管理。学生学籍管理主要有添加新学生学籍；学生学籍修改；学生学籍删除。成绩管理包括成绩录入、成绩

3、查询、成绩删除。班级管理包括添加班级、修改班级。课程管理包括设置课程、添加课程、修改课程。同时系统采用分级使用，即分管理者和普通用户两个级别，管理者具有所有功能，普通用户即有部分功能将限制使用。系统开发采用Microsoft公司的VisualBasic6.0，利用其强大的可视化界面功能及对数据库的支持。系统中大量采用SQL查询语句，界面友好，功能较强。采用MicrosoftSQLSERVER系统作为数据库，速度较快，数据能共享，能较好地解决访问速度及数据共享的问题。二系统功能描述本系统的主要任务是实现对学校的学生学籍管理、成绩管理、班级管理、课程管理。系统采用分级使用其主要功能包括：1学生学藉

4、管理功能添加新学生学籍。添加新生的具体数据，主要有学号、姓名、性别、班号、联系电话、入学时间等详细信息。修改学籍。将已经入库的学籍信息进行修改、更新、删除（需要管理员权限）。删除学籍。删除已经入库的学籍信息（需要管理员权限）。查询学籍。根据学号、姓名、或班级进行党籍信息查询。2班级管理功能添加班级。添加班号、年级、班主任及教室等内容（需要管理员权限）。修改班级。修改、更新、删除已经入库的班级内容（需要管理员权限）。3成绩管理功能添加成绩。主要内容为考试编号、班号、学号、姓名、课程及分数（需要管理员权限）。修改成绩。修改、更新、删除已经入库成绩单（需要管理员权限）。查询成绩。按条件进行成绩查询。

5、4课程管理功能课程设置。为每个年级进行课程安排。（需要管理员权限）。添加课程。录入课程名称、课程编号、课程类型等信息。（需要管理员权限）。修改课程。修改、更新、删除已经入库的课程信息。（需要管理员权限）。三、1、数据库概念结构设计根据以上分析规划出的实体有：用户信息实体(user_info)、学生学籍信息实体（student_Info）、成绩信息实体（result_Info）、班级课程实体（gradecourse_Info）、课程实体（course_Info）及班级实体（class_Info）。用户实体E-R图用户实体用户名用户密码用户类型学生学籍信息实体E-R图学生学籍实体姓名备注联系地址入

6、学时间班级号出生日期性别学号成绩信息实体E-R图成绩实体分数课程名班级号姓名学号考试编号班级课程实体E-R图课程名班级号班级课程实体课程实体E-R图课程实体课程号课程名称课程类别课程描述班级实体E-R图班级实体班级号年级班主任教室2、数据库逻辑结构设计（1）用户表user_Info列名数据类型可否为空说明user_IDcharNOTNULL用户名user_PWDcharNULL用户密码user_DescharNULL用户类型（2）学生学籍表student_Info列名数据类型可否为空说明student_IDintNOTNULL主键student_NamecharNULL学生名称student_

7、SexcharNULL性别born_DatedatetimeNULL出生日期class_NOintNULL班级号tele_NumbercharNULL联系电话ru_DatedatetimeNULL入校日期addressvarcharNULL联系地址commentvarcharNULL学生备注（3）成绩表（result_Info）列名数据类型可否为空说明exam_NocharNOTNULL考试编号student_IDintNOTNULL学号student_NamecharNULL学生姓名class_NointNULL班号course_NamecharNULL课程名resultfloatNULL分

8、数（4）班级课程表（gradecourse_Info）列名数据类型可否为空说明gradecharNULL年级course_NamecharNULL课程名（5）课程表（course_Info）列名数据类型可否为空说明course_NointNOTNULL课程号course_NamecharNULL课程名course_TypecharNULL课程类型course_DescharNULL课程描述（6）班级表（class_Info）列名数据类型可否为空说明class_NointNOTNULL班号gradecharNULL年级directorcharNULL班主任classroom_NocharNULL

9、教室四、数据库结构的实现经过前面的需求分析和概念结构设计以后，得到数据库的逻辑结构。现在就可以在SQLServer2000数据库系统中实现该逻辑结构。这是利用SQLServer2000数据库系统中的SQL查询分析器实现的。下面给出创建这些表格的SQL语句。创建用户表CREATETABLEdbo.user_Info(user_IDchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,user_PWDchar(10)COLLATEChinese_PRC_CI_ASNULL,user_Deschar(10)COLLATEChinese_PRC_CI_ASNULL)ONPRI

10、MARYGO2、创建学生信息表CREATETABLEdbo.student_Info(student_IDintNOTNULL,student_Namechar(10)COLLATEChinese_PRC_CI_ASNULL,student_Sexchar(2)COLLATEChinese_PRC_CI_ASNULL,born_DatedatetimeNULL,class_NOintNULL,tele_Numberchar(10)COLLATEChinese_PRC_CI_ASNULL,ru_DatedatetimeNULL,addressvarchar(50)COLLATEChinese_P

11、RC_CI_ASNULL,commentvarchar(200)COLLATEChinese_PRC_CI_ASNULL)ONPRIMARY3、创建成绩表CREATETABLEdbo.result_Info(exam_Nochar(10)COLLATEChinese_PRC_CI_ASNOTNULL,student_IDintNOTNULL,student_Namechar(10)COLLATEChinese_PRC_CI_ASNULL,class_NointNULL,course_Namechar(10)COLLATEChinese_PRC_CI_ASNULL,resultfloatNULL

12、)ONPRIMARY4、创建年级课程表CREATETABLEdbo.gradecourse_Info(gradechar(10)COLLATEChinese_PRC_CI_ASNULL,course_Namechar(10)COLLATEChinese_PRC_CI_ASNULL)ONPRIMARY5、创建课程表CREATETABLEdbo.course_Info(course_NointNOTNULL,course_Namechar(10)COLLATEChinese_PRC_CI_ASNULL,course_Typechar(10)COLLATEChinese_PRC_CI_ASNULL,

13、course_Deschar(50)COLLATEChinese_PRC_CI_ASNULL)ONPRIMARY6、创建班级表CREATETABLEdbo.class_Info(class_NointNOTNULL,gradechar(10)COLLATEChinese_PRC_CI_ASNULL,directorchar(10)COLLATEChinese_PRC_CI_ASNULL,classroom_Nochar(10)COLLATEChinese_PRC_CI_ASNULL)ONPRIMARY五、学生信息管理系统主窗体的创建上面的SQL语句在SQLServer2000中查询分析器的执行

14、，将自动产生需要的所有表格。有关数据库结构的所有后台工作已经完成。现在将通过航空公司管理信息系统中各个功能模块的实现，讲解如何使用VisualBasic来编写数据库系统的客户端程序。1、创建公用模块在VisualBasic中可以用公用模块来存放整个工程项目公用的函数、过程和全局变量等。这样可以极大地提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Module1.bas。下面就可以开始添加需要的代码了。由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下：.PublicDeclar

15、eFunctionShellExecuteLibshell32.dllAliasShellExecuteA(ByValhWndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongPublicDeclareFunctionGetWindowLongLibuser32AliasGetWindowLongA(ByValhWndAsLong,ByValnIndexAsLong)AsLongPubli

16、cDeclareFunctionSetWindowLongLibuser32AliasSetWindowLongA(ByValhWndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPublicDeclareFunctionSetLayeredWindowAttributesLibuser32(ByValhWndAsLong,ByValcrKeyAsLong,ByValbAlphaAsByte,ByValdwFlagsAsLong)AsLongPublicfMainFormAsfrmMainPublicUserNameAsStringPu

17、blicmnUserTypeAsBoolean判断用户类型SubMain()DimfLoginAsNewfrmLoginfLogin.ShowvbModalIfNotfLogin.OKThenLoginFailedsoexitappEndEndIfUnloadfLoginSetfMainForm=NewfrmMainfMainForm.ShowEndSubPublicFunctionConnectString()_AsStringreturnsaDBConnectStringConnectString=Driver=SQLServer;Server=ABS;Database=student;U

18、id=sa;Pwd=abs;ConnectString=Provider=SQLOLEDB.1;Password=abs;PersistSecurityInfo=True;UserID=sa;InitialCatalog=student;DataSource=ABSEndFunctionPublicFunctionExecuteSQL(ByValSQL_AsString,MsgStringAsString)_AsADODB.RecordsetexecutesSQLandreturnsRecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.Recordset

19、DimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr(INSERT,DELETE,UPDATE,_UCase$(sTokens(0)Thencnn.ExecuteSQLMsgString=sTokens(0)&_querysuccessfulElseSetrst=NewADODB.Recordsetrst.CursorLocation=adUseClientrst.OpenTrim$(SQL),cnn,_adO

20、penKeyset,_adLockOptimisticrst.MoveLastgetRecordCountSetExecuteSQL=rstMsgString=查询到&rst.RecordCount&_条记录EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString=查询错误:&_Err.DescriptionResumeExecuteSQL_ExitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)

21、=ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction2、创建主窗体这个项目我们使用多文档界面，单击工具栏中的ADDMDIForm按钮，产生一个窗体frmmain.代码如下：.PrivateSubis_usertype()IfmnUserType=FalseThenfrmsjm.cmdaddsj.Enabled=Falsefrmsjm.cmdmodsj.Enabled=Falsefrmbjm.cmdaddbj.Enabled=Falsefrmbjm.cmdmodbj.Enabled=Falsefrmkcmod.cmdaddkc.Enabled=Fa

22、lsefrmkcmod.cmdmodkc.Enabled=Falsefrmkcmod.cmdfindkc.Enabled=Falsefrmcjmod.cmdaddcj.Enabled=Falsefrmcjmod.cmdmodcj.Enabled=Falsefrmsjm.cmdaddsj.Enabled=Falsefrmsjm.cmdmodsj.Enabled=Falsefrmsys.cmdaddsys.Enabled=Falsemnuadduser.Enabled=FalseEndIfEndSubPrivateSubbjIMG_Click()frmsjm.Hidefrmkcmod.Hidefr

23、mcjmod.Hidefrmbjm.ShowEndSubPrivateSubcjIMG_Click()frmsjm.Hidefrmkcmod.Hidefrmbjm.Hidefrmcjmod.ShowEndSubPrivateSubexitIMG_Click()EndEndSubPrivateSubImgHelp_Click()frmhelp.ShowEndSubPrivateSubkcIMG_Click()frmsjm.Hidefrmbjm.Hidefrmcjmod.Hidefrmkcmod.ShowEndSubPrivateSubMDIForm_Load()Me.Caption=学生信息管理

24、系统,操作员&UserName&LoadfrmbjmLoadfrmkcmodLoadfrmcjmodCallis_usertypeEndSubPrivateSubMenuHelp_Click(IndexAsInteger)frmhelp.ShowEndSubPrivateSubmnuadduser_Click()frmAdduser.ShowEndSubPrivateSubmnuExit_Click()EndEndSubPrivateSubmnupsw_Click()frmModifyuserinfo.ShowEndSubPrivateSubsysIMG_Click()frmsys.ShowE

25、ndSubPrivateSubxjIMG_Click()frmsjm.Showfrmbjm.Hidefrmkcmod.Hidefrmcjmod.HideEndSub3创建frmLogin窗体代码如下：OptionExplicitPrivateDeclareFunctionGetUserNameLibadvapi32.dllAliasGetUserNameA(ByVallpbufferAsString,nSizeAsLong)AsLongPrivateConstWS_EX_LAYERED=&H80000PrivateConstGWL_EXSTYLE=(-20)PrivateConstLWA_AL

26、PHA=&H2PrivateConstLWA_COLORKEY=&H1表示当前用户登录所选择的身份，即用户类型,0-表示教务管理人员；1-表示学生DimUserTypeAsIntegerPublicOKAsBoolean记录确定次数DimmiCountAsIntegerPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()DimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsStringToDo:createtestforcorrectpasswordche

27、ckforcorrectpasswordUserName=IfTrim(txtUserName.Text=)ThenMsgBox没有这个用户，请重新输入用户名！,vbOKOnly+vbExclamation,警告txtUserName.SetFocusElsetxtSQL=select*fromuser_Infowhereuser_ID=&txtUserName.Text&Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox没有这个用户，请重新输入用户名!,vbOKOnly+vbExclamation,警告txtUserName.S

28、etFocusElseIfTrim(mrc.Fields(1)=Trim(txtPassword.Text)AndTrim(mrc.Fields(2)=Trim(UserType)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)IfUserType=0ThenmnUserType=TrueElsemnUserType=FalseEndIfElseMsgBox输入密码不正确，请重新输入！,vbOKOnly+vbExclamation,警告txtPassword.SetFocustxtPassword.Text=EndIfEndI

29、fEndIf用户密码错误的次数，如果错误次数超过3次，则退出系统miCount=miCount+1IfmiCount=3ThenMsgBox您无权操作本系统!再见！,vbCritical,无权限UnloadMeEndIfExitSubEndSubPrivateSubForm_Load()设备半透明窗体DimrtnAsLongrtn=GetWindowLong(hWnd,GWL_EXSTYLE)rtn=rtnOrWS_EX_LAYEREDSetWindowLonghWnd,GWL_EXSTYLE,rtnSetLayeredWindowAttributeshWnd,0,200,LWA_ALPHAD

30、imsBufferAsStringDimlSizeAsLongsBuffer=Space$(255)lSize=Len(sBuffer)CallGetUserName(sBuffer,lSize)IflSize0ThentxtUserName.Text=ElsetxtUserName.Text=vbNullStringEndIfOK=FalsemiCount=0optUserType(0).Value=TrueImage1.ToolTipText=管理员账号：admin；密码：admin;普通用户账号：guest;密码:guestEndSubPrivateSubForm_MouseMove(B

31、uttonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Line1.BorderColor=&HE0E0E0Line2.BorderColor=&HE0E0E0Line3.BorderColor=&HE0E0E0Line4.BorderColor=&HE0E0E0EndSubPrivateSubImage1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Line1.BorderColor=&HFF&Line2.BorderColor=&HFF&Line3.BorderColo

32、r=&HFF&Line4.BorderColor=&HFF&EndSubPrivateSuboptUserType_Click(IndexAsInteger)UserType=IndexEndSubPrivateSubtxtPassword_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThencmdOK.SetFocusEndIfEndSubPrivateSubtxtUserName_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThentxtPassword.SetFocusEndIfEndSub4、创建frmAddcla

33、ssinfo窗体代码如下：PrivateSubCommand1_Click()DimmrcAsADODB.RecordsetDimMsgTextAsStringDimtxtSQLAsStringIfNotTesttxt(txtClassno.Text)ThenMsgBox请输入班号！,vbOKOnly+vbExclamation,警告txtClassno.SetFocusExitSubEndIfIfNotTesttxt(comboGrade.Text)ThenMsgBox请选择年级！,vbOKOnly+vbExclamation,警告comboGrade.SetFocusExitSubEndI

34、fIfNotTesttxt(txtDirector.Text)ThenMsgBox请输入班主任姓名！,vbOKOnly+vbExclamation,警告txtDirector.SetFocusExitSubEndIfIfNotTesttxt(txtClassroom.Text)ThenMsgBox请输入教室房间号！,vbOKOnly+vbExclamation,警告txtClassroom.SetFocusExitSubEndIfIfNotIsNumeric(Trim(txtClassno.Text)ThenMsgBox请输入数字！,vbOKOnly+vbExclamation,警告ExitS

35、ubtxtClassno.SetFocusEndIftxtSQL=select*fromclass_InfoSetmrc=ExecuteSQL(txtSQL,MsgText)IfNotmrc.BOFAndmrc.EOFThenmrc.MoveFirstEndIfWhile(mrc.EOF=False)If(Trim(mrc.Fields(0)=Trim(txtClassno.Text)ThenMsgBox班号已经存在，请重新输入班号！,vbOKOnly+vbExclamation,警告ExitSubtxtClassno.Text=txtClassno.SetFocusElsemrc.MoveN

36、extEndIfWendmrc.AddNewmrc.Fields(0)=Trim(txtClassno.Text)mrc.Fields(1)=Trim(comboGrade.Text)mrc.Fields(2)=Trim(txtDirector.Text)mrc.Fields(3)=Trim(txtClassroom.Text)mrc.Updatemrc.CloseMsgBox添加班级信息成功！,vbOKOnly+vbExclamation,添加班级信息EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()comb

37、oGrade.AddItem初中一年级comboGrade.AddItem初中二年级comboGrade.AddItem初中三年级comboGrade.AddItem高中一年级comboGrade.AddItem高中二年级comboGrade.AddItem高中三年级EndSub5、创建frmAddcourseinfo窗体代码如下：.PrivateSubCommand1_Click()DimmrcAsADODB.RecordsetDimMsgTextAsStringDimtxtSQLAsStringIfNotTesttxt(txtCourseno.Text)ThenMsgBox请输入课程编号！

38、,vbOKOnly+vbExclamation,警告txtCourseno.SetFocusExitSubEndIfIfNotTesttxt(txtCoursename.Text)ThenMsgBox请输入课程名称！,vbOKOnly+vbExclamation,警告txtCoursename.SetFocusExitSubEndIfIfNotTesttxt(comboCoursetype.Text)ThenMsgBox请选择课程类型！,vbOKOnly+vbExclamation,警告comboCoursetype.SetFocusExitSubEndIfIfNotTesttxt(txtCo

39、ursedes.Text)ThenMsgBox请输入课程描述信息！,vbOKOnly+vbExclamation,警告txtCoursedes.SetFocusExitSubEndIfIfNotIsNumeric(Trim(txtCourseno.Text)ThenMsgBox请输入数字编号！,vbOKOnly+vbExclamation,警告ExitSubtxtCourseno.SetFocusEndIftxtSQL=select*fromcourse_InfoSetmrc=ExecuteSQL(txtSQL,MsgText)While(mrc.EOF=False)If(Trim(mrc.F

40、ields(0)=Trim(txtCourseno.Text)ThenMsgBox课程编号已经存在，请重新输入课程编号！,vbOKOnly+vbExclamation,警告txtCourseno.Text=txtCourseno.SetFocusExitSubElsemrc.MoveNextEndIfWendmrc.AddNewmrc.Fields(0)=Trim(txtCourseno.Text)mrc.Fields(1)=Trim(txtCoursename.Text)mrc.Fields(2)=Trim(comboCoursetype.Text)mrc.Fields(3)=Trim(tx

41、tCoursedes.Text)mrc.Updatemrc.CloseMsgBox添加课程信息成功！,vbOKOnly+vbExclamation,添加课程信息UnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()comboCoursetype.AddItem必修comboCoursetype.AddItem考查EndSub6、创建frmAddresult窗体代码如下：.DimFlagselectAsBooleanDimGradeAsStringPrivateSubcmdCancel_Click()

42、UnloadMeEndSubPrivateSubcmdOK_Click()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringIfNotTesttxt(comboExamtype.Text)ThenMsgBox请输入考试编号!,vbOKOnly+vbExclamation,警告ExitSubEndIfIfNotTesttxt(comboClassno.Text)ThenMsgBox请选择班号!,vbOKOnly+vbExclamation,警告ExitSubEndIfIfNotTesttxt(comboSID.Text)ThenM

43、sgBox请选择学号!,vbOKOnly+vbExclamation,警告ExitSubEndIfIfNotTesttxt(comboCourse.Text)ThenMsgBox请选择课程!,vbOKOnly+vbExclamation,警告ExitSubEndIfIfNotTesttxt(txtResult.Text)ThenMsgBox请输入分数!,vbOKOnly+vbExclamation,警告ExitSubEndIfIfNotIsNumeric(txtResult.Text)ThenMsgBox分数请输入数字!,vbOKOnly+vbExclamation,警告ExitSubEndI

44、ftxtSQL=select*fromresult_Infowhereexam_No=&comboExamtype.Text&andstudent_ID=&comboSID.Text&andcourse_Name=&comboCourse.Text&Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox有相同纪录，请重新输入信息!,vbOKOnly+vbExclamation,警告mrc.CloseElsemrc.AddNewmrc.Fields(0)=comboExamtype.Textmrc.Fields(1)=comboSID

45、.Textmrc.Fields(2)=txtName.Textmrc.Fields(3)=comboClassno.Textmrc.Fields(4)=comboCourse.Textmrc.Fields(5)=txtResult.Textmrc.Updatemrc.CloseMsgBox添加成绩成功！,vbOKOnly+vbExclamation,警告UnloadMeEndIfEndSubPrivateSubcomboClassno_Click()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringcomboSID.Clearc

46、omboCourse.CleartxtSQL=select*fromstudent_Infowhereclass_NO=&comboClassno.Text&Setmrc=ExecuteSQL(txtSQL,MsgText)While(mrc.EOF=False)comboSID.AddItemmrc!student_IDmrc.MoveNextWendmrc.ClosetxtSQL=select*fromclass_Infowhereclass_No=&comboClassno.Text&Setmrc=ExecuteSQL(txtSQL,MsgText)Grade=mrc!Grademrc.

47、ClosetxtSQL=select*fromgradecourse_Infowheregrade=&Grade&Setmrc=ExecuteSQL(txtSQL,MsgText)While(mrc.EOF=False)comboCourse.AddItemmrc!course_Namemrc.MoveNextWendmrc.CloseFlagselect=TrueEndSubPrivateSubcomboCourseno_Change()EndSubPrivateSubcomboSID_Click()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsg

48、TextAsStringtxtSQL=select*fromstudent_Infowherestudent_ID=&comboSID.Text&Setmrc=ExecuteSQL(txtSQL,MsgText)txtName.Text=mrc!student_Namemrc.CloseEndSubPrivateSubForm_Load()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringFlagselect=FalsetxtSQL=select*fromclass_InfoSetmrc=ExecuteSQL(txtSQL,Ms

49、gText)While(mrc.EOF=False)comboClassno.AddItemmrc!class_Nomrc.MoveNextWendmrc.ClosecomboExamtype.AddItem2006期中comboExamtype.AddItem2006期末comboExamtype.AddItem2007期中comboExamtype.AddItem2007期末EndSub7、创建frmAddsinfo窗体代码如下PrivateSubCommand1_Click()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStri

50、ngIfNotTesttxt(txtSID.Text)ThenMsgBox请输入学号！,vbOKOnly+vbExclamation,警告txtSID.SetFocusExitSubEndIfIfNotTesttxt(txtName.Text)ThenMsgBox请输入姓名！,vbOKOnly+vbExclamation,警告txtName.SetFocusExitSubEndIfIfNotTesttxt(comboSex.Text)ThenMsgBox请选择性别！,vbOKOnly+vbExclamation,警告comboSex.SetFocusExitSubEndIfIfNotTestt

51、xt(txtBorndate.Text)ThenMsgBox请输入出生日期！,vbOKOnly+vbExclamation,警告txtBorndate.SetFocusExitSubEndIfIfNotTesttxt(comboClassno.Text)ThenMsgBox请选择班号！,vbOKOnly+vbExclamation,警告comboClassno.SetFocusExitSubEndIfIfNotTesttxt(txtTel.Text)ThenMsgBox请输入联系电话！,vbOKOnly+vbExclamation,警告txtTel.SetFocusExitSubEndIfIf

52、NotTesttxt(txtRudate.Text)ThenMsgBox请输入入校日期！,vbOKOnly+vbExclamation,警告txtRudate.SetFocusExitSubEndIfIfNotTesttxt(txtAddress.Text)ThenMsgBox请输入家庭住址！,vbOKOnly+vbExclamation,警告txtAddress.SetFocusExitSubEndIfIfNotIsNumeric(Trim(txtSID.Text)ThenMsgBox请输入数字！,vbOKOnly+vbExclamation,警告ExitSubtxtSID.SetFocus

53、EndIftxtSQL=select*fromstudent_Infowherestudent_ID=&Trim(txtSID.Text)&Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox学号重复，请重新输入！,vbOKOnly+vbExclamation,警告mrc.ClosetxtSID.SetFocusElsemrc.CloseIfNotIsDate(txtBorndate.Text)ThenMsgBox出生时间应输入日期格式（yyyy-mm-dd）！,vbOKOnly+vbExclamation,警告txtBornda

54、te.SetFocusElsetxtBorndate=Format(txtBorndate,yyyy-mm-dd)IfNotIsDate(txtRudate.Text)ThenMsgBox入校时间应输入日期格式（yyyy-mm-dd）！,vbOKOnly+vbExclamation,警告txtRudate.SetFocusElsetxtRudate=Format(txtRudate,yyyy-mm-dd)txtSQL=select*fromstudent_InfoSetmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(txtS

55、ID.Text)mrc.Fields(1)=Trim(txtName.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)mrc.Fields(7)=Trim(txtAddress.Text)mrc.Fields(8)=Trim(txtComment.Text)mrc.UpdateMsgBox添加学

56、籍信息成功！,vbOKOnly+vbExclamation,警告mrc.CloseMe.HideEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringDimiAsIntegercomboSex.AddItem男comboSex.AddItem女txtSQL=select*fromclass_InfoSetmrc=ExecuteSQL(txtSQL,MsgText)Fori

57、=1Tomrc.RecordCountcomboClassno.AddItemmrc.Fields(0)mrc.MoveNextNextimrc.CloseEndSub8、创建frmAdduser窗体.PrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()DimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsStringDimuserTAsIntegerIfTrim(Text1(0).Text)=ThenMsgBox请输入用户名称！,vbOKOnly+vbExclamat

58、ion,警告ExitSubText1(0).SetFocusElsetxtSQL=select*fromuser_InfoSetmrc=ExecuteSQL(txtSQL,MsgText)While(mrc.EOF=False)IfTrim(mrc.Fields(0)=Trim(Text1(0)ThenMsgBox用户已经存在，请重新输入用户名！,vbOKOnly+vbExclamation,警告Text1(0).SetFocusText1(0).Text=Text1(1).Text=Text1(2).Text=ExitSubElsemrc.MoveNextEndIfWendEndIfIfTr

59、im(Text1(1).Text)Trim(Text1(2).Text)ThenMsgBox两次输入密码不一样，请确认！,vbOKOnly+vbExclamation,警告Text1(1).SetFocusText1(1).Text=Text1(2).Text=ExitSubElseIfText1(1).Text=ThenMsgBox密码不能为空！,vbOKOnly+vbExclamation,警告Text1(1).SetFocusText1(1).Text=Text1(2).Text=Elsemrc.AddNewmrc.Fields(0)=Trim(Text1(0).Text)mrc.Fie

60、lds(1)=Trim(Text1(1).Text)mrc.Fields(2)=Trim(Label4.Caption)mrc.Updatemrc.CloseMe.HideMsgBox添加用户成功！,vbOKOnly+vbExclamation,添加用户EndIfEndIfEndSubPrivateSubForm_Load()optUserType(0).Value=TrueEndSubPrivateSuboptUserType_Click(IndexAsInteger)userT=IndexLabel4.Caption=userTEndSub9、创建frmInquireresult窗体代码如