第9章 数据库应用程序.ppt

7.3 数据控件(Data)－Data控件使用基础 例，如下的事件响应代码可在数据控件Data1上显示记录集中当前记录的记录号及记录总数： Private Sub data1_Reposition() DataId = Data1.Recordset.AbsolutePosition + 1 DataCount = Data1.Recordset.RecordCount Data1.Caption = Str(DataId) “/” Str(DataCount) End Sub 注： 记录集(Recordset)是Data控件所有可访问记录的集合 AbsolutePosition属性表示当前记录指针的位置 RecordCount属性表示记录集的记录总数 返回目录 7.3 数据控件(Data)－Data的绑定控件 绑定：通过对普通控件的属性设置，使得这些控件与Data控件记录集中的字段建立链接关系。 1. Data的绑定控件 具有DataSource和DataField属性的控件可以和Data控件进行绑定，如标签、文本框等。 2. 绑定控件的属性设置 DataSource：选择所绑定的Data控件 DataField：确定需显示或更新的数据表字段，即Data控件连接的数据表字段 返回目录 7.3 数据控件(Data)－Data的绑定控件 [例7.2] 建立Xs.vbp：通过如下窗体显示students.mdb数据库中student表的内容。 返回目录 7.3 数据控件(Data)－Data的绑定控件 [例7.2的操作步骤] (1) 设计窗体：启动VB，新建一个工程，然后设计窗体。 (2) 设置Data控件的属性，见教材表7.4 (3) 设置文本框的绑定属性，见表7.5 (4) 编写 “结束”按钮的Click事件响应代码 Private Sub Cmd_exit_Click() End End Sub (5)保存：Xs.Vbp、FrmXs.frm (6)运行：单击Data控件上的前后四个按 钮可遍历student数据表中的内容。 返回目录 7.3 数据控件(Data)－Data控件的记录集 记录集(Recordset)是Data控件所有可访问记录的集合 对数据库内容的编辑操作主要通过记录集对象来进行 1.浏览记录 Bof 和 Eof 属性 Bof为True：记录指针指向首记录前 Eof为True：记录指针指向末记录后 AbsolutePosition属性 返回当前记录指针的位置（0对应第一条记录） RecordCount属性 返回记录集的记录总数 返回目录 若Bof和Eof的属性值都为True，则记录集为空 7.3 数据控件(Data)－Data控件的记录集 BookMark属性：设置或返回记录的书签 LastModified属性：返回最近一次改过的记录书签值 Move方法组：用于移动记录指针 MoveFirst：移至第一条记录 MoveLast：移到最后一条记录 MovePrevious：记录指针前移一条记录 MoveNext：记录指针后移一条记录 返回目录 7.3 数据控件(Data)－Data控件的记录集 [例7.3] 在例7.2的基础上进行修改: 用Move方法组实现Data控件四个 按钮的相应功能，并在Data1控件上 显示当前记录号。 [操作步骤] (1) 在窗体上添加4个命令按钮: 分别命名为Cmd_Move(0)~ Cmd_Move(3) 设置相应的Caption属性 (2) 编写Cmd_Move命令按钮数组的Click事件响应代码 (3) 编写Data1控件重定位事件(Reposition)响应代码 返回目录 7.3 数据控件(Data)－Data控件的记录集 2.增加、修改和删除记录 相关方法 AddNew：数据表中添加一条空记录 Edit：将当前记录的内容调入缓冲区 Delete：删除当前记录 Update：将缓冲区中的内容写入数据库 CancelUpdate：缓冲区中的内容不写入数据库 增加新记录 ① 调用AddNew方法：在数据表中添加一条空记录 ② 对新记录的各字段进行赋值 ③ 调用Update方法：更新数据表内容 返回目录 7.3 数据控件(Data)－Data控件的记录集 修改记录 ① 调用Edit方法：将当前记录的内容调入缓冲区 ② 修改当前记录 ③ 调用Update方法：将修改的内容写入数据表 注：