学生信息管理系统完整

1、本文档系作者精心整理编辑,实用价值高.学生信息治理系统(总体设计)1、治理系统功能模块设计本系统需要完成的功能主要有：(1) 、有关学籍信息的输入,包括输入学生根本信息、所在班级、所学课程和成(2) 、学生信息的查询,包括查询学生根本信息、所在班级、已学课程和成绩等.(3) 、学生信息的修改.(4) 、班级治理信息的输入,包括输入班级设置、年级信息等.(5) 、班级治理信息的查询.(6) 、班级治理信息的修改.(7) 、学校根本课程信息的输入.(8) 、根本课程信息的修改.(9) 、学生课程设置和修改.(10) 、学生成绩信息的输入.(11) 、学生成绩信息的修改.(12) 、学生成绩信息的查

2、询.(13) 、学生成绩信息的统计.本文档系作者精心整理编辑,如有需要,可查看作者文库其他文档2、功能模块设计:3、数据库设计:学生根本信息：student lnfo列名数据类型说明Stude nt idInt学号主键Stude nt n ameChar(10)姓名Stude nt sexChar(2)性别Born dateDatetime(8)出生日期Class noInt班级号Tele nu mberChar(10)联系 Ru dateDatetime(8)入校时期AddressVarchar(50)家庭住址comme ntVarchar(200)备注班级根本信息：classnfo列名数据

3、类型说明Class noP Int班级号主键Class nameVarchar(50)班级名称DirectorVarchar(50)班主任professi onVarchar(50)专业课程根本信息：coursenfo列名数据类型说明Course noInt课程编号主键Course nameChar(10)课程名称Course typeChar(10)课程类型Course startChar(10)开始学期Course timeInt学时数Course scoreInt学分学生成绩信息：resultnfo列名数据类型说明Stude nt idInt学号主键Stude nt n ameChar(

4、10)姓名Course noInt课程号主键Course typeChar(10)课程类型resultFloat(8)成绩用户信息：usernfo列名数据类型说明User codeVarchar(50)用户密码主键User nameVarchar(50)用户名主键学生信息治理系统需求分析1. 系统开发背景分析系统的功能取决开用户的需求.随着科技进步和信息时代的到来,教育的 普及程度起来起高,学校的人数也在迅速的增长,怎样的治理好成千上万的学生, 已经成为一个学校的治理者必须面对的问题. 编写本报告的目的就是用最少的代 价,尽可能短的时间内确定问题是否能够解决, 通过对学校的一些治理软件的调 研

5、分析,发现了一些缺乏,所以拟做此系统,使学生信息的治理更加准确,平安和快捷.在本次试验中包括的模块有学生信息治理、课程信息治理、成绩信息治理 和班级信息治理等几项,各项治理工作涉及到的内容用下面的关系模式表示.a学生学号,姓名,性别,年龄,班级, ,备注,出生日期,入学时间,班级编号,家庭地址b课程课程编号,课程名称,课程类别,学分,学时c班级系,班级号,指导老师2. 系统分析1. 抽象出当前系统的逻辑模型画出反映当前系统工作的数据流程图.数据流程图是逻辑模型的图形表示, 即使不是专业的计算机技术人员也能非常容易理解,它是一种很好的系统构造的 表示方法.画数据流程图是应该从已获得的人工处理流程

6、中去掉物理因素,只保留数据、信息处理局部.2. 系统功能分析系统主要用于学校学生信息治理,主要任务是用计算机对学生各种信息进 行日常治理,如：查询、修改、增加、删除.3. 系统目标设计根据本校的实际情况,利用校园网而设计一套针对性和功能都比拟强的学 生信息治理系统,对学生信息治理系统进行科学的分类、录入、查询.4. 开发设计思想尽量采用学校现有的软硬件环境及先进的治理系统开发方案,从而到达充分利用资源,提升系统开发的水平和应用效果的目的.系统应该符合学校学生信息治理的规定,满足学校学生日常治理的需要,到达操作过程中的直观、方便、 实用、平安等要求.强调多部门合作,学生工作设计面广泛,应该考虑各

