第十三章 数据识别控件

第十三章数据识别控件,前面的数据库数据表的显示、更新通过利用datagird控件，我们称这类控件为数据识别控件，在VB中数据识别控件除了datagird外还有label、textbox、checkbox、listbox、combobox、image、picturebox、DTPicher等控件，如果我们能够充分运用这些控件，就可以很轻松地进行数据库程序设计了。1、使用数据识别控件的概念上面我们列出控件与datagird控件有个很大的不同点，datagird控件是一个二维表格，数据容纳是以复盖整个数据表，但其他数据识别控件则都只能显示一个数据项，其数据容纳量仅限于一个字段。因此，想利用这些数据识别控件来存取数据必须有这样概念：1）这些数据识别控件每次只能存取“当前数据记录”的某个“字段”的数据。2）在属性设置上必须把它的datasource属性设为adodc控件名称，将datafield属性设置成某一个“字段名”,例：实验书P15练习一（ch12练习1.vbp)使用其它数据识别控件为c:mdbbooks.mdb数据库中销售人员表编写一个浏览记录程序，程序介面如下：,3）数据识别控件选择数据识别控件适用的数据字段label只读字段textbox一般性文字字段，包含文本、数值checkbox逻辑字段comboboxlistbox列表式的字段（例如血型）imagepicture图片字段DTPicker日期类型字段,2、数据记录的删除与新增在上一例中，如果想增加“新增”和“删除”功能，初步的想法是：添加两个命令按扭，在删除按钮中写下如下语句：adodc1.recordset.delete在新增按钮中写下如下语句：adodc1.recordset.addnew但是单击删除按钮之后，并不会看到当前数据记录被删除必须再单击adodc1控件中的箭头。同样对于增加记录亦存在这样问题。对于删除问题：调用delete方法之后，再调用movenext方法将当前数据记录移到下一条，如果eof为真，则调用movelast方法将当前数据记录设置为最后一条记录，写成代码：onerrorgotoerrmsgadodc1.recordset.deleteadodc1.recorset.movenext,ifadodc1.recordset.eofthenadodc1.recordset.movelastendifexitsubermsg:msbboxerr.description,vbexclamationendsub新增问题：增加两个命令按钮，“确定新增”、“取消新增”确定新增：OnErrorGoToerrmsgAdodc1.Recordset.UpdateExitSuberrmsg:MsgBoxErr.Description,vbExclamation,销售人员资料-updateEndSub,取消新增：OnErrorGoToerrmsgAdodc1.Recordset.CancelUpdateExitSuberrmsg:MsgBoxErr.Description,vbExclamation,销售人员资料-cancelupdateEndSub例：实验书P17练习二(ch12/练习2.vbp)例：实验书P19练习三（ch12/练习3.vbp)3、数据输入与验证如果用户输入了错误的数据，程序该如何处理呢？当然是不能将错误的数据写入到数据库中了，必要时还要将数据还原，但问题是数据识别控件中的数据总是会自动将数据写入到数据库。Recordset(“字段名”)=x,缓冲区,写入,数据库,Recordset.update,不过我们可以利用adodc控件所提供几个事件来侦测数据被写入到缓冲区或数据库情形。Fieldchangecomplete：当字段中的数据写入到缓冲区中以后，发生该事件。Willchangerecord：当前记录的数据即将写入到数据库时发生该事件将验检数据代码写到这两个事件中其中一个1）recordset(“字段名”).originalvalue属性（这是field对象属性）对于未曾改变过内容的字段而言,它的origianlvalue属性值等于其value属性值当执行“recordset(“字段名”)=新值”语句后,或用户在数据识别控件中改变了“字段”内容,则新的字段值会写到数据记录缓冲区,此时其value属性的值改变了,但originalvalue属性的值还是维持原来的值.当我们执行了“recordset.update”方法或当前数据记录位置改变了之后,它的新的value属性值会赋给originalvalue属生,此进它的originalvalue属性的值又变成等于其value属性的值.,2）哪些字段需要验证？利用哪一个事件来验证？要验证数据之前，我们必须先定义好字段有效范围，例如：“语文”、“数学”、“英文”成绩字段有效范围0100，除了单一字段的验证之外，有时候我们也会验证同一条记录不同字段之间的关系。例如在股票行情表中“最高价”就不应该小于“收盘价”而“收盘价”又不应该小于“最高价”。利用哪一个事件来编写验证字段代码，分两种情况单一字段数据验证使用fieldchangecompelete事件在该事件中有几个参数其含义：cfields：内容已被改变的字段个数。如果使用数据识别控件来录入数据，该参数通常等于1，但是成批修改一条记录中各个字段值时，该参数不等于1。例：fieldname=array(“语文”,“英文”,“数学”）fieldvalue=array(90,80,70)adodc1.recordset.updatefieldname,fieldvalue此时cfields=3,fields：field对象集合，假设被更新字段只有一个field(0)代表该字段。（如果更新字段有“语文”,“英文”,“数学“则fields(0)、fields(1)、fields(2)分别表示“语文”,“英文”,“数学三个字段）precordset：当前数据记录，这个参数相当于adodc1.recordset属性。例：在score01.mdb中成绩单表中修改字段数据，编写检验数据代码。(ch12练习4.vbp)Adodc1绑定数据库score01datagrid显示数据编写检验数据代码如下：PrivateSubAdodc1_FieldChangeComplete(ByValcFieldsAsLong,FieldsAsVariant,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)DimiAsIntegerDimnameAsStringFori=0TocFields-1name=Fields(i).name,Ifname=数学Orname=语文Orname=英文ThenIfFields(i)100OrFields(i)0ThenFields(i)=Fields(i).OriginalValueMsgBoxFields(i).name&字段，请输入0-100之间数值EndIfEndIfNextiEndSub运行时发现如果改了数据又超出范围，如果直接单击窗体关闭按钮，此时未能触发到fieldchangcompele事件。所输错误数据被写入到数据库中去了。解决办法：privateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)Me.SetFocusEndSub此时datagrid控件失去了输入焦点，由于我们更改了数据就会触发adodc1_fieldchangcompelete事件。,复合字段数据验证单纯检验某一个字段的值是否正确，使用fieldchangecompelete事件是十分恰当，可是想要检验不同字段之间关系是否符合验证规则就必须使用willchangerecord事件来验证在willchangerecord事件中有几个参数需要解释：adreason：发生willchangerecord事件的理由，可能是以下参数值：设置值意义adrsnaddnew(=1)新增数据记录时adrsndelete(=2)删除数据记录时adrsnupdate(=3)更新数据记录时adrsnundoupdate(=4)取消更新数据记录时crecords：即将被更新的记录条数adstatus：发生这个事件时的状态precordset：当前数据记录。（相当于adodc1.recordset）用这个参数读取记录数据，进行数据验证。,例：编写一个修改“股票行情”数据的程序，并对修改的数据进行验证，“收盘价”字段值不可以低于“最低价”，“收盘价”字段值不可以高于“最高价”（ch12练习5.vbp)在窗体上放置adodc1及datagrid绑定stocko1.mdb中股票行情表PrivateSubAdodc1_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValprecordsetAsADODB.Recordset)OnErrorGoTomsgerrIfadReason=adRsnUpdateThenIfprecordset(收盘价)precordset(最高价)Thenprecordset(收盘价)=precordset(收盘价).OriginalValueprecordset(最高价)=precordset(最高价).OriginalValueMsgBox收盘价不得高于最高价EndIfEndIfmsgerr:EndSub同修改单个字段一样，用户修改数据后单击窗体关闭，此时未能触发到willchangerecord事件。不能验证数据。但是在form_queryunload事件