图书管理系统.docx

1、图书管理系统一、课程设计的内容这次课程设计采用VB作为前台应用程序的设计工具，用MS Server 2000作为后台数据库，完成一个可以查询、修改、删除、添加学生信息、图书信息和图书借用信息的图书管理系统。二、课程设计的要求与数据主要是对图书馆的图书进行管理(录入、修改、删除、借阅)，其中前三个由管理员进行操作，后一个通过管理员实现用户对图书的借阅。 三、课程设计应完成的工作1. 独立完成系统的分析、设计、编码、测试工作。2完成设计报告的撰写。 四、课程设计进程安排序号设计各阶段内容地点起止日期1查阅资料、分析题目、概要设计分散17周周三到周四2详细设计、编码分散17周周四到18周周五3调试宿

2、舍18周周六4撰写设计报告分散18周周日5运行，提交实验室19周周四67891011五、应收集的资料及主要参考文献1.求是科技.Visual C+数据库通用模块及典型系统开发实例导航.北京：人民邮电出版社，2006.32.李代平.软件工程.第二版.北京：冶金工业出版社，2006.113.王珊/萨师煊.数据库系统概论.第四版.北京：高等教育出版社，2006.54.李春葆/曾平.数据库原理与应用，北京:清华大学出版社，2005.发出任务书日期：2007年 月 日 指导教师签名：计划完成日期： 2007年 月 日 基层教学单位责任人签章：主管院长签章：目 录第1章 问题描述11.1图书管理系统简介1

3、1.2 数据需求11.3 事务需求11.4 系统开发平台21.5 网络拓扑结构3第2章 解决方案32.1 E-R模型设计32.1.1 实体列表32.1.2 系统的E-R模型32.2 设计数据库42.2.1 创建数据库42.2.2 创建数据表42.3主窗体设计5 2.3.1添加控件 62.3.2 设计登录界面62.3.3设计用户显示界面62.3.4设计管理员显示界面6第3章 系统实现63.1开发环境63.2系统流程图73.3程序调试情况73.4功能显示7第4章 结束语13附录：源代码清单 13 参考文献 41第一章 问题描述1.1 图书管理系统简介本系统利用VB处理数据库的功能，实现对图书馆信息

4、的管理。主要功能为管理有用户、图书、借阅和管理者的信息等。本系统的结构分为用户信息管理模块、书籍信息管理模块、借阅信息管理模块、管理者管理信息模块、查询处理模块。1.2 数据需求根据系统的需求，首先将要记录的信息分类，要记录的信息如下。（1） 用户信息：包括用户编号、姓名、密码、性别、出生日期、联系方式（联系电话、电子邮件、联系地址）、用户简介等。（2） 书籍信息：包括图书编号、书名、丛书类别、作者、出版社、出版时间、图书简介等。（3） 借阅信息：包括用户编号、图书编号、借书日期、应归还日期、超出还书天数等。（4） 管理者信息：包括管理者编号、姓名、密码、性别、出生日期、联系方式（联系电话、电

5、子邮件、联系地址）、管理员简介等。根据这些需要，本系统需要“用户信息”表，“图书信息”表，“借阅信息”表和“管理者信息”表。1.3 事务需求经过实际考察、咨询和分析，高等院校图书管理系统主要应该具有以下功能模块，如1.1图。（1） 任何人都可对图书信息进行查阅。（2） 在用户信息管理部分,要求如下： 可以浏览用户自身信息。 可以修改自身登陆密码、和其他（除用户编号外）用户基本信息。 可以查询自身借阅信息及图书信息等（3） 在管理员信息管理部分，要求如下： 可以浏览所有用户信息。 可以浏览管理员自身信息。 可以对所有用户信息进行维护,包括查询、修改、添加及删除等操作。 可以修改自身登陆密码、和其

