北京职业院校VB程序编程教案：数据库技术02.docVIP

北京职业院校VB程序编程教案：数据库技术02 14.5 数据库记录的增加、删除和修改操作 Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset Private Sub Form_Load() s = Provider = Microsoft.Jet.OLEDB.3.51; Persist Security Info = False; Data Source = d:\VB6lx\rsgl.mdb cnn.CursorLocation = adUseClient cnn.Open s : Set rst = New Recordset rst.Open 职工工资, cnn, adOpenStatic, adLockOptimistic For Each aa In text1 Set aa.DataSource = r 绑定所有文本框到记录源 Next Combo1.AddItem “全体” 初始化组合框 Combo1.AddItem 保卫 Combo1.AddItem 财务 Combo1.AddItem 技术 Combo1.AddItem 生产 Combo1.AddItem 供销 Combo1.Text = Combo1.List(0) End Sub 编写命令按钮控件数组Command1()的Click事件代码： Private Sub Command1_Click(Index As Integer) n = Index Select Case n Case 0 rst.MoveFirst Case 1 上一个 rst.MovePrevious If rst.BOF Then rst.MoveFirst Case 2 下一个 rst.MoveNext If rst.EOF Then rst.MoveLast Case 3 末一个 rst.MoveLast End Select End Sub 编写组合框Combo1的Click事件代码： Private Sub Combo1_Click() t = Combo1.Text If t = 全体 Then rst.Filter = Else rst.Filter = 部门 = t End If rst.Resync adAffectAllChapters End Sub 使用ADO Data控件建立的工资管理数据窗体，如图所示。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写代码。 Private Sub command1_Click(Index As Integer) Select Case Index Case 0 添加∕确定按钮 If command1(0).Caption = 添加(A) Then command1(0).Caption = 确定(O) command1(1).Caption = 取消(C) Adodc1.Recordset.AddNew aa (False) Else command1(0).Caption = 添加(A) Adodc1.Recordset.UpdateBatch adAffectAll aa (True) End If Case 1 编辑∕取消按钮 If command1(1).Caption = 编辑(E) Then command1(0).Caption = 确定(O) command1(1).Caption = 取消(C) aa (False) Else command1(0).Caption = 添加(A) command1(1).Caption = 编辑(E) Adodc1.Recordset.CancelUpdate Adodc1.Refresh aa (True) End If Case 2 删除按钮 Adodc1.