信息管理系统报告

管理信息系统课程设计实验报告

专业班级：

实验名称：

学号：

学生姓名：

指导教师：

完成日期年月

目录

一、系统需求分析 (3)

1.1问题的提出 (3)

1.2可行性分析 (3)

1.3系统的设计目标 (4)

二、系统设计 (4)

2.1系统设计 (4)

2.2系统运行环境 (4)

三、系统结构框架 (4)

3.1系统结构框架 (4)

3.2 系统功能设计 (5)

四、系统数据库设计 (6)

4.1图书馆书籍管理系统数据库E-R模型 (6)

4.2数据库表设计 (6)

4.3 创建数据库 (7)

五、操作模块 (9)

5.1 人事管理模块 (9)

5.2书籍借阅管理模块 (15)

5.3书籍库存管理模块 (19)

六、系统管理 (25)

6.1 身份验证 (25)

一、系统需求分析

古人有云“书中自有黄金屋，书中自有颜如玉”，书籍始终是我们的良师益友，随着书籍的增多，图书馆规模不断增大，其管理难度也相应的增加，而为了适应如今的情形，一套完整的图书馆书籍管理系统显得尤为重要。

1.1问题的提出

随着书籍的增多，图书馆书籍管理已成为必不可缺的一部分，但是目前的大多数图书馆书籍管理系统应用难度较高，许多工作需要图书管理人员配合才能完成，角色分工不明确；改版工作量大，系统扩展能力差，应用时更是降低了灵活性，这就使得一套完善的、能够正常工作的书籍管理系统应运而生。

1.2可行性分析

系统的可行性分析是对课题的通盘考虑，是系统开发者进行进一步工作的前提，是系统设计与开发的前提与基础。系统的可行性分析可以使系统开发者尽可能早的估计到课题开发过程中的困难，并在定义阶段认识到系统方案的缺陷，这样就能花费较少的时间和精力，也可以避免许多专业方面的困难。所以，系统的可行性分析在整个开发过程中是非常重要的。

1.2.1经济可行性分析

因为通过网络传递销售信息可以不受距离的限制，因此可以借阅许多的人力和物力，方便管理，由此可以减少不必要的开支，同时该系统可以提高图书馆书籍管理效率，仅需少量工作人员，节约了开支，所以从经济上完全是可行的。

1.2.2技术可行性分析

本系统采用基于Windows的图形用户界面，而该系统是大家熟悉的操作系统，对于那些有一般的计算机知识的人员就可以轻松上手。而整个图书馆书籍管理系统采用最友好的交互界面，简介明了，不需要对数据库进行深入的了解。

综合以上三方面，该系统具有很高的开发可行性，无论是从技术上或者经济上还是操作上。因此，可以设计该系统的数据流程图，建立数据字典。

1.3系统的设计目标

本系统主要包括三大模块，分别是人事管理模块，书籍借阅管理模块，书籍库存管理模块。每个模块的功能如下：

1. 人事管理模块功能：

(1)实现老师信息的查询；

(2)实现老师信息的更新，包括增加、删除、修改功能；

(3)实现学生信息的查询；

(4)实现学生信息的更新，包括增加、删除、修改功能。

2.书籍借阅管理模块功能：

(1)进行人工的书籍借阅；

(2)将人工的书籍借阅数目与后台的数据库联系起来。

3.书籍库存管理模块功能：

(1)实现书籍库存信息的查询；

(2)将书籍的库存实数与后台数据库相对比，进行数目核实。

二、系统设计

2.1系统设计

通过权衡对各种编程语言和数据库使用的熟练程度，本系统选用Microsoft Visual Basic 6.0作为前台开发工具，后台数据库采用SQL Server 2000，整体设计以软件工程思想为指导思想，力求开发一个实用性强、操作简单且功能完整的图书馆书籍管理系统。

2.2系统运行环境

客户端

操作系统：Windows NT/2000/XP或更高版本

服务器

操作系统：Windows XP

数据库：Microsoft SQL Server 2000

前台：Microsoft Visual Basic 6.0

三、系统结构框架

3.1系统结构框架

一般的书籍管理系统，主要由三大模块组成，即人事管理模块，书籍借阅管理模块，书籍库存管理模块，此系统也不例外，主要有此三大模块组成。图3-1系统功能结构图。

图3-1 系统功能结构图

3.2 系统功能设计

系统功能设计是使整个系统能基本实现人员的增加、删除、修改管理功能，能让书籍管理者更直观的了解书籍的借阅状况，以做出相应的管理决策。管理信息系统(MIS)就是要对这些资源建立正确的数据库，并进行书籍的借阅、归还、增加、删除、修改等信息，同时对这些信息进行维护，通过实测图书馆的各种运行情况，并利用过去的历史数据预测未来的发展，从图书馆全局的角度出发进行决策，利用信息控制图书馆的行为，辅助图书馆完成其目标。

本系统主要包括三大模块，分别是人事管理模块，书籍借阅管理模块，书籍库存管理模块。每个模块的功能如下：

1. 人事管理模块功能：

