管理信息系统上机实验报告Word文档下载推荐.docx
《管理信息系统上机实验报告Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《管理信息系统上机实验报告Word文档下载推荐.docx(30页珍藏版)》请在冰点文库上搜索。
借阅信息管理可以显示当前数据库中书籍借阅情况,可以对借阅信息进行维护。
管理者信息管理可以显示数据库中管理者的情况,可以对管理者信息进行维护。
可见,本系统并不复杂,主要解决的问题是利用关键字对数据库进行查询。
编写目的
系统开发的总的设计目标是实现图书管理的系统化、规化和自动化,实现对图书资料的集中统一的管理。
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
winsock的关闭
PrivateSubwinsock_Close()
main.StatusBar1.Panels
(1).Text="
服务器连接状态:
断开。
"
winsock的连接
PrivateSubwinsock_Connect()
DimstrAsString
str="
Cnn,"
&
UserNow.ID&
"
"
UserNow.Pwd&
winsock.LocalIP
Ifmain.winsock.State<
>
sckConnectedThen
MsgBox"
还没有连接数据库,不能发送请求!
ExitSub
EndIf
Me.winsock.SendDatastr
'
MsgBoxstr
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),,"
服务器广播"
Usr"
SelectCaseStrGet
(1)
01"
响应添加管理员。
MsgBoxStrGet
(2),,"
服务器响应"
02"
响应删除管理员。
03"
a=StrGet
(2)
Ifa="
超出权限!
查询管理员信息失败!
Then
ElseIfa="
该管理员不存在!
查询管理员失败!
Else
响应查询管理员。
usrquery.lvquery.ListItems.Clear
Fori=0ToUBound(StrGet)-2
StrGet1()=Split(StrGet(i+2),"
/"
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
04"
响应查询所有管理员。
EndSelect
Cnn"
响应连接信息。
IfStrGet
(1)="
该管理员名不存在!
请重新输入!
Me.winsock.Close
ElseIfStrGet
(1)="
密码错误!
显示管理员添加画面
PrivateSubUsr_Add_Click()
usradd.Show
显示删除管理员画面
PrivateSubUsr_Delete_Click()
usrdel.Show
显示管理员查询画面
PrivateSubUsr_Query_Click()
usrquery.Show
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Key
系统的连接
Sys_Cnn"
CallSys_Connect_Click
系统的退出
Sys_Exit"
CallSys_Exit_Click
添加管理员
Usr_Add"
CallUsr_Add_Click
删除管理员
Usr_Del"
CallUsr_Delete_Click
管理员查询
Usr_Query"
CallUsr_Query_Click
画面初期化事件
PrivateSubForm_Load()
Scale(-7.57,5.2)-(2.4,-5)
main.Caption="
图书馆管理系统客户端"
PrivateSubSys_Connect_Click()
cnn.Show
退出系统事件
PrivateSubSys_Exit_Click()
myexit=MsgBox("
是否要退出程序?
vbYesNo,"
退出"
)
Ifmyexit=vbYesThenEnd
二.客户端连接服务器的连接窗体
此界面是客户端连接服务器的登陆窗体,管理员通过输入正确的ID和密码,等服务器验证通过后,画面迁移到主窗体。
连接服务器页面的代码为:
OptionExplicit
取消连接事件
PrivateSubCmdCancel_Click()
UnloadMe
连接服务器事件
PrivateSubCmdCnn_Click()
用户ID为空的判断
IfLen(Trim(Me.Text1.Text))<
=0Then
请输入用户ID!
ElseIfLen(Trim(Me.Text1.Text))>
16Then
您输入的用户ID过长!
Else
UserNow.ID=Trim(Me.Text1.Text)
EndIf
密码为空的判断
IfLen(Trim(Me.Text2.Text))<
请输入密码!
ElseIfLen(Trim(Me.Text2.Text))>
您输入的密码过长!
UserNow.Pwd=Trim(Me.Text2.Text)
IP地址的判断
IfLen(Trim(Me.Text3.Text))<
请输入服务器IP!
ElseIfLen(Trim(Me.Text3.Text))>
15Then
您输入的IP地址过长!
ElseIfLen(Trim(Me.Text3.Text))<
7Then
您输入的IP地址过短!
winsock的设置
main.winsock.RemoteHost=Trim(Me.Text3.Text)
main.winsock.RemotePort=12345
main.winsock.Connect
设置连接后状态条的显示信息
main.StatusBar1.Panels
(1).Text="
正在连接…"
画面的关闭
UnloadMe
页面加载事件
winsock的状态判断
Ifmain.winsock.State<
sckClosedThen
关闭winsock的连接
main.winsock.Close
管理员信息登陆画面
管理员信息登陆画面的代码为:
管理员信息添加事件
PrivateSubCmdAddOk_Click()
管理员ID为空的判断
IfLen(Trim(Me.TextID.Text))<
请输入管理员ID!
ElseIfLen(Trim(Me.TextID.Text))>
您输入的管理员ID过长!
管理员为空的判断
IfLen(Trim(Me.TextName.Text))<
请输入管理员!
管理员长度的判断
ElseIfLen(Trim(Me.TextName.Text))>
20Then
您输入的过长!
密码为空过的判断
IfLen(Trim(Me.TextAddPwd1.Text))<
密码长度的判断
ElseIfLen(Trim(Me.TextAddPwd1.Text))>
MsgBox"
您输入密码过长!
密码和确认密码不一致的判断
IfTrim(Me.TextAddPwd1.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.w