学生信息管理系统的设计与实现毕业论文文档格式.docx
- 文档编号:4577319
- 上传时间:2023-05-03
- 格式:DOCX
- 页数:23
- 大小:374.10KB
学生信息管理系统的设计与实现毕业论文文档格式.docx
《学生信息管理系统的设计与实现毕业论文文档格式.docx》由会员分享,可在线阅读,更多相关《学生信息管理系统的设计与实现毕业论文文档格式.docx(23页珍藏版)》请在冰点文库上搜索。
它是一门综合了管理科学,系统理论,计算机科学的系统性边缘科学。
管理信息系统的物理组成:
1)计算机硬件系统:
包括主机、外部存储器、输入输出设备等。
2)计算机软件系统:
包括系统软件和应用软件两大部分。
3)通信系统:
包括线路等通信设施和与计算机网络、数据通信有关的软件等。
4)工作人员:
包括系统分析员、程序设计员、维护人员、管理员、操作人员等。
3可行性及需求分析
3.1可行性分析
1)目的:
可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决。
2)经济性:
由于学校等中小型管理系统并不复杂,且VisualBasic6.0本身要求的运行环境不高,所以一般Windows2000以上的系统环境都可以使用。
3)实用性:
本学生信息管理系统管理系统无太多复杂的操作要求,也没有过分花哨的装饰品,人性化的设计界面可以使操作者轻易运用自如。
3.2系统需求分析
系统功能系统的主要功能包括:
信息的操作功能、查询功能、统计功能、分析功能和打印功能。
1)信息操作功能:
学生基本信息的添加、修改和删除。
学生基本信息包括:
学号、姓名、性别、出生日期和所在的专业。
2)课程信息的添加、修改和删除:
课程信息包括:
课程号、所属专业、课程名称、课程类型、开课学期、学时数和学分。
3)学生成绩信息的添加、修改和删除:
学生成绩信息包括:
学好、课程号、成绩和学分。
4)查询功能:
可以通过学号来查学生基本信息,通过学号和学期号查询学生的成绩,通过课程号查询该课程的信息。
5)统计功能:
统计当前信息所显示的信息数以及学生某个学期或所有学期课程的总学分。
6)打印功能
4详细设计
4.1设计目标
本系统可以能减少很多不必要的资源,不用象以前那样用冗余的纸张式的管理。
大节省了学校能源。
并且计算机的存储与快速查询功能大大提高了学籍管理的效率,并且还提高了学籍信息管理的精确度。
方便快速的操作,可减少学籍信息管理的漏洞,又减少因工作的冗余出现的错误,并且操作非常简单,可减少许多不很必要的人员,这无论从物质上还是工作人员的工资上都为学校节约了开支。
为学校增加了财富。
数据库分析
用户需求具体有学籍管理系统提供保存、更新、查询、维护,这就需求数据库结构能充分满足各种信息的输入与输出,实现有组织地、动态地存储大量关联数据,方便用户访问系统中的数据,它与文件系统的重要区别是数据的充分共享,交叉访问,与应用程序的高度独立性。
4.2项目规划
学生管理系统是各大中专院校不可缺少的一部分,是一个VB+SQL数据库开发应用程序,它主要包括用户登录、学生信息输入修改、学生信息查询以及学生成绩输入、学生成绩查询、系统用户管理等几个页面,因而该系统具有较强的实用性。
4.3系统流程图
4.4数据库需求分析
4.5数据库逻辑结构设计
(1)kc(课程)见表1
表4-1
字段名
数据类型
是否允许为空
说明
课程号
Char(3)
Notnull
主键
课程名
Char(16)
开课学期
tinyint
只能为1-8
学时
学分
null
(2)xs_kc(学生选课)见表2
表4-2
学号
Char(6)
成绩
(3)xs(学生)见表3
表4-3
姓名
Char(8)
专业名
Char(10)
性别
Bit
Null
男1,女0
出生日期
SmallDatetime
Null
总学分
照片
image
备注
text
(4)user1(管理员登录)见表4
表4-4
角色
用户名
主键
密码
5系统实现
5.1附加数据库
“附加Server数据库”按钮的click事件添加如下的代码
PrivateSubCommand2_Click()
IfText1.Text="
"
Then
MsgBox"
请选择数据库文件!
,"
XSCJ"
ExitSub
EndIf
OnErrorGoTodataerr
cn.Open"
Provider=SQLOLEDB.1;
IntegratedSecurity=SSPI;
PersistSecurityInfo=False;
userid=sa;
InitialCatalog=master"
cn.Execute("
sp_attach_db@dbname='
&
strdata&
"
'
@filename1='
m&
)
MsgBox"
附加成功!
cn.Close
UnloadMe
Form1.Show
ExitSub
dataerr:
MsgBoxErr.Description,,"
EndSub
5.2登陆界面设计
“登录”按钮的click事件添加如下的代码:
PrivateSubCommand1_Click()
OrText2.Text="
请输入完整的登录信息!
Text1.SetFocus
IfText3.Text="
请输入验证码"
Text3.SetFocus
DimiAsInteger
i=Len(Text1.Text)
Ifi<
6Then
用户名应为六位数字"
提示"
Text1.Text="
i=Len(Text2.Text)
密码应为六位"
Text2.SetFocus
Text2.Text="
IfUCase(Trim(Text3.Text))<
>
Trim(Label4.Caption)Then
验证码输入错误"
Text3.Text="
Ifoption1.ValueThen
Setsqlres=NewADODB.Recordset
sqlres.Open"
select*fromdlglwhere用户名='
+Trim(Text1.Text)+"
and密码='
+Trim(Text2.Text)+"
connectstring,adOpenDynamic,adLockPessimistic
IfNotsqlres.EOFThen
juese=option1.Caption
yonghuming=Trim(Text1.Text)
mima=Trim(Text2.Text)
登录成功"
sqlres.Close
UnloadMe
MDIForm1.Show
Else
Randomize
i=Int(Rnd*25+65)
j=Int(Rnd*25+65)
k=Int(Rnd*25+65)
l=Int(Rnd*25+65)
Label4.Caption=Chr(i)&
Chr(j)&
Chr(k)&
Chr(l)
EndIf
juese=Option2.Caption
用户名或密码错误!
5.3学生信息录入
“更新”按钮的click事件添加如下的代码:
Setsqlres=NewADODB.Recordset
Adodc2.RecordSource="
select*fromxswhere学号='
Trim(Text1.Text)&
Adodc2.CommandType=adCmdText
Adodc2.Refresh
DimsAsString
Dimbytedata()AsByte
DimadofldAsADODB.Field
s="
sqlres.Opens,connectstring,adOpenDynamic,adLockPessimistic
IfTrim(Text5.Text)<
sqlres.Fields(5)=CInt(Text5.Text)
sqlres.Update
Adodc1.Refresh
修改学生信息成功!
vbOKOnly+vbExclamation,"
修改学生信息"
Else
sqlres.AddNew
sqlres.Fields(0)=Trim(Text1.Text)
sqlres.Fields
(1)=Trim(Text2.Text)
sqlres.Fields
(2)=Combo1.Text
IfOption1.Value=TrueThen
sqlres.Fields(3)=1
sqlres.Fields(3)=0
sqlres.Fields(7)=Trim(Text4.Text)
sqlres.Fields(4)=DTPicker1.Value
Setadofld=sqlres.Fields("
照片"
IfCommonDialog1.filename<
Callpicsavetodb(adofld,"
filename"
Adodc1.Recordset.MoveLast
添加学生信息成功!
添加学生信息"
CommonDialog1.filename="
Adodc1.RecordSource="
select*fromxs,cxbwherexs.性别=cxb.性别0"
5.4学生信息修改
5.5学生信息查询
“查询”按钮的click事件添加如下的代码
DimstrAsString
str="
select*fromxs,cxbwherexs.性别=cxb.性别0"
AndText2.Text="
AndCombo1.Text<
所有专业"
str="
select*fromxs,cxbwhere专业名='
+Trim(Combo1.Text)+"
andxs.性别=cxb.性别0"
IfText1.Text<
select*fromxs,cxbwhere学号='
andxs.性别=cxb.性别0"
AndText2.Text<
and姓名='
Trim(Text2.Text)&
select*fromxswhere姓名='
IfAdodc1.Recordset.EOFThen
Combo1.Text="
Adodc1.Recordset.MoveFirst
OrText2.Text<
Combo1.Text=Adodc1.Recordset("
专业名"
5.6学生成绩录入
“更新”按钮的click事件添加如下的代码
Dim学号,课程名,成绩,学分
IfTrim(Text2.Text)="
成绩不能为空,请输入完整的信息!
sqlcmd.CommandText="
addscore"
sqlcmd.CommandType=adCmdStoredProc
Set学号=sqlcmd.CreateParameter("
@学号"
adVarChar,adParamInput,6)
sqlcmd.Parameters.Append(学号)
Set课程名=sqlcmd.CreateParameter("
@课程名"
adVarChar,adParamInput,16)
sqlcmd.Parameters.Append(课程名)
Set成绩=sqlcmd.CreateParameter("
@成绩"
adInteger,adParamInput)
sqlcmd.Parameters.Append(成绩)
Set学分=sqlcmd.CreateParameter("
@学分"
sqlcmd.Parameters.Append(学分)
sqlcmd("
)=Combo3.Text
)=Combo2.Text
)=CInt(Text2.Text)
)=0
Adodc1.RecordSource="
selectxs_kc.学号,姓名,专业名,课程名,成绩,xs_kc.学分fromxs,kc,xs_kcwhere课程名='
+Trim(Combo2.Text)+"
and专业名='
andxs.学号=xs_kc.学号andkc.课程号=xs_kc.课程号"
Adodc1.Refresh
Adodc1.Recordset.MoveLast
5.7用户管理
窗体的代码如下
PrivatesqlconAsNewADODB.Connection
PrivatesqlresAsNewADODB.Recordset
sqlres.MoveFirst
Text1.Text=sqlres.Fields(0)
Text2.Text=sqlres.Fields
(1)
Text3.Text=sqlres.Fields
(2)
sqlres.MovePrevious
Ifsqlres.BOFThen
sqlres.MoveFirst
sqlres.MoveNext
Ifsqlres.EOFThen
sqlres.MoveLast
PrivateSubCommand4_Click()
PrivateSubCommand5_Click()
DimaAsInteger
a=MsgBox("
是否删除角色为:
用户名为:
记录?
vbYesNo,"
Ifa=6Then
sqlres.Delete
sqlres.Update
Setsqlcon=NewADODB.Connection
sqlcon.Openconnectstring
select*fromdlgl"
PrivateSubForm_Unload(CancelAsInteger)
sqlcon.Close
5.8修改用户密码
“确定”按钮的click事件添加如下的代码
OrText3.Text="
请输入完整信息"
IfT
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 信息管理 系统 设计 实现 毕业论文