[信息与通信]ch14_databaseapplicationsamplesforVB.pptVIP

第14章 VB数据库应用编程示例 14.1 示例1 14.2 示例2 14.3 示例3 14.4 数据窗体向导 示例1 本示例说明如何利用ADO数据控件实现对Student表中全部数据的浏览，以及如何实现按用户指定的系查找相应学生信息的功能。 通过本示例我们可以看到，设置好ADO数据控件的属性后，用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了，用户只需要编写很少的代码就可以实现对数据源的重新查询。 本示例的窗体布局如图所示 . 示例1 示例1 在这个界面中，用户可以通过单击AdodcStudent数据控件的四个按钮改变所浏览的记录。当用户单击“查找”按钮时，表示要按用户在txtSearchdept文本框中所指定的系进行查找。 程序代码如下： Private Sub CmdExit_Click() 退出按钮 End 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 Private Sub Form_Load() 窗体加载时初始化查找系的内容 初始化要查找的系为空 TxtSearchDept.Text = End Sub 示例2 示例2在示例1的基础上增加了两组供用户操作的按钮。一组是为了说明如何实现数据更改操作，即如何使用Recordset对象的AddNew、Update、Delete和CancelUpdate方法；另一组是为了说明如何编程控制结果集中浏览记录的移动，即如何使用Recordset对象的Move方法组。 示例2的窗体布局如图所示。 示例2 程序代码如下： (1).窗体启动时的初始化代码 Private Sub Form_Load() 初始时使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 示例2 (2).数据操作按钮组代码 Private Sub CmdAdd_Click() “添加”命令按钮 AdodcStudent.Recordset.AddNew 使“添加”和“删除”按钮为不可用状态 CmdAdd.Enabled = False CmdDel.Enabled = False 使“更改”和“取消”按钮为可用状态 CmdUpdate.Enabled = True CmdCancel.Enabled = True End Sub 示例2 Private Sub CmdCancel_Click() “取消”命令按钮 AdodcStudent.Recordset.CancelUpdate 使“添加”和“删除”按钮为可用状态 CmdAdd.Enabled = True CmdDel.Enabled = True 使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 示例2 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 示例2 Private S