vb+sql参考图书管理系统.doc

1、xxxxxxxxxxxxxx学院图书管理系统学 生 姓 名： xxx 指 导 教 师： xxxx 系 别： xxxxxxxx 专 业： xxxxxxxxx 年 级： xxxxxxx 论文提交时间： _评 阅 人：_年 月 日： _摘 要二十一世纪是信息的社会，信息作为社会最主要的资源，将成为战略资源引起人们广泛的关注。如何获取信息？图书是我们最好的获取信息的方式，但由于图书馆图书收藏量大大增加，使传统的图书管理员的工作日益繁重起来。迫使人们起用新的管理方法来管理图书即图书管理系统。图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。经

2、过分析,使用 Microsoft公司的 Visual Basic6.0为开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供级开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进,直到形成用户满意的可行系统。关键字：图书管理 数据库 Visual Basic6.0 面向对象（Object） 目 录第一章 需求分析11-1系统目标设计11-2本系统的开发设计思想11-3开发和运行环境选择11-4系统功能分析11-4-1读者信息

3、的输入、修改、查询11-4-2图书信息的输入、修改、查询11-4-3用户信息的输入、修改、查询11-4-4借书、还书办理手续11-4-5全部信息的统计1第二章 系统功能设计模块22-1 系统模块图2第三章 数据库分析与设计33-1数据库系统33-2数据库系统的简介33-3数据库的设计思想33-4利用Access创建数据库43-5连接数据及数据库53-6数据库公共模块6第四章 详细设计94-1用户进入模块94-2系统主界面管理模块104-3 图书管理模块104-3-1图书的添加功能模块114-3-2图书修改的功能模块124-3-3图书的删除功能模块144-4借还书管理模块154-4-1借书管理模

4、块154-4-2还书管理模块174-5 读者资料管理模块174-5-1添加读者信息174-5-2修改读者信息174-5-3删除读者信息174-6用户信息管理模块184-6-1用户添加管理模块184-6-2用户修改管理模块184-6-3用户删除管理模块184-7统计办理业务信息18第五章 设计结论19参考资料20第一章 需求分析1-1系统目标设计通过一个图书馆管理信息系统，使图书馆的信息管理工作系统化、规范化、自动化，从而达到提高学校管理效率的目的。1-2本系统的开发设计思想系统应符合图书馆信息管理的规定，满足图书馆日常管理的工作需要，并达到操作过程中的直观、方便、实用、安全等要求；系统采用模块

5、化程序设计方法，既便于各种数据的查询，又便于系统功能的修改，及时根据用户需求进行数据的添加、删除、修改、查询等操作。1-3开发和运行环境选择开发工具：Visual Basic6.0、Access数据库运行环境：Windows 98、Windows NT或Windows 2000。1-4系统功能分析1-4-1读者信息的输入、修改、查询包括：读者编号、读者姓名、家庭住址、电话号码。1-4-2图书信息的输入、修改、查询包括：图书编号、图书名称、作者姓名、出版社名称、图书价格、图书类别。1-4-3用户信息的输入、修改、查询 包括：用户编号、用户名、密码。1-4-4借书、还书办理手续包括：借书、还书信息

6、的办理：包括读者编号、图书编号。1-4-5全部信息的统计统计的内容包括：未还图书、已还图书和所有业务。并按照读者姓名、图书书名、图书作者、图书出版社、图书分类、图书价格进行统计。第二章 系统功能设计模块2-1 系统模块图在系统功能分析的基础上，考虑Visual Basic6.0程序编制的特点，得到如图2.1系统功能模块如下：添加登陆界面图书资料图书管理系统借阅管理借书还书办理统计用户信息添加删除修改修改删除删除修改读者资料添加 2.1系统功能模块图第三章 数据库分析与设计3-1数据库系统数据库系统本质上是一个用计算机存储记录的系统。数据库本身可被看作为一种电子文件柜：也就是说，它是收集计算机数

