没用管理信息系统上机实验报告

1、. . . . 信息系统开发与管理实验报告学 期：_专 业：_姓 名：_指导教师：_第一章图示管理系统的系统分析31.前言31.1 编写目的31.2 背景31.3 参考资料32 项目概述32.1系统开发前提32.2 系统开发的基本目标32.3 经济目标32.4 社会目标32.5 开发规模42.6系统流程43 可行性研究的方法与评价度44 软件分析45 软件技术分析55.1 设计目标55.2 设计条件55.3 软件基本工作原理56.软件的功能56.1 设备的要求56.2 对运行过程的影响56.3 技术方面的可行性57 可行性综合分析58可行性结论5第二章模块结构6第三章数据库设计7第四章程序界面

2、与编码8第五章测试报告10第一章 图书管理系统分析1. 前言本系统结构分为读者信息管理模块，书籍信息管理模块，借阅信息管理模块，管理者信息管理模块。读者信息管理部分有两方面的功能，可以浏览读者的信息，可以对读者信息进行维护。书籍信息管理可以浏览书籍的信息，可以对书籍信息进行维护。借阅信息管理可以显示当前数据库中书籍借阅情况，可以对借阅信息进行维护。管理者信息管理可以显示数据库中管理者的情况，可以对管理者信息进行维护。可见，本系统并不复杂，主要解决的问题是利用关键字对数据库进行查询。编写目的系统开发的总的设计目标是实现图书管理的系统化、规化和自动化，实现对图书资料的集中统一的管理。1.2 背景近

3、年来，随着图书馆规模的不断扩大，图书数量也相应的增加，有关图书的各种信息量也成倍增加，面对着庞大的信息量，传统的人工方式管理会导致图书馆管理上的混乱，人力与物力过多浪费，图书馆管理费用的增加，从而使图书馆的负担过重，影响整个图书馆的运作和控制管理，因此，必须制定一套合理、有效，规和实用的图书管理系统，对图书资料进行集中统一的管理。 另一方面，IT产业和Internet获得了飞速发展，计算机应用已渗透到了各个领域，引起信息管理的革命，实现了信息的自动化处理，提高了处理的与时性和正确性。 图书管理工作面对大量的可模块化处理的信息，是当今信息革命的一个重要阵地。我们小组开发图书管理信息系统就是采用现

4、代化的信息管理方式代替手工管理方式，提高图书管理工作效率，作到信息的规管理，科学统计和快速查询，让图书馆更好的为学校，社会服务。（1）产品名称：图书管理系统（2）任务提出者：电视大学（3）产品开发：第三开发小组（4）产品用户：图书管理人员（5）产品所有权：田亮1.3参考资料 （1）VISUL BASIC 可视化编程（2）VISUL BASIC 程序设计（3）信息系统开发案例分析与课程设计2 项目概述2.1系统开发前提这是一个图书管理系统，主要负责图书的采购信息存档、对图书信息的查询与编辑、对学生相关信息的管理、对借阅书本情况的管理；2.2系统开发的基本目标A.由于原先图书管理采用的人工系统，浪

5、费人力物力财力，图书管理系统可以改善这种情况，只需一台电脑和一个管理员老师就能轻松完成。 B.提高对新书入库、借阅图书以与学生信心管理的速度。 C.减少人力的投入的同时提高了信息处理的精度和准确度，在输入无误的基础上可保证数据的正确性。 D.改进了管理服务的质量，可由系统对入库图书进行自动分类、归类，学生信息整理、借阅情况登记入档。 E.改进人员的利用率，减少了前台操作人员，更多的人员可用于为借阅者服务、更新采购图书等其他事物，节省人力资源。2.3经济目标节省人力，物力的开支，从而达到一人一台电脑就能完成图书管理。2.4 社会目标采取的是人工方式，相对而言耗时大，效率低。而根据现有的硬件条件以

6、与工作制度，在办公室中，管理学籍的老师都配备电脑。而且电脑的系统软件都是WINDOWS2000 以上的，所以足够可以来运行我们的软件；从学院老师们的文化素质来看，我们的软件操作简单，运行方便。2.5 开发规模该系统软件开发总人数：辅导老师：组长：程序分析：全体开发人员2.6系统流程是开始连接服务器发送登陆信息成功？选择操作类型图书借阅管理图书信息管理读者信息管理管理员信息管理数据统计管理网络连接管理得到返回结果退出？结束否是否客户端程序流程图3 可行性研究的方法与评价度3.1 经济可行性目标系统开发需求比较低，加上具有成熟的软硬件环境，所以在软硬件的支出上十分有限。而且，目标系统并不是十分的复

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

