1、目录摘要 3Abstract4前言 5第 1章 VB 数据库 开发基础 61.1 数据访问 对象模型 .61.2 ODBC.61.3 创建数据 源 .71.4 ADO Date 数据库 81.4.1 ADO Data 控 件的属性 .91.4.2 ADO Data 控 件的方法 .91.4.3 ADO Data 控 件的事件 .91.5 Data Combo控件 101.5.1 Data Combo控件的属性 .101.5.2 Data Combo控件的方法 .111.5.3 ata Combo控件的事件 .11第 2章 数据库的设 计 122.1 概述 122.1.1 系统功能 .122.1
2、.2 设计技巧 .122.2 系统结构 122.3 数据表的 设计 132.3.1 用户及家庭成员信息表 的建立 .16第 3章 家庭管理系 统 173.1 系统实现 173.1.1 公共模块 .183.1.2 登陆界面 .183.1.3 窗体 .193.1.4 定期存款 .203.1.5 日常收支 .203.1.6 查询 .213.1.7 活期存取 .223.1.8 借还帐户 .233.1.9 银行储蓄 .243.110 分析 .24第 4章 模块与表功 能的实现 254.1 操作查询的 实现 254.2 数据的输入 与导入 25第 5章 菜单设计与 访问 VB数 据库 .275.1 概述
3、275.2 菜单创建 285.3 工具栏的创 建 285.4 论述 VB数据库 305.5 用数据库控件访问数据 库 30总结 .32参考文献 .33致谢 .34摘要前言近几年来，随着我国城乡居民收入的增加和生活水平的提高，家庭理财已成为人们居家过日子的重要内容。社会学家细心的观察到，时下家庭的“小九九”比之计划经济年代，开始发生微妙的变化。现在的城乡家庭生活发生了明显的变化，人们的收入逐渐拉开档次，消费水平也高了。大多数家庭关注的是提高生活质量，一方面精打细算，量入为出，把钱用在刀刃上；另一方面保证适当的娱乐活动、社会交际、智力开发等方面的开支。为此，不少家庭就有中长期财务预算，有基本建设规
4、划。总的说来，家庭理财必须以量入为出为原则，以财产保值增值为目标，处理好积累和消费的关系。因此，应树立以下四个观念：第一，资金运动质量观。资金（包括现金，有价证券，存款等）运动，是家庭经济活动的价值反应，家庭理财应管好用活资金，加速资金周转，提高资金利用效果，力争做到结构合理、偿债能力强、经济效益高，家庭财务做为资金的载体，应力争实现其保值增值。第二，资金使用责任观。家庭财产作为社会资源的一部分，有责任创造社会财富，履行社会责任，为适应我国经济发展的要求，家庭可根据自身状况，适当投资，适度超前消费。第三，经济效益观。家庭经济生活的基本目标，是在满足生活最佳需要的基础上，实现家庭财力的最大化。因
5、此家庭理财要与经济效益挂钩，必须处理好投入与产出的关系，规避各种经济风险，堵塞各种经济漏洞，增收节支，当好家理好财，不断提高经济效益。第四，利益协调观。家庭作为社会的细胞，它无疑又是一个利益结合体。从该意义上讲，家庭理财实质就是处理协调家庭内部及与各有关的经济方面的经济利益关系。在理财实践中，要坚持公正、公平、诚实和守信的原则，妥善处理好家庭内部利益关系、家庭与国家及有关经济单位的利益关系。家庭理财管理是家庭管理的一个重要内容。随着家庭人员收入数量的增加，家庭人员的工资管理工作也变得越来越复杂。工资管理既涉及到家庭成员开销及帐户管理，同时也是家庭财务管理的重要组成部分。工资管理需要和家庭成员相
6、联系，同时也统计每年的开支和收入等来生成家庭内每个人员的基本工资、津贴、医疗保险、保险费、实际发放工资及银行贷款和存储等。资金是组成家庭活动来源和生活保障的主要元素，资金的流动影响到人们生活质量的运作，家庭成员的工资是家庭资金管理的一个重要的组成部分，方便进一步对自己和家人的了解,提高生活水平、改善生活质量。家庭工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。工资管理系统是典型的信息管理系统（MIS），前台程序开发工具采用VB6.0，后台数据库采用 Access 数据库。VB6.0 是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大的优点。 Ac
7、cess 数据库具有与 VB 无缝连接、操作简单、易于使用的优点。运行结果表明，本家庭工资管理系统极大提高了工作效率，节省了人力和物力，最终满足家庭财务管理、家庭成员的需要，同时也成为现代化家庭管理的标志。关键词:工资管理 、信息管理、 数据查询 、数据库、 VB6.0作者：殷海鸥指导老师：樊光辉AbstractFamily Enterprises wages management is a family management important content. The family management already involves to the enterprise work hum
8、an management. The family management needs to relate with the personnel management, at the same time connects man-hour of checking attendance and medical insurance and so on, produces the enterprise each staffs base pay, the allowance, the medical insurance, actual provides the wages and so on. The
9、fund is the enterprise survival principal element; the early wages management adopts the material and has the strong time limit. Based on the above reason, the enterprise wages management system management system use computer safely preserves, the rapid calculation, the comprehensive statistics, the
10、 realization wages management systematization, the standardization, the automation. The enterprise wages management system management system is the typical information management system (MIS), The movement result proved that, this enterprise wages management system management system enormously enhan
11、ced the working efficiency, finally meets the needs which the enterprise financial control, the staff wages provides, at the same time also becomes the symbol which the modernized enterprise manages.Key words：Family management infor mation management ; data inquiry ; database;VB6.0Written by Yin Hai
12、OuSupervised by Fan GuangHui前言Visual Basic是 Microsoft公司的重点产品，它具有其它数据库开发工具无法比拟的优势，而且简单易学。本论文是以实例方式讨论 VB 开发数据库运行软件的思想和方法。第一章介绍VB 开发基础；第二章介绍家庭理财管理信息表的建立；其中包括 用户信息表、家庭成员信息表、收入信息表、支出信息表、活期帐户信息表、活期存取信息表、定期存款信息表、借入借出信息表。第三章介绍家庭理财管理模块的创建；包括系统管理、基础数据管理、日常收支管理、银行储蓄管理、借还钱管理、理财分析等六个模块的设计。第四章介绍模块与表功能的实现；包括后台具备数据
13、输入、批量数据导入、修改、删除、查询、权限设置与管理等功能。第五章介绍菜单的设计以及数据库与 VB 的链接技术及运用。本论文中对家庭理财管理信息系统的创建工具技巧如下： 公共模块的设计 ACCESS 数据库设计方法 VB 菜单设计方法 ADO 控件设计方法 Data Grid 控件设计方法 统一的数据编辑方法 VB 报表设计方法 图像数据的存储方法 事件编辑技术第 1 章 VB 数据库开发基础VB 提供了功能强大的数据库管理功能，能够方便、灵活地完成数据库应用中涉及的查询、修改数据库以及打印等各种操作。本章主要介绍以 access 为平台的 VB 数据库系统开发相关知识，为后面几章的数据库应用
14、系统设计打下基础。1.1 数据访问对象模型ODBC 数据库是开放式数据库，包括 ODBC 标准的客户/服务器数据库，如Microsoft Server、Oracle、Sybase 等，VB 可以使用支持 ODBC 标准的数据库。1.2 ODBC ODBC 是开放式数据库链接，它能提供访问数据库的单一接口。 ODBC 使客户应用程序的开发可以独立于后端服务器。 ODBC 由如图 1.1 几部分组成。客户应用程序SQL Server 驱动程序Oracle 驱动程序 FoxPro 驱动程序 .SQL Serve数据库Oracle 数据库 FoxPro Server 数据库ODBC 数据源 ODBC
15、驱动程序管理器图 1.1 ODBC 的组成1.3 创建数据源在建立好数据源并在当前服务器上安装相应的ODBC 驱动程序，就可以建立应用程序需要的数据源了。创建一个 ODBC 数据源：1.在控制面板中，建立数据源界面。2.双击“ODBC Date Source”进入 ODBC 数据源管理器。图 1.2 ODBC 数据源管理器图 1.3 创建新数据源图 1.4 创建 Access 数据源1.4 ADO Date 数据库ADO Date 控件它与 VB固有的 Date 控件相似。使用 ADO Date 控件，可以利用 ADO 快速建立数据绑定控件和数据提供者之间的连接。设置 ADO 数据控件的连接字
16、符串（Connection String）属性来创建到数据源的连接。这个属性给出了将要访问的数据库的位置和类型。在 ADO 数据控件的属性窗口中单击 Connection String 属性旁的浏览按钮就可以设置这个属性。 使用数据连接文件这个选项指定一个连接到数据源的自定义的连接字符串，单击旁边的“浏览”按钮可以选择一个连接文件。 使用 ODBC 数据源名称这个选项允许使用一个系统定义好的数据源名称（DSN）来作为连接字符串。可以在组合框中的数据源列表中进行选择，使用旁边的“添加”按钮可以添加或修改 DSN。 使用连接字符串这个选项定义一个到数据源的连接字符串。单击“生成”按钮弹出“数据连接
17、属性”对话框，在这个对话框中可以指定提供者的名称、连接以及其它的要求信息。单击浏览按钮调出属性页窗口，设置连接字符串属性。ADO Date 控件的功能： 连接本地数据库。 打开指定的数据库表，或定义基于SQL 查询，存储过程数据库表中的视图记录集合。 添加新记录或显示在绑定的控件中数据库来更新数据库。1.4.1 ADO Data 控件的属性ADO Data 控件的属性如下： Align属性 BOF Action 和 EOF Action 属性 Connection String 属性 Record Source 属性1.4.2 ADO Data 控件的方法方 法 Update Controls
18、 方 法 （ ADO 数 据 控 件 ） ， Refresh 方 法 ， Set Focus方 法 ， Drag 方 法 ， Move 方 法 ， ZOrder 方 法 ， ShowWhatsThis 方 法 。事 件 EndOfRecordSet（ Connection Event） 方 法 （ ADO） ，FetchComplet（ RecordsetEvent） 方 法 （ ADO） ， Fetch Progress（ RecordsetEvent） 方 法 （ ADO） ， WillChangeField和FieldChangeComplete（ Connection Event） 方
19、 法 （ ADO） ，WillChangeRecord 和 RecordChangeComplete（ Connection Event） 方 法（ ADO） ， Will Move 和 Move Complete（ Connection Event） 方 法（ ADO） 。1.4.3 ADO Data 控件的事件ADO Data 控件的事件： Will Move 和 Move Complete 事件 Will Change Field 和 Field Change Complete 事件 Will Change Record 和 Record Change Complete 事件1.5 Da
20、ta Combo控件Data Combo控件是以一 个下拉列表 框的形式提供给用户。它可以和一个具体的数据库中的表、表中的某些项或一段 SQL 语句相 联系，从而在下拉列表框中显示出具体的数据。Windows 窗体 Combo Box 控件用于在下拉组合框中显示数据。默认情况下，Combo Box 控件分两个 部分显示：顶部是一个 允许用户键入列表项的文本框。第二部分是一个列表框，它显示一个项列表，用户可从中选择一项。有关组合框的其他样式的更多信息，请参见何时使用 Windows 窗体 Combo Box 而非 List Box。Selected Index 属性返回一个整数值，该值与选择 的
21、列表项相对应。通过在代码中更改 Selected Index 值，可以编程方式更改选择 项；列表中的相应项将出现在组合框的文本框部分。如果未选择任何项，则 Selected Index 值为 -1。如果选择列表中的第一项，则 Selected Index 值为 0。Selec ted Item 属性与 Selected Index 类似，但它返回项本身，通常是一个 字符串值。Count 属性反映列表的项数，由于 Selected Index 是从零开始的，所以 Count 属性的值通常比 Selected Index 的最大可能值大一。若要在 Combo Box 控件中添加 或删除项，请使用
22、Add、Insert 、Clear 或 Remove 方法。或者，可以在设计器中使用 Items 属性向列表添加项。1.5.1 Data Combo控件的属性Data Combo控件的属性 如下： Date Source 属性 Date Field 属性 Row Source 属性 List Field 属性其操作步骤如下：1) 在家庭理财管理信息系统中添加一个窗体 Form1.2) 在该窗体中添加一个 ADO 控件 Adodc1,其属性设置如下：Connection String =”Stud”Record Source =”Select * from student”User Name=”
23、s a”DTPicker1.Value=MSHFlexGrid1.TextMatrix (MSHFlexGrid1.Row, 1)Combo1.Text=MSHFlexGrid1.TextMatrix (MSHFlexGrid1.Row, 2)1.5.2 Data Combo控件的方法Data Combo控件的常用 方法为 Refresh方法，该方法用于 刷新 Data Combo控件的数据源。Combo Box 控件使用 data Provider 定义下拉列表的值。data Provider 的类型可以是 Array、XML 或者是 ICollectionView。这里 month Com
24、bo的 data Provider 是一个包含十二个月份的 Array。我们看到，month Combo的 Text Input区域和下拉列表中都显示的是 Array 中每个 Object 的 label 字段的值。 1.5.3 ata Combo控件的事件Data Combo控件的事件 如下：1) Lost Focus事件2) Click 事件第 2 章 数据库的设计2.1 概述数据库设计( Database Design)是指对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求。这篇专题主要针对数据库的设计原则与开发技巧进行了
25、扼要的总结。2.1.1 系统功能系统功能如下：1) 家庭成员可以根据帐户信息来进行取款记录2) 对定期存储、取款、日常收支等功能进行理财分析并用图标表示3) 对家庭工资还可以进行定期查询、删除、更新等操作功能2.1.2 设计技巧设计技巧如下：1) 公共模块2) VB 菜单设计方法3) 统一的数据编辑设计方法4) 图像数据的存取方法5) 事件编程技术6) 数据库基础知识2.2 系统结构本系统对应的工程，它包含的所有文件及结构如下： Main窗体系统设置数据管理收支管理存储管理借还管理理财分析P Wd窗体Login窗体Family 窗体Project窗体Expend 窗体Fix 窗体Live窗 体
26、B In 窗体B Go窗体List 窗体Query窗体Intake窗体Date窗体Rate窗体图 2.1 系统结构组成参考文献 1 叶子，进实现J计算机工程与科学，2009，1(07)：61-64. 2 基于 MATLAB 实现的指纹图像预处理J2008，34(04)：836-856. 3 http:/ 4 http:/ 5 By-gnksguybb 6 李 宁指纹增强算法研究D济南：山东大学，2007. 7 马扬彪基于 Gabor 滤波的指纹图像增强J. 微计算机信息，2009，25(15)：305-306. 8 向 锐面向低质量指纹的图像增强算法研究D重庆：西南政法大学，2008.图 2.
27、2 家庭理财管理系统.vbp 工程2.3 数据表的设计数据库表设计原则:1)不应该针对整个系统进行数据库设计，而应该根据系统架构中的组件划分，针对每个组件所处理的业务进行组件单元的数据库设计；不同组件间所对应的数据库表之间的关联应尽可能减少，如果不同组件间的表需要外键关联也尽量不要创建外键关联，而只是记录关联表的一个主键，确保组件对应的表之间的独立性，为系统或表结构的重构提供可能性。2)采用领域模型驱动的方式和自顶向下的思路进行数据库设计，首先分析系统业务，根据职责定义对象。对象要符合封装的特性，确保与职责相关的数据项被定义在一个对象之内，这些数据项能够完整描述该职责，不会出现职责描述缺失。并
28、且一个对象有且只有一项职责，如果一个对象要负责两个或两个以上的职责，应进行分拆。3)根据建立的领域模型进行数据库表的映射，此时应参考数据库设计第二范式：一个表中的所有非关键字属性都依赖于整个关键字。关键字可以是一个属性，也可以是多个属性的集合，不论那种方式，都应确保关键字能够保证唯一性。在确定关键字时，应保证关键字不会参与业务且不会出现更新异常，这时，最优解决方案为采用一个自增数值型属性或一个随机字符串作为表的关键字。4)由于第一点所述的领域模型驱动的方式设计数据库表结构，领域模型中的每一个对象只有一项职责，所以对象中的数据项不存在传递依赖，所以，这种思路的数据库表结构设计从一开始即满足第三范
29、式：一个表应满足第二范式，且属性间不存在传递依赖。5)同样，由于对象职责的单一性以及对象之间的关系反映的是业务逻辑之间的关系，所以在领域模型中的对象存在主对象和从对象之分，从对象是从1N或 NN 的角度进一步主对象的业务逻辑，所以从对象及对象关系映射为的表及表关联关系不存在删除和插入异常。6)在映射后得出的数据库表结构中，应再根据第四范式进行进一步修改，确保不存在多值依赖。这时，应根据反向工程的思路反馈给领域模型。如果表结构中存在多值依赖，则证明领域模型中的对象具有至少两个以上的职责，应根据第一条进行设计修正。第四范式：一个表如果满足 BCNF，不应存在多值依赖。7)在经过分析后确认所有的表都
30、满足二、三、四范式的情况下，表和表之间的关联尽量采用弱关联以便于对表字段和表结构的调整和重构。并且，我认为数据库中的表是用来持久化一个对象实例在特定时间及特定条件下的状态的，只是一个存储介质，所以，表和表之间也不应用强关联来表述业务（数据间的一致性），这一职责应由系统的逻辑层来保证，这种方式也确保了系统对于不正确数据（脏数据）的兼容性。当然，从整个系统的角度来说我们还是要尽最大努力确保系统不会产生脏数据，单从另一个角度来说，脏数据的产生在一定程度上也是不可避免的，我们也要保证系统对这种情况的容错性。这是一个折中的方案。8)应针对所有表的主键和外键建立索引，有针对性的（针对一些大数据量和常用检索
31、方式）建立组合属性的索引，提高检索效率。虽然建立索引会消耗部分系统资源，但比较起在检索时搜索整张表中的数据尤其时表中的数据量较大时所带来的性能影响，以及无索引时的排序操作所带来的性能影响，这种方式仍然是值得提倡的。9)尽量少采用存储过程，目前已经有很多技术可以替代存储过程的功能如“对象/关系映射”等，将数据一致性的保证放在数据库中，无论对于版本控制、开发和部署、以及数据库的迁移都会带来很大的影响。但不可否认，存储过程具有性能上的优势，所以，当系统可使用的硬件不会得到提升而性能又是非常重要的质量属性时，可经过平衡考虑选用存储过程。10)当处理表间的关联约束所付出的代价（常常是使用性上的代价）超过
32、了保证不会出现修改、删除、更改异常所付出的代价，并且数据冗余也不是主要的问题时，表设计可以不符合四个范式。四个范式确保了不会出现异常，但也可能由此导致过于纯洁的设计，使得表结构难于使用，所以在设计时需要进行综合判断，但首先确保符合四个范式，然后再进行精化修正是刚刚进入数据库设计领域时可以采用的最好办法。11)设计出的表要具有较好的使用性，主要体现在查询时是否需要关联多张表且还需使用复杂的SQL 技巧。12)设计出的表要尽可能减少数据冗余，确保数据的准确性，有效的控制冗余有助于提高数据库的性能。在系统中设计了数据库KSD，其中包含如下数据表：例如：活期存取表，包括账号、日期、姓名等。图 2.3
33、活期存取表2.3.1 用户及家庭成员信息表的建立利用 Access 基础知识，对表建立，例如：数据类型、字段名称。图 2.4 家庭成员表的建立第 3 章 家庭管理系统3.1 系统实现本章介绍家庭管理系统组成部分的实现方法。对于窗体、给出执行功能、设计界面、主要对象和方法。以及公共模块和系统的最终运行。本工程中引用了一些 ActiveX 控件等，在设计时选择“工程”菜单中“引用”选项，从引用列表中选择如下选项：图 3.1 引用 家庭管理信息系统.vbp 工程再选择“工程”菜单中的“部件”选项，从控件列表中选中如下选项：图 3.2 部件若找不到，则单击“浏览”按钮，出现“添加 ActiveX 控件
34、”对话框，选择 WindowsSystem 文件夹中的 MsComctl .ocx 文件 即可。3.1.1 公共模块本工程中包含一个公共模块即 Module1.Bas 模块，其中包含一 些全局变量和过程（被本工程中的一些窗体所调用） ，代码如下：Public Str_path as StringPublic Cname As String 登陆时传用户名Public Cdate1 As String 传日期(收入情况列表)Public Cdate2 As String 传日期Public AA As Boolean 判断是否选择月份Public Function exesql (ByVal s
35、ql As String) As ADODB. Recordset 用于执行用户给定的 SELECT语句，返回对应的 记录集：Dim Stokens() As String 数组 On Error GoTo executesql_errorStokens = Split(Sql) 将 sql 语句按关键字保存在数组中Set Cnn = New ADODB.ConnectionCnn.Open ConnectstringIfInStr (“INSERT, DELETE, UPDATE“, UCase$(Stokens (0) ThenCnn.Execute SqlMsgstring = Stok
36、ens(0) & “查询成功“ElseSet Rst = New ADODB.RecordsetRst.OpenTrim$(Sql),Cnn,adOpenKeyset, adLockOptimistic 重服务器中提取符合要求的记录集Set ExeCutesql = RstMsgstring = “查询到“ & Rst.Recor dCount & “条记录“End Ifexecutesql_exit:Set Rst = Nothing 释放记录集Set Cnn = Nothing 释放连接语句Exit Functionexecutesql_error:Msgstring = “查询错误:“
37、& Err.DescriptionResume executesql_exitEnd Function3.1.2 登陆界面首先，客户先进入登陆界面，输入用户名和密码。输入期限最多三次。若输入错误或密码记错，会有信息框提示；若不是本人，可以先注册然后登陆；同时也可以修改密码等。图 3.3 登陆界面3.1.3 窗体窗体用于接受用户名/口令输入，不断是否为合法。如果是合法 用户，释放该窗体并启动 main 窗体；否则释放该窗体不启动 main 窗体。Main 窗体是一个多文档窗体，该窗体中包含对象和功 能如图所示。该窗体上设计了六个菜单及其子菜单如图所示。从工具栏中截取了十一个彩色图标，它代表着窗体
38、的各个功能，它包括：项目管理、添加家庭成员、修改密码、数据的保存系统、日常收入和支出、活期存款、理财汇报、查询、退出功能。下面分节详细介绍。图 3.4 家庭理财管 理信息系统多文档窗体3.1.4 定期存款图 3.5 定期存款 3.1.5 日常收支图 3.6 日常支出 图 3.7 日常收入3.1.6 查询图 3.8 查询3.1.7 活期存取图 3.9 活期存款取款记录图 3.10 活期存款帐户信息3.1.8 借还帐户图 3.11 借入款图 3.12 借出款3.1.9 银行储蓄图 3.13 银行储蓄项目管理3.110 分析图 3.14 理财报告第 4 章 模块与表功能的实现4.1 操作查询的实现操
39、作查询分为选择查询、更新查询、生成表查询、删除查询，本论文中涉及到一线数据库的操作查询。例如：删除、选择、添加、修改等。在 Access 中也介绍了兑现关于查询，比如添加新老客户，添加家庭成员，必须涉及到Access 的操作。在项目管理中，我们对收支项目的统计，进行每月的操作。添加或删除记录，对管理家庭经济由很大帮助，同时也便于管理。就好比会计，经济管理中的经济利润和会计利润的区别。更加大了精确性和效率性。4.2 数据的输入与导入在登陆系统界面时，点击菜单系统设置时，会出现数据的导入和导出。点击导出数据会激发 mnuout_Click()事件；同样点击导入数据会激发 mnuinput_Clic
40、k()事件。例如：设计代码如下： Private Function File Go()On Error GoTo 1Dim A, B as StringCommonDialog1.ShowSaveA = CommonDialog1.FileNameB = App. Path & “ & “databaseMoneyMIS.mdb“Setfess = Create Object (“Scripting.FileSystemObject“)Fs.CopyFile B, ASkybox “数据库导出成功！“, vbOKOnly + 64, “ 成功“Exit Function1:MsgBox “数据
41、库导出失败！“, vbOKOnly + 64, “失败“End FunctionPrivate Function File In ()On Error GoTo 1Dim A, B, C, D as StringC = MsgBox(“是否真的导入数据库，导入新数据库后，将覆盖原来的所有录？“, vbYesNo + 48 + 256, “警告“)If C = vbYes ThenCommonDialog1.ShowOpenA = CommonDialog1.FileNameB= App. Path & “ & “databaseMoneyMIS.mdb“D = CurDir () & “ &
42、“MoneyMIS.mdb“SetFs1=Create Object(“Sfcripting.FileSystemObject“)Fs1.DeleteFile D, TrueFs1.CopyFile A, BMsgBox “数据库导入成功！“, vbOKOnly + 64, “成功“ElseMsgBox “数据库导入失败！“, vbOKOnly + 64, “失败“End IfExit Function1:MsgBox “数据库导入失败！“, vbOKOnly + 64, “失败“End Function第 5 章 菜单设计与访问 VB 数据库5.1 概述Visual Basic提供了设计 菜
43、单的工具 ，但是这个工具不在工具箱中。在设计菜单的时候，需要在主窗口栏中选择“工具”菜单项，从其下拉菜单中选择“菜单编辑器”窗口，如图，利用这个“菜单编辑器”能够对所要设计的菜单的每一项的属性进行设置。图 5.1 菜单编辑器使用“菜单编辑器”能够角暗里一个应用程序系统的菜单系统。 “菜单编辑器”中包含多个控件，对每个控件需要分别进行属性设置。建立菜单的步骤如下： 建立窗体，添加控件； 在 Visual Basic主设计窗口 中，选“工具“中的“菜单编辑器”或单击工具栏“菜单编辑器”命令按钮，接入菜单设计窗口； 设置各菜单项； 为相应的菜单命令添加编写时间过程。5.2 菜单创建利用 Visual
44、 Basic提供的菜单 编辑器能够很方便地建立程序的菜单系统。1. 建立主菜单在菜单编辑器的属性设置区中，分别设置菜单的标题、名称等项。例如：菜单项 标题（P）名称（M）内宿符号主菜单一主菜单二编辑(&E)设置（&S）nudityminuet无无2. 设计子菜单下面建立主菜单“编辑（&E） ”的子菜单，准备设置的属性。例如：编辑(&E)的子菜单标题（P）名称（M） 快捷键子菜单 1子菜单 2子菜单 3剪切复制粘贴mnuEidtCutmnuEidtCopymnuEidtPasteCtrl+XCtrl+CCtrl+V3. 编写代码菜单构造好后，还要为各个菜单进行编码。Private Sub mnu_bg_yue_Click ()frm_list.Show 0, frm_main 参数,让 frm_main 为主窗体打开多个子窗体End SubPrivate Sub mnu_cx_shouru_Click ()frm_query.Show 0, frm_mainEnd Sub5.3 工具栏的创建在 Windows 的各种应用程序中，除菜单命令外，还可以通过工具栏上的命令按钮发出操作命令。工具栏（ToolBar）是按钮对象 的集合。