6、他（除管理员编号外）管理员基本信息。 可以添加管理员。 可以对所有用户的借阅信息进行维护，包括查询、修改、添加及删除等操作。 可以对图书信息进行维护，包括查询、修改、添加及删除等操作等。图1.1 系统业务逻辑关系1.4 系统开发平台前台：1、 硬件要求：CPU: Pentium 4 2.0GHz以上IBM兼容机内存：512MB以上容量显卡：32MB或以上显存之AGP接口显卡2、软件要求：操作系统：Microsoft Windows 2000/XP开发工具：Microsoft Visual Basic 6.0数据库服务器：Microsoft SQL 2000 Server1.5 网络拓扑结构本设

7、计采用客户机/服务器（C/S）体系，数据的储存管理功能较为透明性，可以合理均衡事务的处理，充分保证数据的完整性和一致性。 图1.2 C/S模式结构第二章 解决方案数据库主要着重于数据对象的属性和数据对象之间的关系的分析。一般采用E-R图，即实体-关系模型来分析数据对象的属性和数据对象之间的关系。2.1 E-R模型设计2.1.1 实体列表实 体描 述用 户所有注册用户，由用户编号标识图 书图书馆所有图书，由图书编号标识借 阅用户编号、图书编号、借阅日期、应归还日期、超出还书天数，由用户编号和图书编号标识系统管理员系统维护人员2.1.2 系统的E-R模型该图书管理系统的E-R模型，如下图所示图2.

