VB面向对象程序设计学生信息管理系统教学内容

1、Good is good, but better carries it.精益求精，善益求善。VB面向对象程序设计学生信息管理系统-华北科技学院课程设计说明书（VB面向对象程序设计）班级:*姓名:*设计题目:学生信息管理系统设计时间:2009.2.23至2009.3.5指导教师:杨月江评语:_评阅成绩:评阅教师:面相对象程序设计(VB)课程设计报告实验题目：学生信息管理系统实验目的：当今教育正在普及，学校要对每位同学的基本信息情况进行统计整理，如何对信息进行保存、查询无疑很重要，同时满足信息管理者和查询者的使用。而系统的安全也相当重要，防止恶意者的窜改给使用者带来极大不便。在本系统中将实现数据库

2、应用系统最基本的几种功能，即对信息的保存、增加、浏览、修改、删除以及查询，同时还提供一定的安全功能。实验设备及环境：PC兼容机、Windows操作系统、VB软件等。功能模块简介和系统结构图学生信息管理系统学生成绩查询安全机制基本情况管理查看报表各专业人数统计学生信息编辑、浏览成绩统计情况登录时间控制锁定密码修改密码登录基本情况管理模块学生信息编辑模块是管理员可以对学生基本信息及成绩进行添加、修改、删除等操作，而学生则不可以；成绩统计情况模块可以以表格和图表的形式显示前三名同学的平均成绩和最低成绩；各专业人数统计模块以直方图图表形式显示各专业的总人数。学生成绩查询管理员可以添加、修改、删除学生的

3、专业、学号、姓名，并以网格显示对应学号学生的成绩，而学生只能浏览信息。查看报表可以查看学生的基本情况，包括学号、姓名、系别、专业、出生年月等信息。安全机制密码登录用户登录时要输入用户名、用户身份和密码，这三项一一对应才能登录此系统，并根据用户身份限制相应操作。密码修改用户登录时有初始密码，为保护个人隐私，防止他人盗用窜改，成功登录系统后可以进行密码修改。登录时间控制锁定如果用户三次登录出现错误，系统就会锁定，要求用户一分钟后再尝试重新登录（为方便操作，此系统锁定时间设置较短，可以更改延长）。在锁定未解除时登录，系统会提示您还有多长时间才可以登录。这有效防止恶意者频繁尝试登录，窜改信息。系统的主

4、要界面设计及运行说明：1.登录界面当用户输入的信息有错误时，系统会提示你是用户名错误还是密码错误。登录窗体的Borderstyle属性设置为0-None,画面美观。如图1、图2所示。图1错误登录提示图图2登录锁定图当用户三次登录都错误时，系统会提示您“登录错误已达3次，请1分钟后重新登录”；若在1分钟内登录，系统会提示还要多长时间才可以登录。这提高了系统的安全系数，防止恶意者频繁尝试登录。2.系统主界面主界面为MDI窗体，通过菜单编辑器建立系统菜单，并使用工具栏，设置了“密码修改”和“信息浏览”两个命令按钮，当鼠标指向命令按钮时，有相应文本提示出现。单击各个命令按钮进行相关操作。如果登录者身份

5、为“管理员”，则“学籍管理”下的“学生信息编辑”命令可用；若登录者身份为“学生”，则该命令不可用。在主窗体中还使用了状态栏，在第一个窗格中填写文本，显示设计者名称；在第二个窗格中通过代码显示当前使用者姓名。并在后面的窗格中添加钟表图片，显示当前时间；还可以显示当前日期。窗体界面美观大方，并尽量为使用者提供方便。如图3所示。图3主窗体运行界面图3.学生信息编辑界面此模块可以使管理者添加、删除、修改以及查询学生基本信息，当单击“新增”命令时，该命令按钮的Caption变为“确定”，同时，“删除”和“修改”命令变灰，不能使用。填写完信息后，单击“确定”，则新信息成功录入；若单击“放弃”，则跳回当前记

6、录。“修改”命令类似。如图4所示。图4学生信息编辑模块运行效果图4.成绩统计界面此界面显示平均成绩在前三名的成绩情况。如图5所示。通过select语句实现，添加ADO控件，分别与两个表建立连接，adodc1的visibel属性设为false。通过相对路径设置adodc1的属性，这样在使用时，不会出现每次使用不同的电脑，因装在不同的硬盘分区而重新连接，为使用者提供了便利。具体代码如下：PrivateSubForm_Load()Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;Da

