期末作业管理信息系统案例分析Word下载.docx

1、2 项目概述2.1系统开发前提这是一个图书管理系统，主要负责图书的采购信息存档、对图书信息的查询及编辑、对学生相关信息的管理、对借阅书本情况的管理；2.2系统开发的基本目标A.由于原先图书管理采用的人工系统，浪费人力物力财力，图书管理系统可以改善这种情况，只需一台电脑和一个管理员老师就能轻松完成。 B.提高对新书入库、借阅图书以及学生信心管理的速度。 C.减少人力的投入的同时提高了信息处理的精度和准确度，在输入无误的基础上可保证数据的正确性。 D.改进了管理服务的质量，可由系统对入库图书进行自动分类、归类，学生信息整理、借阅情况登记入档。 E.改进人员的利用率，减少了前台操作人员，更多的人员可

2、用于为借阅者服务、更新采购图书等其他事物，节省人力资源。2.3 经济目标节省人力，物力的开支，从而达到一人一台电脑就能完成图书管理。2.4 社会目标采取的是人工方式，相对而言耗时大，效率低。而根据现有的硬件条件以及工作制度，在办公室中，管理学籍的老师都配备电脑。而且电脑的系统软件都是WINDOWS2000 以上的，所以足够可以来运行我们的软件；从学院老师们的文化素质来看，我们的软件操作简单，运行方便。2.5 开发规模该系统软件开发总人数：8辅导老师：任东华组长：冯昊程序分析：全体开发人员2.6系统流程客户端程序流程图3 可行性研究的方法及评价度3.1 经济可行性目标系统开发需求比较低，加上具有

3、成熟的软硬件环境，所以在软硬件的支出上十分有限。而且，目标系统并不是十分的复杂，开发的周期较短，人员经济支出有限。当系统开发完实际运行后，将很大程度上提高计算机的功能，在为使用者带来便利的同时，也为系统的进一步推广创造了条件。这带来的经济回报将远超过支出，并且最重要的一点是该软件的开发可以给我们对系统的开发有个全面的认识。从经济角度考虑，此信息系统开发可行。3.2 技术可行性就技术力量来说，我们小组可以完成此次开发工作。开发过程中会出现许多问题，有我们预想之中的，也有一些没有我们预想到，但，我们有信心克服一切困难。该学期，我们小组各成员已经学习了SQL SERVER，对网络技术和操作系统也有系

4、统的了解，有些成员熟悉计算机原理，能解决常见的硬件故障和硬件选择。目前，图书管理信息系统已得到了大量应用，有许多可供参考的成功系统。而且，网上有许多关于VISUL BASIC编程的资料和SQL SERVER方面的资料。 从技术角度考虑，此信息系统开发可行3.3 法律可行性由于是自行开发，自行使用，所以系统本身不存在法律上的版权争议。在服务器软件方面，应该使用正版软件，如果不是正版软件，将不得不面临民事诉讼的风险。4 可行性分析结论 根据以上的可行性研究，我们小组认为开发此系统的条件已经具备，可以开始进行开发5 软件分析（1）. 由于原先图书管理采用的人工系统，浪费人力物力财力，图书管理系统可以

5、改善这种情况，只需一台电脑和一个管理员老师就能轻松完成。 （2）. 提高对新书入库、借阅图书以及学生信心管理的速度。 （3）. 减少人力的投入的同时提高了信息处理的精度和准确度，在输入无误的基础上可保证数据的正确性。 （4）. 改进了管理服务的质量，可由系统对入库图书进行自动分类、归类，学生信息整理、借阅情况登记入档。 （5）. 改进人员的利用率，减少了前台操作人员，更多的人员可用于为借阅者服务、更新采购图书等其他事物，节省人力资源。5.1 硬件需求（1）服务器最低配置：Pentium 4 2.4 GHZ内存256MB以上硬盘 30GB以上。（2）客户端最低配置：Pentium 3 633MH