8、理信息系统已得到了大量应用，有许多可供参考的成功系统。而且，网上有许多关于VISUL BASIC编程的资料和SQL SERVER方面的资料。 从技术角度考虑，此信息系统开发可行3.3 法律可行性由于是自行开发，自行使用，所以系统本身不存在法律上的争议。在服务器软件方面，应该使用正版软件，如果不是正版软件，将不得不面临民事诉讼的风险。4 可行性分析结论根据以上的可行性研究，我们小组认为开发此系统的条件已经具备，可以开始进行开发5 软件分析（1）. 由于原先图书管理采用的人工系统，浪费人力物力财力，图书管理系统可以改善这种情况，只需一台电脑和一个管理员老师就能轻松完成。 （2）. 提高对新书入库、

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

10、ndows XP，Visual Basic 6.0 数据库：Access(Office2000或Office2003)5.3功能需求（1）网络连接模块：用于连接服务器。（2）图书借阅管理模块：用于实现图书借阅信息的管理，包括借阅图书、归还图书、续借图书、缴纳罚款等功能（3）图书信息管理模块：管理图书资料，主要有图书类别管理、图书信息管理两部分，每部分都有查询、添加、维护等功能。（4）读者信息管理模块：用于实现读者资料数据的管理，主要包括查询读者信息、添加读者信息、删除读者信息、维护读者信息等功能。（5）管理员信息管理模块：用于实现管理员资料数据的管理，主要包括查询管理员信息、添加管理员信息、删

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

12、, 02 , Usr _ID”帧头“Usr”，类型号为02，接着是协议的具体容,只有Usr_ID一项 ，是需要删除的管理员ID。（3）查询管理员：“Usr , 03 , Usr _ID”帧头“Usr”，类型号为03，接着是协议的具体容,只有Usr_ID一项 ，是需要查询的管理员ID关键字。权 限 管 理管 理 员 管 理 模 块图书馆管理系统客户端数 据 统 计 模 块管 理 员 管 理连 接 服 务 器添加管理员信息查询管理员信息删除管理员信息第三章 数据库设计表结构设计，字段定义。数据关系模式：管理员资料数据表（管理员ID，管理员，管理员密码，权限类型，备注）管理员资料数据表（User_I

13、nfo）名称类型宽度用途索引Usr_ID文本8管理员ID主索引Usr_Name文本20管理员Usr_Pwd文本16管理员密码Usr_Type数字整型权限类型Usr_Remark文本255备注管理员资料数据表。管理员资料数据表记录了所有管理员的基本资料，管理员可添加、删除和查询该表。该表包括管理员ID、密码和权限类型（系统管理员、高级管理员、普通管理员）等资料。第四章 程序界面与编码一 图书管理信息系统主窗体界面简介：管理员可以在主窗体上选择要操作的功能。此窗体属于功能一览的界面。图书管理系统登录界面登录界面的代码为：Private Sub mnuViewStatusBar_Click() St

14、atusBar1.Visible = True - StatusBar1.Visible mnuViewStatusBar.Checked = StatusBar1.VisibleEnd Sub'菜单栏的点击事件Private Sub mnuViewToolbar_Click() Toolbar1.Visible = True - Toolbar1.Visible mnuViewToolbar.Checked = Toolbar1.VisibleEnd Sub' winsock的关闭Private Sub winsock_Close() main.StatusBar1.Pane

15、ls(1).Text = "服务器连接状态：断开。"End Sub' winsock的连接Private Sub winsock_Connect()Dim str As String str = "Cnn," & UserNow.ID & "," & UserNow.Pwd & "," & winsock.LocalIP If main.winsock.State <> sckConnected Then MsgBox "还没有连接数据库，不能发

16、送请求！" Exit Sub End If Me.winsock.SendData str 'MsgBox strEnd Sub' 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 IntegerDim LtItm As ListI

17、temDim ss As StringDim 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), , "服务器广播" Case "Usr" Select Ca

