课件：使用DAO访问数据库.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 8.3 DAO编程实例 （21）在窗体frmDAOexample中添加GetData事件过程，主要用于根据mStudent对象的属性来刷新控件并且设置标记的值，以免在txt_Change过程中重复更新记录数据。 Private Sub GetData() 显示当前数据 设置mblnInRefresh标志位，以免txtFd_Change事件重复更新对象的属性值 mblnInRefresh = True 将属性值显示在控件中 txtFd(txtStuID).Text = mStudent.mStuID txtFd(txtStuName).Text = mStudent.mStuName txtFd(txtStuSex).Text = mStudent.mStuSex txtFd(txtStuBirthDate).Text = mStudent.mStuBirthDate txtFd(txtStuClass).Text = mStudent.mStuClass txtFd(txtStuFrom).Text = mStudent.mStuFrom txtFd(txtStuTel).Text = mStudent.mStuTel 清除刷新标记 mblnInRefresh = False End Sub 8.3 DAO编程实例 图8.11运行应用程序中的窗体 THANK YOU SUCCESS * * 可编辑 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 8.2 DAO对象 图8.9 Field集合和对象 8.2 DAO对象 Field对象 Field对象的属性 AllowZeroLength：设置或返回一个值表明零长度的字符串对于某Field对象的Value属性是否有效。可取True或False值。 Attributes：设置或返回一个值表明Field对象的一个或多个特性。 CollatingOrder：返回一个值说明用于字符串比较或排序的文本顺序。 DataUpdatable：返回一个值表明Field对象里的数据是否可以更新。 8.2 DAO对象 DefaultValue：设置或返回一个Field对象缺省值。 Name：用户定义的Field对象名称。 OrdinalPosition：Fields集合中Field对象的相对位置。 Required：Field对象是否要求非空值。 Size：用字节表示的Field对象的最大值。 SourceTable：Field对象数据来源的原始表名。 8.2 DAO对象 Type：Field对象的数据类型。 ValidateOnSet：当Field对象的Value属性设置时，该Field对象的值是否立即有效。 ValidationRule：在一个字段被修改或添加到一个表中时，返回或设置用来使该字段中数据生效的值。 ValidationText：在键入到某个字段对象中的值不满足有效性规则时，应用程序所显示的提示性信息。 Value：以Type属性指定的数据类型赋给Field对象的值。 8.2 DAO对象 Field对象的方法 AppendChunk：给OLE对象或备注（memo）Field对象添加一个字符串。 CreateProperty：为Field对象创建一个新的用户定义的属性。 GetChunk：一个Recordset对象中的Fields集合中的备注对象或OLE对象中的一部分或全部内容。 8.3 DAO编程实例 本节通过对TuiMag.mdb数据库StuInfo表的访问实例，来讲解DAO访问数据库的一般步骤： （1）在集成开发环境中，新建一个工程，将工程的命名为DAOexample，并以DAOexample.vbp保存。 （2）在Form1窗体上，按图8.10所示添加8个标签控件，将它们的Caption属性分别设置为：学号、姓名、出生日期、所在班级、来源、联系电话、备注，并左对齐，垂直方向相同间距；再添加1个文本框，并命名为txtFd，然后复制该文本框并粘贴为控件数组，共生成文本框8个，分别对应于学号、姓名、出生日期、所在班级、来源、联系电话、备注。 8.3 DAO编程实例 图8.10 Form1窗体及其上的控件 （3）在窗体上创建简单菜单：“文件”（菜单名为mnuFile），它有一个菜单项“退出”（菜单项名为mnuExit）；“数据”（菜单名为mnuData），它也只有一个菜单项“保存记录”（菜单项名为mnuDa