图书管理系统Word格式.docx

1、 系统管理模块:用来实现用户的增加、删除和修改等操作。三、数据库设计这里的数据库采用Access，用ADO作为连接数据对象。1、建立Access 数据库启动Access，建立一个空的数据库book.mdb，如图8所示。使用程序设计器建立系统需要的表格如下。图书登记表，如图9所示。图8 建立数据库book.mdb 图9 图书登记表图书借阅表，如图10所示。图书赔偿表，如图11所示。图10 图书借阅表 图11 图书赔偿表图书资料表，如图12所示。系统管理表，如图13所示。图12 图书资料表 图13 系统管理表投诉管理表，如图14所示。图14 投诉管理表值班管理表，如图15所示。图15 值班管理表2

2、、连接数据在Visual Basic环境下，选择“工程”“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图16所示。图16 引用ADO连接数据库在程序设计的公共模块中，先定义ADO连接对象。语句如下:Public conn As New ADODB.Connection 标记连接对象然后在子程序中，用如下的语句即可打开数据库:Dim connectionstring As Stringconnectionstring = provider=Microsoft.Jet.oledb.4.0; &

3、_data source=book.mdbconn.Open connectionstring3、设置ODBCVB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。打开控制面板中的“管理工具”“数据源”（ODBC），出现如图17所示的对话框。图17 ODBC对话框单击“添加”按钮，出现“创建新数据源”对话框，如图18所示。图18 “创建新数据源”对话框选择Microsoft Access Driver（*.mdb），单击“完成”按钮，出现如图19所示对话框。图19 设置连接数据源在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话

4、框中单击“确定”按钮完成ODBC设置。界面设计设计好的界面如图20所示。图20 图书管理系统界面这是一个多文档界面（MDI）应用程序，可以同时显示多个文档，每个文档显示在各自的窗体中。MDI 应用程序中常有包含子菜单的“窗体”选项，用于在窗体或文档之间进行切换。菜单应用程序中，有5个菜单选项，每个选项对应着E-R图的一个子项目。1、创建主窗体首先创建一个工程，命名为图书管理系统，选择“工程”“添加MDI窗体”命令，则在项目中添加了主窗体。该窗体的一些属性如表1所示。表1 主窗体的属性属 性值 Caption 图书管理系统 Name Main Menu Mainmenu1 Windowstate

5、 Maxsize Windowstate的值为Maxsize，即程序启动之后自动最大化。将“菜单”组件从“工具箱”拖到窗体上。创建一个 Text 属性设置为“文件”的顶级菜单项，且带有名为“关闭”的子菜单项。类似地创建一些菜单项，如表2所示。表2 菜 单 项 表菜 单 名 称 Text属性 功 能 描 述 MenuItem1 图书管理 顶级菜单，包含子菜单 MenuItem2 图书登记 调出图书登记窗体 MenuItem3 图书借阅 调出图书借阅窗体 MenuItem4 图书赔偿 调出图书赔偿窗体 MenuItem5 图书资料 顶级菜单，包含子菜单 MenuItem6 查询输出 调出查询输出窗

6、体 MenuItem7 值班管理 顶级菜单，没有子菜单 MenuItem8 投诉管理 顶级菜单，没有子菜单 MenuItem9 系统管理 顶级菜单，包含子菜单 MenuItem10 增加用户 调出用户窗体 MenuItem11 修改密码 调出密码窗体 MenuItem12 退出 系统退出 主窗体如图21所示。图21 主窗体2、创建各子窗体选择“工程”“添加窗体”命令，添加子窗体。在新建Visual Basic工程时自带的窗体中，将其属性MIDChild改成True，则这个窗体成为MID窗体的子窗体。在这个项目中，要创建的子窗体如表3所示。表3 所有子窗体子 窗 体 名 Text 图书登记 fr