7、据文件的仓库或容器。系统用户可以对这些文件执行插入数据、检索数据、更改数据、删除数据等一系列操作。总之，数据库系统是一个计算机存储记录的系统，即它是一个计算机系统，该系统的目标存储信息并支持用户检索和更新所需要的信息。图3.1数据库系统简图3-2数据库系统的简介通过图书馆图书管理系统管理员可以简捷、方便的对图书记录查阅、增加、删除等功能，而用户也可以通过这个系统对进行图书查询、借阅、归还等功能。 该数据库应用程序按照用户权限和实现功能的不同分为两部分：外部学生对数据库的查询访问和内部管理人员对数据记录的管理维护。每一部分中包含各自实现的各项功能,对每一项功能的实现,将按照窗体设计以及运行情况的

8、顺序逐一进行设计。本系统采用Microsoft access技术建立数据库，使用VB技术建立数据源的链接,并且生成图书管理的数据库应用程序从而实现数据库的管理功能。 3-3数据库的设计思想（1） 规划阶段确定开发的总目标，给出计划开发的软件系统的功能、性能、可靠性以及接等方面的设想。 （2） 需求分析阶段认真细致地了解用户对数据的加工要求，确定系统的功能与边界。本阶段的最终结果，提供一个可作为设计基础的系统说明书，包括对软硬件环境的要求和一整套完善的数据流程图。（3） 设计阶段把需求分析阶段所确定的功能细化，主要工作是概念设计阶段、逻辑设计阶段、物理设计阶段，然后，对每个阶段内部设计详细的流程

9、。 （4） 程序编制阶段以一种或几种特定的程序设计语言表达上一阶段确定的各模块控制流程。程序编制时应遵循结构化程序设计方法。（5） 调试阶段对已编好的程序进行单元调试（分调），整体调试（联调）和系统测试（验收）。（6） 运行和维护阶段这是整个设计周期最长的阶段，其工作重点是收集和记录系统实际运行的数据。在运行中，必须保持数据库的完整性，必须有效的处理数据故障和进行数据库恢复。同时解决开发过程的遗留问题，改正错误进行功能完善。3-4利用Access创建数据库图3.1：读者包括读者编号、读者姓名、读者类别、家庭住址、电话号码等。图3.1读者数据库图3.2：图书包括书籍编号、书籍名称、书籍类别、作者

10、姓名、出版社名称、出版日期、登记日期、备注信息等。 图3.2图书数据库图3.3：业务包括图书信息和借书及还书的详细信息图 3.3业务数据库图3.4：用户包括编号、用户名、密码等。 图 3.4用户数据库3-5连接数据及数据库在Visual Basic环境下，选择“工程”“引用”命令来连接数据，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图3.5所示。图3.5引用对话框在Visual Basic环境下，ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。开控制面板中的“管理工具”“数据

11、源”(ODBC)，出现如图3.6所示对话框。图3.6ODBC对话框图单击“添加”按钮，出现“建新数据源”话框，如图3.7所示。3.7建新数据源对话框在”创建新数据源”对话框 选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图3.8所示对话框。图3.8创建新数据源对话框设置连接数据源: 在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。3-6数据库公共模块模块（MODADO）代码:Global DBCon As New ADODB.ConnectionGlobal DBRec

12、 As New ADODB.Recordset错误处理Public Function Errs(Err As ErrObject, Title As String) As BooleanIf Err.Number 0 Then Errs = False MsgBox Title & vbCrLf & vbCrLf & 错误代码: & Err.Number & vbCrLf & 错误描述: & Err.Description, vbCritical + vbOKOnly, 错误信息 Err.ClearElse Errs = TrueEnd IfEnd Function连接数据库Public Fu

13、nction Con2Srv() As BooleanOn Error Resume Next常规方法打开数据库文件DBCon.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=BM.mdb;Persist Security Info=FalseDBCon.Open Con2Srv = Errs(Err, 数据库连接失败!)End Function查询数据库Public Function query(SQL As String) As BooleanOn Error Resume NextSet DBRec = New R