18、se StrGet(1) Case "01" main.StatusBar1.Panels(1).Text = "服务器连接状态：响应添加管理员。" MsgBox StrGet(2), , "服务器响应" Case "02" main.StatusBar1.Panels(1).Text = "服务器连接状态：响应删除管理员。" MsgBox StrGet(2), , "服务器响应" Case "03" a = StrGet(2) If a = "

19、超出权限！查询管理员信息失败！" Then MsgBox StrGet(2), , "服务器响应" ElseIf a = "该管理员不存在！查询管理员失败！" Then MsgBox StrGet(2), , "服务器响应" Else main.StatusBar1.Panels(1).Text = "服务器连接状态：响应查询管理员。" usrquery.lvquery.ListItems.Clear For i = 0 To UBound(StrGet) - 2 StrGet1() = Split(St

20、rGet(i + 2), "/", -1) Set LtItm = usrquery.lvquery.ListItems.Add() LtItm.Text = i + 1 LtItm.SubItems(1) = StrGet1(0) LtItm.SubItems(2) = StrGet1(1) LtItm.SubItems(3) = StrGet1(2) LtItm.SubItems(4) = StrGet1(3) Next i End If Case "04" a = StrGet(2) If a = "超出权限！查询管理员信息失败！&quo

21、t; Then MsgBox StrGet(2), , "服务器响应" Else main.StatusBar1.Panels(1).Text = "服务器连接状态：响应查询所有管理员。" usrquery.lvquery.ListItems.Clear For i = 0 To UBound(StrGet) - 2 StrGet1() = Split(StrGet(i + 2), "/", -1) Set LtItm = usrquery.lvquery.ListItems.Add() LtItm.Text = i + 1 LtIt

22、m.SubItems(1) = StrGet1(0) LtItm.SubItems(2) = StrGet1(1) LtItm.SubItems(3) = StrGet1(2) LtItm.SubItems(4) = StrGet1(3) Next i End If End Select Case "Cnn" main.StatusBar1.Panels(1).Text = "服务器连接状态：响应连接信息。" MsgBox StrGet(1), , "服务器响应" If StrGet(1) = "该管理员名不存在！请重新输入

23、！" Then Me.winsock.Close ElseIf StrGet(1) = "密码错误！请重新输入！" Then Me.winsock.Close End If End SelectEnd Sub'显示管理员添加画面Private Sub Usr_Add_Click() usradd.ShowEnd Sub'显示删除管理员画面Private Sub Usr_Delete_Click() usrdel.ShowEnd Sub'显示管理员查询画面Private Sub Usr_Query_Click() usrquery.ShowE

24、nd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key'系统的连接 Case "Sys_Cnn" Call Sys_Connect_Click'系统的退出 Case "Sys_Exit" Call Sys_Exit_Click'添加管理员 Case "Usr_Add" Call Usr_Add_Click'删除管理员 Case "Usr_Del"

25、Call Usr_Delete_Click'管理员查询 Case "Usr_Query" Call Usr_Query_Click End SelectEnd Sub'画面初期化事件Private Sub Form_Load() Scale (-7.57, 5.2)-(2.4, -5) main.Caption = "图书馆管理系统客户端"End SubPrivate Sub Sys_Connect_Click()cnn.ShowEnd Sub'退出系统事件Private Sub Sys_Exit_Click() myexit =

26、 MsgBox("是否要退出程序？", vbYesNo, "退出") If myexit = vbYes Then EndEnd Sub二 客户端连接服务器的连接窗体界面简介：此界面是客户端连接服务器的登陆窗体，管理员通过输入正确的ID和密码，等服务器验证通过后，画面迁移到主窗体。连接服务器页面的代码为：Option Explicit'取消连接事件Private Sub CmdCancel_Click() Unload MeEnd Sub'连接服务器事件Private Sub CmdCnn_Click()'用户ID为空的判断If

