毕业设计（论文）学生信息管理系统设计.doc

题目：学生信息管理系统任务与要求： 毕业设计（论文）应把培养人放在首位，它的基本任务是培养学生综合运用所学的基本理论、基本知识和基本技能，分析解决实际问题的能力，帮助学生建立正确的设计思想和严谨的科学作风，进一步提高写作水平和使用计算机的能力。通过毕业设计（论文）使学生受到专业技术人才所必须的综合训练和独立工作能力的培养。时间： 年月日 至 年 月 日 共 周学生姓名： 学 号： 专业： 指导教师： 年月日毕业设计(论文)进度计划表日 期工 作 内 容执 行 情 况指导教师签 字10月30日-11月10日准备11月10日-11月12日 对界面进行布局11.12-11.15开始构思图书管理系统的窗体11.15-11.17制作图书管理系统的数据库和窗体连接11.17.11.20完成图书管理系统的窗体和功能及进度11.20-12.15调节图书学生管理系统，美化界面，进行毕业论文的撰写12.15以后提交审核 教师对进度计划实施情况总评 签名 年 月 日 目录摘要 1摘要：系统概述 3系统分析与设计 4应用背景 数据库需求分析 5（1）图书信息（数据项）：（2）读者类别（数据项）：（3）读者信息（数据项）：（4）借阅信息（数据项）：（5）图书类别（数据项）：（6）用户表（数据项）：完成的功能上主要有： 5系统功能分析数据流程图： 6数据字典 6数据结构和数据项字典 7数据流字典 借书系统：界面及程序代码主界面登陆界面：frmLoad 8查询图书信息界面：frmMain 9添加图书 13删除图书 14图书信息管理，添加删除 15读者信息添加 19读者信息查询 22添加借书信息 24社定用户 27更改密码 28报表界面 30结论 34感想 参考文献 34 摘要：系统概述图书馆管理系统是一些单位不可缺少的部分,书籍是人类不可缺少的精神食粮，尤其对一些学校来说，尤其重要。所以图书馆管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理图书、期刊、试卷合订本等，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对图书资源信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套图书馆管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。图书馆管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强.数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析如此情况,我们使用微软公司的VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。系统分析与设计应用背景图书馆是高等院校的重要组成部门，是教师和学生获取知识的重要场所。由于图书馆主要从事大量的图书资料的储存和流通。所以一直以来，计算机在图书馆的图书管理中得到了广泛的应用。目前，本单位教师较多,借科技书籍情况日益增长。本系统就是要达到对教师人员借科技书籍的日常管理,能快速完成,并对信息进行数据库管理的目的。为了适应本系小型图书馆业务发展的需要，解决问题。经过考察比较，决定利用自己的力量对本单位的小型图书管理系统进行重新改造。使新系统不仅能利用当前的软件开发技术和校园网建设成果，方便读者查询、借阅操作，解决流通中存在的问题。而且，能结合本单位资金投入有限、图书需求量大等特点，对图书管理中各业务环节的加强管理。所以系统在实现时，实现传统的验收、编目、典藏、流通和管理等环节。数据库需求分析 用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典。 针对一般图书管理系统的需求，通过对学生学习过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：（1）图书信息（数据项）：编号、书名、作者、是否借出、类别、登记日期（2）读者类别（数据项）：种类名称、借书数量、借书期限、有限期限（3）读者信息（数据项）：编号、姓名、性别、读者类别、电话号码、登记日期、联系电话、已借书数量（4）借阅信息（数据项）：读者编号、借阅编号、读者姓名、书籍编号、书籍名称、出借日期、还书日期（5）图书类别（数据项）：类别名称、类别编号（6）用户表（数据项）：帐号、密码、系统功能分析系统开发的总体任务是实现图书信息关系的系统化、规范化和自动化。 系统功能分析是在系统开发的总体任务的基础上完成的。本系统中的图书管理系统需要完成的功能上主要有： （1）图书信息的输入：包括图书的编号、书名、作者、类别、是否借出等。 （2）图书信息的查询，包括查询图书的信息等。（3）借书卡信息的修改：可修改密码、联系电话等。数据流程图：图书馆图书馆管理系统查询条件图书信息读者信息所借书编号借书者编号借书日期所还书编号数据字典数据字典是系统中各类数据描述的集合，使进行详细的数据收集和数据分析所获得的主要成果。数据字典是在需求分析时建立，在数据库设计过程中不断修改、充实、完善的。数据字典通常包括数据项、数据结构、数据流、数据存储、处理过程五部分。其中数据项是数据的最小组成单位，若干个数据项可以组成一个数据结构，数据字典通过对数据项和数据结构的定义来描述数据流、数据存储的逻辑内容。（1）.数据结构和数据项字典图书信息表:本表主要用于存储图书信息, 字段名数据类型可否为空说明编号 CHAR(10)NOT NULL主键（唯一标识） 书名 CHAR(20)NOT NULL 作者CHAR(10)NOT NULL 是否借出CHAR(2)NOT NULL默认否（是，否） 类别CHAR(10)NOT NULL （2）.数据流字典名称说明位置定义登陆验证验证ID号，合法用户可以登陆 管理员登陆处理1登陆验证=用户名+密码验证结果是否为合法用户，并验证以何种身份进入窗口登陆处理1 管理员登陆处理2工作人员验证结果=登陆成功 / 无此用户名/ 密码错误查询信息管理员和工作员可查看所有情况基本信息图书信息图书信息维护图书信息 /读者信息查询信息= 查询所有信息添加信息只有管理员才能进行添加信息图书信息维护图书信息 工作员信息维护工作员信息添加信息= 添加图书信息/读者信息修改信息只有管理员才能进行修改借书人员信息图书信息维护图书信息 工作员信息维护工作员信息修改信息=修改图书信息 删除信息只有管理员才能进行删除信息图书信息维护图书信息 删除信息=删除图书信息 借书系统：工作人员登陆NY查看个人信息修改部分个人信息全部信息电话号码及其他信息界面及程序代码主界面登陆界面：frmLoad代码：Option ExplicitDim cnt As Integer '记录确定次数Private Sub cmdCancle_Click() Unload MeSubEnd Private Sub cmdOK_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "database.mdb" If Trim(Text1.Text) = "" Then MsgBox "用户名不能为空，请重新输入！" Text1.SetFocus Else sql = "select * from 用户表 where user_ID='" & Trim(Text1.Text) & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, "" Text1.Text = "" Text1.SetFocus Else username = Text1.Text If Trim(rs_login.Fields(1) = Trim(Text2.Text) Then Unload Me frmMain.Show Else MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, "" Text2.SetFocus Text2.Text = "" End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End IfEnd SubPrivate Sub Form_Load()cnt = 0End SubPrivate Sub Label3_Click()End Sub查询图书信息界面：frmMain代码：Private Sub cxdz_Click() frmfindreaderinfo.ShowEnd SubPrivate Sub cxjx_Click() frmfindborrowinfo.ShowEnd SubPrivate Sub cxtx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 2 StatusBar1.Panels.Add Next i With StatusBar1.Panels .Item(1).Style = sbrDate .Item(2).Style = sbrTime .Item(3).Text = "版权所有!" End WithEnd SubPrivate Sub scdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub scdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub scts_Click() frmmodifystyle.ShowEnd SubPrivate Sub sctx_Click() frmmodifybookinfo.ShowEnd SubPrivate Sub tjdx_Click() frmaddreaderinfo.ShowEnd SubPrivate Sub tjdz_Click() frmaddreaderstyle.ShowEnd SubPrivate Sub tjgy_Click() frmadduser.ShowEnd SubPrivate Sub tjhx_Click() frmbackbookinfo.ShowEnd SubPrivate Sub tjjx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub tjts_Click() frmaddbookstyle.ShowEnd SubPrivate Sub tjtx_Click() frmaddbookinfo.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "tsxx" ' Load frmfindbookinfo frmfindbookinfo.Show vbModal Case "dzxx" '资料 Load frmfindreaderinfo frmfindreaderinfo.Show vbModal Case "backup" Load frmsavedata frmsavedata.Show vbModal Case "clean" Load frmclean frmclean.Show vbModal End SelectEnd SubPrivate Sub xgdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub xgdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub xgmm_Click() frmmodifymima.ShowEnd SubPrivate Sub xgtu_Click() frmmodifystyle.ShowEnd SubPrivate Sub xgtx_Click() frmmodifybookinfo.ShowEnd SubPrivate Sub zx_Click()End Sub进入图书管理图书类别管理添加图书类别进入图书管理图书类别管理修改添加图书类别进入图书管理图书类别管理删除添加图书类别是一个窗体执行两个项目添加图书类别代码：Private Sub cxdz_Click() frmfindreaderinfo.ShowEnd SubPrivate Sub cxjx_Click() frmfindborrowinfo.ShowEnd SubPrivate Sub cxtx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 2 StatusBar1.Panels.Add Next i With StatusBar1.Panels .Item(1).Style = sbrDate .Item(2).Style = sbrTime .Item(3).Text = "版权所有!" End WithEnd SubPrivate Sub scdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub scdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub scts_Click() frmmodifystyle.ShowEnd SubPrivate Sub sctx_Click() frmmodifybookinfo.ShowEnd Sub删除图书类别代码：Private Sub cxdz_Click() frmfindreaderinfo.ShowEnd SubPrivate Sub cxjx_Click() frmfindborrowinfo.ShowEnd SubPrivate Sub cxtx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 2 StatusBar1.Panels.Add Next i With StatusBar1.Panels .Item(1).Style = sbrDate .Item(2).Style = sbrTime .Item(3).Text = "版权所有!" End WithEnd SubPrivate Sub scdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub scdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub scts_Click() frmmodifystyle.ShowEnd SubPrivate Sub sctx_Click() frmmodifybookinfo.ShowEnd Sub图书信息管理，添加删除Private Sub cxdz_Click() frmfindreaderinfo.ShowEnd SubPrivate Sub cxjx_Click() frmfindborrowinfo.ShowEnd SubPrivate Sub cxtx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 2 StatusBar1.Panels.Add Next i With StatusBar1.Panels .Item(1).Style = sbrDate .Item(2).Style = sbrTime .Item(3).Text = "版权所有!" End WithEnd SubPrivate Sub scdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub scdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub scts_Click() frmmodifystyle.ShowEnd SubPrivate Sub sctx_Click() frmmodifybookinfo.ShowEnd SubPrivate Sub tjdx_Click() frmaddreaderinfo.ShowEnd SubPrivate Sub tjdz_Click() frmaddreaderstyle.ShowEnd SubPrivate Sub tjgy_Click() frmadduser.ShowEnd SubPrivate Sub tjhx_Click() frmbackbookinfo.ShowEnd SubPrivate Sub tjjx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub tjts_Click() frmaddbookstyle.ShowEnd SubPrivate Sub tjtx_Click() frmaddbookinfo.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "tsxx" ' Load frmfindbookinfo frmfindbookinfo.Show vbModal Case "dzxx" '资料 Load frmfindreaderinfo frmfindreaderinfo.Show vbModal Case "backup" Load frmsavedata frmsavedata.Show vbModal Case "clean" Load frmclean frmclean.Show vbModal End SelectEnd SubPrivate Sub xgdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub xgdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub xgmm_Click() frmmodifymima.ShowEnd SubPrivate Sub xgtu_Click() frmmodifystyle.ShowEnd SubPrivate Sub xgtx_Click() frmmodifybookinfo.ShowEnd SubPrivate Sub zx_Click()End Sub删除Private Sub cxdz_Click() frmfindreaderinfo.ShowEnd SubPrivate Sub cxjx_Click() frmfindborrowinfo.ShowEnd SubPrivate Sub cxtx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 2 StatusBar1.Panels.Add Next i With StatusBar1.Panels .Item(1).Style = sbrDate .Item(2).Style = sbrTime .Item(3).Text = "版权所有!" End WithEnd SubPrivate Sub scdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub scdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub scts_Click() frmmodifystyle.ShowEnd SubPrivate Sub sctx_Click() frmmodifybookinfo.ShowEnd Sub读者信息添加Private Sub cxdz_Click() frmfindreaderinfo.ShowEnd SubPrivate Sub cxjx_Click() frmfindborrowinfo.ShowEnd SubPrivate Sub cxtx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 2 StatusBar1.Panels.Add Next i With StatusBar1.Panels .Item(1).Style = sbrDate .Item(2).Style = sbrTime .Item(3).Text = "版权所有!" End WithEnd SubPrivate Sub scdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub scdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub scts_Click() frmmodifystyle.ShowEnd SubPrivate Sub sctx_Click() frmmodifybookinfo.ShowEnd Sub读者信息删除读者信息查询Private Sub cxdz_Click() frmfindreaderinfo.ShowEnd SubPrivate Sub cxjx_Click() frmfindborrowinfo.ShowEnd SubPrivate Sub cxtx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 2 StatusBar1.Panels.Add Next i With StatusBar1.Panels .Item(1).Style = sbrDate .Item(2).Style = sbrTime .Item(3).Text = "版权所有!" End WithEnd SubPrivate Sub scdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub scdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub scts_Click() frmmodifystyle.ShowEnd SubPrivate Sub sctx_Click() frmmodifybookinfo.ShowEnd SubPrivate Sub tjdx_Click() frmaddreaderinfo.ShowEnd SubPrivate Sub tjdz_Click() frmaddreaderstyle.ShowEnd SubPrivate Sub tjgy_Click() frmadduser.ShowEnd SubPrivate Sub tjhx_Click() frmbackbookinfo.ShowEnd SubPrivate Sub tjjx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub tjts_Click() frmaddbookstyle.ShowEnd SubPrivate Sub tjtx_Click() frmaddbookinfo.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "tsxx" ' Load frmfindbookinfo frmfindbookinfo.Show vbModal Case "dzxx" '资料 Load frmfindreaderinfo frmfindreaderinfo.Show vbModal Case "backup" Load frmsavedata frmsavedata.Show vbModal Case "clean" Load frmclean frmclean.Show vbModal End SelectEnd SubPrivate Sub xgdx_Click() frmmodifyreaderinfo.ShowEnd SubPrivate Sub xgdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub xgmm_Click() frmmodifymima.ShowEnd SubPrivate Sub xgtu_Click() frmmodifystyle.ShowEnd SubPrivate Sub xgtx_Click() frmmodifybookinfo.ShowEnd SubPrivate Sub zx_Click()End Sub添加借书信息Private Sub