学生信息管理系统最终文档(21页).doc

《学生信息管理系统最终文档(21页).doc》由会员分享，可在线阅读，更多相关《学生信息管理系统最终文档(21页).doc（21页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、-学生信息管理系统最终文档-第 21 页学生管理信息系统设计文档 需求分析一 目的与任务： 学校学生管理信息系统是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统（Management Information System）。它是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。通过该系统，用户可以查看学生的基本资料、学习成绩等各方面的资料，能够方便的了解学生总体情况。该管理系统为用户提供了一些简单的数据查询、输出各种信息等。学生用户

2、通过输入学生基本信息、课程基本信息等,由系统自行生成相应的数据以供学生查询,另外人事处的管理用户还可以对这些基本信息进行更新和删除, 学校学生管理信息系统力求给用户方便快捷的途径去管理这些繁琐的数据。二 该系统所满足的功能 处理要求利用计算机进行学生选课方面的管理，不仅能够保证准确，无误，快速，而且还可以利用计算机对相关信息进行查询，检索迅速，查找方便，可靠性高，存储量大，保密性号。要科学的实现信息化管理，开发一个适合学校的，能够进行信息存储，查询，修改等功能的管理信息系统是十分必要的。功能需求1.管理学生信息管理所有学生的基本信息，包括添加，修改，删除等，可以根据各种条件查询出需要的信息。2

3、.管理课程信息管理所有课程的基本信息，包括添加，修改，删除等，可以根据各种条件查询出需要的信息。3.管理选课与成绩根据学好进行选课，登记所选课程的成绩，可以根据学好查询出选成绩与信息学生信息输入学生信息查询学生信息管理学生信息修改成绩信息输入成绩信息管理成绩信息查询成绩信息修改学生信息管理系统班级信息输入班级信息管理班级信息查询班级信息修改课程信息输入课程信息管理课程信息查询课程信息修改密码管理系统管理用户管理项目管理系统角色及其职责序号角色适用人员职责描述1创建者软件开发小组l 创建系统l 删除修改系统l 评价系统2使用者学院l 存储学生信息l 修改学生信息l 查询删除学生信息3管理者系统管

4、理员l 设置角色l 使用权限l 系统更新三 用例分析1，建立用例模板删除评价创建 系统创建者 存储修改查询删除 设置权限更新系统使用者 系统管理者2 编写用例模板四 数据流程分析、1系统流程图 事务业务务数 据 库登陆 程序操作请求操作执行程序执行结果报 表2学生管理系统的活动图管理级用户一般用户用户类型登陆成功验证身份输入用户名，密码开始密码错误注册查看浏览删除添加修改查看规范化输出3. 数据流图 输入：用户名、密码、操作请求输出：查询结果、修改结果、删除结果。输出查询删除添加修改统计查询基本信 息学生成 绩事务务输入信息管理系 统用户信 息 显示五，安全性与完整性 本系统分为学生用户和管理

5、用户，如果你不是管理员，那只能进行查询，对数据没有修改权力。只能进行查询，里面有各个方面的，如成绩查询，课程查询，班级查询，学籍查询等。各个界面都简单明了，只要输入你所需要的条件，系统自动调出数据。管理员登陆点系统，点系统，输入管理员用户及密码，跟数据库的用户表比较。如果通过则能进行课程，学籍，成绩，班级的管理。当数据冲突或出错时，通常重启系统可以使数据库得到恢复。概要设计1.目的与任务将需求分析阶段得到的用户需求抽象为信息世界转化为一个独立软件架构。(1)了解数据库设计的概念和目的; (2)了解数据库设计的步骤和工具; (3)了解数据字典，以及其分析和描述；(4)了解实体之间的关系，掌握E-