27、Len(Trim(Me.Text1.Text) <= 0 Then MsgBox "请输入用户ID！" Exit SubElseIf Len(Trim(Me.Text1.Text) > 16 Then MsgBox "您输入的用户ID过长！" Exit SubElse UserNow.ID = Trim(Me.Text1.Text)End If'密码为空的判断If Len(Trim(Me.Text2.Text) <= 0 Then MsgBox "请输入密码！" Exit SubElseIf Len(Trim

28、(Me.Text2.Text) > 16 Then MsgBox "您输入的密码过长！" Exit SubElse UserNow.Pwd = Trim(Me.Text2.Text)End If'IP地址的判断If Len(Trim(Me.Text3.Text) <= 0 Then MsgBox "请输入服务器IP！" Exit SubElseIf Len(Trim(Me.Text3.Text) > 15 Then MsgBox "您输入的IP地址过长！" Exit SubElseIf Len(Trim(Me

29、.Text3.Text) < 7 Then MsgBox "您输入的IP地址过短！" Exit SubElse' winsock的设置 main.winsock.RemoteHost = Trim(Me.Text3.Text) main.winsock.RemotePort = 12345 main.winsock.Connect'设置连接后状态条的显示信息main.StatusBar1.Panels(1).Text = "服务器连接状态：正在连接"'画面的关闭Unload MeEnd IfEnd Sub'页面加载事

30、件Private Sub Form_Load()' winsock的状态判断If main.winsock.State <> sckClosed Then'关闭winsock的连接 main.winsock.CloseEnd IfEnd Sub管理员信息登陆画面管理员信息登陆画面的代码为：'管理员信息添加事件Private Sub CmdAddOk_Click()Dim str As String'管理员ID为空的判断If Len(Trim(Me.TextID.Text) <= 0 Then MsgBox "请输入管理员ID！&quo

31、t; Exit SubElseIf Len(Trim(Me.TextID.Text) > 16 Then MsgBox "您输入的管理员ID过长！" Exit SubEnd If'管理员为空的判断If Len(Trim(Me.TextName.Text) <= 0 Then MsgBox "请输入管理员！" Exit Sub'管理员长度的判断ElseIf Len(Trim(Me.TextName.Text) > 20 Then MsgBox "您输入的过长！" Exit SubEnd If'密

32、码为空过的判断If Len(Trim(Me.TextAddPwd1.Text) <= 0 Then MsgBox "请输入密码！" Exit Sub'密码长度的判断ElseIf Len(Trim(Me.TextAddPwd1.Text) > 16 Then MsgBox "您输入密码过长！" Exit SubEnd If'密码和确认密码不一致的判断If Trim(Me.TextAddPwd1.Text) <> Trim(Me.TextAddPwd2.Text) Then MsgBox "两次输入的密码不一

33、致！" Exit SubEnd Ifstr = "Usr,01,"str = str & Me.TextID.Text & ","str = str & Me.TextName.Text & ","str = str & Me.TextAddPwd1.Text & ","str = str & Val(Me.CbType.Text) & ","str = str & Me.useremark.Text' w

34、insock状态的判断If main.winsock.State <> sckConnected Then MsgBox "还没有连接数据库，不能发送请求！" Exit SubEnd If'数据向服务器的传送main.winsock.SendData str'关闭窗体Unload MeEnd Sub'退出窗体的事件Private Sub CmdCancel_Click() Unload MeEnd Sub'页面加载的事件Private Sub Form_Load()Dim str As String' winsock状态的

35、判断If main.winsock.State <> sckConnected Then MsgBox "还没有连接数据库，不能发送请求！" '退出过程 Exit Sub End If'数据向服务器的传送 main.winsock.SendData strEnd Sub管理员信息删除画面（下图）管理员信息删除画面的代码为：'关闭窗体的操作Private Sub CmdCancel_Click()'关闭窗体Unload MeEnd Sub'删除管理员的事件Private Sub CmdDel_Click()Dim str A

36、s String'管理员ID为空的判断If Len(Trim(Me.TextID.Text) <= 0 Then MsgBox "请输入管理员ID！" Exit SubElseIf Len(Trim(Me.TextID.Text) > 16 Then MsgBox "您输入的ID过长！" Exit SubEnd Ifstr = "Usr," & "02," & Me.TextID.Text' winsock状态的判断 If main.winsock.State <&

37、gt; sckConnected Then MsgBox "还没有连接数据库，不能发送请求！" Exit SubEnd If'向服务器传递数据main.winsock.SendData str'关闭窗体Unload MeEnd Sub'页面的加载事件Private Sub Form_Load()Dim str As String' winsock状态的判断If main.winsock.State <> sckConnected Then MsgBox "还没有连接数据库，不能发送请求！" Exit Sub End If'向服务器传递数据 main.winsock.SendData strEnd Sub管理员信息检索画面（下图）管理员信息删除画面的代码为：'窗体的关闭事件Private Sub CmdCancel_Click() '关闭窗体 Unload MeEnd Sub'管理员的查询事件Private Sub CmdQuery_Click()Dim str