(1)实现老师信息的查询；

(2)实现老师信息的更新，包括增加、删除、修改功能；

(3)实现学生信息的查询；

(4)实现学生信息的更新，包括增加、删除、修改功能。

2.书籍借阅管理模块功能：

(1)进行人工的书籍借阅；

(2)将人工的书籍借阅数目与后台的数据库联系起来。

3.书籍库存管理模块功能：

(1)实现书籍库存信息的查询；

(2)将书籍的库存实数与后台数据库相对比，进行数目核实。

四、系统数据库设计

图书馆书籍管理系统：

4.1E-R模型图设计

通过对图书馆书籍管理系统分析，得出系统的E-R图。数据库E-R模型图。

4.2数据库表设计

4.2.1 借书人信息表（BORROWER）用于人物分类的信息。表中各字段功能定义如表所示。

bid ：借书证号

bname：姓名

age ：年龄

sex ：性别

post ：职务

tel ：联系电话

quantity：可借数

4.2.2书籍信息表（BOOKS）用于书籍分类的信息。表中各字段功能定义如表所示。

cid ：书号

bname ：书名

authors ：作者

price ：价格

stock ：库存量

press ：出版社

4.3创建数据库

（1）使用SQL Sever语句创建借书人信息表（BORROWER）数据库。

create table BORROWER

(

bid varchar(8) not null primary key,

bname char(10) null,

age int null,

sex char(4) null,

post char(10) null,

tel char(10) null,

quantity char(10) null,

)

go

（2）使用SQL Sever语句创建书籍信息表（BOOKS）数据库

create table BOOKS

(

cid varchar(8) not null primary key,

bname char(10) null,

authors char(10) null,

price char(10) null,

stock char(10) null,

press char(10) null,

)

（3）在借书人信息表（BORROWER）插入数据。

insert into borrower values('00001','王小二','32',’男’,’老师’,123456,6);

insert into borrower values('00002','李二虎','18',’男’,’学生’,456789,5);

insert into borrower values('00003','王二妞','28',’女’,’老师’124597,4);

insert into borrower values('00004','李小娃','19',’女’,’学生’,165983,3);

insert into borrower values('00005','马化腾','45',’人妖’,’学生’,128964,0);

运行结果如下表：

（4）在书籍信息表（books）插入数据

insert into books values('1001','数据库系统教程','施伯乐',26,10,’高等教育出版社’); insert into books values('1002','数据库技术','教育部',32,5,’高等教育出版社’);

insert into books values('1003','会计学原理','王允平',18,3,’经济科学出版社’);

insert into books values('1004','财务管理','李芸达',24,6,’东北师范大学出版社’);

insert into books values('1005','数据库的开发与应用','赵俊冉',100,3,’清华大学出版社’); 运行结果如下表：

最后插入存储过程：

create procedure cc_1

as

select * from books

execute cc_1

create procedure cc_2

as

select * from borrower

execute cc_2

五、操作模块

5.1 人事管理模块

人事管理模块功能：实现人员信息的增加、删除、修改以及按职务检索人物的信息。

如下图为人事信息管理窗口：

功能：运行窗体时，检索所有人员信息。

代码如下：

Private Sub Form_Load()

Set conn = New ADODB.Connection

With conn

.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=."

.CursorLocation = adUseClient

.ConnectionTimeout = 10

.Open

End With

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select bid as '借书证号',bname as '姓名',age as '年龄',sex as '性别',post as '职务',tel as '联

系电话',quantity as '可借书数'from borrower", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

End Sub

功能：人员信息的增加。

例如下图，输入借书证号：00006，姓名：杨五狼，年龄：56，职务：老师，联系电话：438967，可借书数：7。然后单击“增加”按钮，任务信息添加成功如下图。

代码如下：

Dim conn As ADODB.Connection

Private Sub Command1_Click()

Dim bid As String

Dim bname As String

Dim age As Integer

Dim sex As String

Dim post As String

Dim tel As String

Dim quantity As Integer

bid = txtbid.Text

bname = txtbname.Text

age = txtage.Text

sex = txtsex.Text

post = txtpost.Text

tel = txttel.Text

quantity = txtquantity.Text

sql = "insert into borrower values('" & bid & "','" & bname & "'," & age & ",'" & sex & "','" & post & "'," & tel & "," & quantity & ")"

With conn

.BeginTrans

.Execute sql

.CommitTrans

End With

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select bid as '借书证号',bname as '姓名',age as '年龄',sex as '性别',post as '职务',tel as '联系电话',quantity as '可借书数' from borrower", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

MsgBox "人员信息保存成功", vbInformation, "提示"

Exit Sub

errhandle:

conn.RollbackTrans

conn.Close

End Sub

功能：人员信息的删除。

例如下图，输入借书证号：00005，单击“删除”按钮，借书证号为：00005，姓名为:马化腾的人物信息被删除成功。

代码如下：

Private Sub Command2_Click()

Dim sql As String

sql = "delete from borrower where bid='" & txtbid.Text & "' "

Text1 = sql

With conn

.BeginTrans

.Execute sql

