管理信息系统上机实验报告.docx
《管理信息系统上机实验报告.docx》由会员分享，可在线阅读，更多相关《管理信息系统上机实验报告.docx（29页珍藏版）》请在冰豆网上搜索。
管理信息系统上机实验报告
个管理信息系统上机实验报告
题目图书管理系统系统分析
指导老师
专业
学号
姓名
2011年1月
第一章图书管理系统分析
1.前言
本系统结构分为读者信息管理模块，书籍信息管理模块，借阅信息管理模块，管理者信息管理模块。
读者信息管理部分有两方面的功能，可以浏览读者的信息，可以对读者信息进行维护。
书籍信息管理可以浏览书籍的信息，可以对书籍信息进行维护。
借阅信息管理可以显示当前数据库中书籍借阅情况，可以对借阅信息进行维护。
管理者信息管理可以显示数据库中管理者的情况，可以对管理者信息进行维护。
可见，本系统并不复杂，主要解决的问题是利用关键字对数据库进行查询。
编写目的
系统开发的总的设计目标是实现图书管理的系统化、规范化和自动化，实现对图书资料的集中统一的管理。
1.2背景
近年来，随着图书馆规模的不断扩大，图书数量也相应的增加，有关图书的各种信息量也成倍增加，面对着庞大的信息量，传统的人工方式管理会导致图书馆管理上的混乱，人力与物力过多浪费，图书馆管理费用的增加，从而使图书馆的负担过重，影响整个图书馆的运作和控制管理，因此，必须制定一套合理、有效，规范和实用的图书管理系统，对图书资料进行集中统一的管理。
另一方面，IT产业和Internet获得了飞速发展，计算机应用已渗透到了各个领域，引起信息管理的革命，实现了信息的自动化处理，提高了处理的及时性和正确性。
图书管理工作面对大量的可模块化处理的信息，是当今信息革命的一个重要阵地。
我们小组开发图书管理信息系统就是采用现代化的信息管理方式代替手工管理方式，提高图书管理工作效率，作到信息的规范管理，科学统计和快速查询，让图书馆更好的为学校，社会服务。
（1）产品名称：
图书管理系统
（2）任务提出者：
大连电视大学
（3）产品开发：
第三开发小组
（4）产品用户：
图书管理人员
（5）产品所有权：
田亮
1.3参考资料
（1）VISULBASIC可视化编程
（2）VISULBASIC程序设计
（3）信息系统开发案例分析与课程设计
2项目概述
2.1系统开发前提
这是一个图书管理系统，主要负责图书的采购信息存档、对图书信息的查询及编辑、对学生相关信息的管理、对借阅书本情况的管理；
2.2系统开发的基本目标
A.由于原先图书管理采用的人工系统，浪费人力物力财力，图书管理系统可以改善这种情况，只需一台电脑和一个管理员老师就能轻松完成。
B.提高对新书入库、借阅图书以及学生信心管理的速度。
C.减少人力的投入的同时提高了信息处理的精度和准确度，在输入无误的基础上可保证数据的正确性。
D.改进了管理服务的质量，可由系统对入库图书进行自动分类、归类，学生信息整理、借阅情况登记入档。
E.改进人员的利用率，减少了前台操作人员，更多的人员可用于为借阅者服务、更新采购图书等其他事物，节省人力资源。
。
2.3经济目标
节省人力，物力的开支，从而达到一人一台电脑就能完成图书管理。
2.4社会目标
采取的是人工方式，相对而言耗时大，效率低。
而根据现有的硬件条件以及工作制度，在办公室中，管理学籍的老师都配备电脑。
而且电脑的系统软件都是WINDOWS2000以上的，所以足够可以来运行我们的软件；从学院老师们的文化素质来看，我们的软件操作简单，运行方便。
2.5开发规模
该系统软件开发总人数：
辅导老师：
组长：
程序分析：
全体开发人员
2.6系统流程
客户端程序流程图
3可行性研究的方法及评价度
3.1经济可行性
目标系统开发需求比较低，加上具有成熟的软硬件环境，所以在软硬件的支出上十分有限。
而且，目标系统并不是十分的复杂，开发的周期较短，人员经济支出有限。
当系统开发完实际运行后，将很大程度上提高计算机的功能，在为使用者带来便利的同时，也为系统的进一步推广创造了条件。
这带来的经济回报将远超过支出，并且最重要的一点是该软件的开发可以给我们对系统的开发有个全面的认识。
从经济角度考虑，此信息系统开发可行。
3.2技术可行性
就技术力量来说，我们小组可以完成此次开发工作。
开发过程中会出现许多问题，有我们预想之中的，也有一些没有我们预想到，但，我们有信心克服一切困难。
该学期，我们小组各成员已经学习了SQLSERVER，对网络技术和操作系统也有系统的了解，有些成员熟悉计算机原理，能解决常见的硬件故障和硬件选择。
目前，图书管理信息系统已得到了大量应用，有许多可供参考的成功系统。
而且，网上有许多关于VISULBASIC编程的资料和SQLSERVER方面的资料。
从技术角度考虑，此信息系统开发可行
3.3法律可行性
由于是自行开发，自行使用，所以系统本身不存在法律上的版权争议。
在服务器软件方面，应该使用正版软件，如果不是正版软件，将不得不面临民事诉讼的风险。
4可行性分析结论
根据以上的可行性研究，我们小组认为开发此系统的条件已经具备，可以开始进行开发
5软件分析
（1）.由于原先图书管理采用的人工系统，浪费人力物力财力，图书管理系统可以改善这种情况，只需一台电脑和一个管理员老师就能轻松完成。
（2）.提高对新书入库、借阅图书以及学生信心管理的速度。
（3）.减少人力的投入的同时提高了信息处理的精度和准确度，在输入无误的基础上可保证数据的正确性。
（4）.改进了管理服务的质量，可由系统对入库图书进行自动分类、归类，学生信息整理、借阅情况登记入档。
（5）.改进人员的利用率，减少了前台操作人员，更多的人员可用于为借阅者服务、更新采购图书等其他事物，节省人力资源。
5.1硬件需求
（1）服务器最低配置：
Pentium42.4GHZ内存256MB以上
硬盘30GB以上。
（2）客户端最低配置：
Pentium3633MHZ内存256MB以上
硬盘30GB以上
5.2软件需求
系统：
Windows2000或WindowsXP，VisualBasic6.0
数据库：
Access（Office2000或Office2003）
5.3功能需求
（1）网络连接模块：
用于连接服务器。
（2）图书借阅管理模块：
用于实现图书借阅信息的管理，包括借阅图书、归还图书、续借图书、缴纳罚款等功能
（3）图书信息管理模块：
管理图书资料，主要有图书类别管理、图书信息管理两部分，每部分都有查询、添加、维护等功能。
（4）读者信息管理模块：
用于实现读者资料数据的管理，主要包括查询读者信息、添加读者信息、删除读者信息、维护读者信息等功能。
（5）管理员信息管理模块：
用于实现管理员资料数据的管理，主要包括查询管理员信息、添加管理员信息、删除管理员信息等功能。
（6）数据统计模块：
用于实现统计系统的基本数据，以便于系统的管理，主要包括图书借阅统计、未还图书统计、过期读者统计等功能。
第二章模块结构
管理员信息管理模块：
用于实现管理员资料数据的管理，主要包括查询管理员信息、添加管理员信息、删除管理员信息等功能。
（1）添加管理员：
“Usr,01,Usr_ID，Usr_Name……”
帧头“Usr”，类型号为01，接着是协议的具体内容,Usr_ID，Usr_Name……要添加的管理员相关信息。
（2）删除管理员：
“Usr,02,Usr_ID”帧头“Usr”，类型号为02，接着是协议的具体内容,只有Usr_ID一项，是需要删除的管理员ID。
（3）查询管理员：
“Usr,03,Usr_ID”帧头“Usr”，类型号为03，接着是协议的具体内容,只有Usr_ID一项，是需要查询的管理员ID关键字。
第三章数据库设计
表结构设计，字段定义。
数据关系模式：
管理员资料数据表（管理员ID，管理员姓名，管理员密码，权限类型，备注）
管理员资料数据表（User_Info）
名称
类型
宽度
用途
索引
Usr_ID
文本
8
管理员ID
主索引
Usr_Name
文本
20
管理员姓名
Usr_Pwd
文本
16
管理员密码
Usr_Type
数字
整型
权限类型
Usr_Remark
文本
255
备注
管理员资料数据表。
管理员资料数据表记录了所有管理员的基本资料，管理员可添加、删除和查询该表。
该表包括管理员ID、姓名、密码和权限类型（系统管理员、高级管理员、普通管理员）等资料。
第四章程序界面及编码
一．图书管理信息系统主窗体
界面简介：
管理员可以在主窗体上选择要操作的功能。
此窗体属于功能一览的界面。
图书管理系统登录界面
登录界面的代码为：
PrivateSubmnuViewStatusBar_Click（）
StatusBar1.Visible=True-StatusBar1.Visible
mnuViewStatusBar.Checked=StatusBar1.Visible
EndSub
'菜单栏的点击事件
PrivateSubmnuViewToolbar_Click（）
Toolbar1.Visible=True-Toolbar1.Visible
mnuViewToolbar.Checked=Toolbar1.Visible
EndSub
'winsock的关闭
PrivateSubwinsock_Close（）
main.StatusBar1.Panels
（1）.Text="服务器连接状态：
断开。
"
EndSub
'winsock的连接
PrivateSubwinsock_Connect（）
DimstrAsString
str="Cnn,"&UserNow.ID&","&UserNow.Pwd&","&winsock.LocalIP
Ifmain.winsock.State<>sckConnectedThen
MsgBox"还没有连接数据库，不能发送请求！
"
ExitSub
EndIf
Me.winsock.SendDatastr
'MsgBoxstr
EndSub
'winsock传递数据的数组
PrivateSubwinsock_DataArrival（ByValbytesTotalAsLong）
DimStrArrival,aAsString,StrGet（）AsString,StrGet1（）AsString
DimStartAsInteger
DimiAsInteger,jAsInteger,kAsInteger
DimLtItmAsListItem
DimssAsString
DimqqAsString
DimwwAsString
Me.winsock.GetDataStrArrival,vbString
IfLen（StrArrival）<1ThenExitSub
'数组中数据的操作
StrGet（）=Split（StrArrival,",",-1）
SelectCaseStrGet（0）
Case"abc"
MsgBoxStrGet
（1）,,"服务器广播"
Case"Usr"
SelectCaseStrGet
（1）
Case"01"
main.StatusBar1.Panels
（1）.Text="服务器连接状态：
响应添加管理员。
"
MsgBoxStrGet
（2）,,"服务器响应"
Case"02"
main.StatusBar1.Panels
（1）.Text="服务器连接状态：
响应删除管理员。
"
MsgBoxStrGet
（2）,,"服务器响应"
Case"03"
a=StrGet
（2）
Ifa="超出权限！
查询管理员信息失败！
"Then
MsgBoxStrGet
（2）,,"服务器响应"
ElseIfa="该管理员不存在！
查询管理员失败！
"Then
MsgBoxStrGet
（2）,,"服务器响应"
Else
main.StatusBar1.Panels
（1）.Text="服务器连接状态：
响应查询管理员。
"
usrquery.lvquery.ListItems.Clear
Fori=0ToUBound（StrGet）-2
StrGet1（）=Split（StrGet（i+2）,"/",-1）
SetLtItm=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）
Nexti
EndIf
Case"04"
a=StrGet
（2）
Ifa="超出权限！
查询管理员信息失败！
"Then
MsgBoxStrGet
（2）,,"服务器响应"
Else
main.StatusBar1.Panels
（1）.Text="服务器连接状态：
响应查询所有管理员。
"
usrquery.lvquery.ListItems.Clear
Fori=0ToUBound（StrGet）-2
StrGet1（）=Split（StrGet（i+2）,"/",-1）
SetLtItm=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）
Nexti
EndIf
EndSelect
Case"Cnn"
main.StatusBar1.Panels
（1）.Text="服务器连接状态：
响应连接信息。
"
MsgBoxStrGet
（1）,,"服务器响应"
IfStrGet
（1）="该管理员名不存在！
请重新输入！
"Then
Me.winsock.Close
ElseIfStrGet
（1）="密码错误！
请重新输入！
"Then
Me.winsock.Close
EndIf
EndSelect
EndSub
'显示管理员添加画面
PrivateSubUsr_Add_Click（）
usradd.Show
EndSub
'显示删除管理员画面
PrivateSubUsr_Delete_Click（）
usrdel.Show
EndSub
'显示管理员查询画面
PrivateSubUsr_Query_Click（）
usrquery.Show
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Key
'系统的连接
Case"Sys_Cnn"
CallSys_Connect_Click
'系统的退出
Case"Sys_Exit"
CallSys_Exit_Click
'添加管理员
Case"Usr_Add"
CallUsr_Add_Click
'删除管理员
Case"Usr_Del"
CallUsr_Delete_Click
'管理员查询
Case"Usr_Query"
CallUsr_Query_Click
EndSelect
EndSub
'画面初期化事件
PrivateSubForm_Load（）
Scale（-7.57,5.2）-（2.4,-5）
main.Caption="图书馆管理系统客户端"
EndSub
PrivateSubSys_Connect_Click（）
cnn.Show
EndSub
'退出系统事件
PrivateSubSys_Exit_Click（）
myexit=MsgBox（"是否要退出程序？
",vbYesNo,"退出"）
Ifmyexit=vbYesThenEnd
EndSub
二．客户端连接服务器的连接窗体
界面简介：
此界面是客户端连接服务器的登陆窗体，管理员通过输入正确的ID和密码，等服务器验证通过后，画面迁移到主窗体。
连接服务器页面的代码为：
OptionExplicit
'取消连接事件
PrivateSubCmdCancel_Click（）
UnloadMe
EndSub
'连接服务器事件
PrivateSubCmdCnn_Click（）
'用户ID为空的判断
IfLen（Trim（Me.Text1.Text））<=0Then
MsgBox"请输入用户ID！
"
ExitSub
ElseIfLen（Trim（Me.Text1.Text））>16Then
MsgBox"您输入的用户ID过长！
"
ExitSub
Else
UserNow.ID=Trim（Me.Text1.Text）
EndIf
'密码为空的判断
IfLen（Trim（Me.Text2.Text））<=0Then
MsgBox"请输入密码！
"
ExitSub
ElseIfLen（Trim（Me.Text2.Text））>16Then
MsgBox"您输入的密码过长！
"
ExitSub
Else
UserNow.Pwd=Trim（Me.Text2.Text）
EndIf
'IP地址的判断
IfLen（Trim（Me.Text3.Text））<=0Then
MsgBox"请输入服务器IP！
"
ExitSub
ElseIfLen（Trim（Me.Text3.Text））>15Then
MsgBox"您输入的IP地址过长！
"
ExitSub
ElseIfLen（Trim（Me.Text3.Text））<7Then
MsgBox"您输入的IP地址过短！
"
ExitSub
Else
'winsock的设置
main.winsock.RemoteHost=Trim（Me.Text3.Text）
main.winsock.RemotePort=12345
main.winsock.Connect
'设置连接后状态条的显示信息
main.StatusBar1.Panels
（1）.Text="服务器连接状态：
正在连接…"
'画面的关闭
UnloadMe
EndIf
EndSub
'页面加载事件
PrivateSubForm_Load（）
'winsock的状态判断
Ifmain.winsock.State<>sckClosedThen
'关闭winsock的连接
main.winsock.Close
EndIf
EndSub
管理员信息登陆画面
管理员信息登陆画面的代码为：
'管理员信息添加事件
PrivateSubCmdAddOk_Click（）
DimstrAsString
'管理员ID为空的判断
IfLen（Trim（Me.TextID.Text））<=0Then
MsgBox"请输入管理员ID！
"
ExitSub
ElseIfLen（Trim（Me.TextID.Text））>16Then
MsgBox"您输入的管理员ID过长！
"
ExitSub
EndIf
'管理员姓名为空的判断
IfLen（Trim（Me.TextName.Text））<=0Then
MsgBox"请输入管理员姓名！
"
ExitSub
'管理员姓名长度的判断
ElseIfLen（Trim（Me.TextName.Text））>20Then
MsgBox"您输入的姓名过长！
"
ExitSub
EndIf
'密码为空过的判断
IfLen（Trim（Me.TextAddPwd1.Text））<=0Then
MsgBox"请输入密码！
"
ExitSub
'密码长度的判断
ElseIfLen（Trim（Me.TextAddPwd1.Text））>16Then
MsgBox"您输入密码过长！
"
ExitSub
EndIf
'密码和确认密码不一致的判断
IfTrim（Me.TextAddPwd1.Text）<>Trim（Me.TextAddPwd2.Text）Then
MsgBox"两次输入的密码不一致！
"
ExitSub
EndIf
str="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
'winsock状态的判断
Ifmain.winsock.State<>sckConnectedThen
MsgBox"还没有连接数据库，不能发送请求！
"
ExitSub
EndIf
'数据向服务器的传送
main.winsock.SendDatastr
'关闭窗体
UnloadMe
EndSub
'退出窗体的事件
PrivateSubCmdCancel_Click（）
UnloadMe
EndSub
'页面加载的事件
PrivateSubForm_Load（）
DimstrAsString
'winsock状态的判断
Ifmain.winsock.State<>sckConnectedThen
MsgBox"还没有连接数据库，不能发送请求！
"
'退出过程
ExitSub
EndIf
'数据向服务器的传送
main.winsock.SendDatastr
EndSub
管理员信息删除画面（下图）
管理员信息删除画面的代码为：
'关闭窗体的操作
PrivateSubCmdCancel_Click（）
'关闭窗体
UnloadMe
升级会员 