电子文档交易市场
安卓APP | ios版本
电子文档交易市场
安卓APP | ios版本

案例集锦

38页
  • 卖家[上传人]:206****923
  • 文档编号:40642590
  • 上传时间:2018-05-26
  • 文档格式:DOC
  • 文档大小:613KB
  • / 38 举报 版权申诉 马上下载
  • 文本预览
  • 下载提示
  • 常见问题
    • 1、案案 例例 集集 锦锦在前面的章节中讲述了使用 VB 创建数据库应用程序的几个范例,其实作为编程语言 来说,VB 易于掌握和提高,可以极为迅速和简洁的创建 Windows 应用程序,非常适合普 通的用户来编写符合自己需要的实用小程序。在接下来的内容中将向读者介绍几个用 VB 开发实用小程序的方法,并且结合实例向读者介绍 VB 编程中的许多技巧。案例一案例一 我的桌面小闹钟我的桌面小闹钟一、概述一、概述在本例中将创建一个可以自动跟随鼠标移动的小闹钟,实时地显示当前计算机的时间, 并且允许用户添加、删除和修改定时任务,这些任务将被保存在一个 Access 数据库中,在 设置的时间到达时,闹钟将用音乐警报,并弹出消息框来提示用户。其功能模块图如图 1.1 所示。图 1.1 系统的功能模块图二、数据库的准备二、数据库的准备通过 Access 或者 VB 可视化数据管理器创建一个 Access 数据库,在其中添加一个名为 “任务列表”的数据表。该数据表的结构如表 1.1 所示。表表 1.11.1 “任务列表任务列表”数据表的结构数据表的结构字段名称任务编号任务时间任务内容任务状态字段类型文本文本

      2、文本文本字段大小151510010主键是否否否三、应用程序的编写三、应用程序的编写在 VB 中创建一个新的“标准 EXE”工程,将其命名为“我的小闹钟” 。 在工程默认的窗体 Form1 中添加一个图片控件,两个标签控件,一个时间控件,依表 11.2 至表 11.5 所示的内容设置窗体和控件的属性。案 例 集 锦2表表 1.2 窗体窗体 Form1 的属性的属性名称BorderStyleShowInTaskBarForm10-NoneFalse表表 1.3 图片控件的属性图片控件的属性名称AppearanceBackColorBorderStylePicture10-FlatData Source=“ “ 设置数据库连接字符串 musicname = App.Path Data Source=“ “ Adodc1.RecordSource = “select 日期,天气,心情,内容 from 日记表 Order by 日期 “ Adodc1.Refresh 变量的初始赋值 moveform = False newDiary = False OpenDiary = False 设置控件的

      3、属性 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 = 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 所示。案例

      4、三 Access 数据库简单报表的创建33图 3.8 单层次结构报表结果显示三、多层次结构报表(单层次结构报表的扩展)三、多层次结构报表(单层次结构报表的扩展)在上边的单层次结构数据报表的基础上很容易将其扩展,并生成一个更加复杂的报表。 在下面的过程中,数据环境最先扩展 Order Details 和 Products 表,扩展的报表包括在一个 特定日期定货的产品名称。 扩展数据环境的具体步骤如下: (1) 在数据环境设计器中,右键单击“Orders”图标,然后单击“Add Child Command(添加子命令) ”显示“Command1”图标; (2) 右键单击“Command1”图标,选择“属性(Properties) ” ,弹出“Command1 属性” 对话框; (3) 参照表 3.5 各个数据设置“Command1 属性”对话框中相应属性的属性值;表表 3.5 “Command1 属性属性”属性表属性表属性属性值案 例 集 锦34Command NameDataBase ObjectObject NameOrderDetailsTableOrder Details(4) 单

      5、击“关联(Ralation) ”选项卡,单击“添加(Add) ” ,单击“确定” ,这样通过“OrderID”字段将表 Orders 和 OrderDetails 链接起来了; (5) 右键单击“OrderDetails”图标,然后单击“Add Child Command(添加子命令) ” 显示“Command1”图标; (6) 右键单击“Command1”图标,选择“属性(Properties) ” ,弹出“Command1 属性” 对话框; (7) 参照表 3.6 各个数据设置“Command1 属性”对话框中相应属性的属性值;表表 3.6 “Command1 属性属性”属性表属性表属性属性值Command NameDataBase ObjectObject NameProductsTableProducts(8) 单击“关联(Ralation) ”选项卡,单击“添加(Add) ”按钮,单击“确定”按钮, 这样通过“ProductID”字段将表 OrderDetails 和 Products 链接起来了 (9) 保存数据环境设计器。 扩展数据环境的具体步骤如下: (1) 右键单击数

      6、据设计器 Data Report,并清除弹出选择项“显示页标头/页脚(Show Page Header/Footer) ”前的“” ; (2) 右键单击数据设计器 Data Report,选择弹出选择项“插入组标头/页脚(Insert Group Header/Footer) ” ; (3) 在弹出的对话框中单击“确定”按钮,选择新的标头和注脚对的缺省位置,并关 闭对话框; (4) 选择新添加的分组标头,在属性窗口上将它的名字由 Section1 改成“Orders_Header” ,将对应的注脚名字由 Section2 改为“Orders_Footer” ; (5) 重复步骤(2)、(3); (6) 选择新添加的分组标头,并在属性窗口上将它的“Name”属性由 Section1 改成“OrderDetails_Header” ,将对应的注脚名字由 Section2 改为“OrderDetails_Footer” ; (7) 单击细节(Orders_Detail)部分选择它。在“属性”窗口上,把部分名更改为“Products_Detail” ; (8) 使用鼠标把“OrderDate”

      7、字段从细节(Products_Detail)部分拖到 Orders_Header 部分; (9) 从数据环境设计器中,把 ProductName 字段(在 Products 命令下)拖到细节 (Products_Detail)部分中; (10) 删除名为 Label1 的 Label 控件; (11) 重新调整分组标头的大小,并重新排列文本框控件,保存工程。 运行工程,其最后的结果显示如图 3.9 所示。案例三 Access 数据库简单报表的创建35图 3.9 多层次结构报表结果显示四、创建数据环境连接四、创建数据环境连接 SQL 2000 数据库数据库本案例将创建一个简单数据环境,连接 SQL 2000 数据库 pubs(SQL 2000 自带的数据 库) ,并对该数据库中的表 titles.dbo 进行浏览操作。设置 SQL 2000 数据库的主机名为“MASTER5470” ,用户名为“sa”,密码为“111111” 。其具体步骤如下: (1) 创建一个新的“标准 EXE”工程; (2) 在“工程”菜单上,单击“添加 Data Environment(Add Data Envir

      8、onment) ”向工 程中添加一个数据环境设计器; (3) 右键单击“Connection1”图标,选择“属性(Properties) ” ,弹出“数据链接属性” 对话框,如图 3.10 所示;案 例 集 锦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 Command(添加命令) ” ,显示“Command1” 图标; (8) 右键单击“Command1”图标,选择“属性(Properties) ” ,弹出“Command1 属性” 对话框; (9)

      9、将其“DataBase Object”属性改为“Table” , “Object Name”改为“dbo.titles” ,结 果如图 3.12 所示;案例三 Access 数据库简单报表的创建37图 3.12 “Command1 属性”对话框(10) 将数据环境设计器中 Command1 对象的各个字段拖放到窗体 Form1 中,并添加 Command1 和 Command2 两个控件; (11) 将 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 在这需要说明的是在数据环境中创建一个 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 的初级读者可以从本章出发,编写一些类似的小案例,以熟悉一些

      《案例集锦》由会员206****923分享,可在线阅读,更多相关《案例集锦》请在金锄头文库上搜索。

      点击阅读更多内容
    最新标签
    发车时刻表 长途客运 入党志愿书填写模板精品 庆祝建党101周年多体裁诗歌朗诵素材汇编10篇唯一微庆祝 智能家居系统本科论文 心得感悟 雁楠中学 20230513224122 2022 公安主题党日 部编版四年级第三单元综合性学习课件 机关事务中心2022年全面依法治区工作总结及来年工作安排 入党积极分子自我推荐 世界水日ppt 关于构建更高水平的全民健身公共服务体系的意见 空气单元分析 哈里德课件 2022年乡村振兴驻村工作计划 空气教材分析 五年级下册科学教材分析 退役军人事务局季度工作总结 集装箱房合同 2021年财务报表 2022年继续教育公需课 2022年公需课 2022年日历每月一张 名词性从句在写作中的应用 局域网技术与局域网组建 施工网格 薪资体系 运维实施方案 硫酸安全技术 柔韧训练 既有居住建筑节能改造技术规程 建筑工地疫情防控 大型工程技术风险 磷酸二氢钾 2022年小学三年级语文下册教学总结例文 少儿美术-小花 2022年环保倡议书模板六篇 2022年监理辞职报告精选 2022年畅想未来记叙文精品 企业信息化建设与管理课程实验指导书范本 草房子读后感-第1篇 小数乘整数教学PPT课件人教版五年级数学上册 2022年教师个人工作计划范本-工作计划 国学小名士经典诵读电视大赛观后感诵读经典传承美德 医疗质量管理制度 2 2022年小学体育教师学期工作总结 2022年家长会心得体会集合15篇
    关于金锄头网 - 版权申诉 - 免责声明 - 诚邀英才 - 联系我们
    手机版 | 川公网安备 51140202000112号 | 经营许可证(蜀ICP备13022795号)
    ©2008-2016 by Sichuan Goldhoe Inc. All Rights Reserved.