6、R图的结构及应用；(5)掌握数据库建模工具PowerDesigner使用；(6)运用本课题学到的技巧，进行学生信息管理系统的数据库设计2.分析方法按照用户需求将所要实现的功能分模块设计，在深入了解了系统的功能后，在实现软件架构。3.具体操作步骤（1）系统功能结构。角色及权限设置由系统管理员完成系统创建者负责创建系统和评价系统，系统管理者负责启动系统，考核系统和结束系统。（）SIMS 应包括以下信息:(1) 学院信息: 教师名字, 系主任, 办公室, 联络, 电话号(2) 班级信息: 班级, 教师, 班主任, 班级学生数量(3) 学生基本信息: 学号,姓名, 性别, 国籍, 生日, 主修课目,

7、所在学院,所属班级, 选修的课程, 所选每门课成绩(4) 教师基本信息: 职工号, 姓名, 性别, 国籍 生日, 工作部门, 标题, 主修科目, 课程名称(5) 教学信息: 课程, 教师, 授课语言 ,上课教室, 上课时间(6) 课程基本信息: 课程代号, 课程名称, 学分, 课程性质（选修/必修) ，考核方式(7) 其他信息：系统应包括用户角色, 例如教师，学生，管理员, 每个用户的用户名和密码 （）功能设计（分E-R 图设计） 系信息 学院信息姓名系主任联络电话号办公室班级基本信息班级基本信息教师班主任 班级学生数 学生信息学生所在班级 成绩所在学院 主修科目生日所选课程学号 性别国籍教师

8、信息 教师工作部门所教课程主修科目生日标题职工号性别国籍 课程信息课程信息批课程名称课程性质（必修/选修）课程代号考核方式审批时间用户登录用户用户账号角色密码. 学校学生管理系统中的数据关系模型图系主任教师描述责任职工号号码姓名姓名教师系主任班级学生学号姓名年级名字班级号学生班级国籍描述职工号主修科目学生课程学号姓名学号课程号课程号名称学分学生课程学期种类主修科目年级分数国籍描述nnn学 生学 号姓 名出生年月性 别籍 贯联系地址 联系电话老师教职称姓名职工号教务性别课程学习课程名称课程号学时学分管理员员yua管理姓名密码nn(3)软件架构学生信息管理系统按照模式进行设计数据访问层类（DAO）

9、添加数据判重方法添加数据方法修改数据判重方法修改数据方法删除数据方法查询某一条数据查询所有数据数据访问层接口(IDAO)添加数据判重方法添加数据方法修改数据判重方法修改数据方法删除数据方法查询某一条数据查询所有数据视图层 控制层 模型层 视图层 控制层数据转换即整理数据操作请求层控制逻辑描述调用添加数据方法调用修改数据方法调用删除数据方法数据操作请求层 调用添加数据方法服务层添加数据方法修改数据方法删除数据方法 操作响应层数据操作响应层（4）设计主要接口和类图 学生信息管理系统的主要类是实体类.数据访问接口和类。服务接口和类4. 详细设计4.1数据库设计数据字典系：BCNF属性名称 内部名称域

10、描述空种类长度 名称nameFaculty Name Not nullvarchar(50)系主任Teacher number of Dean, Foreign key referencing teacher(tno)char(5)办公室bnoThe building number of officeNot nullchar(5)联系Teacher number of liaison, Foreign key referencing teacher(tno)char(5)电话TelNoTelephone numbervarchar(11)班级：BCNF属性名称 内部名称域描述空种类长度 班级i

11、dclass Name, e.g,RJ0801Not nullchar(6)教师facultyFaculty name, Foreign key referencing Faculty(name)Not nullvarchar(50)班主任Chief-tnoTeacher number of chief, Foreign key referencing teacher(tno)char(5)数量numberThe number of students in the classsmallint学生：BCNF属性名称 内部名称域描述空种类长度 学生数量idStudent number Not nu

12、llchar(8)学生姓名nameStudent nameNot nullvarchar(30)教师facultyFaculty name, Foreign key referencing Faculty(name)varchar(50)性别sexm or fChar(1)生日birthdaydate国籍nationalityVarchar(20)主修科目MajorVarchar(40)班级号ClassNoClass number, Foreign key referencing class(class-id)char(6)教师：BCNF属性名称 内部名称域描述空种类长度 职工号idteach