.CommitTrans

End With

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select bid as '借书证号',bname as '姓名',age as '年龄',sex as '性别',post as '职务',tel as '联系电话',quantity as '可借书数' from borrower", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

MsgBox "人员信息删除成功", vbInformation, "提示"

Exit Sub

errhandle:

conn.RollbackTrans

conn.Close

End Sub

功能：人员信息的修改。

例如下图，输入借书证号：00006，姓名：“杨五狼”改为“杨六郎”，年龄：“58”改为“32”，联系电话:“438967”改为“463927”，可借书数：“7”改为“6”。点击“修改”按钮，人物信息修改成功

代码如下：

Private Sub Command3_Click()

Dim sql As String

sql = "update borrower set bname='" & txtbname.Text & "', age=" & txtage.Text & ",sex='" & txtsex.Text & "',post='" & txtpost.Text & "', tel=" & txttel.Text & ",quantity= " & txtquantity.Text & "where bid='" & txtbid.Text & "'"

Text1 = sql

With conn

.BeginTrans

.Execute sql

.CommitTrans

End With

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select bid as '借书证号',bname as '姓名',age as '年龄',sex as '性别',post as '职务',tel as '联

系电话',quantity as '可借书数' from borrower", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

MsgBox "人员信息修改成功", vbInformation, "提示"

Exit Sub

errhandle:

conn.RollbackTrans

conn.Close

End Sub

功能：人员信息的查询。

如下图：输入“老师”，点击“查询”按钮检索出所有老师的信息。输入“学生”，点击“查询”按钮检索出所有学生的信息。

代码如下：

Private Sub Command4_Click()

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select bid as '借书证号',bname as '姓名',age as '年龄',sex as '性别',post as '职务',tel as '联系电话',quantity as '可借书数' from borrower where post='" & txtpost.Text & "'", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

MsgBox "人员信息查询成功", vbInformation, "提示"

Exit Sub

errhandle:

conn.RollbackTrans

conn.Close

End Sub

5.2 书籍借阅管理模块

功能：窗口运行时，检索所有图书信息。

如下图，窗口运行时所有图书信息运行如下：

代码如下：

Private Sub Form_Load()

Set conn = New ADODB.Connection

With conn

.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=."

.CursorLocation = adUseClient

.ConnectionTimeout = 10

.Open

End With

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select cid as '书号',bname as '书名',authors as '作者',price as '价格',stock as '库存量',press as '出版社' from books", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

End Sub

功能：实现借书时实时显示书籍库存信息。

如下图，输入要借阅书籍的书号：“1001”，点击“借书”按钮，则书名为《数据库系统教程》的书籍的库存量由上图的“5”改为下图的“4”。证明书籍借阅成功。

代码如下：

Dim conn As ADODB.Connection

Private Sub Command1_Click()

Dim cid As String

SQL = "update books set stock=" & "stock - 1" & " where cid='" & txtcid.Text & "'"

Text1 = SQL

With conn

.BeginTrans

.Execute SQL

.CommitTrans

End With

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select cid as '书号',bname as '书名',authors as '作者',price as '价格',stock as '库存量',press as '出版社' from books", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

MsgBox "书籍借阅成功", vbInformation, "提示"

Exit Sub

errhandle:

conn.RollbackTrans

conn.Close

End Sub

功能：实现归还时实时显示书籍库存信息。

如下图，输入要归还书籍的书号：“1002”，点击“还书”按钮，则书名为《数据库技术》的书籍的库存量由上图的“4”改为下图的“5”。证明书籍归还成功。

代码如下：

Private Sub Command2_Click()

Dim cid As String

SQL = "update books set stock=" & "stock + 1" & " where cid='" & txtcid.Text & "'"

Text1 = SQL

With conn

.BeginTrans

.Execute SQL

.CommitTrans

End With

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select cid as '书号',bname as '书名',authors as '作者',price as '价格',stock as '库存量',press as '出版社' from books", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

MsgBox "书籍归还成功", vbInformation, "提示"

errhandle:

conn.RollbackTrans

conn.Close

End Sub

5.3书籍库存管理模块

功能：窗口运行时，检索所有图书信息。

如下图，窗口运行时所有图书信息运行如下：

代码如下：

Private Sub Form_Load()

Set conn = New ADODB.Connection

With conn

.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=."

.CursorLocation = adUseClient

.ConnectionTimeout = 10

.Open

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.Open "select cid as '书号',bname as '书名',authors as '作者',price as '价格',stock as '库存量',press as '出版社' from books", conn, adOpenStatic, adLockOptimistic

End With

Set dg.DataSource = rs

End Sub

功能：实时更新所增加书籍信息。

如下图：输入书号：1006，书名;《菊花的绽放》，作者：李翔英。价格;26,库存量：3，出版社：阿呆出版社。单击“增加”按钮，书籍信息增加如下图。

代码如下：

Dim conn As ADODB.Connection

Private Sub Command1_Click()

Dim cid As String

Dim bname As String

Dim authors As String

Dim price As String

Dim stock As Integer

Dim press As String