7、部门各 层次的需求,便于维护.要建立可靠的数据备份.通过对数据流程图的进一步分 析,得出学生信息治理系统应该具备以下功能：1实现学生根本信息的登记2、实现数据的浏览与修改3、实现查询符合一定条件的资料4、实现学生有关数据的统计分析5.E-R 图6 数据流程图7.数据字典名字：学生根本信息治理别名：描述：反映出学生的根本信息情况定义：学生根本信息治理=姓名+年龄+性别+学号+班级+ 入学时间+出生年月+家庭地 址+备注位置：学生信息输入学生信息查询学生信息修改名字：班级根本信息治理别名：描述：反映出班级的根本信息情况定义：班级根本信息治理 =系+班级号+指导老师 位置：班级信息输入班级信息查询班

8、级信息修改名字：课程根本信息治理别名：描述：反映出学生在学校学习的课程的根本情况定义：课程根本信息治理 =课程编号+ 课程名称+课程类型+学分+学时 位置：课程信息输入课程信息查询课程信息修改名字：用户根本信息别名：描述：反映出用户的用户名和密码定义：用户根本信息=用户名+密码位置：界面登录系统学生信息治理系统(实现、调试、运行)编码1、登录模块代码：Opti on ExplicitPrivate Sub cmd3_Click()Dim cn As ADODB.Co nn ectio nDim rs As ADODB .R ecordsetDim str_cn As String '

9、访问 sql server的连接字符串Dim str_sql As Stri ngstr_c n = "driver=sql server;server=.;uid=sa;pwd=;database=stude nt" Set cn = New ADODB.Co nn ectio ncn. CursorLocati on = adUseClie ntcn.Open str_cn' 连接 sql serverstr_sql = "select * from user_i nfo where user_ name= & Textl.Text &

10、 "' and user_code='" & Text2.Text & "'Set rs = New ADODB.Recordsetrs.Ope n str_sql, cn, adOpe nDyn amic, adLockOptimisticIf Len( Textl.Text) = 0 The nMsgBox "请输入用户名！ ", 64," 提示"Textl.SetFocusElself Len( Text2.Text) = 0 The nMsgBox "请输入密码！ &

11、quot;, 64," 提示"Text2.SetFocusElseIf rs.RecordCo unt = 0 The n提示")i = MsgBox("不存在该用户,是否立即注册？", 4 + 32,"If i = 6 The nUn load MeForm3.ShowElsemdlTextBox.Bla nk MeText2.SetFocusEnd IfElse'Un load MeForml.HideForm4.ShowEnd IfEnd IfEnd SubPrivate Sub Form_Load()mdITextBo

12、x.Ce nten Me '使窗体居中End SubPrivate Sub Form_MouseMove(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle)Label5.ForeColor = vbBIackLabel5.F ontUn derl ine = FalseLabel6.ForeColor = vbBlackLabel6.F ontUn derl ine = FalseEnd SubPrivate Sub Label5_Click()Un load MeForm3.ShowEnd SubPri

13、vate Sub Label5_MouseMove(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle)Label5.ForeColor = vbBlueLabel5.F ontUn derl ine = TrueEnd SubPrivate Sub Label6_Click()Un load MeForm2.ShowEnd SubPrivate Sub Label6_MouseMove(Button As In teger, Shift As In teger, X AsSi ngle, Y As Si ngle

14、)Label6.ForeColor = vbBlueLabel6.F ontUn derl ine = TrueEnd Sub2、添加学生信息代码：Opti on ExplicitPrivate Sub Comma nd1_Click()If Len( Textl.Text) = 0 Or Len( Text6.Text) = 0 The nMsgBox "请将信息补充完整！ ", 48," 警告"Exit SubEnd If'添加新记录sqlstr = "select * from stude nt_lnfo" Set rs

