大学软件开发与应用课程PPt--RJ4D【荐】.ppt

数据控件属性 Connect：指定数据库类型 Access DatabaseName：指定具体使用的数据库 RecordsetType：确定记录集合类型。共有3个选项： Table 0 Dynaset 1 Snapshot 2 RecordSource：确定可具体访问的数据 表、一个存储查询等 ReadOnly：用于控制能否对记录集进行写操作。 True不能， False能 依附控件属性 DataSource：通过指定一个有效的数据 控件连接一个数据库 DataField：设置数据库有效的字段 即绑定字段 数据控件的常用方法 Refresh： ⑴当用户对数据库进行修改后，调用这个方法将重新取出数据，并将当前记录设置为第一条记录。 ⑵当改变了数据控件的DatabaseName、ReadOnly、Connect等属性时，须使用此方法重新激活。 数据控件的常用方法 Edit： 用于将当前记录复制到数据缓冲区以便编辑。语句格式如下： 数据控件名.RecordSet.Edit AddNew： ① 清除数据缓冲区中的信息 ② 将当前记录移到最后，为添加新记录作好准备 语句格式如下： 数据控件名.RecordSet.AddNew 数据控件的常用方法 Update： 将数据缓冲区中的内容送到数据库中。语句格式如下： 数据控件名.RecordSet.Update UpdateControls： 将数据从数据库中重新读到数据缓冲区中，放弃对当前记录的修改（在执行此方法前未执行过Move方法）。语句格式如下： 数据控件名. UpdateControls 数据控件的常用方法 Delete： 删除记录集中的当前记录（无任何提示）。记录指针不动（控件中仍显示该记录）。语句格式如下： 数据控件名.RecordSet.Delete 数据控件的常用方法 Move：移动记录指针 ① MoveFirst：将记录指针移至第一条记录。 ② MoveLast：将记录指针移至最后一条记录。 ③ MovePrevious：将记录指针上移一条记录。 ④ MoveNext：将记录指针下移一条记录。 ⑤ Move（n）：将记录指针下移n条记录。n为整数值。 语句格式如下： 数据控件名.RecordSet.Move方法名 数据库操作 1. 增加记录 调用AddNew方法 → 给各字段赋值 → 调用Update方法 2. 删除记录 定位被删除的记录使之成为当前记录 →调用Delete方法 → 移动记录指针(使用Move方法) VB 程序设计示例 VB 程序设计示例 VB 程序设计示例 VB 程序设计示例 主窗口: 选择一般查询子菜单 Private Sub Seek1_Click() XZ = 0 Unload Me xznj.Visible = True End Sub 选择按姓名查询选项 Private Sub SName_Click() XZ = 1 Unload Me xznj.Visible = True End Sub 标准模块文件代码: 定义全局变量XN,XZ,XM,XH Public XN As Integer Public XZ As Integer Public XM As String * 6 Public XH As Long 自定义子过程SRDX,根据XZ值显示不同的输入框 , _ 等待用户输入查询或修改对象名称或学号 Sub SRDX() Select Case XZ Case 1 XM = InputBox$(请输入需查询的学生姓名, 个别查询) Case 2 XH = Val(InputBox$(请输入需查询的学生学号, 个别查询)) Case 3 XM = InputBox$(请输入需修改的学生姓名, 修改) End Select End Sub 选择年级窗口代码⑴: Private Sub Form_Activate() Dim A As Integer 设置窗体和窗体中标签的Caption属性 If XZ = 0 Or XZ = 1 Or XZ = 2 Then Caption = 查询指定学生的成绩 Label1.Caption = 请选择要查阅哪个年级 Else Caption = 修改指定学生的成绩 Label1.Caption = 请选择要修改哪个年级 End If 为选择年级单选钮控件组的Value属性赋初值 For A = 0 To 2 OptXN(A).Val