毕业论文-学生信息管理系统.doc

《毕业论文-学生信息管理系统.doc》由会员分享，可在线阅读，更多相关《毕业论文-学生信息管理系统.doc（45页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流毕业论文-学生信息管理系统.精品文档.目 录一、 摘要.2二、 系统设计2 2.1 需求分析 .22.2 系统功能模块设计 .3 2.3 各功能模块 .3三、 数据库设计.6 3.1 创建数据库.6 3.2 数据库表 .6四、 设计工程框架.8 4.1 创建工程. .8 4.2 添加模块.9五、 系统界面设计及功能的实现.9 5.1 主窗口设计.9 5.2 用户信息管理模块的创建.10 5.3 班级信息管理模块的创建.155.4 课程信息管理模块的创建19 5.5 学籍信息管理模块的创建23 5.6 成绩信息管理模块的创建34 5.7 奖惩信

2、息管理模块的创建.46 5.8 个人信息查询模块的创建50 六、 参考资料. 54一、摘 要学生信息管理系统主要是提供学生，老师或者来访者方便的查询等相关操作，对学生的信息管理能统一规范化。功能块的相应操作分别由其对应的子模块实现。包括对学生用户、学生班级、学生成绩、学生的奖惩等信息进行存储、修改、查阅、删除以及对学生个人所有信息的查询。本系统采用的开发工具：Visual B.asic6.0；后台数据库：Access2003。软件基本运行环境为Windows环境。 二、系统设计 该软件分八个主要功能块：即 用户信息管理、班级信息管理、学籍信息管理、课程信息管理、成绩信息管理、奖惩信息管理以及个

3、人信息查询、退出。2.1 需求分析2.1.1 编写目的 掌握数据库设计原理及相关软件的使用；确定系统功能，设计时应遵循的原则，约束条件以及性能等要求；建立和保持与用户之间的通信，确保以后的工作能够比较顺利的开展，撰写需求规格说明书即当前文档。2.1.2 项目提要1 目标 软件需求分析阶段有以下几个目标：给出软件系统的数据流程图与数据结构，构造一个完全的系统逻辑模型。提出详细的功能说明，确定设计限定条件，规定性能要求。密切与用户的联系，使用户明确自己的任务，以便实现上述两项目标。 2 运行环境 软件基本运行环境为Windows环境。 3 条件与限制 由于系统较小，且在windows系统下开发，故

4、在windows环境下基本没有什么限制。2.1.3 数据描述静态数据是系统内部有关的数据结构与操作规程。具体可包括：学号、姓名、性别、班级、家庭住址、联系电话、出生日期、入学日期、备注用户名称、用户密码。 动态数据包括程序运行时输入和输出的数据,具体是数据库的各个表的各个不同元组与属性值.就是学生信息. 2.1.4 详细需求性能需求 (1) 数据精确度 由于采用数据库技术并且用户的应用领域对数据精确度的要求不是太高，所以这点在系统中表现得比较少，但是用户数据的安全性与正确性是完全保证的，所以对用户的使用没有多大的障碍。 (2) 时间特性 本系统的数据库较小，所以程序在响应时间，数据更新处理时间

5、上性能是比较突出的。而且也正由于数据量相对较少，故在数据传输时间和系统运行时间上表现的较让人满意。 (3) 适应性 该软件是使用Visual Basic 6在windows xp系统下完成的所以只要是兼容windows的软件或是操作系统，该软件都可以正确地运行，有较好的适应能力与兼容性。而且应用户的特殊需求软件在完成后的维护阶段可以保持一个与其他类软件接口，随时满足用户的使用要求。2.2系统功能模块设计按照结构化程序设计的要求，得到下图的系统功能模块图：学生管理系统学籍信息管理奖惩信息查询成绩信息管理课程信息管理班级信息管理个人信息查询用户信息管理密码重设系统管理添加信息修改信息删除信息信息查

6、询信息处理删除信息添加信息添加信息删除信息查询信息修改信息添加信息删除信息查询信息查询信息修改信息退出查询信息2.3 各模块功能2.3.1 用户信息模块：主要是实现对用户的基本信息进行录入、修改/删除以及密码重设等操作。2.3.2 班级信息模块：主要是实现对班级信息的管理。包括班级编号、班级名称、辅导员以及备注信息（根据班级的变动情况及时进行录入、修改、查询或者删除等操作。）此模块必须先登录后才能使用。1、录入班级信息子模块： 点击上方“新增”使下方出现“信息处理添加”的字样；再在对应的对话框里录入班级编号、班级名、辅导员、备注信息等信息，再点击下方的“添加”，这样信息就录入进了。此模块必须先

