数据识别控件.PPT

第十三章 数据识别控件 前面的数据库数据表的显示、更新通过利用datagird控件，我们称这类控件为数据识别控件，在VB中数据识别控件除了datagird外还有label、 textbox、 checkbox、 listbox、 combobox、 image、 picturebox、 DTPicher等控件，如果我们能够充分运用这些控件，就可以很轻松地进行数据库程序设计了。 1、使用数据识别控件的概念 上面我们列出控件与datagird控件有个很大的不同点，datagird控件是一个二维表格，数据容纳是以复盖整个数据表，但其他数据识别控件则都只能显示一个数据项，其数据容纳量仅限于一个字段。因此，想利用这些数据识别控件来存取数据必须有这样概念： 1）这些数据识别控件每次只能存取“当前数据记录”的某个“字段”的数据。 2）在属性设置上必须把它的datasource属性设为adodc控件名称，将datafield属性设置成某一个“字段名” 例：实验书P15练习一（ch12\练习1.vbp) 使用其它数据识别控件为c:\mdb\books.mdb数据库中销售人员表编写一个浏览记录程序，程序介面如下： 2、数据记录的删除与新增 在上一例中，如果想增加“新增”和“删除”功能，初步的想法是：添加两个命令按扭， 在删除按钮中写下如下语句： adodc1.recordset.delete 在新增按钮中写下如下语句： adodc1.recordset.addnew 但是单击删除按钮之后，并不会看到当前数据记录被删除必须再单击adodc1控件中的箭头。同样对于增加记录亦存在这样问题。 对于删除问题： 调用delete方法之后，再调用movenext方法将当前数据记录移到下一条，如果eof为真，则调用movelast方法将当前数据记录设置为最后一条记录，写成代码： on error goto errmsg adodc1.recordset.delete adodc1.recorset.movenext if adodc1.recordset.eof then adodc1.recordset.movelast endif exit sub ermsg: msbbox err.description, vbexclamation end sub 新增问题： 增加两个命令按钮，“确定新增”、“取消新增” 确定新增： On Error GoTo errmsg Adodc1.Recordset.Update Exit Sub errmsg: MsgBox Err.Description, vbExclamation, 销售人员资料--update End Sub 取消新增： On Error GoTo errmsg Adodc1.Recordset.CancelUpdate Exit Sub errmsg: MsgBox Err.Description, vbExclamation, 销售人员资料--cancelupdate End Sub 例：实验书P17练习二(ch12/练习2.vbp) 例：实验书P19练习三（ch12/练习3.vbp) 3、数据输入与验证 如果用户输入了错误的数据，程序该如何处理呢？当然是不能将错误的数据写入到数据库中了，必要时还要将数据还原，但问题是数据识别控件中的数据总是会自动将数据写入到数据库。 Recordset(“字段名”)=x 不过我们可以利用adodc控件所提供几个事件来侦测数据被写入到缓冲区或数据库情形。 Fieldchangecomplete：当字段中的数据写入到缓冲区中以后，发 生该事件。 Willchangerecord：当前记录的数据即将写入到数据库时发生该事件 将验检数据代码写到这两个事件中其中一个 1）recordset(“字段名”).originalvalue属性 （这是field对象属性） ①对于未曾改变过内容的字段而言,它的origianlvalue属性值等于其 value属性值 ②当执行“recordset(“字段名”)=新值” 语句后,或用户在数据识别控 件中改变了“字段”内容,则新的字段值会写到数据记录缓冲区,此 时其value属性的值改变了,但originalvalue属性的值还是维持原来 的值. ③当我们执行了“recordset.update”方法或当前数据记录位置改变 了之后,它的新的value属性值会赋给originalvalue属生