案例集锦

《案例集锦》由会员分享，可在线阅读，更多相关《案例集锦（37页珍藏版）》请在金锄头文库上搜索。

1、案案 例例 集集 锦锦在前面的章节中讲述了使用 VB 创建数据库应用程序的几个范例，其实作为编程语言 来说，VB 易于掌握和提高，可以极为迅速和简洁的创建 Windows 应用程序，非常适合普 通的用户来编写符合自己需要的实用小程序。在接下来的内容中将向读者介绍几个用 VB 开发实用小程序的方法，并且结合实例向读者介绍 VB 编程中的许多技巧。案例一案例一 我的桌面小闹钟我的桌面小闹钟一、概述一、概述在本例中将创建一个可以自动跟随鼠标移动的小闹钟，实时地显示当前计算机的时间， 并且允许用户添加、删除和修改定时任务，这些任务将被保存在一个 Access 数据库中，在 设置的时间到达时，闹钟将用音

2、乐警报，并弹出消息框来提示用户。其功能模块图如图 1.1 所示。图 1.1 系统的功能模块图二、数据库的准备二、数据库的准备通过 Access 或者 VB 可视化数据管理器创建一个 Access 数据库，在其中添加一个名为 “任务列表”的数据表。该数据表的结构如表 1.1 所示。表表 1.11.1 “任务列表任务列表”数据表的结构数据表的结构字段名称任务编号任务时间任务内容任务状态字段类型文本文本文本文本字段大小151510010主键是否否否三、应用程序的编写三、应用程序的编写在 VB 中创建一个新的“标准 EXE”工程，将其命名为“我的小闹钟” 。 在工程默认的窗体 Form1 中添加一个图

3、片控件，两个标签控件，一个时间控件，依表 11.2 至表 11.5 所示的内容设置窗体和控件的属性。案 例 集 锦2表表 1.2 窗体窗体 Form1 的属性的属性名称BorderStyleShowInTaskBarForm10-NoneFalse表表 1.3 图片控件的属性图片控件的属性名称AppearanceBackColorBorderStylePicture10-FlatData Source=“ “ 设置数据库连接字符串 musicname = App.Path Data Source=“ “ Adodc1.RecordSource = “select 日期,天气,心情,内容 fro

4、m 日记表 Order by 日期 “ Adodc1.Refresh 变量的初始赋值 moveform = False newDiary = False OpenDiary = False 设置控件的属性 LblMessage.Caption = “ 欢迎使用！“ Text1.Locked = True Combo1.Locked = True RichTextBox1.Locked = True For i = 1 To 1050 PicBox(0).Height = PicBox(0).Height - 1 Next i For i = 1 To 2000 PicBox(1).Height

5、 = PicBox(1).Height - 1 Next i End SubPrivate Sub DTPicker1_Change( )日期控件内容改变时 If newDiary = True Then编辑新日记Exit Sub退出过程 Else查找日记 If Adodc1.Recordset.RecordCount 0 Then存在日记文件时 搜索日记 Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find “日期 = “ (3) 保存工程。 如果使用这种方法，可以从工程中把 Form 对象删除。运行该工程，其最后的结果显示如图 3.8 所示。案例

6、三 Access 数据库简单报表的创建33图 3.8 单层次结构报表结果显示三、多层次结构报表（单层次结构报表的扩展）三、多层次结构报表（单层次结构报表的扩展）在上边的单层次结构数据报表的基础上很容易将其扩展，并生成一个更加复杂的报表。 在下面的过程中，数据环境最先扩展 Order Details 和 Products 表，扩展的报表包括在一个 特定日期定货的产品名称。 扩展数据环境的具体步骤如下： (1) 在数据环境设计器中，右键单击“Orders”图标，然后单击“Add Child Command（添加子命令） ”显示“Command1”图标； (2) 右键单击“Command1”图标，选

7、择“属性（Properties） ” ，弹出“Command1 属性” 对话框； (3) 参照表 3.5 各个数据设置“Command1 属性”对话框中相应属性的属性值；表表 3.5 “Command1 属性属性”属性表属性表属性属性值案 例 集 锦34Command NameDataBase ObjectObject NameOrderDetailsTableOrder Details(4) 单击“关联（Ralation） ”选项卡，单击“添加（Add） ” ，单击“确定” ，这样通过“OrderID”字段将表 Orders 和 OrderDetails 链接起来了； (5) 右键单击“Or

8、derDetails”图标，然后单击“Add Child Command（添加子命令） ” 显示“Command1”图标； (6) 右键单击“Command1”图标，选择“属性（Properties） ” ，弹出“Command1 属性” 对话框； (7) 参照表 3.6 各个数据设置“Command1 属性”对话框中相应属性的属性值；表表 3.6 “Command1 属性属性”属性表属性表属性属性值Command NameDataBase ObjectObject NameProductsTableProducts(8) 单击“关联（Ralation） ”选项卡，单击“添加（Add） ”按钮

