- 1、本文档共43页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数据库应用技术 广州大学机械与电气工程学院 第17章 VB数据库应用编程示例 17.1 示例1 17.2 示例2 17.3 示例3 17.4 示例4 17.5 数据窗体向导 17.1 示例1 17.1 示例1(续) 各控件所设置的属性及属性值 示例1程序代码 “退出”按钮 Private Sub CmdExit_Click() End End Sub 窗体加载时初始化查找 Private Sub Form_Load() 初始化要查找的系为空 TxtSearchDept.Text = End Sub 示例1程序代码(续) “查找”按钮 Private Sub CmdSearch_Click() If Len(TxtSearchDept.Text) 0 Then AdodcStudent.CommandType = adCmdText AdodcStudent.RecordSource = select * from student where Sdept = Trim(TxtSearchDept.Text) AdodcStudent.Refresh 使所设置的属性生效 Else 若用户未指定列名 MsgBox (请指定要查找的系) 则提示用户输入系名 End If End Sub 示例1运行界面 17.2 示例2 示例2窗体布局 命令按钮控件的对象名 “添加”命令按钮:cmdAdd “删除”命令按钮:cmdDel “更新”命令按钮:cmdUpdate “取消”命令按钮:cmdCancel “第一条”命令按钮:cmdFirst “上一条”命令按钮:cmdPrevious “下一条”命令按钮:cmdNext “末一条”命令按钮:cmdLast “退出”命令按钮:cmdExit 示例2代码 窗体启动时的初始化代码 Private Sub Form_Load() 初始时使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 数据操作按钮组代码 “添加”命令按钮 Private Sub CmdAdd_Click() AdodcStudent.Recordset.AddNew 使“添加”和“删除”按钮为不可用状态 CmdAdd.Enabled = False CmdDel.Enabled = False 使“更改”和“取消”按钮为可用状态 CmdUpdate.Enabled = True CmdCancel.Enabled = True End Sub 数据操作按钮组代码(续) “取消”命令按钮 Private Sub CmdCancel_Click() AdodcStudent.Recordset.CancelUpdate 使“添加”和“删除”按钮为可用状态 CmdAdd.Enabled = True CmdDel.Enabled = True 使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 数据操作按钮组代码(续) “删除”命令按钮 Private Sub CmdDel_Click() Dim res As Integer res = MsgBox(确实要删除此行记录吗?, _ vbExclamation + vbYesNo + vbDefaultButton2) 提示用户 If res = vbYes Then 如果确实要删除 AdodcStudent.Recordset.Delete AdodcStudent.Recordset.MoveNext If AdodcStudent.Recordset.EOF = True Then AdodcStudent.Recordset.MoveLast End If End If End Sub 数据操作按钮组代码(续) “更新”命令按钮 Private Sub CmdUpdate_Click() 将文本框中的当前值写入结果集相应字段中 AdodcStudent.Recordset.Fields(Sno)=Trim(TxtSno.Text) AdodcStudent.Recordset.Fields(Sname)=Trim(TxtSname.Text) AdodcStudent.Record
您可能关注的文档
- 第06章 电泳技术和常用电泳仪.ppt
- 第06章 fluent边界条件1.doc
- 第06章 fluent边界条件2.doc
- 第06章土地利用动态监测.ppt
- 第6讲 生态文明建设.ppt
- 第6讲——不定积分的经济应用.doc
- 第6课 网上开店前期策划.doc
- 第6课美丽的鱼.ppt
- 第6章 采购与配送管理.ppt
- 第6章 通风、空调工程.ppt
- (新统编版)语文七年级下册 课内现代文知识点梳理.docx
- 2025高考总复习优化设计一轮用书语文配人教版(适用于新高考新教材)复习任务群1 信息类文本阅读练案9 信息类文本阅读探究题的三大命题情境——个人体验情境、社会生活情境、学科认知情境含答案.docx
- 2025高考总复习优化设计一轮用书语文配人教版(适用于新高考新教材)复习任务群8 语言积累、梳理与探究、运用练案77 句式变换含答案.docx
- hsbc european meltdown-fiddles as rome burns汇丰银行大火却举步维艰.pdf
- 重庆市城市地下空间信息电子数据库标准.pdf
- 重庆市2020年中考英语试题(B卷)(原卷版).pdf
- 设施维护保养记录表.doc
- 论质量管理体系建设中两张皮的产生及对策.doc
- 解剖生理血液新专家讲座.pptx
- 设备专业预留预埋施工方案.doc
文档评论(0)