7、taSource=&App.Path&stu.mdbAdodc1.CommandType=adCmdUnknownAdodc1.RecordSource=Selecttop3基本情况.姓名,Avg(成绩)As平均成绩,Min(成绩)As最低成绩From基本情况,成绩情况Where基本情况.学号=成绩情况.学号GroupBy基本情况.姓名,成绩情况.学号OrderbyAvg(成绩)desc;Adodc1.RefreshEndSub图5成绩统计模块运行效果图专业人数统计界面类似成绩统计界面，就不再赘述。学生成绩查询界面运行此界面时单击“查询”命令，会弹出对话框让你输入要查询的学号。运行后会在表格中

8、显示学号、课程和成绩。单击“关闭”，退出此界面。如图6所示。主要代码如下：PrivateSubCommand1_Click()DimcAsStringc=InputBox$(请输入学号,查找窗)Data1.RecordSource=select*from成绩情况where学号like&c&Data1.RefreshIfData1.Recordset.EOFThenMsgBox无此学号！,提示Data1.RecordSource=成绩情况Data1.RefreshEndIfEndSub图6学生成绩查询运行效果图密码修改界面此窗体添加了一个隐藏的data1控件，使“密码”与数据库“用户表”绑定，同

9、样，使用的是相对路径：PrivateSubForm_Load()Data1.DatabaseName=App.Path&用户表.mdbData1.RecordSource=用户表EndSub图7密码修改当密码不正确，或新密码为空，或“修改密码”与“确认密码”不同时，系统都会有相应提示；成功修改密码后，也会有提示。此过程主要通过if语句判断实现。如图7所示。信息查询界面在此窗口，管理员可以进行添加、编辑、删除等操作，而学生只能查看。它是将两个数据库中的内容组合在一起显示的。如图8所示。图8信息查询运行效果图报表显示数据库“基本情况”中的信息，可以使使用者对基本信息一览无余，直观方便。如图9所示。

10、图9报表五、程序的主要代码：1、登录模块代码：Publicyhm$,mm1$Dimnum%PrivateSubCommand1_Click()Dimyh$,mm$,a%yh=Trim(Text1.Text)OnErrorResumeNextDimmAsStringm=select*from用户表where用户名=&Trim(Text1.Text)&and用户身份=&Trim(Combo1.Text)&Me.Data1.RecordSource=mMe.Data1.Refreshyh=Text1.Textmm=Text2.TextIfMe.Data1.Recordset.RecordCount=

11、0ThenMsgBox用户名不存在或用户身份错误，请重新输入！,vbExclamation,提示num=num+1Elsemm=Text2.TextIfmm=Data1.Recordset.Fields(密码)Thenyhm=yhmm1=Text2.Textsys_lock=Falsenum=0登录.HideMDIForm1.ShowElseMsgBox密码错误，请重新输入！,输入错误num=num+1Text2.Text=Text2.SetFocusEndIfEndIfIfnum=3ThenMsgBox登录错误已达3次，请1分钟后重新登录,vbInformation,错误a=Minute(T

12、ime)*60+Second(Time)Setfso=CreateObject(scripting.filesystemobject)Settxtfile=fso.createtextfile(App.Path&time.txt,True)txtfile.write(a)txtfile.CloseEndEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Data1.DatabaseName=App.Path&用户表.mdbData1.RecordSource=用户表Combo1.Text=学生OnErrorGoT

13、oaOpenApp.Path&time.txtForInputAs#1Input#1,aClose#1b=Minute(Time)*60+Second(Time)c=b-CSng(a)Ifc60ThenMsgBox登录错误已经锁定系统，&60-c&秒钟后登录,vbInformation,提示EndElseKillApp.Path&time.txtEndIfa:EndSub2.主窗体代码：PrivateSubcjcx_Click()成绩查询.ShowEndSubPrivateSubcjtj_Click()成绩统计.ShowEndSubPrivateSubckbb_Click()DataRepor

