您所在位置：网站首页 > 商业/管理/HR > 营销创新可视化程序设计(VB)之Data控件应用例子

可视化程序设计(VB)之Data控件应用例子

3页

卖家[上传人]：re****.1

文档编号：477241087

上传时间：2022-11-10

文档格式：DOC

文档大小：66.50KB

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

10 金贝

/ 3 举报版权申诉马上下载

文本预览

下载提示

常见问题

1、本应用程序设计一个窗体，如图1所示，窗体中包含的各控件及其属性设置如表1所列。图1 Data控件应用例子设计界面表1 控件及其属性设置控件名字属性属性值Data1CaptionData1 ConnectAccess DatabaseNameE:vbstudent.mdb DefaultCursorType0 默认游标 DefaultType2 使用 ODBC Exclusive0 False Options0 ReadOnly0 False RecordsetType1 Dynaset RecordSource学生表Combo1DataField性别 DataSourceData1Combo2DataField民族 DataSourceData1cmdAddCaption添加cmdDeleteCaption删除cmdFindCaption查找cmdUpdateCaption更新cmdCloseCaption关闭txtFields(0)DataField学号 DataSourceData1txtFields(1)DataField姓名 DataSourceData1txtFields(2

2、)DataField班号 DataSourceData1lblLabels(0)AutoSize-1 True Caption学号:续表控件名字属性属性值lblLabels(1)AutoSize-1 True Caption姓名:lblLabels(2)AutoSize-1 True Caption性别:lblLabels(3)AutoSize-1 True Caption民族:lblLabels(4)AutoSize-1 True Caption班号:本例的执行界面如图2所示。在开始时，数据库表中数据为空，先单击“添加”按钮，然后输入或选择各字段的值，然后单击“更新”按钮，则输入了一个记录。图2 Data控件应用例子执行界面在本例窗体中设计如下事件过程：Private Sub cmdAdd_Click() Data1.Recordset.AddNew cmdDelete.Enabled = False cmdFind.Enabled = False cmdUpdate.Enabled = True txtFields(0).SetFocusEnd SubPrivate Sub cmd

3、Delete_Click() If MsgBox(真的要删除当前记录吗, vbYesNo, 信息提示) = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst If Data1.Recordset.BOF Then cmdDelete.Enabled = False cmdFind.Enabled = False End If End If End IfEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdFind_Click() Dim str As String str = InputBox(输入查找表达式,如年龄=9, 查找) If str = Then Exit Sub Data1.Recordset.FindFirst str If Data1.Recordset.NoMatch Then MsgBox 指定的条件没有匹配的记

4、录, , 信息提示 End IfEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified cmdUpdate.Enabled = False cmdDelete.Enabled = True cmdFind.Enabled = TrueEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate Sub Data1_Reposition() Screen.MousePointer = vbDefault On Error Resume Next Data1.Caption = 记录： & (Data1.Recordset.AbsolutePosition + 1)End SubPrivate Sub Form_Initialize() If Data1.Recordset.EOF And Data1.Recordset.BOF Then 检测记录集是否为空 cmdFind.Enabled = False cmdDelete.Enabled = False Else Data1.Recordset.MoveFirst 指向第一个记录 End If cmdUpdate.Enabled = FalseEnd Sub

《可视化程序设计(VB)之Data控件应用例子》由会员re****.1分享，可在线阅读，更多相关《可视化程序设计(VB)之Data控件应用例子》请在金锄头文库上搜索。

点击阅读更多内容

TA的资源

记叙文阅读方法技巧

家庭室内装修协议范本（三篇）.doc

人防防护工程师防护设备专业题库

皮试液配置方法

幼儿园大班活动方案标准范文（2篇）

2022年九中开学典礼高三学生发言稿

计算机二级officeexcel重点总结

百家姓拼音排序

高中班主任工作计划参考范本（四篇）.doc

民政局的离婚协议书经典版（四篇）.doc

环境预设方案

多举措加强学生午睡安全管理

【最新】陕旅版英语三年级下册 Unit 2 My Family 单元测试卷

提高企业会计信息质量的对策

外墙真石漆质量通病防治

小学教师支教工作计划（4篇）

节约用水最新优秀倡议书范文三篇

2023年个人贷款合同汇编十篇

赤壁市智慧社区项目企划书_模板范文

人教版小学语文四年级下册第四单复习稿

点击查看更多

新上传的WORD文档

常规凝血检验项目临床意义模板定向钻穿越施工方案 2023年保安个人工作总结模板（4篇）.doc 广东省梅州市2019-2020学年高一生物上学期期末考试试题(扫描版) 儿童生理保健课程标准吉林省关于成立LED灯具公司可行性研究报告参考范文《安全上网》教学设计 2023年房地产委托合同范本英语教学案列固定支架技术交底碱金属元素知识点整理职场人完全手册 2020春六年级英语下册Unit5Ilovereading练习1剑桥版我的同学五年级作文综采队地面维护工安全生产责任制