VB学生管理系统设计Word文档下载推荐.docx
《VB学生管理系统设计Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB学生管理系统设计Word文档下载推荐.docx（24页珍藏版）》请在冰豆网上搜索。
1.2.2、键盘操作
你可以利用键盘对该系统的某些操作。
该学生管理系统分为三个模块：
如图1-1所示：
图1-1系统结构图
三、详细设计
1.1根据功能分析析框架构设计的思想，设计出登录界面系统功能如图1.2所示：
如图1-2运行的界面
登录界面代码如下：
PrivateSubCommand1_Click（）
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
DimconnAsNewADODB.Connection
conn.Open"
provider=Microsoft.Jet.OLEDB.4.0;
datasource="
&
App.Path&
"
\mydate.mdb"
IfTrim（Text1.Text）="
"
Then
MsgBox"
用户名不能为空，请重新输入！
Text1.SetFocus
Else
sql="
select*from用户表where用户名称='
Trim（Text1.Text）&
'
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
没有这个用户,请重新输入！
vbOKOnly+vbExclamation,"
Text1.Text="
UserName=Text1.Text
IfTrim（rs_login.Fields
（1））=Trim（Text2.Text）Then
SelectCaseCombo1.Text
Case"
管理员"
dldhk.Hide
Form1.Show
教师"
Form3.Show
dldhk.Hid
学生"
Form4.Show
EndSelect
密码不正确,请重新输入！
Text2.SetFocus
Text2.Text="
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndSub
PrivateSubCommand2_Click（）
Text1.Text="
Text2.Text="
PrivateSubCommand3_Click（）
End
PrivateSubLabel6_Click（）
Form13.Show
PrivateSubCommand4_Click（）
Form20.Show
dldhk.Hide
管理员系统功能如图1-3所示
如图1-3管理员登录界面
如图1-03管理员登录界面
新用户注册代码如下：
Dimrs_tushuAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimsqlAsString
findform=False
select*from用户表where用户名称='
Text1.Text&
conn.Open"
rs_tushu.CursorLocation=adUseClient
rs_tushu.Opensql,conn,adOpenKeyset,adLockPessimistic
IfText1.Text="
用户名不能为空，请输入用户名！
vbOK0nly+vbExclamation,"
ElseIfText2.Text="
密码不能为空，请输入密码！
ElseIfrs_tushu.EOFThen
rs_tushu.AddNew
rs_tushu（"
用户密码"
）=Text2.Text
用户权限"
）=Combo1.Text
rs_tushu.Update
恭喜，您已经注册成功！
您的用户名是：
，密码是"
Text2.Text&
，请牢记！
vbOKOnly,"
用户名已存在，请重新注册！
dldhk.Show
Form20.Hide
EndIf
字段名
类型
大小
权限
备注
用户名
文本
8
管理员
关键字
用户密码
图1-3用户表信息
如图1-4管理员登录后的界面
教师系统功能如图所示
如图1-5教师登录界面
教师界面如下图所示：
如图1-5登录后的教师界面
如图1-6密码修改界面
密码修改的代码：
select*from表2where姓名='
Ifrs_tushu.EOF=TrueThen
此用户不存在，请重新输入!
Text1.Text=rs_tushu（"
姓名"
）
Text2.Text=rs_tushu（"
密码"
rs_tushu.Update
EndIf
select*from表2where姓名='
IfText3.Text="
姓名不能为空"
Text3.SetFocus
ElseIfText3.Text<
>
Text4.TextThen
两次输入的密码不同，请重新输入！
ExitSub
answer=MsgBox（"
确信要修改吗?
vbYesNo,"
Ifanswer=vbYesThen
修改密码成功!
ElseIfanswer=vbNoThen
已取消修改密码!
EndIf
Form3.Show
Form12.Hide
教师任务书查询界面：
如图1-7教师任务书查询界面
教师任务书查询界面代码：
PrivateSubcmdok_Click（）
Dimrs_bookAsNewADODB.Recordset
findfor=False
sql="
select*from教师表where教师姓名='
rs_book.CursorLocation=adUseClient
rs_book.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_book.EOF=TrueThen
Combo1.Text=rs_book（"
学年"
Combo2.Text=rs_book（"
学期"
rs_book.Update
Combo1.Text="
Combo2.Text="
Form23.Hide
如图1-8表的数据库
如图1-9学生成绩录入
学生成绩录入的代码：
Dimrs_bookstyleAsNewADODB.Recordset
IfTrim（Text1.Text）="
MsgBox"
Text1.SetFocus
ExitSub
IfTrim（Text2.Text）="
编号不能为空"
provider=microsoft.jet.oledb.4.0;
datasource="
\myset.mdb"
select*from成绩表where姓名='
rs_bookstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_bookstyle.EOFThen
rs_bookstyle.AddNew
rs_bookstyle.Fields（0）=Trim（Text1.Text）
rs_bookstyle.Fields
（1）=Trim（Text2.Text）
rs_bookstyle.Fields
（2）=Trim（Text3.Text）
rs_bookstyle.Fields（3）=Trim（Text4.Text）
rs_bookstyle.Fields（4）=Trim（Text5.Text）
rs_bookstyle.Fields（5）=Trim（Text6.Text）
rs_bookstyle.Fields（6）=Trim（Text7.Text）
rs_bookstyle.Fields（7）=Trim（Text8.Text）
rs_bookstyle.Fields（8）=Trim（Text9.Text）
rs_bookstyle.Fields（9）=Trim（Text10.Text）
rs_bookstyle.Fields（10）=Trim（Text11.Text）
rs_bookstyle.Fields（11）=Trim（Text12.Text）
rs_bookstyle.Update
添加信息成功!
学生信息重复"
vbOKOnly+vbExclamation
rs_bookstyle.Close
Text3.Text="
Text4.Text="
Text5.Text="
Text6.Text="
Text7.Text="
Text8.Text="
Text9.Text="
Text10.Text="
Text11.Text="
Text12.Text="
Form25.Hide
如图1-10学生登录界面
如图1-11学生信息修改界面
学生信息修改代码如下：
Dimrs_studentAsNewADODB.Recordset
select*from学生信息where姓名='
rs_student.CursorLocation=adUseClient
rs_student.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_student.EOF=TrueThen
MsgBox"
Text1.Text=rs_student（"
Text2.Text=rs_student（"
学号"
）&
Text3.Text=rs_student（"
Text4.Text=rs_student（"
出生年月"
Text5.Text=rs_student（"
政治面貌"
Text6.Text=rs_student（"
班级"
Text17.Text=rs_student（"
专业"
Text18.Text=rs_student（"
入学时间"
Text9.Text=rs_student（"
Text10.Text=rs_student（"
确认密码"
rs_student.Update
Form4.Show
Form26.Hide
如图1-12学生学期课程成绩查询
学期课程查询代码：
Form22.Hide
PrivateSubOption1_Click（）
Dimrs_teachAsNewADODB.Recordset
'
findform=False
sql="
select*from成绩表"
rs_teach.CursorLocation=adUseClient
rs_teach.Opensql,conn,adOpenKeyset,adLockPessimistic
SetDataGrid1.DataSource=rs_teach
PrivateSubOption2_Click（）
Dimrs_teachAsNewADODB.Recordset
PrivateSubOption3_Click（）
EndSub
学生信息表
学号
4
姓名
姓别
出生年月
日期/时间
15
政治面貌
10
班级
专业
入学时间
密码
图1-13学生信息表
图1-14个人成绩查询
学生成绩查询代码：
DimsqlAs
升级会员 