7、登录后才能使用。2、修改班级信息子模块：点击上方“修改”使下方出现“信息处理修改”；再录入对应的要修改的班级编号，则弹出一个“确定是否修改或删除此班级”的对话框，如果确定是，则单击“确定“，再修改要修改的信息，使之在对应的对话框中出现后修改要修改的信息，最后点击下方的“修改”。则弹出一个“此信息修改成功”字样的对话框。此模块必须先登录后才能使用。3、 删除班级信息子模块：点击上方“修改”使下方出现“信息处理删除”；再录入对应的要修改的班级编号，则弹出一个“确定是否修改或删除此班级”的对话框，如果确定是，则单击“确定“，再点击下方的“删除”，则弹出一个“缺点删除此信息”字样的对话框。点击“确定“

8、。则此信息删除。此模块必须先登录后才能使用。4、查询班级信息子模块：点击上方“查询”使下方出现“查询处理”根据条件在下拉菜单中选择查询条件。输入对应条件的信息，点击右上方的“查询”按钮。查询结果就显示在下面。也可以查询所有的班级信息。此模块必须先登录后才能使用。2.3.3 学籍信息模块：实现对学生信息的管理。分学籍信息处理以及学籍信息查询两块。1、录入学籍信息子模块： 此操作与“添加班级信息子模块“类似。此模块必须先登录后才能使用。2、修改学籍信息子模块：此操作与“修改班级信息子模块“类似。此模块必须先登录后才能使用。3、删除学籍信息子模块：此操作与“删除班级信息子模块“类似。此模块必须先登录

9、后才能使用4、个人查询子模块： 在“信息处理“中选择你查询类型，（包括学号、姓名），再在旁边输入对应的信息，点击查询，则结果显示在下面的框框中。此模块必须先登录后才能使用5、多集查询子模块： 在“信息处理“中选择你查询类型，（包括班级、性别、辅导员等）再在旁边输入对应的信息，点击查询，则结果显示在下面的框框中。此外还可以查询所有人的信息。此模块必须先登录后才能使用2.3.4 课程信息模块：实现对所有课程安排进行管理。包括课程的添加、修改、查询以及删除。1、添加课程信息子模块：此操作与添加班级信息子模块类似。此模块必须先登录后才能使用。2、修改课程信息子模块：此操作与“修改班级信息子模块“类似。

10、此模块必须先登录后才能使用。3、查询课程信息子模块： 此操作与“查询班级信息子模块“类似。此模块必须先登录后才能使用。4、 删除课程信息子模块： 此操作与“删除班级信息子模块“类似。此模块必须先登录后才能使用。2.3.5 成绩信息管理：实现对学生成绩的管理。包括对各个学生的成绩进行添加、修改、删除；且根据不同条件查询成绩；以及课程的设置。1、录入成绩信息子模块：与前几个模块类似；此模块必须先登录后才能使用。2、修改成绩信息子模块：与前几个模块类似；此模块必须先登录后才能使用。3、删除成绩信息子模块：与前几个模块类似；此模块必须先登录后才能使用。4、个人成绩查询子模块：与前几个模块类似；此模块必

11、须先登录后才能使用。5、 班级成绩信息查询子模块：在下拉菜单中选择要选择的条件信息；再点击“查询“按钮，结果显示在下方。此模块必须先登录后才能使用。2.3.6 奖惩信息模块：对获奖或者记过的信息进行管理。包括添加、查询和删除奖惩记录。1、添加奖惩信息子模块：首先输入查询添加信息的学生学号，再在下面的奖惩信息列表中选择对此学生的奖惩，若没有容你选择的奖惩信息，则在右边奖惩名称中填入奖惩名称，再点击右下方的添加，再在奖惩信息列表中选定对学生的奖惩，再点击左边中间带箭头的添加。此模块必须先登录后才能使用。2、查询奖惩信息子模块：输入要查询信息的学生学号，再点击中间的“查询“。则查询结果显示在下方。此

