高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 作者 张露2 第12章.pptVIP

第12章　Visual Basic数据库程序设计;第12章 数据库功能 ;RecordSource属性：用来确定具体可访问的数据，可以是数据库种的单个表，也可以是一个存储查询或者是使用SQL查询语言的一个查询字符串。 由ResordSource 确定的具体可访问的数据构成的记录集合（RecordSet）也是一个对象，它也具有和其它对象一样的属性和方法。RecordSet记录集有名为BOF和EOF的属性，RECORDSET.BOF用来判断是否在首记录之前，若该属性的值为True，则表示当前位置在记录集的第一个记录之前。RECORDSET.EOF则是判断是否在末记录之后。 EOF和BOF属性具有以下特征： 当记录集中没有记录时，这两个值均为“真”（True） 当这EOF或BOF的值为“真”时，只有移动指针到实际存在的记录上，他们才会变为“假”（False）。 EOF或BOF为“假”，而且记录集中唯一一个记录被删除掉时，他们将保持为“假”，直到有新的记录加入。 当创建或打开至少含有一个记录的记录集时，第一个记录将被当成当前记录，此时均为“假”。 RecordCount属性：用于计算记录集中现存记录的数量。对于表类型的记录集，该属性就是表中的记录总数；对于快照或者动态记录集来说，该属性的值就是用户所访问过的记录的个数。如果在记录集（包括表、动态表和快照）中没有记录，该属性值就是0。 EOFaction和BOFaction属性：记录集的EOF或BOF属性为真时，EOFaction和BOFaction属性的设置值或返回值决定数据控件要采取的动作。 ;ReADOnly属性：用于控制能否对记录集进行写操作，如果该属性的值为真，则该记录集时不允许用户写入数据。 ;Seek方法：用Seek方法可在表中查找于指定索引规则相符的第一个记录，并使之成为当前记录。 Refresh方法：用Refresh方法来激活在设计状态时没有为数据库控件的有关属性赋值或数据源在运行时被改变。 Close方法：`用Close方法关闭指定的数据库、记录集并释放分配给它的资源。 Close方法的语法结构：对象.Close 数据输入方法：这里包括有添加记录（Addnew）、删除记录（Delete）、更新记录（Update），它们的语法结构为：数据控件.记录集.方法名 增加记录的操作分为三步： 调用Addnew方法 给各字段赋值，给字段赋值格式为：RecordSet.field(“字段名”)=值 调用Update方法，确定所作的添加，将缓冲区的数据写入数据库。 在用Addnew方法添加新记录后，但是还没有用Update方法更新纪录集，就移动到其他记录，或者关闭记录集，那么这些输入的数据将在没有任何提示的情况下全部丢失。 删除记录的操作也分为三步： 定位被删除的记录使之成为当前记录 调用Delete方法 移动记录指针 更新记录就是要去修改现有记录，使用程序代码修改记录的方法可以分为以下四步： 定位要修改的记录，使之成为当前记录 调用Edit方法 给个字段赋值 调用Update方法，确定所作的修改。;下面是某公司人力资源部的认识数据库管理系统的员工管理程序，其中实现了员工的增加、修改、删除、查询等功能。 ;Label18;Command1;;Dim mbookmark As Variant “第一个按”钮的事件代码 Private Sub Command1_Click() If Not Data1.Recordset.BOF Then Data1.Recordset.MovePrevious Else MsgBox 已到数据库头，无法再移动！, vbCritical, 数据库 Data1.Recordset.MoveFirst End If Me.Refresh End Sub “下一个”按钮的事件代码 Private Sub Command2_Click() If Not Data1.Recordset.EOF Then Data1.Recordset.Movenext Else MsgBox 已到数据库尾，无法再移动！, vbCritical, 数据库 Data1.Recordset.Movelast End If Me.Refresh End Sub;“第一个”按钮的事件代码 Private Sub Command3_Click() Data1.Recordset.MoveFirst Me.Refresh End Sub “末一个”按钮的事件代码 Private Sub Command4_Click() Data1.Recordset.Movelast Me.Refresh