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

两个通用的过程 将记录集中各字段的数据绑定到文本框中 Private Sub Display() 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) End Sub 两个通用的过程（续） 将空值字段转化为空字符串 Private Function convertNull(value As Variant) As Variant If IsNull(value) = True Then convertNull = Else convertNull = value End If End Function 数据操作按钮组代码 “添加”命令按钮 Private Sub CmdAdd_Click() adoRst.AddNew 使“添加”和“删除”按钮为不可用状态 CmdAdd.Enabled = False CmdDel.Enabled = False 使“更改”和“取消”按钮为可用状态 CmdUpdate.Enabled = True CmdCancel.Enabled = True “添加”命令按钮（续） 清空文本框中显示的内容 TxtSno.Text = TxtSname.Text = TxtSsex.Text = TxtSage.Text = TxtSdept.Text = End Sub 数据操作按钮组代码（续） “取消”命令按钮 Private Sub CmdCancel_Click() adoRst.CancelUpdate 使“添加”和“删除”按钮为可用状态 CmdAdd.Enabled = True CmdDel.Enabled = True 使“取消”按钮为不可用状态 CmdCancel.Enabled = False Call Display 显示记录集当前记录 End Sub 数据操作按钮组代码（续） “删除”命令按钮 Private Sub CmdDel_Click() Dim res As Integer res = MsgBox(确实要删除此行记录吗？, _ vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then 如果确实要删除 adoRst.Delete adoRst.MoveNext If adoRst.EOF = True Then adoRst.MoveLast End If End If Call Display 显示记录集当前记录 End Sub 数据操作按钮组代码（续） “更新”命令按钮 Private Sub CmdUpdate_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 使“取消”按钮为不可用状态 End Sub 移动指针方法组代码 “第一条”命令按钮 Private Sub CmdFirs