13、er number Not nullchar(4)教师姓名nameTeacher nameNot nullvarchar(30)院系facultyFaculty name, Foreign key referencing Faculty(name)varchar(50)性别sexm or fChar(1)生日birthdaydate国籍nationalityVarchar(20)主修科目MajorVarchar(40)课题Titlevarchar(20)课程：BCNF属性名称 内部名称域描述空种类长度 课程代号cidcourse number Not nullchar(8)课程名称nameco

14、urse nameNot nullvarchar(30)学分creditCourse creditsmallint性质propertyrequired or electivechar(1)考核方式methodtest or checktest -examcheck-no examchar(5)user ：BCNF属性名称 内部名称域描述空种类长度 用户名iduser Name,Foreign key referencing teacher(tno) or student(sno)Not nullvarchar(8)密码passwordFaculty name, Foreign key refe

15、rencing Faculty(name)Not nullvarchar(10)方法rolet,s,at-teachers-studenta-administratorchar(1)教学 :=(time, roomNo) BCNF属性名称 内部名称域描述空种类长度 时间TimeLecture Time,e.g. Mon. second (周一第2节)Not nullvarchar(15)教室RNoRoom Number,e.g. YF603Not nullvarchar(10)职工号tnoTeacher number, Foreign key referencing teacher(tno)N

16、ot nullchar(5)课程号cnocourse number, Foreign key referencing course(cno)Not nullchar(8)序列sequence0,1,2,3Sequence number of lecture( 表示一门课的多个头)Not nullsmallint教学语言languagebilingual or English or chinesevarchar(8)SC:=(sno, cno, sequence) 1NF属性名称 内部名称域描述空种类长度 学号snoStudent number, Foreign key referencing

17、student(sno) Not nullvarchar(8)课程号cnoCourse number, Foreign key referencing course(cno)Not nullvarchar(8)序列sequence0,1,2,3Sequence number of lecture( 表示一门课的多个头)Not nullsmallint等级grade0-102Test:0-100Check: 101 no pass 102 passsmallint 学生信息管理系统（实现、调试、运行）编码1、 登录模块界面及代码：Private Sub Command1_Click()Dim a

18、a As String, bb As String, cc As Stringaa = Trim(Text1.Text)bb = Trim(Text2.Text)cc = Trim(Combo1.Text)If Text1.Text = Or Text2.Text = Then ans = MsgBox(你的输入有误，请重新输入！, 64, 提示) Text1.Text = Text2.Text = Else Adodc1.RecordSource = select * from user where 用户类型= & cc & and 用户名= & aa & and 用户密码= & bb &

19、Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then ans = MsgBox(用户名或密码错误，请重新输入！, 64, 提示) Text1.Text = Text2.Text = Text1.SetFocus Else If cc = 管理员 Then qx = a Else qx = b End If Unload Me Form2.Show End IfEnd IfEnd Sub2、 添加学生信息的界面及代码：Option ExplicitPrivate Sub Command1_Click()If Len(Text1.Text)

20、 = 0 Or Len(Text6.Text) = 0 Then MsgBox 请将信息补充完整！, 48, 警告 Exit SubEnd If添加新记录sqlstr = select * from stu_InfoSet rs = ExecuteSQL(sqlstr, Msg)rs.AddNewrs.Fields(student_id) = Text1.Textrs.Fields(student_name) = Text2.Textrs.Fields(student_sex) = Text3.Textrs.Fields(student_age) = Text4.Textrs.Fields(s

21、dept) = Text5.Textrs.Fields(prof) = Text6.Textrs.Fields(class_no) = Text7.Textrs.Fields(remarks) = Text8.Textrs.Updaters.CloseMsgBox 学生信息添加完成！, 48, 提示信息mdlTextBox.Blank MeEnd SubPrivate Sub Form_Load()mdlTextBox.Centen MemdlTextBox.Blank MeCombo1.Text = 男: Combo2.Text = Combo1.AddItem 男Combo1.AddIte

