第7节 使用数据控件访问数据库.pptVIP

第7章使用控件访问数据库 7.1 Data数据控件 Data数据控件的常用属性 Data数据控件常用的事件 Data数据控件常用的方法 数据控件的记录集（RecordSet对象） EofAction和BofAction属性 该属性是当记录指针指向RecordSet对象的第一条记录前或最后一条记录后时，数据控件的EofAction和BofAction属性的设置或返回值决定了数据控件要采取的操作。其属性的取值如表8.1所示。 7.1 Data数据控件 需要指出是，数据控件本身并不直接显示记录集中的数据，而是通过与它绑定的控件（也称绑定控件）来实现。常用的绑定控件有文本框、标签、复选框、图片框和图象框等。数据控件用于绑定数据库和数据库中的某个数据表，绑定控件先与数据控件进行绑定，再绑定数据表中的某个列。所以要使绑定控件能与数据库进行连接，必须设置它的两个属性： ①DataSource属性：该属性通过指定一个有效的数据控件使绑定控件连接到一个数据库上。 ②DataField属性：该属性设置数据库有效的字段与绑定控件建立联系。 7.1 Data数据控件 创建步骤： 选择“文件”菜单中的“新建工程”，在随后出现的“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。 设置窗体的Caption属性为“StuInfo数据表基本信息浏览”。 在窗体中添加7个标签框、7个文本框和一个命令按钮，并按图8.1所示设置标签框和命令按钮的Caption属性。 在窗体上添加一个Data控件，并按表8.2设置属性。 7.1 Data数据控件 7.1 Data数据控件 ⑤设置绑定控件文本框的属性，如表7.3所示： ⑥修改命令按钮的Name属性值为“退出”，程序代码如下： Private Sub 退出_Click() Unload Me End End Sub ⑦运行该应用程序，出现如图8.2所示界面，单击 Data控件上的左右箭头可以浏览“StuInfo”数据表中的记录。 7.1 Data数据控件 7.1 Data数据控件 Data数据控件常用的事件 Reposition事件 Vaildate事件 Errors事件 7.1 Data数据控件 Data数据控件常用的事件 [例7-2] 修改例7-1的应用程序，编一 Reposition事件过程，使得当单击数据控件对象上的箭头时，在数据控件的标题区显示记录的序号。 创建步骤： 添加Reposition事件过程 运行该应用程序，出现如图8.3所示界面，单击Data控件上的箭头可以浏览“StuInfo”数据表及其记录序号 7.1 Data数据控件 Data数据控件常用的事件 [例7-3] 在例7-2的应用程序中，添加Vaildate事件，使得用户在浏览“StuInfo”数据表时不能改变学号的位数。 创建步骤： Vaildate事件的程序代码如下： Private Sub Data1_Validate(Action As Integer, Save As Integer) If Save And Len(Trim(TxtID)) 6 Then MsgBox 学号必须为6位！, vbCritical, 警告框 Action = 0 End If End Sub 运行该应用程序时，如果用户改变了“StuInfo”数据表的学号位数，然后按了数据控件上的任一个按钮，会出现如右图所示的对话框。 7.1 Data数据控件 Data数据控件常用的方法 Refresh方法 UpdateControls方法 UpdateRecord方法 7.1 Data数据控件 7.1 Data数据控件 7.1 Data数据控件 RecordCount属性 该属性用于统计RecordSet对象的记录个数。 [例7-5] 修改例7-3的应用程 序，当打开该应用程序 时显示 “StuInfo”数据表记录的个数。 创建步骤： 在窗体上添加两个标签，如右图所示。 添加Activate事件过程，代码如下： Private Sub Form_Activate() Data1.Recordset.MoveLast Label9.Caption = Data1.Recordset.RecordCount End Sub 运行该应用程序，“StuInfo”