7、mdengji 图书借阅 frmjieyue 图书赔偿 frmpeichang 增加新用户 frmadduser 查询输出 frmfind 登录系统 frmlogin 修改密码 frmchangepwd 下面分别给出这些子窗体，以及它们所使用的控件。（1） 图书登记子窗体如图22所示，其控件如表4所示。图22 图书登记子窗体表4 图书登记子窗体控件控 件 类 别 控件Name 控件Text Label Label1 编号 Label2 书名 Label3 类型 Label4 购买日期 Label5 定价 TextBox Text1 （空） Text2 （空） Text3 （空） Text4 （

8、空） Text5 （空） CommandButton Command1 增加记录 Command2 删除记录 Command3 下一条 Command4 上一条 Command5 第一条 Command6 最后一条 Command7 退出 ADO DataAdodc1 （空） DataGrid DataGrid1 （空） 图书借阅和图书赔偿子窗体分别如图23和图24所示，因为它们的控件与图书登记子窗体的雷同，在此不作介绍。图23 图书借阅子窗体图24 图书赔偿子窗体（2） 增加用户子窗体如图25所示，其控件如表5所示。图25 增加用户子窗体表5 增加用户子窗体控件Label Label1 输入

9、用户名 Label2 输入密码 Label3 确认密码 Label4 选择权限 ComboBox Comb1 （空） CommandButton Commandl 确定 Command2 取消 （3） 修改密码子窗体如图26所示。图26 修改密码子窗体（4） 库房管理子窗体如图27所示。图27 库房管理子窗体其控件如表6所示。表6 库房管理子窗体控件ComboBox Combo1 MSFlexGrid MSFlexGrid1 （5） 查询子窗体如图28所示，其控件如表7所示。图28 查询子窗体表7 查询子窗体控件OptionButton Option1 按编号查询 Option2 按购买日期查

10、询 Label Label1 从 Label2 到 Label3 从 Label4 年 Label5 月 Label6 日 Label7 到 Label8 年 Label9 月 Label10 日 Combo（0） ComboBox Combo1 （空） Combo（1） ComboBox Combo1 （空） Comboy（0） ComboBox Comboy （空） Comboy（1） ComboBox Comboy （空） Combom（0） ComboBox Combom （空） Combom（1） ComboBox Combom （空） Combod（0） ComboBox Comb

11、od （空） Combod（1） ComboBox Combod （空） CommandButton Command1 查询 （6） 用户登录子窗体如图29所示。（7） 值班管理子窗体如图30所示，其控件如表8所示。图29 用户登录子窗体 图30 值班管理子窗体（8） 投诉管理子窗体如图31所示，其控件如表9所示。图31 投诉管理子窗体建立公共模块1、显示目录建立公共模块可以提高代码的效率，同时使得修改和维护代码都很方便。创建公共模块的步骤如下:（1） 在菜单中选择“工程”“添加模块”命令，则出现模块对话框，如图32所示。（2） 选择模块图标后，单击“打开”按钮，则模块已经添加到项目中了。默认

12、情况下名为Module1。图32 模块对话框（3） 在模块中定义整个项目的公共变量。Public userID As String 标记当前用户IDPublic userpow As String 标记用户权限Public find As Boolean 标记查询Public sqlfind As String 查询语句Public rs_data1 As New ADODB.RecordsetPublic findok As BooleanPublic frmdata As BooleanPublic Const keyenter = 13 enter键的ASCII码在主窗体添加完菜单之后，

13、就要为各个子菜单创建事件处理程序。主窗体代码在本项目中，子菜单事件都是Click事件，这里先给出主窗体部分的代码。下面是响应“增加用户”子菜单Click事件，调出增加用户窗体代码。Private Sub adduser_Click（）frmadduser.ShowEnd Sub下面是响应“查询输出”子菜单Click事件，调出查询输出窗体代码。Private Sub chaxunshuchu_Click（）frmfind.Show下面是响应“退出”子菜单Click事件，调出退出窗体代码。Private Sub exit_Click（）Unload Me下面是响应“图书登记”子菜单Click事件，

