曝光台 注意防骗
网曝天猫店富美金盛家居专营店坑蒙拐骗欺诈消费者
● 系统管理模块:用来实现用户的增加、删除和修改等操作。
三、数据库设计
这里的数据库采用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、连接数据
在Visual Basic 环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data
Objects 2.0 Library”，然后单击“确定”按钮，如图16 所示。
图16 引用ADO 连接数据库
在程序设计的公共模块中，先定义ADO 连接对象。语句如下:
Public conn As New ADODB.Connection ' 标记连接对象
然后在子程序中，用如下的语句即可打开数据库:
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" &_
"data source=book.mdb"
conn.Open connectionstring
3、设置ODBC
VB 的ADO 对象是通过ODBC 来访问数据库，所以还要建立ODBC 数据引擎接口。
打开控制面板中的“管理工具”→“数据源”(ODBC)，出现如图17 所示的对话框。
图17 ODBC 对话框
单击“添加”按钮，出现“创建新数据源”对话框，如图18 所示。
图18 “创建新数据源”对话框
选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图19 所示对话框。
图19 设置连接数据源
在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC 对话框
中单击“确定”按钮完成ODBC 设置。
界面设计
设计好的界面如图20 所示。
图20 图书管理系统界面
这是一个多文档界面(MDI)应用程序，可以同时显示多个文档，每个文档显示在各自的窗体中。MDI 应
用程序中常有包含子菜单的“窗体”选项，用于在窗体或文档之间进行切换。
菜单应用程序中，有5 个菜单选项，每个选项对应着E-R 图的一个子项目。
1、创建主窗体
首先创建一个工程，命名为图书管理系统，选择“工程”→“添加MDI 窗体”命令，则在项目中添加了主
窗体。该窗体的一些属性如表1 所示。
表1 主窗体的属性
属性值
Caption 图书管理系统
Name Main
Menu Mainmenu1
Windowstate Maxsize
Windowstate 的值为Maxsize，即程序启动之后自动最大化。
将“菜单”组件从“工具箱”拖到窗体上。创建一个Text 属性设置为“文件”的顶级菜单项，且带有名为“关
闭”的子菜单项。类似地创建一些菜单项，如表2 所示。
表2 菜单项表
菜单名称Text 属性功能描述
MenuItem1 图书管理顶级菜单，包含子菜单
MenuItem2 图书登记调出图书登记窗体
MenuItem3 图书借阅调出图书借阅窗体
MenuItem4 图书赔偿调出图书赔偿窗体
MenuItem5 图书资料顶级菜单，包含子菜单
MenuItem6 查询输出调出查询输出窗体
MenuItem7 值班管理顶级菜单，没有子菜单
MenuItem8 投诉管理顶级菜单，没有子菜单
MenuItem9 系统管理顶级菜单，包含子菜单
MenuItem10 增加用户调出用户窗体
MenuItem11 修改密码调出密码窗体
MenuItem12 退出系统退出
主窗体如图21 所示。
图21 主窗体
2、创建各子窗体
选择“工程”→“添加窗体”命令，添加子窗体。
在新建Visual Basic 工程时自带的窗体中，将其属性MIDChild 改成True，则这个窗体成为MID 窗体
的子窗体。
在这个项目中，要创建的子窗体如表3 所示。
表3 所有子窗体
子窗体名Text
图书登记frmdengji
图书借阅frmjieyue
图书赔偿frmpeichang
增加新用户frmadduser
查询输出frmfind
登录系统frmlogin
修改密码frmchangepwd
下面分别给出这些子窗体，以及它们所使用的控件。
(1) 图书登记子窗体如图22 所示，其控件如表4 所示。
图22 图书登记子窗体
表4 图书登记子窗体控件
控件类别控件Name 控件Text
Label1 编号
Label2 书名
Label3 类型
Label4 购买日期
Label
Label5 定价
Text1 (空)
Text2 (空)
Text3 (空)
Text4 (空)
TextBox
Text5 (空)
Command1 增加记录
Command2 删除记录
Command3 下一条
Command4 上一条
Command5 第一条
CommandButton
Command6 最后一条
Command7 退出
ADO DataAdodc1 (空)
DataGrid DataGrid1 (空)
图书借阅和图书赔偿子窗体分别如图23 和图24 所示，因为它们的控件与图书登记子窗体的雷同，在
此不作介绍。
图23 图书借阅子窗体
图24 图书赔偿子窗体
(2) 增加用户子窗体如图25 所示，其控件如表5 所示。
图25 增加用户子窗体
表5 增加用户子窗体控件
控件类别控件Name 控件Text
Label1 输入用户名
Label2 输入密码
Label3 确认密码
Label
Label4 选择权限
Text1 (空)
TextBox Text2 (空)
Text3 (空)
ComboBox Comb1 (空)
Commandl 确定
中国航空网 www.aero.cn
航空翻译 www.aviation.cn
本文链接地址：
航空讲座1(32)
