《案例集锦》word版

《《案例集锦》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

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

3、控件的属性。11案例一　我的桌面小闹钟表1.2　窗体Form1的属性名称BorderStyleShowInTaskBarForm10-NoneFalse表1.3　图片控件的属性名称AppearanceBackColorBorderStylePicture10-Flat&H00FF8080&1-FixedSingle表1.4　标签控件的属性名称AlignmentBackStyleBorderStyleCaptionForeColorLabel1Label22-Center2-Center0-Transparent0-Transparent0-None0-None

4、我的小闹钟00:00:00&H00FFFFFF&&H80000012&表1.5　时间控件的属性名称EnableIntervalTimer1True100在控件箱窗体的空白部分右键单击，在弹出的菜单中选择“部件”，将打开“部件”对话框，如图1.2所示。图1.2　“部件”对话框在“部件”对话框中选择“控件”选项卡，在其列表中找到“MicrosoftMultimediaControl6.0”，在其前方的复选框中打勾，单击“确定”按钮，向工程中添加对MutimediaMCI控件的引用。在控件箱的最后将出现MutimediaMCI控件的图标，选中其图标，在Form1中绘

5、出其实例，如图1.3所示，其属性将在代码中设置。11案例一　我的桌面小闹钟图1.3　添加MutimediaMCI控件的Form1在工程中添加一个普通窗体Form2，如表1.7和表1.8所示为其设置属性并添加菜单。表1.7　窗体Form2的属性名称BorderStyleCaptionShowInTaskBarForm21-FixedSingle任务列表True表1.8　窗体Form2的菜单标题名称复选缩进等级菜单编辑任务列表跟随鼠标退出mnuMainmnuRWmnuGSmnuQuit不选中不选中选中不选中无缩进缩进缩进缩进在窗体上添加一个框架控件，两个标签控件，

6、一个文本框控件和4个按钮控件，并且同添加MutimediaMCI控件一样，在窗体中添加MaskedEdit控件、ADOData控件和DataGrid控件并创建其实例。按照表1.9至表1.15所示内容设置这些控件的属性。表1.9　框架控件的属性名称CaptionFrame2任务表1.10　标签控件的属性名称AlignmentCaptionLabel1Label20-LeftJustfiy0-LeftJustfiy闹响时间：任务内容：表1.11　文本框控件的属性名称TextText1请输入任务内容11案例一　我的桌面小闹钟表1.12　按钮控件的属性名称Captio

7、nCommand1新增任务Command2Command3Command4删除任务修改任务关闭表1.13　MaskedEdit的属性名称FormatMaskPromptCharMaskEdBox1hh:mmAM/PM99:99_表1.14　ADOData控件的属性名称AlignmentVisibleAdodc12-vbAlignBottomFalse表1.15DataGrid控件的属性名称AllowAddNewAllowDelectAllowUpdateCaptionDataSourceDataGrid1FalseFalseFalse任务列表Adodc1完成后

8、的窗体Form2如图1.4所示。图1.