第16章 VB数据库应用编程示例.ppt

数据库原理与应用教程 国家 十一五 规划教材 第16章VB数据库应用编程示例 16 1示例116 2示例216 3示例316 4示例416 5数据窗体向导 16 1示例1 示例1窗体布局 目的 不用编写代码就可实现对数据的浏览 16 1示例1 续 各控件所设置的属性及属性值 示例1程序代码 退出 按钮PrivateSubCmdExit Click EndEndSub窗体加载时初始化查找PrivateSubForm Load 初始化要查找的系为空TxtSearchDept Text EndSub 示例1程序代码 续 查找 按钮PrivateSubCmdSearch Click IfLen TxtSearchDept Text 0ThenAdodcStudent CommandType adCmdTextAdodcStudent RecordSource select fromstudentwhereSdept Trim TxtSearchDept Text AdodcStudent Refresh 使所设置的属性生效Else 若用户未指定列名MsgBox 请指定要查找的系 则提示用户输入系名EndIfEndSub 示例1运行界面 16 2示例2 示例2窗体布局 目的 编写代码实现对数据的操作和浏览 命令按钮控件的对象名 添加 命令按钮 cmdAdd 删除 命令按钮 cmdDel 更新 命令按钮 cmdUpdate 取消 命令按钮 cmdCancel 第一条 命令按钮 cmdFirst 上一条 命令按钮 cmdPrevious 下一条 命令按钮 cmdNext 末一条 命令按钮 cmdLast 退出 命令按钮 cmdExit 示例2代码 窗体启动时的初始化代码PrivateSubForm Load 初始时使 取消 按钮为不可用状态CmdCancel Enabled FalseEndSub 数据操作按钮组代码 添加 命令按钮PrivateSubCmdAdd Click AdodcStudent Recordset AddNew 使 添加 和 删除 按钮为不可用状态CmdAdd Enabled FalseCmdDel Enabled False 使 更改 和 取消 按钮为可用状态CmdUpdate Enabled TrueCmdCancel Enabled TrueEndSub 数据操作按钮组代码 续 取消 命令按钮PrivateSubCmdCancel Click AdodcStudent Recordset CancelUpdate 使 添加 和 删除 按钮为可用状态CmdAdd Enabled TrueCmdDel Enabled True 使 取消 按钮为不可用状态CmdCancel Enabled FalseEndSub 数据操作按钮组代码 续 删除 命令按钮PrivateSubCmdDel Click DimresAsIntegerres MsgBox 确实要删除此行记录吗 vbExclamation vbYesNo vbDefaultButton2 提示用户Ifres vbYesThen 如果确实要删除AdodcStudent Recordset DeleteAdodcStudent Recordset MoveNextIfAdodcStudent Recordset EOF TrueThenAdodcStudent Recordset MoveLastEndIfEndIfEndSub 数据操作按钮组代码 续 更新 命令按钮PrivateSubCmdUpdate Click 将文本框中的当前值写入结果集相应字段中AdodcStudent Recordset Fields Sno Trim TxtSno Text AdodcStudent Recordset Fields Sname Trim TxtSname Text AdodcStudent Recordset Fields Ssex Trim TxtSsex Text AdodcStudent Recordset Fields Sage CInt Trim TxtSage Text AdodcStudent Recordset Fields Sdept Trim TxtSdept Text 数据操作按钮组代码 续 更新 命令按钮代码 续 使更新生效AdodcStudent Recordset Update 使 添加 和 删除 按钮为可用状态CmdAdd Enabled TrueCmdDel Enabled True 使 取消 按钮为不可用状态CmdCancel Enabled FalseEndSub 移动指针方法组代码 第一条 命令按钮PrivateSubCmdFirst Click AdodcStudent Recordset MoveFirstEndSub 下一条 命令按钮PrivateSubCmdNext Click AdodcStudent Recordset MoveNextIfAdodcStudent Recordset EOF TrueThenAdodcStudent Recordset MoveLastEndIfEndSub 移动指针方法组代码 续 末一条 命令按钮PrivateSubCmdLast Click AdodcStudent Recordset MoveLastEndSub 上一条 命令按钮PrivateSubCmdPrevious Click AdodcStudent Recordset MovePreviousIfAdodcStudent Recordset BOF TrueThenAdodcStudent Recordset MoveFirstEndIfEndSub 结束程序代码 退出 命令按钮PrivateSubCmdExit Click EndEndSub 示例2运行界面 16 3示例3 窗体布局 目的 利用DataGrid控件实现对数据表格式浏览 并实现两个窗体间的互动 Form1上的代码 退出 按钮PrivateSubCmdExit Click EndEndSub 查找 按钮PrivateSubCmdSearch Click Form2 Show 显示Form2窗体EndSub Form2上的代码 返回 按钮PrivateSubCmdReturn Click UnloadMeEndSub Form2上的代码 续 初始化PrivateSubForm Load DimstrSnoAsStringDimstrSelectAsString 得到Form1窗体上当前显示的学号的值strSno Trim Form1 TxtSno Text 编写满足要求的查询语句 查找学号值等于给定值的学生的姓名 修的课程名 学分和成绩strSelect selectSname Cname Ccredit Gradefromstudentsjoinscons sno o owheresc sno strSno Form2上的代码 续 初始化 续 设置ADO数据控件相应的属性AdodcGrid CommandType adCmdTextAdodcGrid RecordSource strSelect 使ADO数据控件的新属性生效AdodcGrid Refresh 设置DataGrid控件的数据源为ADO数据控件的结果集SetDtgCond DataSource AdodcGrid 调用DtgCond控件的初始化过程CallInitGridEndSub Form2上的代码 续 初始化dtgCond控件PrivateSubInitGrid WithDtgCond 设置DtgCond的列标题 Columns 0 Caption 学号 Columns 1 Caption 课程名 Columns 2 Caption 学分 Columns 3 Caption 成绩 设置DtgCond的列宽 Columns 0 Width 1000 Columns 1 Width 2000 Columns 2 Width 800 Columns 3 Width 800EndWithEndSub 16 3示例3 续 运行界面 16 4示例4 窗体布局 目的 用ADO对象实现示例2的功能 示例4代码 声明窗体级的对象DimadoConAsADODB ConnectionDimadoRstAsADODB Recordset 初始化代码 窗体启动时的代码PrivateSubForm Load 建立连接SetadoCon NewADODB ConnectionadoCon Open Provider SQLOLEDB 1 PersistSecurityInfo False UserID sa InitialCatalog 学生管理数据库 DataSource local 建立记录集SetadoRst NewADODB RecordsetadoRst ActiveConnection adoConadoRst CursorLocation adUseClient 初始化代码 续 adoRst CursorType adOpenDynamicadoRst LockType adLockOptimisticadoRst Source Student adoRst Open adCmdTable 显示数据CallDisplay 初始时使 取消 按钮为不可用状态CmdCancel Enabled FalseEndSub 两个通用的过程 将记录集中各字段的数据绑定到文本框中PrivateSubDisplay TxtSno Text convertNull adoRst Fields sno value TxtSname Text convertNull adoRst Fields sname value TxtSsex Text convertNull adoRst Fields ssex value TxtSage Text convertNull adoRst Fields sage value TxtSdept Text convertNull adoRst Fields sdept value EndSub 两个通用的过程 续 将空值字段转化为空字符串PrivateFunctionconvertNull valueAsVariant AsVariantIfIsNull value TrueThenconvertNull ElseconvertNull valueEndIfEndFunction 数据操作按钮组代码 添加 命令按钮PrivateSubCmdAdd Click adoRst AddNew 使 添加 和 删除 按钮为不可用状态CmdAdd Enabled FalseCmdDel Enabled False 使 更改 和 取消 按钮为可用状态CmdUpdate Enabled TrueCmdCancel Enabled True 添加 命令按钮 续 清空文本框中显示的内容TxtSno Text TxtSname Text TxtSsex Text TxtSage Text TxtSdept Text EndSub 数据操作按钮组代码 续 取消 命令按钮PrivateSubCmdCancel Click adoRst CancelUpdate 使 添加 和 删除 按钮为可用状态CmdAdd Enabled TrueCmdDel Enabled True 使 取消 按钮为不可用状态CmdCancel Enabled FalseCallDisplay 显示记录集当前记录EndSub 数据操作按钮组代码 续 删除 命令按钮PrivateSubCmdDel Click DimresAsIntegerres MsgBox 确实要删除此行记录吗 vbExclamation vbYesNo vbDefaultButton2 Ifres vbYesThen 如果确实要删除adoRst DeleteadoRst MoveNextIfadoRst EOF TrueThenadoRst MoveLastEndIfEndIfCallDisplay 显示记录集当前记录EndSub 数据操作按钮组代码 续 更新 命令按钮PrivateSubCmdUpdate Click 将文本框中的当前值写入结果集相应字段中adoRst Fields Sno Trim TxtSno Text adoRst Fields Sname Trim TxtSname Text adoRst Fields Ssex Trim TxtSsex Text adoRst Fields Sage CInt Trim TxtSage Text adoRst Fields Sdept Trim TxtSdept Text adoRst Update 使更新生效CmdAdd Enabled True 使 添加 按钮为可用状态CmdDel Enabled True 使 删除 按钮为可用状态CmdCancel Enabled False 使 取消 按钮为不可用状态EndSub 移动指针方法组代码 第一条 命令按钮Privat