6、Z 内存256MB以上硬盘 30GB以上5.2 软件需求 系统：Windows2000或Windows XP，Visual Basic 6.0 数据库：Access（Office2000或Office2003）5.3 功能需求（1）网络连接模块：用于连接服务器。（2）图书借阅管理模块：用于实现图书借阅信息的管理，包括借阅图书、归还图书、续借图书、缴纳罚款等功能（3）图书信息管理模块：管理图书资料，主要有图书类别管理、图书信息管理两部分，每部分都有查询、添加、维护等功能。（4）读者信息管理模块：用于实现读者资料数据的管理，主要包括查询读者信息、添加读者信息、删除读者信息、维护读者信息等功能。（5

7、）管理员信息管理模块：用于实现管理员资料数据的管理，主要包括查询管理员信息、添加管理员信息、删除管理员信息等功能。（6）数据统计模块：用于实现统计系统的基本数据，以便于系统的管理，主要包括图书借阅统计、未还图书统计、过期读者统计等功能。第二章模块结构管理员信息管理模块：（1）添加管理员：“Usr , 01 , Usr _ID ，Usr _Name”帧头“Usr”，类型号为01，接着是协议的具体内容, Usr_ID，Usr_Name要添加的管理员相关信息。（2）删除管理员：“Usr , 02 , Usr _ID”帧头“Usr”，类型号为02，接着是协议的具体内容, 只有Usr_ID一项 ，是需要

8、删除的管理员ID。（3）查询管理员：“Usr , 03 , Usr _ID”帧头“Usr”，类型号为03，接着是协议的具体内容, 只有Usr_ID一项 ，是需要查询的管理员ID关键字。第三章数据库设计表结构设计，字段定义。数据关系模式：管理员资料数据表（管理员ID，管理员姓名，管理员密码，权限类型，备注）管理员资料数据表（User_Info）名称类型宽度用途索引Usr_ID文本管理员ID主索引Usr_Name20管理员姓名Usr_Pwd16管理员密码Usr_Type数字整型权限类型Usr_Remark255备注管理员资料数据表。管理员资料数据表记录了所有管理员的基本资料，管理员可添加、删除和查

9、询该表。该表包括管理员ID、姓名、密码和权限类型（系统管理员、高级管理员、普通管理员）等资料。第四章程序界面及编码一图书管理信息系统主窗体界面简介：管理员可以在主窗体上选择要操作的功能。此窗体属于功能一览的界面。图书管理系统登录界面登录界面的代码为：Private Sub mnuViewStatusBar_Click（） StatusBar1.Visible = True - StatusBar1.Visible mnuViewStatusBar.Checked = StatusBar1.VisibleEnd Sub菜单栏的点击事件Private Sub mnuViewToolbar_Clic

10、k（） Toolbar1.Visible = True - Toolbar1.Visible mnuViewToolbar.Checked = Toolbar1.Visible winsock的关闭Private Sub winsock_Close（） main.StatusBar1.Panels（1）.Text = 服务器连接状态：断开。 winsock的连接Private Sub winsock_Connect（）Dim str As String str = Cnn, & UserNow.ID & , UserNow.Pwd & winsock.LocalIP If main.winso

11、ck.State sckConnected Then MsgBox 还没有连接数据库，不能发送请求！ Exit Sub End If Me.winsock.SendData str MsgBox str winsock传递数据的数组Private Sub winsock_DataArrival（ByVal bytesTotal As Long）Dim StrArrival, a As String, StrGet（） As String, StrGet1（） As StringDim Start As IntegerDim i As Integer, j As Integer, k As In

12、tegerDim LtItm As ListItemDim ss As StringDim qq As StringDim ww As StringMe.winsock.GetData StrArrival, vbString If Len（StrArrival） 1 Then Exit Sub数组中数据的操作 StrGet（） = Split（StrArrival, , -1） Select Case StrGet（0） Case abc MsgBox StrGet（1）, , 服务器广播Usr Select Case StrGet（1）01响应添加管理员。 MsgBox StrGet（2）