14、调出图书登记窗体代码。Private Sub checkin_Click（）frmdengji.Show下面是响应“修改密码”子菜单Click事件，调出修改密码窗体代码。Private Sub changepwd_Click（）frmchangepwd.Show下面是响应“图书借阅”子菜单Click事件，调出图书借阅窗体代码。Private Sub borrow_Click（）frmjieyue.Show下面是响应“图书赔偿”子菜单Click事件，调出图书赔偿窗体代码。Private Sub tushupeichang_Click（）frmpeichang.Show 1下面是响应“值班管理”菜

15、单Click事件，调出值班管理窗体代码。Private Sub zhibanguanli_Click（）frmzhiban.Show 1下面是响应“投诉管理”子菜单Click事件，调出投诉管理窗体代码。Private Sub tousuguanli_Click（）frmtousu.Show 12、各子窗体的代码在各个子窗体建立好后，就可以根据各个子窗体的功能给它们添加相应代码了。（1） 图书登记子窗体代码本窗体用来填写图书登记的信息，用ADO来连接数据库，是本窗体的重点。采用MDI的子程序，所以运行后，它出现在主程序的界面下，如图33所示。图33 图书登记子窗体按钮控件要求先填写基本信息，然后

16、与数据库信息比较。Private Sub Command1_Click（）On Error GoTo adderrText1.SetFocusAdodc1.Recordset.AddNewExit Subadderr:MsgBox Err.DescriptionPrivate Sub Command2_Click（）On Error GoTo deleteerrWith Adodc1.RecordsetIf Not .EOF And Not .BOF ThenIf MsgBox（删除当前记录吗?, vbYesNo + vbQuestion） = vbYes Then.Delete.MoveNe

17、xtIf .EOF Then .MoveLastEnd IfEnd Withdeleteerr:Private Sub Command3_Click（）Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenMsgBox 这是最后一条记录, vbOKCancel + vbQuestionAdodc1.Recordset.MoveLastPrivate Sub Command4_Click（）Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then这是第一条记录Adodc1.Records

18、et.MoveFirstPrivate Sub Command5_Click（）记录空EndElsePrivate Sub Command6_Click（）If Adodc1.Recordset.RecordCount = 0 Then空记录Private Sub Command7_Click（）MDIForm1.Showfrmdengji.Hide图书借阅和图书赔偿子窗体运行后如图34和图35所示，因为它们的代码和图书登记子窗体的代码雷同，在此不做重复。图34 图书借阅子窗体运行效果图35 图书赔偿子窗体运行效果（2） 增加用户子窗体代码增加用户子窗体是用来增加用户的用户名、密码和权限的。其

19、运行效果如图36所示。单击“确定”按钮后，还要返回一个信息框，提示成功信息，如图37所示。图36 增加用户子窗体运行效果 图37 成功信息框窗体部分代码的思路是，收集输入的表中的字符串，然后与数据库中的系统的用户数据比较，如果不存在，则允许添加。Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim（Text1.Text） = Then用户名不能为空, vbOKOnly + vbExclamation, sql = select * from 系统管理rs_add.Open sql, conn, adOpenKeyset, adLoc

20、kPessimisticWhile （rs_add.EOF = False）If Trim（rs_add.Fields（0） = Trim（Text1.Text） Then已有这个用户Text1.Text = Text2.Text = Text3.Text = Combo1.Text = rs_add.MoveNextWendIf Trim（Text2.Text） Trim（Text3.Text） Then两次密码不一致Text2.SetFocusElseIf Trim（Combo1.Text） system And Trim（Combo1.Text） guest请选择正确的用户权限Combo1.SetFocusrs_add.AddNewrs_add.Fields（0） = Text1.Textrs_add.Fields（1） = Text2.Textrs_add.Fields（2） = Combo1.Textrs_add.Updaters_add.Close下面是返回成功信息对话框的代码:添加用户成功（3） 修改密码子窗体代码修改密码子窗体是用来修改用户密码的。其运行效果如图38所示。图38 修改密码子窗体运行效果在“确定”按钮的Click事件中添加如下代码:Dim rs_chang As New ADODB.RecordsetIf Trim（Text