8、1 图书管理系统的E-R图2.2 设计数据库2.2.1创建数据库（1） 打开MSSQL工具“查询分析器”（2） 在查询窗口中键入下列SQL语句create database BookSystem执行上述SQL语句即可新建一名为BookSystem的数据库2.2.2创建数据表创建数据库后，为BookSystem数据库添加数据表，步骤如下。（1） 新建查询窗口（2） 在查询窗口中键入下列SQL语句create table Users( /创建用户信息表 Uid char(20) primary key, /用户编号 Uname varchar(20) not null, /姓名 Upwd varc

9、har(16), /登陆密码 Usex char(2) check (Usex in (男,女), /性别 Uborn datetime, /出生日期 Utel char(13), /联系电话 Uemail varchar(30), /电子邮件 Uaddr varchar(50), /联系地址 Uremark varchar(300) /用户简介 )create table Managers( /创建管理员信息表 Mid char(20) primary key, /管理员编号 Mname varchar(20) not null, /姓名 Mpwd varchar(16), /登陆密码 Ms

10、ex char(2) check (Msex in (男,女),/性别 Mborn datetime, /出生日期 Mtel char(13), /联系电话 Memail varchar(30), /电子邮件 Maddr varchar(50), /联系地址 Mremark varchar(300) /管理员简介 )create table Books( /创建图书信息表 Bid char(10) primary key, /图书编号 Bname varchar(50) not null, /书名 Bclass varchar(30), /图书分类 Bwriter varchar(50), /

11、作者 Bbookman varchar(26), /出版社 Bborn datetime, /出版日期 Binstr varchar(500) /图书简介 )create table UB( /创建用户借书记录 Uid char(20), /用户编号 Bid char(10), /图书编号 Borrow_time datetime, /借书日期 Return_time datetime, /应还书日期 Over_time smallint, /超出还书天数 primary key (Uid,Bid),/定义主键 foreign key (Uid) references Users(Uid),/

12、外来键 foreign key (Bid) references Books(Bid)/外来键 )（3） 执行上述SQL语句即可创建相关表格2.3主窗体设计创建一个新的“标准EXE”类型的工程，在工程属性里设置工程名为“图书管理系统”。将默认创建的窗体命名为“FrmMain”，把“FrmMain”作为本系统中的主界面。在窗体中添加4个CommandButton控件和一个Label控件。2.3.1添加控件在控件箱中右击空白处，选择“部件”，在弹出的对话框中勾选Microsoft ADO Data Control 6.0(SP6) (OLEDB) /用于连接数据库Microsoft DataGri

13、d Control 6.0(SP6) (OLEDB) /用于显示数据Microsoft Tabbed Dialog Control 6.0(SP6) /用于多窗口显示这3个控件，点击确定。2.3.2设计登录界面设计登录界面,添加一个新的“窗体”,名为FrmLogin,作为本系统的登录界面.在登录窗体上添加3个Label控件,2个CommandButton控件，2个OptionButton控件和3个TextBox控件。2.3.3设计用户显示界面在当前工程中添加一个“窗体”，将窗体命名为“FrmUser”。在窗体上添加1个ADODC控件、1个CheckBox控件、1个ComboBox控件、6个Co

14、mmandButton控件、1个DataGrid控件、1个Frame控件、10个Label控件、1个SSTab控件、3个PictureBox控件和9个TextBox控件。各按钮控件是为了执行相应的操作。各TextBox控件和CheckBox控件用来显示数据库中的数据，这个功能通过设置DataBindings属性来实现。2.3.4设计管理员显示界面在当前工程中添加一个“窗体”，将窗体命名为“FrmMger”。在窗体上添加1个ComboBox控件、5个CommandButton控件、1个DataGrid控件、4个Label控件、1个SSTab控件和1个TextBox控件。各按钮控件是为了执行相应的

15、操作。各TextBox控件和CheckBox控件用来显示数据库中的数据，这个功能通过设置DataBindings属性来实现。第三章 系统实现3.1开发环境本系统使用VisualBasic语言进行开发。适用内存不低于256M配备有Windows2000，Windows2003，WindowsXP系统的计算机。3.2系统流程图在本系统中准备通过如下窗体来实现数据维护的功能。(1) 主窗体：管理着各个子窗体。(2)“用户”子窗体：管理用户信息、显示图书及借阅信息(3)“管理员”子窗体：管理用户、图书及借阅信息。系统流程图如图3.1所示：图3.1 系统流程图3.3 程序调试情况在把系统从一台计算机移植

16、到另一台计算机时一定要把数据文件BookSystem.mdf和BookSystem_log.ldf同时移植，并对相应的提供服务的SQL Server服务器进行相应的修改，否则数据不能正确连接并显示。注意修改的时候问题出现得比较多，我经常就是在某些机器上能运行，某些机器上又无法运行。到现在都不清楚问题所在。3.4 功能显示运行程序后首先显示主窗体，如图3.2所示。图3.2 主界面单击“图书查询”，就会弹出如图3.3所示登录框。图3.3 图书查询界面在查询编辑框中填入要查询的关键字，在查询类型选择相应的查询方式，若要查询所有图书（包括借出图书）则将所有勾选，若只查询未借出图书则将所有前面的勾去掉，

17、然后点击搜索即可。点击退出即可回到主界面。在主界面点击登陆则弹出登陆对话框图3.4 登陆界面在登录对话框中输入用户编号和密码，选择“普通用户”，单击“登陆”按钮，就会对用户身份进行认证，如果认证通过，那么就会弹出如图3.5、图3.6、图3.7所示的用户窗体。图3.5 用户窗体（图书查询）图3.6 用户窗体（用户基本信息）图3.7 用户窗体（借书记录）点击注销即可返回主窗口。图3.8 登陆对话框在登录对话框中输入管理员编号和密码，选择“管理员”，单击“登陆”按钮，就会对管理员身份进行认证，如果认证通过，那么就会弹出如图3.9、图3.10、图3.11、图3.12所示的用户窗体。图3.9 管理员窗体

18、（图书信息）图3.10 管理员窗体（管理员基本信息）图3.11 管理员窗体（用户信息）图3.12 管理员窗体（借书记录）第四章 结束语通过做课程设计，有几点感想，归纳如下。1. 扎实的理论基础。如果不掌握它们，很难写出高水平的程序。而这一点又是我们所缺乏的。 2. 不钻牛角尖。当遇到障碍的时候，暂时远离电脑，当重新开始工作的时候，也许会发现那些难题现在竟然可以迎刃而解。3. 多与别人交流。三人行必有我师。4. 良好的编程风格。注意养成良好的习惯，代码的缩进编排，变量的命名规则要始终保持一致。如果注释和代码不一致，那就更加糟糕。5数据库讲求的是整体，只有在整体的情况下完善局部，才能做出一个好的数

19、据库。但数据库的连接问题一直困扰着我。某些机器无论如何加载数据库，都是无法和程序正常连接。这个问题在我完成了设计之后都无法解决。希望老师能给些指点。还有就是借书记录的表，没有添加用户名字，失误啊！附录：源代码清单附录1.1 数据库操作模块Option ExplicitPublic constr As String 数据库连接信息Public rst As ADODB.Recordset 数据库内的记录Public con As ADODB.ConnectionPublic Sub connect_db() constr = Provider=SQLOLEDB.1;Integrated Secu

20、rity=SSPI;Persist Security Info=False;Initial Catalog=BookSystem;Data Source= 数据库引擎+路径 Set con = New ADODB.Connection 新建一个数据库连接 con.CursorLocation = adUseClient 用于客户端（ADOR）Recordset对象，游标库属性必须为adUseClient con.ConnectionString = constr 连接信息 con.OpenEnd SubPublic Sub sel_table(table_name As String, whe

21、re_str As String) Dim sql As String Set rst = New ADODB.Recordset sql = select * from & table_name & & where_str & rst.Open sql, con, adOpenDynamic, adLockOptimistic rst.RequeryEnd SubPublic Sub upd_table(table_name As String, set_str As String, where_str As String) Dim sql As String sql = update &

22、table_name & set & set_str & where & where_str & con.BeginTrans con.Execute sql con.CommitTransEnd SubPublic Sub del_table(table_name As String, where As String) Dim sql As String sql = delete from & table_name & & where & con.Execute sqlEnd SubPublic Sub ins_table(table_name As String, into As Stri

23、ng, values As String) Dim sql As String sql = insert into & table_name & into & & values & con.Execute sqlEnd Sub附录1.2 主窗口代码Private Sub Command1_Click()On Error GoTo goywcCall connect_dbWith FrmUser .Label1.Caption = 游客 .SSTab.TabEnabled(0) = False .SSTab.TabEnabled(1) = False .SSTab.Tab = 2 .Comman

24、d6.Caption = 退出 .Height = 6720 .Picture1.Visible = False .Picture2.Visible = True .Picture3.Visible = True .Picture2.Top = 960 .DataGrid1.Height = 4350 .DataGrid1.Top = 450End WithCall sel_table(Books, )Set FrmUser.DataGrid1.DataSource = rstWith FrmUser.DataGrid1 .Columns(0).Caption = 图书编号 .Columns(

25、1).Caption = 书名 .Columns(2).Caption = 类型 .Columns(3).Caption = 作者 .Columns(4).Caption = 出版社 .Columns(5).Caption = 出版日期 .Columns(6).Caption = 图书简介End WithFrmUser.Label9.Caption = 一共有 & rst.RecordCount & 本书Unload MeFrmUser.ShowExit Subgoywc:MsgBox (连接数据库失败)End SubPrivate Sub Command2_Click()FrmLogin.S

26、how 1End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()FrmAbu.Show 1End Sub附录1.3登陆界面代码Private Sub Command1_Click()On Error GoTo ywcIf Text1.Text = Then MsgBox (用户名不能空) Exit SubEnd IfIf Text2.Text Text3.Text Or Text2.Text = Or Text3.Text = Then MsgBox (密码输入错误) Exit SubEnd

27、 IfCall connect_dbIf Option1.Value = True Then Call sel_table(Users, where Uid= & Text1.Text & and Upwd= & Text2.Text & ) If rst.RecordCount 0 Then With FrmUser .SSTab.Tab = 2 .Text1.Text = Text1.Text .SSTab.Tab = 2 .Height = 6720 .Picture1.Visible = False .Picture2.Visible = True .Picture3.Visible = True .Picture2.Top = 960 .DataGrid1.Height = 4350 .DataGrid1.Top = 450 End With Call connect_db Call sel_table(Books, ) Set FrmUser.DataGrid1.DataSource = rst With FrmUser .DataGrid1.Columns(0).Caption = 图书编号 .DataGrid1.Columns(1).Caption = 书名 .DataGrid1.Columns(2).Caption = 类型 .DataGrid