14、ecordsetCall DBRec.Open(SQL, DBCon, adOpenDynamic, adLockOptimistic, -1)query = Errs(Err, 数据库查询失败!)End Function关闭数据库Public Function DisCon() As BooleanOn Error Resume NextIf DBCon.State = adStateOpen Then DBCon.CloseDisCon = TrueEnd Function模块（MODBM）部分代码:选中文本框的内容Public Function TextFocus(Text As Tex

15、tBox)Text.SelStart = 0Text.SelLength = Len(Text.Text)End Function向列表框添加项目Public Function CboList(Cbo As ComboBox, SQL As String)On Error Resume NextDim DBRecList As New RecordsetCbo.ClearCall DBRecList.Open(SQL, DBCon, adOpenDynamic, adLockOptimistic, -1)If Errs(Err, 数据库查询失败!) = True Then While Not

16、DBRecList.EOF Cbo.AddItem DBRecList.Fields(0).Value DBRecList.MoveNext WendEnd IfDBRecList.CloseEnd Function向网格添加信息Public Function MsgList(MSG As MSFlexGrid, DBRec As ADODB.Recordset) As IntegerOn Error Resume NextMSG.Rows = 1MSG.Cols = DBRec.Fields.CountMSG.Row = 0For i = 0 To DBRec.Fields.Count -

17、1 MSG.Col = i MSG.Text = DBRec.Fields(i).Name MSG.CellAlignment = 4 MSG.ColWidth(i) = DBRec.Fields(i).DefinedSize * 100 If MSG.ColWidth(i) 1000 Then MSG.ColWidth(i) = 1000Next iDBRec.MoveFirstWhile Not DBRec.EOF MSG.AddItem Empty MSG.Row = MSG.Rows - 1 MSG.RowData(MSG.Row) = DBRec.Fields(0).Value Fo

18、r i = 0 To DBRec.Fields.Count - 1 MSG.Col = i MSG.Text = DBRec.Fields(i).Value If MSG.Text Like True Then MSG.Text = 已借 ElseIf MSG.Text Like False Then MSG.Text = 未借 End If MSG.CellAlignment = 4 Next i DBRec.MoveNext MsgList = MsgList + 1WendEnd Function第四章 详细设计4-1用户进入模块通过输入用户名和密码进行登陆。界面如下：图4.1 登陆界面

19、程序如下：Private Sub Command1_Click() 输入用户名和密码 Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & BM.mdb If Trim(Text1.Text) = Then MsgBox 用户名不能为空，请重新输入！ Text1.SetFocus Else sql = select * from 用户 wher