22、m 女sqlstr = select * from class_InfoSet rs = ExecuteSQL(sqlstr, Msg)For i = 1 To rs.RecordCount Combo2.AddItem rs.Fields(0) rs.MoveNextNext irs.CloseEnd Sub3、 删改学生信息的界面及代码：Option ExplicitPrivate Sub Command4_Click() 从数据库中读取学生信息并添加到窗体中的输入框 sqlstr = select * from student_Info where student_id= & Combo

23、2.Text & and class_no= & Combo1.Text & Set rs = ExecuteSQL(sqlstr, Msg) If rs.RecordCount = 0 Then MsgBox 没有找到符合条件的数据！, 48, 警告 mdlTextBox.Blank Me: Combo3.Text = Else Text1.Text = Trim(rs.Fields(student_id) Text2.Text = Trim(rs.Fields(student_name) Text3.Text = Trim(rs.Fields(student_sex) Text4.Text

24、 = Trim(rs.Fields(student_age) Text5.Text = Trim(rs.Fields(sdept) Text6.Text = Trim(rs.Fields(prof) Text7.Text = Trim(rs.Fields(class_no) Text8.Text = Trim(rs.Fields(remarks)End If rs.CloseEnd SubPrivate Sub Command1_Click()Dim cn As ADODB.Connectionsqlstr = update student_info set student_name= & T

25、ext2.Text & ,student_sex= & Text3.Text & ,student_age= & Text4.Text & ,sdept= & Text5.Text & ,prof= & Text6.Text & ,class_no & Text7.Text & ,remarks= & Text8.Text & where student_id= & Text1.Text & On Error GoTo exitsub Set cn = New ADODB.Connection cn.Open connstr cn.Execute sqlstr MsgBox 成功修改数据！ex

26、itsub: cn.Close mdlTextBox.Blank Me: Combo3.Text = End SubPrivate Sub Command2_Click()Dim cn As ADODB.Connectionsqlstr = delete from student_info where student_id= & Combo2.Text & On Error GoTo exitsubSet cn = New ADODB.Connectioncn.Open connstrcn.Execute sqlstrMsgBox 成功删除数据！exitsub:cn.Close mdlText

27、Box.Blank Me: Combo3.Text = End SubPrivate Sub Form_Load()mdlTextBox.Centen MeCombo1.Text = : Combo2.Text = mdlTextBox.Blank MeCombo3.Text = Combo4.Text = 男 Combo4.AddItem 男 Combo4.AddItem 女Dim sqlstr As StringDim Msg As StringDim i As Integersqlstr = select * from class_InfoSet rs = ExecuteSQL(sqls

28、tr, Msg)For i = 1 To rs.RecordCount Combo1.AddItem rs.Fields(0) Combo3.AddItem rs.Fields(0) rs.MoveNextNextDim sql As StringDim msgtext As Stringsql = select * from student_InfoSet rs = ExecuteSQL(sql, msgtext)For i = 1 To rs.RecordCount Combo2.AddItem rs.Fields(0) rs.MoveNextNextrs.CloseEnd Sub4、 查

29、询学生信息的界面及代码：Private Sub Command1_Click()If Text7 ThenForm13.Adodc1.RecordSource = SELECT * From 学生基本信息 Where 姓名 like & % & Text7.Text & % & Adodc1.CommandType = adCmdTextAdodc1.RefreshElseIf Text8 ThenForm13.Adodc1.RecordSource = SELECT * From 学生基本信息 Where 学号 like & % & Text8.Text & % & Adodc1.Comma

30、ndType = adCmdTextAdodc1.RefreshElseIf Text9 ThenForm13.Adodc1.RecordSource = SELECT * From 学生基本信息 Where 专业编号 like & % & Text9.Text & % & Adodc1.CommandType = adCmdTextAdodc1.RefreshElse: a = MsgBox(查找条件不能为空！, 6, 提示信息)End IfEnd SubPrivate Sub Command2_Click()Form15.ShowEnd SubPrivate Sub Command3_Cl

31、ick() Unload MeEnd SubPrivate Sub Option1_Click() Text7.SetFocus Text8.Text = Text9.Text = End SubPrivate Sub Option2_Click() Text8.SetFocus Text7.Text = Text9.Text = End SubPrivate Sub Option3_Click() Text9.SetFocus Text7.Text = Text8.Text = End SubPrivate Sub Text7_Click() Text8.Text = Text9.Text

32、= Option1.SetFocusEnd SubPrivate Sub Text8_Click() Text7.Text = Text9.Text = Option2.SetFocusEnd SubPrivate Sub Text9_Click() Text7.Text = Text8.Text = Option3.SetFocusEnd Sub5：多选条件之高级查询的界面及代码：Dim rs As New ADODB.RecordsetDim SQL As StringDim msg As StringDim strWhere As String 保存查询条件Private Sub Sho

33、wData() 显示查询结果 SQL = Select * SQL = SQL & from 学生基本信息 & strWhere & ORDER BY 学号 Set rs = SelectSQL(SQL, msg) If rs.RecordCount 0 Then Set Me.DataGrid1.DataSource = rs 为DataGrid1的DataSource属性赋值 DataGrid1.Refresh 刷新 Else Set Me.DataGrid1.DataSource = Nothing End IfEnd SubPrivate Sub Command1_Click() 模糊

34、查找操作 strWhere = where 1=1 如果班级被选中 If Check1.Value = 1 Then strWhere = strWhere & and 班级 like % & Trim(Text1.Text) & % End If 如果学号被选中 If Check2.Value = 1 Then strWhere = strWhere & and 学号 like% & Trim(Text2.Text) & % End If 如果姓名被选中 If Check3.Value = 1 Then strWhere = strWhere & and 姓名 like% & Trim(Te

35、xt3.Text) & % End If 如果性别被选中 If Check4.Value = 1 Then strWhere = strWhere & and 性别 like% & Trim(Text4.Text) & % End If 如果专业编号被选中 If Check5.Value = 1 Then strWhere = strWhere & and 专业编号 like % & Trim(Text5.Text) & % End If 如果出生日期被选中 If Check6.Value = 1 Then strWhere = strWhere & and 出生日期 like % & Tri

36、m(Text6.Text) & % End If Call ShowData 显示查询结果End SubPrivate Sub Command2_Click() Unload MeEnd Sub6：通用模块的代码Public qx As StringPublic Function OpenConn(ByRef conn As ADODB.Connection) As Boolean 打开数据库连接，连接成功返回true，出错时返回false Set conn = New ADODB.Connection 设置数据库连接对象 数据库连接字符串 连接数据库使用的驱动程序，连接的服务器名称，保存安全

37、信息为False conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 学生.mdb & ;Persist Security Info=False OpenConn = True Exit FunctionToExit: Resume NextEnd FunctionPublic Function SelectSQL(ByVal SQL _ As String, ByRef msg As String) As ADODB.Recordset 执行SQL语句，返回ADODB.Recordset Dim conn

38、As ADODB.Connection 定义数据库连接对象 Dim rst As ADODB.Recordset 定义数据库结果集对象 Dim sTokens() As String 定义字符串变量 On Error GoTo ErrorHandle 出错处理 判断SQL语句 sTokens = Split(SQL) 根据分隔符吧字符串分割成数组 If InStr(SELECT, UCase(sTokens(0) Then 大写字符串中是否包含SELECT 打开数据库连接 If OpenConn(conn) Then 数据库连接打开为真 Set rst = New ADODB.Recordset 定义数据库结果集 rst.CursorLocation = adUseClient 记录集游标设置为客户端游标 rst.Open Trim$(SQL), conn, adOpenDynamic