VB+Access设计图书管理系统一、需求分析在进行一个项目的设计之前，先要进行必要的需求分析。
现某图书馆需要管理其各种人员和图书信息，希望实现办公的信息化，通过建立一个图书管理系统来管理图书。
其完成的功能如下:(1) 可以实现图书的登记、借阅和赔偿的管理。
(2) 可以实现对图书的各种信息的查询，包括逐个浏览，以及对图书信息的增加、删除和编辑操作。
另外，可以根据输入的信息来检索某个图书的信息。
(3) 可以实现对管理人员的投诉管理。
(4) 可以实现对值班人员的管理。
系统的功能模块图如图1所示。
本实例根据上面的设计规划出的实体有图书登记实体、图书借阅实体、图书赔偿实体、查询输出实体、值班管理实体、投诉管理实体。
各个实体具体的描述E-R图如下。
图书登记实体E-R图如图2所示。
图书借阅实体E-R图如图3所示。
阴图1系统的功能模块图目期姓名甌日期田葛匹号擁■不启亡类塑定协弔名备注^±3 口痴P图2图书登记实体 E-R 图图书赔偿实体E-R 图如图4所示。
图4图书赔偿实体E-R 图 投诉管理实体E-R 图如图5所示。
图3图书借阅实体 E-R 图 團书借阖卖萍團丰登记实悴画书ij 馆曜弱体值班管理实体E-R图如图6所示。
查询输出实体E-R图如图7所示。
根据上面的需求分析，设计好数据库系统，然后开发应用程序可以考虑的窗体的系统，每一个窗体实现不同的功能，可以设计下面的几个模块。
•图书管理模块：用来实现图书的登记、借阅、赔偿。
•图书资料模块：用来实现图书的查询输出。
•值班管理模块：用来实现管理人员的值班浏览。
•投诉管理模块：用来实现对管理人员的投诉管理。
•系统管理模块:用来实现用户的增加、删除和修改等操作。
三、数据库设计这里的数据库采用Access,用ADO作为连接数据对象。
1、建立Access数据库启动Access，建立一个空的数据库book.mdb，如图8所示。
使用程序设计器建立系统需要的表格如下。
图书登记表，如图9所示。
图8建立数据库book.mdb图9图书登记表图书借阅表，如图10所示。
图书赔偿表，如图11所示。
U■皿■amcx tUTJ^■av»4i乐・匕It的曲WUT_1裁5-币壬号1KC1Ht*JFf■壶■口"■ MHC!*! A图10图书借阅表图11图书赔偿表■Jc图12图书资料表图13系统管理表 投诉管理表，如图14所示。
™*rHi L MM wd■包.■■耳■・ tiBtfr-i MW wwnrw图14投诉管理表值班管理表，如图15所示。
图书资料表，如图 12所示。
系统管理表，如图 13所示。
-—■ B nr i-JC4Enc:亦些.rjf = E . AB* 严・w e« «0 TWtSfsa«K■A 池■蔓U AZ«jFFgkf*H 利对甕■羊百1 老揮空事詡■4 Mlti 宀 EA <3W wTHiBlIwrt■卄 a■•■II ・JrMw AJ r图15值班管理表2、连接数据在Visual Basic环境下，选择工程”宀引用"命令，在随后出现的对话框中选择Microsoft ActiveX Data Objects 2.0 Library ，然后单击确定"按钮，如图16所示。
图16引用ADO连接数据库在程序设计的公共模块中，先定义ADO连接对象。
语句如下Public conn As New ADODB.Co nn ection ' 标记连接对象然后在子程序中，用如下的语句即可打开数据库Dim conn ecti on stri ng As Stringconnection stri ng = "provider=Microsoft.Jet.oledb.4.0;" &_"data source=book.mdb"conn. Ope n connection stri ng3、设置ODBCVB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。
打开控制面板中的管理工具数据源” (ODBC),出现如图17所示的对话框。
qp Ki j 9Vi n t VW IJWS 退期,i Wf ；**M(D：|Ptt« ^ww ~VJ O | jttttlE) |• 蟲繼昨簡L"强姻立■汕图17 ODBC对话框单击添加”按钮，出现创建新数据源”对话框，如图18所示。
图18创建新数据源”对话框选择Microsoft Access Driver(*.mdb)，单击完成"按钮，出现如图19所示对话框。
图19设置连接数据源界面设计设计好的界面如图20所示。
图20图书管理系统界面这是一个多文档界面（MDI）应用程序，可以同时显示多个文档，每个文档显示在各自的窗体中。
MDI应用程序中常有包含子菜单的窗体”选项，用于在窗体或文档之间进行切换。
菜单应用程序中，有5个菜单选项，每个选项对应着E-R图的一个子项目。
1、创建主窗体首先创建一个工程，命名为图书管理系统，选择工程” T添加MDI窗体”命令，则在项目中添加了主窗体。
该窗体的一些属性如表1所示。
表1主窗体的属性属性值Caption 图书管理系统LameMainI[Menu Mainmenu1|windowstateMaxsizeWindowstate的值为Maxsize，即程序启动之后自动最大化。
将菜单”组件从工具箱”拖到窗体上。
创建一个Text属性设置为文件”的顶级菜单项, 且带有名为关闭”的子菜单项。
类似地创建一些菜单项，如表2所示。
表主窗体如图21所示。
图21主窗体2、创建各子窗体选择工程” T添加窗体”命令，添加子窗体。
在新建Visual Basic工程时自带的窗体中，将其属性MIDChild改成True，则这个窗体成为MID窗体的子窗体。
在这个项目中，要创建的子窗体如表3所示。
表3所有子窗体子窗体名〔Text图书登记frmdengji图书借阅frmjieyue［图书赔偿frmpeichang增加新用户frmadduser查询输岀frmfind1登录系统frmloginfrmchangepwd修改密码F面分别给出这些子窗体，以及它们所使用的控件。
图22图书登记子窗体表Command3|下一条Command4|上一条Command5|第一条Command6|最后一条Command7 |退出ADO DataAdodcl （空）| DataGrid DataGridl （空）|图书借阅和图书赔偿子窗体分别如图23和图24所示，因为它们的控件与图书登记子窗体的雷同，在此不作介绍。
图23图书借阅子窗体图24图书赔偿子窗体（2）增加用户子窗体如图25所示，其控件如表5所示。
F------ ----- ------ ---- = ----------------------------------------------------------------Ife. '-JS1IM加AZ亶科f~~I rlMt i -图25增加用户子窗体表5增加用户子窗体控件控件类别控件Name 控件TextLabel Label1 输入用户名Label2 输入密码Label3 确认密码Label4 选择权限TextBox Text1 （空）Text2 （空）Text3 （空）ComboBox Comb1 （空）CommandButtonCommandl 确定Command2 取消（3）修改密码子窗体如图26所示。
图26修改密码子窗体(4) 库房管理子窗体如图27所示。
图27库房管理子窗体其控件如表6所示。
表6库房管理子窗体控件(5) 查询子窗体如图28所示，其控件如表7所示。
图28查询子窗体(6) 用户登录子窗体如图29所示。
(7) 值班管理子窗体如图30所示，其控件如表8所示。
图29用户登录子窗体图30值班管理子窗体(8) 投诉管理子窗体如图31所示，其控件如表9所示。
图31投诉管理子窗体建立公共模块1、显示目录建立公共模块可以提高代码的效率，同时使得修改和维护代码都很方便。
创建公共模块的步骤如下(1) 在菜单中选择工程” T添加模块”命令，则出现模块对话框，如图32所示。
(2) 选择模块图标后，单击打开”按钮，则模块已经添加到项目中了。
默认情况下名为Modulel。
图32模块对话框(3) 在模块中定义整个项目的公共变量。
Public conn As New ADODB.Co nn ection ' 标记连接对象Public userID As Stri ng '标记当前用户IDPublic userpow As String '标记用户权限Public find As Boolean '标记查询Public sqlfind As Stri ng ' 查询语句Public rs_data1 As New ADODB.RecordsetPublic fin dok As Boolea nPublic frmdata As Boolea nPublic Con st keye nter = 13 ' en ter 键的ASCII 码在主窗体添加完菜单之后，就要为各个子菜单创建事件处理程序。
主窗体代码Private Sub adduser_Click()frmadduser.ShowEnd Sub下面是响应“查询输出”子菜单Click 事件，调出查询输出窗体代码。
Private Sub chaxunshuchu_Click()frmfind.ShowEnd Sub下面是响应“退出”子菜单Click 事件，调出退出窗体代码。
Private Sub exit_Click()Unload MeEnd Sub下面是响应“图书登记”子菜单Click 事件，调出图书登记窗体代码。
Private Sub checkin_Click()frmdengji.ShowEnd Sub下面是响应“修改密码”子菜单Click 事件，调出修改密码窗体代码。
Private Sub changepwd_Click()frmchangepwd.ShowEnd Sub下面是响应“图书借阅”子菜单Click 事件，调出图书借阅窗体代码。
Private Sub borrow_Click()frmjieyue.ShowEnd Sub下面是响应图书赔偿”子菜单Click事件，调出图书赔偿窗体代码。
Private Sub tushupeicha ng_Click()frmpeicha ng.Show 1End Sub下面是响应值班管理”菜单Click事件，调出值班管理窗体代码。