12、模块必须先登录后才能使用。3、 删除奖惩信息子模块：首先输入查询添加信息的学生学号，再在下面的列表中选中删除对此学生的奖惩，再点击中间带箭头的删除，若要彻底删除，可在奖惩信息列表中再选中此信息，再点击右下方没带箭头的删除。此模块必须先登录后才能使用。2.3.7 个人信息查询：包括个人基本情况查询、成绩查询、出勤情况查询以及奖惩情况的查询。此操作与前几个模块类似。此模块必须先登录后才能使用。三、数据库设计3.1创建数据库 在设计数据库表结构之前，先要创建一个数据库。本系统使用的数据库为Status（Access表）3.2 设计表本系统数据库由九个数据库表组成，他们分别为：奖惩信息表、奖惩名称表、

13、学生情况表、成绩信息表、班级表、班级课程表、用户表、考勤信息表、课程信息表。他们的数据类型分别为：四、设计工程框架4.1创建工程创建工程1，并保存。4.2添加模块M.odule1.bas 代码如下：Public userid As String Public passwad As String 五、系统界面设计及功能的实现5.1主窗体设计5.1.1功能介绍：主窗体用于连接到其他窗口执行操作，实现到各个窗体的切换。5.1.2主窗口视图：5.1.3实现代码：Private Sub class_Click()class1.ShowEnd SubPrivate Sub exit_Click()Unlo

14、ad MeEnd SubPrivate Sub fe_Click()dnxgm.ShowEnd SubPrivate Sub fee_Click()ftng.ShowEnd SubPrivate Sub fef_Click()studet.ShowEnd SubPrivate Sub find_Click(Index As Integer)finds.ShowEnd SubPrivate Sub gsafeasfe_Click()Form8.ShowEnd SubPrivate Sub ke_Click()ke1.ShowEnd SubPrivate Sub passwad_Click()ga

15、ipasswad.ShowEnd SubPrivate Sub sre_Click()Form6.ShowEnd SubPrivate Sub viwe_Click(Index As Integer)End Sub5.1.4设计主界面 主窗体是工程的启动对象，建立一个主窗体名为“”。打开主窗体的设计窗口，选择“工具”菜单项中的“菜单编辑器”，对菜单内容进行编辑，其菜单项的属性如下： 菜单项的属性标题名称用户信息管理xe重设密码passwad系统管理gsafeasfe班级信息管理class课程信息管理ke学籍信息管理fef成绩信息管理fe奖惩信息管理sre个人信息查询find退出系统exit5.

16、2 用户信息管理模块的创建5.2.1功能介绍：重设密码、添加、删除用户。5.2.2视图：重设密码5.2.3实现代码：Dim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 用户名称不能为空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 用户密码不能为空!, vbOKOnly, 提示 Text1(1).Se

17、tFocus Exit Sub Else If Text1(1) Text1(2) Then MsgBox 两次密码输入不同!, vbOKOnly, 提示 Text1(1) = Text1(2) = Text1(1).SetFocus Exit Sub End If End If txtSQL = select * from user_Form where user_ID= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 此用户名已经存在!, vbOKOnly, 警告

18、Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Now mrc.Update mrc.Close For i = 0 To 2 Text1(i) = Next MsgBox 用户信息添加成功!, vbOKOnly, 提示 ListappEnd

19、SubPrivate Sub Command2_Click() Text1(0) = Text1(1) = Text1(2) = End SubPrivate Sub Command3_Click() Dim txtSQL As String If Text1(3) = Then MsgBox 请你选择用户名称!, vbOKOnly, 提示 List1.SetFocus Exit Sub End If If Text1(4) = Then MsgBox 修改密码要旧密码!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If If Text1(5) =