20、e 用户名= & Trim(Text1.Text) & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, Text1.Text = Text2.Text = Text1.SetFocus Else username = Text1.Text If Trim(rs_login.Fields(1) = Trim(Text2.Text) Then Unload Me FrmMain.Sho

21、w Else MsgBox 密码不正确,请重输入！, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub界面分析和功能:在代码中要求输入正确的用户、密码才可以进去。输入的用户密码在属性PasswordChar中设置了用*。4-2系统主界面管理模块主界面（frmMain）如下图：图4.2 主界面主界面包括图

22、书资料、读者资料、用户信息、借还书信息以及统计等功能。并且利用Toolbar工具加入按钮使其进行快速查找。利用Statusbar的属性填写个人的基本信息及对日期和时间进行设置。4-3 图书管理模块图书管理模块主要功能是实现图书的添加、删除以及修改。4-3-1图书的添加功能模块界面如下：图4.3 图书添加界面程序代码如下：Private Sub Cbo_GotFocus()Call CboList(Cbo, select 分类 from 图书 group by 分类)End SubPrivate Sub Cmd_Click(Index As Integer)Select Case IndexCa

23、se 2 AddBookCase 3 Unload MeEnd SelectEnd SubFunction AddBook()If Not (Text(1).Text = Empty Or Text(2).Text = Empty Or Text(3).Text = Empty Or _Text(4).Text = Empty Or Cbo.Text = Empty) Then If Query(select * from 图书 where 书名 like & Text(1).Text & _ and 作者 like & Text(2).Text & and 出版社 like & Text(3

24、).Text & ) = True Then If MsgList(MSG, DBRec) = 0 Then DBRec.AddNew For i = 1 To 4 DBRec.Fields(i).Value = Text(i).Text Next i DBRec.Fields(5).Value = Cbo.Text DBRec.Update Call MsgList(MSG, DBRec) MsgBox 资料添加成功！, vbInformation, 图书管理系统 MsgBox 请将表格中显示的图书编号填写在标签上，并贴到图书的书脊上！ & vbCrLf & 这是此书在数据库中的唯一编号！,

25、 vbInformation, 图书管理系统！ For i = 1 To 4 Text(i).Text = Empty Next i Cbo.Clear Else MsgBox 数据库中已有该书的资料，请确认！, vbCritical, 图书管理系统 End If End IfElse MsgBox 图书资料未填完整！, vbCritical, 图书管理系统End IfText(1).SetFocusEnd FunctionPrivate Sub Text_Change(Index As Integer)Text(Index).Text = Trim(Text(Index).Text)End

26、SubPrivate Sub Text_GotFocus(Index As Integer)Call TextFocus(Text(Index)End SubPrivate Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)If Index = 0 Or Index = 4 Then KeyAscii = Num(KeyAscii)End Sub4-3-2图书修改的功能模块界面如下：图4.4 图书修改界面程序代码如下：Private Sub Cbo_GotFocus()Call CboList(Cbo, select 分类 from

27、 图书 group by 分类)End SubPrivate Sub Cmd_Click(Index As Integer)Select Case IndexCase 0 If QueryInt(select * from 图书 where 图书编号=, Text(0), MSG) = True Then Cmd(1).Enabled = True Cmd(1).SetFocus End IfCase 1 EnableEdit DBRec.MoveFirst For i = 1 To 4 Text(i).Text = DBRec.Fields(i).Value Next i Cbo.Text

28、= DBRec.Fields(5).ValueCase 2 ModBookCase 3 Unload MeEnd SelectEnd SubFunction ModBook()Dim i As IntegerIf Not (Text(1).Text = Empty Or Text(2).Text = Empty Or Text(3).Text = Empty Or _ Text(4).Text = Empty Or Cbo.Text = Empty) Then DBRec.MoveFirst For i = 1 To 4 DBRec.Fields(i).Value = Text(i).Text

29、 Next i DBRec.Fields(5).Value = Cbo.Text DBRec.Update Call MsgList(MSG, DBRec) MsgBox 资料修改成功, vbInformation, 图书管理系统 For i = 1 To 4 Text(i).Text = Empty Next i Cbo.Text = Empty UnEnableEdit Text(0).Text = EmptyElse MsgBox 图书资料未填完整！, vbCritical, 图书管理系统End IfEnd FunctionPrivate Sub Text_Change(Index As

30、 Integer)Text(Index).Text = Trim(Text(Index).Text)End SubPrivate Sub Text_GotFocus(Index As Integer)Call TextFocus(Text(Index)End SubPrivate Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)If Index = 0 Or Index = 4 Then KeyAscii = Num(KeyAscii)End SubFunction EnableEdit()Dim i As IntegerFor

31、i = 1 To 4 Text(i).Enabled = True Lbl(i).Enabled = TrueNext iLbl(5).Enabled = TrueCbo.Enabled = TrueCmd(0).Enabled = FalseCmd(1).Enabled = FalseCmd(2).Enabled = TrueText(0).Enabled = FalseLbl(0).Enabled = FalseCmd(2).Default = TrueText(1).SetFocusEnd FunctionFunction UnEnableEdit()Dim i As IntegerFo

32、r i = 1 To 4 Text(i).Enabled = False Lbl(i).Enabled = FalseNext iLbl(5).Enabled = FalseCbo.Enabled = FalseCmd(0).Enabled = TrueCmd(1).Enabled = FalseCmd(2).Enabled = FalseText(0).Enabled = TrueLbl(0).Enabled = TrueCmd(0).Default = TrueText(0).SetFocusEnd Function4-3-3图书的删除功能模块界面如下：图4.5 图书删除界面程序代码如下：

33、Private Sub Cmd_Click(Index As Integer)Select Case IndexCase 2 DelBookCase 3 Unload MeEnd SelectEnd SubFunction DelBook()If QueryInt(select * from 图书 where 图书编号=, Text(0), MSG) = True Then If MsgBox(真的要删除图书资料吗？, vbQuestion + vbYesNo, 图书管理系统2008) = vbYes Then DBRec.MoveFirst DBRec.Delete DBRec.Update

34、 Call MsgList(MSG, DBRec) MsgBox 资料已经删除, vbInformation, 图书管理系统2008 Text(0).Text = Empty End IfEnd IfEnd FunctionPrivate Sub Text_Change(Index As Integer)Text(Index).Text = Trim(Text(Index).Text)End SubPrivate Sub Text_GotFocus(Index As Integer)Call TextFocus(Text(Index)End SubPrivate Sub Text_KeyPre

35、ss(Index As Integer, KeyAscii As Integer)If Index = 0 Or Index = 4 Then KeyAscii = Num(KeyAscii)End Sub4-4借还书管理模块借还书管理模块主要实现借书业务和还书业务。4-4-1借书管理模块界面如下：图4.6借书管理界面程序代码如下：Private Sub Cmd_Click(Index As Integer)Select Case IndexCase 0 BorrowBookCase 1 Unload MeEnd SelectEnd SubFunction BorrowBook()If Que

36、ryInt(select * from 读者 where 读者编号=, Text(0), MSG(0) = True Then DBRec.MoveFirst If DBRec.Fields(DBRec.Fields.Count - 1) = False Then If QueryInt(select * from 图书 where 图书编号=, Text(1), MSG(1) = True Then DBRec.MoveFirst If DBRec.Fields(DBRec.Fields.Count - 1) = False Then If Query(select * from 业务 wh

37、ere 业务编号=0) = True Then DBRec.AddNew DBRec.Fields(1).Value = Val(Text(0).Text) DBRec.Fields(2).Value = Val(Text(1).Text) DBRec.Fields(3).Value = Date DBRec.Update If Query(select * from 读者 where 读者编号= & Val(Text(0).Text) = True Then DBRec.Fields(DBRec.Fields.Count - 1).Value = True DBRec.Update Call

38、 MsgList(MSG(0), DBRec) End If If Query(select * from 图书 where 图书编号= & Val(Text(1).Text) = True Then DBRec.Fields(DBRec.Fields.Count - 1).Value = True DBRec.Update Call MsgList(MSG(1), DBRec) End If MsgBox 业务办理成功！, vbInformation, 图书管理系统 Text(0).Text = Empty Text(1).Text = Empty End If Else 图书已经借出 Ms

39、gBox 该书已经借出！, vbCritical, 图书管理系统 End If End If Else 读者业务状态为已借 Call QueryInt(select T.业务编号,T.读者编号,R.姓名,T.图书编号,B.书名,T.借出日期 from 业务 as T,图书 as B,读者 as R where T.图书编号=B.图书编号 and B.业务状态=True and T.读者编号=R.读者编号 and T.读者编号=, Text(0), MSG(1) MsgBox 该读者尚有图书未还！不能办理新的借书业务！, vbCritical, 图书管理系统 End IfEnd IfText(0

40、).SetFocusEnd FunctionPrivate Sub Text_Change(Index As Integer)Text(Index).Text = Trim(Text(Index).Text)End SubPrivate Sub Text_GotFocus(Index As Integer)Call TextFocus(Text(Index)End SubPrivate Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)KeyAscii = Num(KeyAscii)End Sub4-4-2还书管理模块界面如下：此管理模块主要功能是实现还书信息。图4.7 还书管理界面4-5 读者资料管理模块读者管理模块主要功能是实现读者的添加、删除以及修改。4-5-1添加读者信息此管理模块主要功能是实现读者的添加。4-5-2修改读者信息此管理模块主要功能是实现读者的修改。4-5-3删除读者信息此管理模块主要功能是实现读者的删除。4-6用户信息管理模块用户信息管理模块主要实现用户的添加、删除和修改等功能。4-6-1用户添加管理模块界面如下：此管理模块主要功能是实现用户的添