学生信息管理vb.docx
- 文档编号:6925209
- 上传时间:2023-01-12
- 格式:DOCX
- 页数:26
- 大小:282.49KB
学生信息管理vb.docx
《学生信息管理vb.docx》由会员分享,可在线阅读,更多相关《学生信息管理vb.docx(26页珍藏版)》请在冰豆网上搜索。
学生信息管理vb
河南工程学院
《数据库系统原理与应用》课程设计
成果报告
学生信息管理系统设计与开发
学生学号:
201210913111
学生姓名:
瓮建辉
学院:
计算机学院
专业班级:
计算机科学与技术1241班
专业课程:
数据库系统原理与应用
指导教师:
李华
2015年1月4日
课程设计指导教师评分表
课程设计题目
学生信息管理系统系统设计与开发
成员
姓名
学号
任务分工
瓮建辉
201210913111
数据库、数据库与VB的链接、主界面与登录界面的设计
殷久莹
201210913221
数据库、课程信息管理模块的设计
刘铁
201210913127
数据库、学生信息管理模块的设计
评分项目及分值要素
成绩评定
项目
最高分
评分要素
成绩
1.学习态度
20
上机出勤及端正的学习态度、认真刻苦程度,工作量饱满程度等
2.软件设计质量
40
采用的算法、设计方案,设计结果,界面友好等方面进行综合评定
3.答辩过程
20
能简明扼要地阐述设计的主要内容,能准确流利地回答各种问题
4.设计报告书写
10
内容按要求步骤书写,条理清晰,表述清楚、措词得当
5.实际动手能力
10
熟练使用开发工具,能够迅速准确的进行调试、纠错和运行;组长全面负责,承担复杂的模块设计分值就高
总成绩
等级
评语
目录
一、需求分析1
(一)系统描述1
(二)功能描述1
(三)模块设计1
二、概念结构设计2
三、逻辑结构设计4
四、数据库设计实现及运行6
(一)数据库的创建6
(二)数据表的创建6
(三)自行设计各模块中所涉及的操作语句7
1.数据库与VB工程代码的连接7
2.登录界面7
3.主界面9
五、系统详细设计及实现12
六、实训总结及心得体会24
学生信息管理系统系统设计与开发
一、需求分析
(一)系统描述
当今时代是飞速发展的信息时代。
在各行各业中离不开信息处理,这正是计算机被广泛应用于信息管理系统的环境。
计算机的最大好处在于利用它能够进行信息管理。
使用计算机进行信息控制,不仅提高了工作效率,而且大大的提高了其安全性。
尤其对于复杂的信息管理,计算机能够充分发挥它的优越性。
计算机进行信息管理与信息管理系统的开发密切相关,系统的开发是系统管理的前提。
本系统就是为了管理好学生信息管理而设计的。
(二)功能描述
本系统是为了实现信息的方便查询,更改,各科成绩的查询以及更改,规范管理,从而减少学生成绩管理方面的工作量。
该系统的主要功能如下:
(1)可以进行用户信息管理,实现用户的添加和密码修改;
(2)可以进行课程信息管理,实现浏览课程和修改课程;
(3)可以进行学生信息管理,实现浏览学生信息和修改学生信息;
(4)可以进行成绩信息管理,实现成绩查询和成绩修改。
(三)模块设计
本组有瓮建辉、殷久莹、刘铁三人,本人负责数据库与VB的链接、主界面与登录界面的设计。
学生信息管理系统的界面需通过使用VB来构建,再将设计好的相关代码与界面中使用的命令一一对应,最后将数据库与VB通过代码链接,即可实现学生信息管理系统的使用。
二、概念结构设计
(一)各部分E-R图的设计
1.用户实体E-R图如图1所示
图1
2.学生实体E-R图如图2所示
图2
3.课程实体E-R图如图3所示
图3
4.成绩实体E-R图如图4所示
图4
(二)整体E-R图的设计
如图5所示
图5
三、逻辑结构设计
模式设计
管理员(用户ID,密码)
学生(学号,姓名,性别,出生日期,班级号,电话号码,入学日期,家庭住址,评价)
课程(课程号,课程名,课程类型,学时,学分)
成绩(学号,课程号,分数)
选修(学号,课程号,成绩)
其中,下划线为主键。
根据这些需要,本系统需要如下4个表格:
表1学生信息数据表
列名
数据类型
长度
是否可以为空
student_ID
char
12
否
student_name
char
10
是
student_sex
char
2
是
born_date
datetime
8
是
class_no
char
4
是
tele_number
char
10
是
ru_date
datetime
8
是
address
varchar
50
是
comment
varchar
200
是
表2课程信息数据表
列名
数据类型
长度
是否可以为空
course_No
int
4
否
course_name
char
12
是
course_type
char
10
否
course_start
char
10
否
course_time
int
4
是
course_score
int
4
否
表3成绩信息数据表
列名
数据类型
长度
是否可以为空
student_ID
char
12
否
course_No
char
10
是
result
float
8
是
表4用户信息数据表
列名
数据类型
长度
是否可以为空
ID
char
12
否
possward
varchar
10
否
des
char
10
是
四、数据库设计实现及运行
(一)数据库的创建
T-SQL语句:
createdatabase学生信息管理系统
(二)数据表的创建
T-SQL语句:
Creattablestudent(
Student_idCHAR(10),notnull
Student_nameCHAR(20)L,
Student_sexCHAR(6),
born_datedatetime,
class_nochar(4),
tele_numberchar(10),
ru_datedatetime(8),
Addressvarchar(50),
Commentvarchar(200));
Creattablecourse(
Course_Noint,
Course_namechar(12),
Course_typechar(10),
Course_startchar(10),
Course_timeint,
Course_scoreint);
Createtableresult
(student_IDchar(12),
course_Nochar(10),
Resultfloat(8)
Frimarykey(student_ID,course_No)
Foreignkey(student_ID)referencesstudent(student_ID),
Foreignkey(Course_No)referencescourse(Course_No),);
(三)自行设计各模块中所涉及的操作语句
1.数据库与VB工程代码的连接
T-SQL语句:
dimmyconnection_isopenasboolean
privatesubform_load()
dimstrconnasstring'先以windows用户连接到sqlserver,获取数据库sql账户
strconn="provider=sqloledb.1;
integratedsecurity=sspi;
_persistsecurityinfo=false;
initialcatalog=student;
datesource=(local)"
myconnection.connectionstring=strconn
onerrorgotuerr_open_msg
myconnection.open
myconnection_isopen=true
callget_userlist
exitsub
err_open_msg:
msgbox("windows用户无法连接到sqlserver”)
endsub
2.登录界面
功能界面:
图6登录界面
功能描述:
用户通过该界面登录,登录后可进行相关操作。
T-SQL语句与宿主语言嵌套使用代码段:
DimmmcountAsInteger
PrivateSubCommand1_Click()
DimsqlstrAsString
DimrstAsNewADODB.Recordset
IfText1.Text=""Then
MsgBox"请输入用户名!
",vbOKOnly+vbExclamation,"警告"
Else
sqlstr="select*fromuserswhereID='"&Text1.Text&"'"
Setrst=querysql(sqlstr)
Ifrst.EOFThen
MsgBox"没有这个用户,请重新输入用户名!
",vbOKOnly+vbExclamation,"警告"
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Else
IfText2.Text<>rst.Fields
(1)Then
MsgBox"输入密码不正确,请重新输入!
",vbOKOnly+vbExclamation,"警告"
mmcount=mmcount+1
Text1.Text=""
Text2.Text=""
Else
FrmMain.Show
EndIf
EndIf
EndIf
Ifmmcount=3Then
UnloadMe
EndIf
UnloadMe
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
mmcount=0
EndSub
3.主界面
功能界面:
图7主界面
功能描述:
用户通过该界面可进行相关的查询、修改、添加等操作。
T-SQL语句与宿主语言嵌套使用代码段:
PrivateSubMDIForm_Load()
EndSub
PrivateSubmnuAbout_Click()
MsgBox"版权所有:
瓮建辉,殷久莹,刘铁!
",vbOKOnly+vbExclamation,"版权"
EndSub
PrivateSubmnuAddResult_Click()
Loadbrowescore
browescore.Show
EndSub
PrivateSubmnuAddStudentInfo_Click()
Loadllxsxx
llxsxx.Show
EndSub
PrivateSubmnuAddUser_Click()
LoadFrmadduser
Frmadduser.Show
EndSub
PrivateSubmnuCourseInfoatl_Click()
Loadxgkc
xgkc.Show
EndSub
PrivateSubmnuCourseInfodel_Click()
EndSub
PrivateSubmnuExit_Click()
UnloadMe
EndSub
PrivateSubmnuModiPwd_Click()
LoadFrmAtlearuser
FrmAtlearuser.Show
EndSub
PrivateSubmnuNew_Click()
LoadFrmlog
Frmlog.Show
EndSub
PrivateSubmnuResultxg_Click()
Loadmodifyscore
modifyscore.Show
EndSub
PrivateSubmnuSetCourseInfo_Click()
Loadllkc
llkc.Show
EndSub
PrivateSubmnuStudentAdd_Click()
Loadtjxsxx
tjxsxx.Show
EndSub
PrivateSubmnuStudentDele_Click()
Loadscxsxx
scxsxx.Show
EndSub
PrivateSubmnuStudentInfoxg_Click()
Loadxgxsxx
xgxsxx.Show
EndSub
PrivateSubmnuUserLook_Click()
Loadckyh
ckyh.Show
EndSub
五、系统详细设计及实现
(一)开发环境
1.操作系统:
Windows7
2.数据库系统:
MicrosoftSQLServer2008企业版
3.体系结构:
系统的体系结构为C/S结构
4.开发工具:
前台为VB,后台数据库为SQLServer
(二)系统模块
1.登录界面
图8登录界面
DimmmcountAsInteger
PrivateSubCommand1_Click()
DimsqlstrAsString
DimrstAsNewADODB.Recordset
IfText1.Text=""Then
MsgBox"请输入用户名!
",vbOKOnly+vbExclamation,"警告"
Else
sqlstr="select*fromuserswhereID='"&Text1.Text&"'"
Setrst=querysql(sqlstr)
Ifrst.EOFThen
MsgBox"没有这个用户,请重新输入用户名!
",vbOKOnly+vbExclamation,"警告"
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Else
IfText2.Text<>rst.Fields
(1)Then
MsgBox"输入密码不正确,请重新输入!
",vbOKOnly+vbExclamation,"警告"
mmcount=mmcount+1
Text1.Text=""
Text2.Text=""
Else
FrmMain.Show
EndIf
EndIf
EndIf
Ifmmcount=3Then
UnloadMe
EndIf
UnloadMe
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
mmcount=0
EndSub
2.主界面
图9主界面
PrivateSubMDIForm_Load()
EndSub
PrivateSubmnuAbout_Click()
MsgBox"版权所有:
瓮建辉,殷久莹,刘铁!
",vbOKOnly+vbExclamation,"版权"
EndSub
PrivateSubmnuAddResult_Click()
Loadbrowescore
browescore.Show
EndSub
PrivateSubmnuAddStudentInfo_Click()
Loadllxsxx
llxsxx.Show
EndSub
PrivateSubmnuAddUser_Click()
LoadFrmadduser
Frmadduser.Show
EndSub
PrivateSubmnuCourseInfoatl_Click()
Loadxgkc
xgkc.Show
EndSub
PrivateSubmnuCourseInfodel_Click()
EndSub
PrivateSubmnuExit_Click()
UnloadMe
EndSub
PrivateSubmnuModiPwd_Click()
LoadFrmAtlearuser
FrmAtlearuser.Show
EndSub
PrivateSubmnuNew_Click()
LoadFrmlog
Frmlog.Show
EndSub
PrivateSubmnuResultxg_Click()
Loadmodifyscore
modifyscore.Show
EndSub
PrivateSubmnuSetCourseInfo_Click()
Loadllkc
llkc.Show
EndSub
PrivateSubmnuStudentAdd_Click()
Loadtjxsxx
tjxsxx.Show
EndSub
PrivateSubmnuStudentDele_Click()
Loadscxsxx
scxsxx.Show
EndSub
PrivateSubmnuStudentInfoxg_Click()
Loadxgxsxx
xgxsxx.Show
EndSub
PrivateSubmnuUserLook_Click()
Loadckyh
ckyh.Show
EndSub
3.课程信息管理界面
图10浏览课程界面
图11修改课程界面
DimrstAsNewADODB.Recordset
PrivateSubCommand1_Click()
rst.MoveFirst
display
EndSub
PrivateSubCommand2_Click()
rst.MovePrevious
Ifrst.BOFThen
MsgBox"已经是第一条了!
",vbOKOnly+vbExclamation,"警告"
rst.MoveFirst
EndIf
display
EndSub
PrivateSubCommand3_Click()
rst.MoveNext
Ifrst.EOFThen
MsgBox"已经是最后一条了!
",vbOKOnly+vbExclamation,"警告"
rst.MoveLast
EndIf
display
EndSub
PrivateSubCommand4_Click()
rst.MoveLast
display
EndSub
PrivateSubForm_Load()
DimsqlstrAsString
sqlstr="select*fromcourse"
Setrst=querysql(sqlstr)
WhileNotrst.EOF
rst.MoveNext
Wend
sqlstr="select*fromcourse"
Setrst=querysql(sqlstr)
display
EndSub
PrivateSubdisplay()
Text1.Text=rst.Fields
(1)
Text2.Text=rst.Fields
(2)
Text3.Text=rst.Fields(3)
Text4.Text=rst.Fields(4)
EndSub
EndSub
PrivateSubmnuModiPwd_Click()
LoadFrmAtlearuser
FrmAtlearuser.Show
EndSub
PrivateSubmnuNew_Click()
LoadFrmlog
Frmlog.Show
EndSub
PrivateSubmnuResultxg_Click()
Loadmodifyscore
modifyscore.Show
EndSub
PrivateSubmnuSetCourseInfo_Click()
Loadllkc
llkc.Show
EndSub
PrivateSubmnuStudentAdd_Click()
Loadtjxsxx
tjxsxx.Show
EndSub
PrivateSubmnuStudentDele_Click()
Loadscxsxx
scxsxx.Show
EndSub
PrivateSubmnuStudentInfoxg_Click()
Loadxgxsxx
xgxsxx.Show
EndSub
PrivateSubmnuUserLook_Click()
Loadckyh
ckyh.Show
EndSub
4.学生信息管理界面
图12浏览学生信息界面
图13修改学生信息界面
DimrstAsNewADODB.Recordset
PrivateSubCommand1_Click()
rst.MoveFirst
display
EndSub
PrivateSubCommand2_Click()
rst.MovePrevious
Ifrst.BOFThen
MsgBox"已经是第一条了!
",vbOKOnly+vbExclamation,"警告"
rst.MoveFirst
EndIf
display
EndSub
PrivateSubCommand3_Click()
rst.MoveNext
Ifrst.EOFThen
MsgBox"已经是最后一条了!
",vbOKOnly+vbExclamation,"警告"
rst.MoveLast
EndIf
display
EndSub
PrivateSubCommand4_Click()
rst.MoveLast
display
EndSub
PrivateSubForm_Load()
DimsqlstrAsString
sqlstr="select*fromstudent"
Setrst=querysql(sqlstr)
WhileNotrst.EOF
rst.MoveNext
Wend
sqlstr="select*fromstudent"
Set
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 信息管理 vb