14、t1.ShowEndSubPrivateSubMDIForm_Load()StatusBar1.Panels(2).Text=系统当前用户：&登录.yhmIfTrim(登录.Combo1.Text)=管理员ThenMDIForm1.xsxxbj.Enabled=Truefrm基本情况.cmdAdd.Enabled=Truefrm基本情况.cmdCancel.Enabled=Truefrm基本情况.cmdDelete.Enabled=Truefrm基本情况.cmdEdit.Enabled=Truefrm基本情况.cmdUpdate.Enabled=Truefrm基本情况.cmdRefresh.E

15、nabled=TrueElseMDIForm1.xsxxbj.Enabled=Falsefrm基本情况.cmdAdd.Enabled=Falsefrm基本情况.cmdCancel.Enabled=Falsefrm基本情况.cmdDelete.Enabled=Falsefrm基本情况.cmdEdit.Enabled=Falsefrm基本情况.cmdUpdate.Enabled=Falsefrm基本情况.cmdRefresh.Enabled=FalseEndIfEndSubPrivateSubrstj_Click()人数统计.ShowEndSubPrivateSubtc_Click()EndEnd

16、SubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseTmm修改密码.ShowCaseTckfrm基本情况.ShowEndSelectEndSubPrivateSubxhcx_Click()X=MsgBox(请输入要查询的学号,查询)EndSubPrivateSubxsxxbj_Click()信息管理.ShowEndSub3.成绩查询模块代码：PrivateSubCommand1_Click()DimcAsStringc=InputBox$(请输入学号,查找窗)Data

17、1.RecordSource=select*from成绩情况where学号like&c&Data1.RefreshIfData1.Recordset.EOFThenMsgBox无此学号！,提示Data1.RecordSource=成绩情况Data1.RefreshEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Data1.DatabaseName=App.Path&stu.mdbEndSub4.人数统计模块代码：PrivateSubCommand1_Click()UnloadMeEndSubPriv

18、ateSubForm_Load()Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource=&App.Path&stu.mdbAdodc1.CommandType=adCmdUnknownAdodc1.RecordSource=Select专业,count(*)As人数From基本情况GroupBy专业Adodc1.RefreshEndSub5.学生信息编辑模块代码：PrivateSubCommand1_Click()Command2.Enabled=NotCom

19、mand2.EnabledCommand3.Enabled=NotCommand3.EnabledCommand4.Enabled=TrueIfCommand1.Caption=新增ThenCommand1.Caption=确认mbookmark=Data1.Recordset.BookmarkData1.Recordset.AddNewText1.SetFocusElseCommand1.Caption=新增Data1.Recordset.UpdateData1.Recordset.MoveLastEndIfEndSubPrivateSubCommand2_Click()i=MsgBox(确

20、定删除当前信息吗？,4+vbQuestion,提示)Ifi=6ThenOnErrorResumeNextData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIfEndSubPrivateSubCommand3_Click()Command2.Enabled=NotCommand2.EnabledCommand1.Enabled=NotCommand1.EnabledCommand4.Enabled=TrueIfCommand3.Caption=修改Th

21、enCommand3.Caption=确认mbookmark=Data1.Recordset.BookmarkData1.Recordset.EditText1.SetFocusElseCommand3.Caption=修改Data1.Recordset.UpdateEndIfEndSubPrivateSubCommand4_Click()Command1.Caption=新增:Command3.Caption=修改Command1.Enabled=True:Command2.Enabled=TrueCommand3.Enabled=True:Command4.Enabled=Falsembo

22、okmark=Data1.Recordset.BookmarkData1.UpdateControlsData1.Recordset.Bookmark=mbookmarkEndSubPrivateSubCommand5_Click()DimmAsStringm=InputBox$(请输入要查找的学生学号,查找窗)Data1.Recordset.FindFirst学号=&m&IfData1.Recordset.NoMatchThenMsgBox无此学号！,提示EndSubPrivateSubCommand6_Click()UnloadMeEndSubPrivateSubData1_Reposit

23、ion()Data1.Caption=基本情况：&(Data1.Recordset.AbsolutePosition+1)EndSubPrivateSubForm_Load()Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource=&App.Path&stu.mdbData1.DatabaseName=App.Path&stu.mdbData1.RecordSource=基本情况Adodc1.CommandType=adCmdUnknownAdodc1.RecordSource=select*from成绩情况Adodc1.RefreshAdodc1.Recordset.Find(学号=&Text1.Text&)EndSub6.修改密码模块代码：Dimold$,nw$,rnew$PrivateSubCommand1_Click()old=