第16节 VB数据库应用编程示例.pptVIP

数据库原理与应用教程 国家“十一五”规划教材 第16章 VB数据库应用编程示例 16.1 示例1 16.2 示例2 16.3 示例3 16.4 示例4 16.5 数据窗体向导 16.1 示例1 16.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运行界面 16.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.Recor