实验主页附页模板.docx

.
***大学计算机学院实验报告专用纸
实验室:
机号：实验日期：年月曰
教师评语及成绩:
姓名
班级
软件11
课程名称
任课老师
项目名称
学生信息管理系统
指导老师
实验组别
第组
同组者
实验成绩：教师签字：
（请按照实验报告的有关要求书写。一般必须包括1、实验目的；2、实验内容3、实验步骤和方法4、实验数据与程序清单5、出现的问题及解决方法6、实验结果、实验分析与体会）
一实验目的1、了解学生信息管理系统主界面的设计与实现。
2、通过本次课程设计，了解学生信息管理系统各个阶段的工作过程和工作内容。
3、创建一个学生信息管理系统，可以完成学生基本信息及成绩的输入、修改和查询二实验内容
本系统由用户登录，用户注册，页面提示，学生信息管理系统主界面，成绩查询，学籍管理,学生信息录入和成绩录入八个页面组成，界面和代码如下1.用户登陆界面
代码如下：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByVaeAsSystem.EventArgs)HandlesButton1.ClickSession("login")=0'记录并判断是否登录未登录
'用户登录窗体frmLogin
OptionExplicit
DimRsAsADODB.Recordset'定义记录集变量
PrivateSubcmdCancel_Click()
UnloadMe
EndSub
静态变量累加岀错次数刷新记录集（关键语句）设置记录集变量
PrivateSubcmdOk_Click()
StaticintErrAsInteger'
adoUser.Refresh'
SetRs=adoUser.Recordset
检查用户名（利用记录集的Find方法，不区分大小写
Rs.Find用户名=”，&txtUserlD.Text&
若用户名正确
IfNotRs.EOFThen'检查密码
gstrUser=txtUserlD.TextIfRs("gblnPurview=True
Else
gblnPurview=FalseEndIffrmMain.ShowUnloadMe'Else'
intErr=intErr+1'
IfintErr=3Then
SetRs=Nothing
UnloadMe
Else'权限")="管理员"Then
存用户名存用户权限
显示主窗体
卸载本窗体若密码错误
错误数+1
若出错3次，退出系统若出错不足3次，重新输入
焦点返回密码框
若用户名错误
错误数+1
若出错3次，退出系统
MsgBox"
WithtxtUserID
用户名输入错误，请重新输入！",vbExclamation
'焦点返回用户框
若出错不足3次，重新输入
.SelStart=0
MsgBox"密码输入错误，请重新输入！"