20、 Then MsgBox 新的密码不能为空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 两次密码输入不同!, vbOKOnly, 提示 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End If txtSQL = select * from user_Form where user_ID= & Trim(Text1(3) & and user_PWD= & Trim(Text1(4) & Set mrc = Exe

21、cuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL = delete from user_Form where user_ID= & Trim(Text1(3) & Else MsgBox 用户密码输入错误!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddN

22、ew mrc.Fields(0) = Trim(Text1(3) mrc.Fields(1) = Trim(Text1(5) mrc.Fields(2) = Now mrc.Update mrc.Close For i = 3 To 6 Text1(i) = Next MsgBox 用户信息修改成功!, vbOKOnly, 提示End SubPrivate Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = Text1(6) = End SubPrivate Sub Command5_Click() Dim txtSQL As Strin

23、g If Text1(7) = Then MsgBox 请你选择用户名称!, vbOKOnly, 提示 List1.SetFocus Exit Sub Else If Text1(7) = UserName Then MsgBox 不可以删除正在使用的用户!, vbOKOnly, 警告 Text1(7) = Text1(8) = List1.SetFocus Exit Sub End If End If If Text1(8) = Then MsgBox 删除用户需要密码!, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If txtSQL = sel

24、ect * from user_Form where user_ID= & Trim(Text1(7) & and user_PWD= & Trim(Text1(8) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL = delete from user_Form where user_ID= & Trim(Text1(7) & Else MsgBox 用户密码输入错误!, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If Set mrc = ExecuteS

25、QL(txtSQL, MsgText) Text1(7) = Text1(8) = MsgBox 用户信息已经删除!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command6_Click() Text1(7) = Text1(8) = End SubPrivate Sub Form_Load() Me.Caption = 用户信息-添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Pictu

26、re1(2).Left = Picture1(0).Left Listapp For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = &HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Label2_Click(Index As Integer) Me.Caption = 用户信息 Me.Caption = Me.Caption & - & Trim(Label2(Index).Caption)

27、 For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible = True For i = 0 To 8 Text1(i) = NextEnd SubPrivate Sub Form_Resize() dColor.ZOrder 1End SubPrivate Sub Listapp() Dim txSQL As String Dim mrcc As ADODB.Recordset

28、 txSQL = select * from user_Form Set mrcc = ExecuteSQL(txSQL, MsgText) List1.Clear Do While Not mrcc.EOF List1.AddItem Trim(mrcc!user_ID) mrcc.MoveNext Loop mrcc.CloseEnd SubPrivate Sub List1_Click() If Picture1(1).Visible = True Then Text1(3) = List1.Text End If If Picture1(2).Visible = True Then T

29、ext1(7) = List1.Text End IfEnd SubPrivate Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub Picture1_Click(Index As Integer)End SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)End Sub5.3 班级信

30、息管理模块的创建：5.3.1功能介绍：按不同的条件对班级信息进行录入、查询、修改、以及删除。5.3.2视图：5.3.3实现代码：Dim mrc As ADODB.RecordsetDim MsgText As StringDim tSQL As StringPrivate Sub Command1_Click() If Text1(0) = Then MsgBox 班级编号不能为空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 班级名称不能为空!, vbOKOnly, 提示 Text1(1)

31、.SetFocus Exit Sub End If If Text1(2) = Then MsgBox 导员姓名不能为空!, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txtSQL = select * from class_Form where class_NO= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 此班级编号已存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub En

32、d If mrc.Close txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Trim(Text1(2) mrc.Fields(3) = Trim(Text1(3) mrc.Update mrc.Close For i = 0 To 3 Text1(i) = Next MsgBox 班级信息添加成功!, vbOKOnly, 提示

33、 ShowDataEnd SubPrivate Sub Command2_Click() For i = 0 To 3 Text1(i) = NextEnd SubPrivate Sub Command3_Click() If Text1(5) = Then MsgBox 班级名称不能为空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub End If If Text1(6) = Then MsgBox 导员姓名不能为空!, vbOKOnly, 提示 Text1(6).SetFocus Exit Sub End If txtSQL = delete from

34、class_Form where class_NO= & Trim(Text1(4) & Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(4) mrc.Fields(1) = Trim(Text1(5) mrc.Fields(2) = Trim(Text1(6) mrc.Fields(3) = Trim(Text1(7) mrc.Update mrc

35、.Close For i = 4 To 7 Text1(i) = Next MsgBox 班级信息修改成功!, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub Command4_Click() For i = 4 To 7 Text1(i) = NextEnd SubPrivate Sub Command5_Click() txtSQL = delete from class_Form where class_NO= & Trim(Text1(8) & Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 8 To 11 T

36、ext1(i) = Next MsgBox 班级信息以经删除!, vbOKOnly, 警告 ShowDataEnd SubPrivate Sub Command6_Click() For i = 8 To 11 Text1(i) = NextEnd SubPrivate Sub Form_Load() Me.Caption = 班级信息-添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Pic

37、ture1(0).Left ShowData For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = &HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Form_Resize() dColor.ZOrder 1End SubPrivate Sub Label2_Click(Index As Integer) Me.Caption = 班级信息 Me.Caption = Me.Caption &

38、 - & Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible = True For i = 0 To 11 Text1(i) = Next Command3.Enabled = False Command5.Enabled = FalseEnd SubPrivate Sub ShowData() Dim txSQL As String Dim mrcc As ADODB.R