13、, , 服务器响应02响应删除管理员。03 a = StrGet（2） If a = 超出权限！查询管理员信息失败！ Then ElseIf a = 该管理员不存在！查询管理员失败！ Else响应查询管理员。 usrquery.lvquery.ListItems.Clear For i = 0 To UBound（StrGet） - 2 StrGet1（） = Split（StrGet（i + 2）, / Set LtItm = usrquery.lvquery.ListItems.Add（） LtItm.Text = i + 1 LtItm.SubItems（1） = StrGet1（0）

14、LtItm.SubItems（2） = StrGet1（1） LtItm.SubItems（3） = StrGet1（2） LtItm.SubItems（4） = StrGet1（3） Next i04响应查询所有管理员。 End SelectCnn响应连接信息。 If StrGet（1） = 该管理员名不存在！请重新输入！ Me.winsock.Close ElseIf StrGet（1） = 密码错误！显示管理员添加画面Private Sub Usr_Add_Click（） usradd.Show显示删除管理员画面Private Sub Usr_Delete_Click（） usrdel.

15、Show显示管理员查询画面Private Sub Usr_Query_Click（） usrquery.ShowPrivate Sub Toolbar1_ButtonClick（ByVal Button As MSComctlLib.Button）Select Case Button.Key系统的连接Sys_Cnn Call Sys_Connect_Click系统的退出Sys_Exit Call Sys_Exit_Click添加管理员Usr_Add Call Usr_Add_Click删除管理员Usr_Del Call Usr_Delete_Click管理员查询Usr_Query Call U

16、sr_Query_Click画面初期化事件Private Sub Form_Load（） Scale （-7.57, 5.2）-（2.4, -5） main.Caption = 图书馆管理系统客户端Private Sub Sys_Connect_Click（）cnn.Show退出系统事件Private Sub Sys_Exit_Click（） myexit = MsgBox（是否要退出程序？, vbYesNo, 退出） If myexit = vbYes Then End一客户端连接服务器的连接窗体此界面是客户端连接服务器的登陆窗体，管理员通过输入正确的ID和密码，等服务器验证通过后，画面迁移

17、到主窗体。连接服务器页面的代码为：Option Explicit取消连接事件Private Sub CmdCancel_Click（） Unload Me连接服务器事件Private Sub CmdCnn_Click（）用户ID为空的判断If Len（Trim（Me.Text1.Text） 16 Then您输入的用户ID过长！Else UserNow.ID = Trim（Me.Text1.Text）End If密码为空的判断If Len（Trim（Me.Text2.Text） 您输入的密码过长！ UserNow.Pwd = Trim（Me.Text2.Text）IP地址的判断If Len（Tr

18、im（Me.Text3.Text） 15 Then您输入的IP地址过长！ElseIf Len（Trim（Me.Text3.Text） 7 Then您输入的IP地址过短！ winsock的设置 main.winsock.RemoteHost = Trim（Me.Text3.Text） main.winsock.RemotePort = 12345 main.winsock.Connect设置连接后状态条的显示信息main.StatusBar1.Panels（1）.Text = 正在连接画面的关闭Unload Me页面加载事件 winsock的状态判断If main.winsock.State s

19、ckClosed Then关闭winsock的连接 main.winsock.Close管理员信息登陆画面管理员信息登陆画面的代码为：管理员信息添加事件Private Sub CmdAddOk_Click（）管理员ID为空的判断If Len（Trim（Me.TextID.Text） 您输入的管理员ID过长！管理员姓名为空的判断If Len（Trim（Me.TextName.Text） 20 Then您输入的姓名过长！密码为空过的判断If Len（Trim（Me.TextAddPwd1.Text） MsgBox 您输入密码过长！密码和确认密码不一致的判断If Trim（Me.TextAddPwd

20、1.Text） Trim（Me.TextAddPwd2.Text） Then两次输入的密码不一致！str = Usr,01,str = str & Me.TextID.Text & Me.TextName.Text & Me.TextAddPwd1.Text & Val（Me.CbType.Text） & Me.useremark.Text winsock状态的判断数据向服务器的传送main.winsock.SendData str关闭窗体退出窗体的事件页面加载的事件退出过程 main.winsock.SendData str管理员信息删除画面（下图）管理员信息删除画面的代码为：关闭窗体的操作Unload