9、，单击“确定”按钮， 这样通过“ProductID”字段将表 OrderDetails 和 Products 链接起来了 (9) 保存数据环境设计器。 扩展数据环境的具体步骤如下： (1) 右键单击数据设计器 Data Report，并清除弹出选择项“显示页标头/页脚（Show Page Header/Footer） ”前的“” ； (2) 右键单击数据设计器 Data Report，选择弹出选择项“插入组标头/页脚（Insert Group Header/Footer） ” ； (3) 在弹出的对话框中单击“确定”按钮，选择新的标头和注脚对的缺省位置，并关 闭对话框； (4) 选择新添加的分

10、组标头，在属性窗口上将它的名字由 Section1 改成“Orders_Header” ，将对应的注脚名字由 Section2 改为“Orders_Footer” ； (5) 重复步骤(2)、(3)； (6) 选择新添加的分组标头，并在属性窗口上将它的“Name”属性由 Section1 改成“OrderDetails_Header” ，将对应的注脚名字由 Section2 改为“OrderDetails_Footer” ； (7) 单击细节（Orders_Detail）部分选择它。在“属性”窗口上，把部分名更改为“Products_Detail” ； (8) 使用鼠标把“OrderDate”

11、字段从细节（Products_Detail）部分拖到 Orders_Header 部分； (9) 从数据环境设计器中，把 ProductName 字段（在 Products 命令下）拖到细节 (Products_Detail)部分中； (10) 删除名为 Label1 的 Label 控件； (11) 重新调整分组标头的大小，并重新排列文本框控件，保存工程。 运行工程，其最后的结果显示如图 3.9 所示。案例三 Access 数据库简单报表的创建35图 3.9 多层次结构报表结果显示四、创建数据环境连接四、创建数据环境连接 SQL 2000 数据库数据库本案例将创建一个简单数据环境，连接 SQ

12、L 2000 数据库 pubs（SQL 2000 自带的数据 库） ，并对该数据库中的表 titles.dbo 进行浏览操作。设置 SQL 2000 数据库的主机名为“MASTER5470” ，用户名为“sa”,密码为“111111” 。其具体步骤如下： (1) 创建一个新的“标准 EXE”工程； (2) 在“工程”菜单上，单击“添加 Data Environment（Add Data Environment） ”向工 程中添加一个数据环境设计器； (3) 右键单击“Connection1”图标，选择“属性（Properties） ” ，弹出“数据链接属性” 对话框，如图 3.10 所示；案

13、例 集 锦36图 3.10 “数据链接属性”对话框（一）(4) 在“数据链接属性”对话框上单击“Microsoft OLE DB Provider for SQL Server” ， 这是为访问 SQL 数据库选择正确的 OLE DB 供应商； (5) 单击“下一步”按钮进入“连接”选项卡； (6) 在其各个选项框中依次选择或填写服务器名称“MASTER5470” 、用户名称“sa” 、 密码“111111”和数据库名称“pubs” ，并单击“测试连接” ，其结果如图 3.11 所示；图 3.11 “数据链接属性”对话框（二）(7) 右键单击“Connection1”图标，然后单击“Add C

14、ommand（添加命令） ” ，显示“Command1” 图标； (8) 右键单击“Command1”图标，选择“属性（Properties） ” ，弹出“Command1 属性” 对话框； (9) 将其“DataBase Object”属性改为“Table” ， “Object Name”改为“dbo.titles” ，结 果如图 3.12 所示；案例三 Access 数据库简单报表的创建37图 3.12 “Command1 属性”对话框(10) 将数据环境设计器中 Command1 对象的各个字段拖放到窗体 Form1 中，并添加 Command1 和 Command2 两个控件； (11

15、) 将 Command1 的“Name”属性改为“cmdPrevious” ， “Caption”属性改为“Previous” ； (12) 将 Command2 的“Name”属性改为“cmdNext” ， “Caption”属性改为“Next” ， 其结果如图 3.13 所示；图 3.13 Form1 的控件设计图(13) 在 cmdPrevious 的 Click 事件中输入下列代码：With DataEnvironment1.rsCommand1.MovePrevious 访问前一条记录If .BOF Then.MoveLast 访问最后一条记录End If End With 在这需要

16、说明的是在数据环境中创建一个 Command 对象后，其对应的记录集自动命 名为“rs+Command 对象名” ，所以在此 Command1 对象对应的记录集名为“rsCommand1” 。案 例 集 锦38(14) 在 cmdNext 的 Click 事件中输入下列代码：With DataEnvironment1.rsCommand1.MoveNext 访问后一条记录If .EOF Then.MoveFirst访问第一条记录End If End With (15) 保存工程。 运行工程，首先弹出 SQL Server 登录窗体，需要填写用户名和密码，如图 3.14 所示， 这样能提高数据操作的安全性。图 3.14 SQL Server 登录窗体输入正确的用户名和密码后，直接进入数据浏览窗体，如图 3.15 所示。图 3.15 数据浏览窗体小小 结结本部分收集了一些生活中常用的一些小案例，这些案例功能比较单一，但很有用。希 望 VB 的初级读者可以从本章出发，编写一些类似的小案例，以熟悉一些