15、 = ExecuteSQL(sqlstr, Msg) rs.AddNewrs.Fields("stude nt_id") = Text6.Text rs.Fields("stude nt_n ame") = Text1.Text rs.Fields("class_ no") = Combo2.Text rs.Fields("born_date") = Text2.Text rs.Fields("stude nt_sex") = Combo1.Text rs.Fields("addres

16、s") = Text4.Text rs.Fields("tele_ nu mber") = Text7.Text rs.Fields("comme nt") = Text5.Text rs.Fields("ru_date") = Text3.Text rs.Update rs.Close提示信息"MsgBox "学生信息添加完成！", 48," mdITextBox.Bla nk MeEnd SubPrivate Sub Comma nd2_Click()Un load MeForm4

17、.ShowEnd SubPrivate Sub Form_Load() mdlTextBox.Ce nte n Me mdlTextBox.Bla nk MeCombo1.Text ="男"：Combo2.Text =""Combo1.AddItem "男"Combo1.AddItem "女" sqlstr = "select * from class_l nfo" Set rs = ExecuteSQL(sqlstr, Msg)For i = 1 To rs.RecordCo untCombo

18、2.AddItem rs.Fields(O) rs.MoveNextNext irs.CloseEnd Sub3、删改学生信息代码：Opti on ExplicitPrivate Sub Comma nd4_Click()'从数据库中读取学生信息并添加到窗体中的输入框sqlstr = "select * from stude nt_lnfo where stude nt_id= & Combo2.Text& "' and class_no='" & Combo1.Text & "'Set r

19、s = ExecuteSQL(sqlstr, Msg)If rs.RecordCo unt = 0 The nMsgBox "没有找到符合条件的数据！", 48,"警告"mdITextBox.Bla nk Me: Combo3.Text =""ElseText2.Text = Trim(rs.Fields("stude nt_id")Text1.Text = Trim(rs.Fields("stude nt_n ame")Text3.Text = Trim(rs.Fields("bor

20、n_date")Combo3.Text = Trim(rs.Fields("class_ no")Combo4.Text = Trim(rs.Fields("stude nt_sex")Text4.Text = Trim(rs.Fields("tele_ nu mber")Text5.Text = Trim(rs.Fields("address")Text6.Text = Trim(rs.Fields("comme nt")Text7.Text = Trim(rs.Fields(&qu

21、ot;ru_date")End Ifrs.CloseEnd SubPrivate Sub Comma nd1_Click()Dim cn As ADODB.Co nn ectio nsqlstr = "update student_info set student_name='"& Text1.Text &"',born_date= ' " & Text3.Text & " ' ,stude nt_sex= & Combo4.Text &"

22、9;,class_no='" & Combo1.Text & "',tele_number='" & Text4.Text &"',address='" & Text5.Text & "',comme nt= & Text6.Text & "',ru_date='"& Text7.Text & "' where stude nt_id= & Com

23、bo2.Text & "'On Error GoTo exitsubSet cn = New ADODB.Co nn ectio ncn. Ope n conn strcn .Execute sqlstrMsgBox "成功修改数据！"exitsub:cn. ClosemdlTextBox.Bla nk Me: Combo3.Text =""End SubPrivate Sub Comma nd2_Click()Dim cn As ADODB.Co nn ectio nsqlstr = "delete from stu

24、de nt_info where stude nt_id='" & Combo2.Text &HillOn Error GoTo exitsubSet cn = New ADODB.Co nn ectio ncn. Ope n conn strcn .Execute sqlstrMsgBox "成功删除数据！"exitsub:cn. ClosemdITextBox.Bla nk Me: Combo3.Text ="" End SubPrivate Sub Comma nd3_Click() Un load MeForm4

25、.ShowEnd SubPrivate Sub Form_Load() mdlTextBox.Ce nte n Me Combo1.Text = "": Combo2.Text ="" mdlTextBox.Bla nk MeCombo3.Text =""Combo4.Text ="男"Combo4.Addltem "男"Combo4.Addltem "女"Dim sqlstr As Stri ngDim Msg As Stri ngDim i As In teger sql

26、str = "select * from class_l nfo" Set rs = ExecuteSQL(sqlstr, Msg) For i = 1 To rs.RecordCo untCombol.Addltem rs.Fields(O)Combo3.AddItem rs.Fields(O) rs.MoveNextNextDim sql As StringDim msgtext As Stri ng sql = "select * from stude nt_lnfo"Set rs = ExecuteSQL(sql, msgtext)For i =

27、 1 To rs.RecordCo untCombo2.Addltem rs.Fields(O) rs.MoveNextNextrs.CloseEnd Sub4、查询学生信息：Opti on ExplicitPrivate Sub Comma nd1_Click()Dim rs As New ADODB.RecordsetDim cn As New ADODB.Co nn ectio nDim cn str As Stringcn str = "driver=sql server;server=.;uid=sa;pwd=;database=stude nt"cn. Ope

28、n cn strIf Optio n1.Value = True The nsqlstr = "select * from stude nt_info"Combol.Text =""Textl.Text = "": Text2.Text =""End IfIf Optio n2.Value = True The nsqlstr = "select * from student_info where class_no='"& Combol.Text& "'

29、"Text2.Text = "": Textl.Text =""End IfIf Optio n3.Value = True The nsqlstr = "select * from stude nt_info where stude nt_id=& Textl.Text& "'"Combol.Text = "": Text2.Text =""End IfIf Optio n4.Value = True The nsqlstr = "sele

30、ct * from student_info where student_name='"&Text2.Text & "'Combol.Text = "": Text2.Text =""End Ifrs.Ope n sqlstr, cnSet rs = ExecuteSQL(sqlstr, Msg)If rs.RecordCo unt = 0 The nMsgBox "没有查找到满足条件的数据！", 48,"提示"fgStude nt.Rows = 1ElsefgS

31、tude nt.Rows = rs.RecordCo unt + 1fgStude nt.Cols = 9' 设定行高For i = 0 To fgStudent.Rows - 1fgStude nt.RowHeight(i) = 280Next i'设定列的属性fgStude nt.Row = 0For i = 0 To fgStude nt.Cols - 1fgStude nt.Col = i '指定当前列为第fgStude nt.FixedAlig nmen t(i) = 4'Select Case iCase 0fgStudent.ColWidth(i)

32、 = 1500 ' fgStude nt.Text ="学号"Case 1fgStudent.ColWidth(i) = 2000 ' fgStude nt.Text ="姓名"Case 2fgStude nt.ColWidth(i) = 800 ' fgStude nt.Text ="性别"Case 3fgStude nt.ColWidth(i) = 800 ' fgStude nt.Text ="班级"Case 4fgStude nt.ColWidth(i) = 1300 

33、9; fgStudent.Text ="出生日期"Case 5fgStude nt.ColWidth(i) = 1500 ' fgStude nt.Text =" "Case 6fgStude nt.ColWidth(i) = 1500 fgStudent.Text ="入学时间"Case 7fgStude nt.ColWidth(i) = 2500 ' fgStude nt.Text ="地址"Case 8fgStude nt.ColWidth(i) = 3000 ' fgStude nt

34、.Text ="备注信息"End SelectNext iI列使内容居中设定列宽设定列宽设定列宽设定列宽设定列宽设定列宽设定列宽设定列宽i = 1 '从第二行开始显示内容While (Not rs.EOF)fgStude nt.Row = iFor j = 0 To fgStudent.Cols - 1 fgStude nt.Col = jfgStude nt.CellAlig nment = 4Select Case jCase 0fgStude nt.Text = rs.Fields("stude nt_id") Case 1fgStude nt.Text = rs.Fields("stude nt_n ame") Case 2fgStude nt.Text = rs.Fie