《Visual FoxPro 程序设计教程 教学课件 ppt 作者 刘瑞新 第11章》由会员分享，可在线阅读，更多相关《Visual FoxPro 程序设计教程 教学课件 ppt 作者 刘瑞新 第11章（62页珍藏版）》请在金锄头文库上搜索。
1、第11章 数据表和索引,11.1 创建新表 11.2 表的基本操作 11.3 在表单中操作表 11.4 定制表 11.5 修改表结构 11.6 数据表的索引,11.1 创建新表,11.1.1 表的概念 数据表是一组相关联的数据按行和列排列的二维表格，简称为表（Table）。每个数据表均有一个表名，表11-1就是一个描述学生基本情况的“二维”表格，是一个典型的“关系”。,11.1.2 表的结构设计 1. 字段名 字段名即表的栏目名或关系的属性名，可以用来引用该列数据。 2. 字段类型和宽度 表中的每一个字段都有特定的数据类型。可以将字段的数据类型设置为表11-2中的任意一种。,由此可以设计表11
2、-1的结构，见表11-3。,表名为：xs.dbf 上述结构可以表示为：xs(xh(C,10), xm(C,6), xb(L), csrq(D), zy(C,20), bjbh(C, 4), zxf(N, 5.1), sm(M), zp(G)。 11.1.3 使用表设计器 创建新表 2. 向表中添加记录,11.1.4 使用命令 1. Visual FoxPro的语法规则 对记录操作命令的一般格式为： 命令名 范围 FIELDS 字段名表 FOR | WHILE 条件 (1) 命令短语（选项） 范围选项：对数据记录不止一条的表进行操作时就需要指明记录范围，用来确定执行该命令涉及的记录，VFP命令的
3、范围有4种表示方法，其意义见表11-4。,一般默认范围是ALL，个别命令的默认范围是当前一条记录，以后如不作特别说明默认范围为ALL。 条件选项 (2) 命令的书写规则,2. 创建新表 使用下述命令可以不使用“表设计器”，直接创建表的结构： CREATE TABLE 新表文件名(字段名1 类型(长度) ,字段名2 类型(长度) 【例11-1】在命令窗口输入以下命令： CREATE TABLE Student(xh c(10), xm c(6), xb l, csrq d(8), zy c(20), sm m, zp g) 可以建立包含xh、xm、xb、csrq、zy、sm、zp等字段的一个新的
4、数据表Student.dbf。,3. 打开与关闭表 打开与关闭表都是使用USE命令，其格式为： USE 表文件名 【例11-2】在命令窗口输入以下命令： USE xs 即可打开数据表xs。 此时在VFP主界面窗口的状态栏中显示被打开数据表,4. 添加记录 使用APPEND命令可以向打开的数据表中添加记录。在“显示”菜单中，可以选择“编辑”或“浏览”方式。然后在“编辑”或“浏览”窗口中输入新的记录，如图11-7所示。 使用APPEND BLANK命令可以在打开的数据表中添加一个空白记录。,5. 复制表 使用COPY TO命令可以将当前数据表中指定范围内所有符合条件的记录复制到新的表文件中，新文件
5、结构仅包含指定的字段。其命令格式为： COPY TO 新文件名 范围 FOR | WHILE 条件 FIELDS 字段名表,11.2 表的基本操作,11.2.1 使用“浏览”窗口 “浏览”窗口 2. “表”菜单 3. 转到记录 4. 编辑字段 5. 添加新记录 6. 删除记录,11.2.2 定制“浏览”窗口 1. 重新安排列 2. 拆分“浏览”窗口 (1) 拆分窗口 (2) 调整拆分窗格的大小 3. 改变显示时的列宽 4. 打开或关闭网格线,11.2.3 使用命令 1. 打开浏览窗口 使用BROWSE命令可以打开浏览窗口，其格式为： BROWSE FIELDS 字段名表 LOCK 表达式FRE
6、EZE 字段名 . 2. 查看记录 还可以在VFP主窗口或用户自定义窗口（如表单）中显示当前表中的记录。显示命令有两个，其格式分别是： LIST 范围 FIELDS 字段名表 FOR | WHILE 条件 OFFTO PRINT DISPLAY 范围 FIELDS 字段名表 FOR | WHILE 条件 OFFTO PRINT 3. 编辑 使用命令EDIT，可以打开“编辑”窗口，编辑已打开的数据表。其格式为： EDIT 范围 FIELDS 字段名表 FOR | WHILE 条件 说明：范围项缺省时，系统默认为ALL，在满足条件的记录范围内可前后翻页。,4. 记录定位 文件的首记录又称为TOP，
7、尾记录称为BOTTOM。用USE命令打开数据库时，指针总是指向第一条记录（TOP）。 可以在命令窗口或程序中使用命令来移动记录指针。移动记录指针的命令分为绝对移动（GO）和相对移动（SKIP）两种，其格式如下： (1) 绝对移动 绝对移动记录指针的命令格式为： GO BOTTOM | TOP | 记录号 其中BOTTOM表示末记录，TOP表示首记录，记录号可以是数值表达式，按四舍五入取整数，但是必须保证其值为正数且位于有效的记录数范围之内。 (2) 相对移动 相对移动记录指针的格式为： SKIP n | -n 其中n为数值表达式，四舍五入取整数。若是正数，向记录号增加的方向移动，若是负数，向记
8、录号减少的方向移动。,5. 使用批替换命令 批替换命令REPLACE可对字段内容成批自动地进行修改（替换），而不必在编辑状态下逐条修改。批替换命令的语法格式为： REPLACE 范围字段名1 WITH 表达式1 ,字段名2 WITH 表达式2. FOR | WHILE 条件 【例11-3】要将表xs.dbf的所有学号字段中的“2001”改为“2002”，可用下面的命令： USE xs REPLACE ALL xh WITH “2000“ + RIGHT(xh, 6),6. 在表中添加新记录 (1) 使用APPEND命令 APPEND命令可以在表的尾部添加新的记录，其格式为： APPEND BL
9、ANK 说明：如果缺省BLANK选项，系统按“追加方式”打开“浏览”或“编辑”窗口，为数据表添加新记录。如果有BLANK选项，则在表的尾部添加一个空记录而不打开“浏览”或“编辑”窗口。 若要从其他表中追加记录，可以使用如下格式的命令： APPEND FROM 表文件名 FOR 逻辑表达式 (2) 使用INSERT命令 INSERT命令可以在表的任何位置插入一条新的记录，其格式为： INSERT BLANK BEFORE 说明：若无BLANK选项，系统打开“浏览”或“编辑”窗口，在当前记录后（无BEFORE）或在当前记录前（有BEFORE）为数据表插入新记录；若有BLANK选项，则插入一条空记录
10、而不打开“浏览”或“编辑”窗口。,7. 删除记录 (1) 逻辑删除记录 逻辑删除记录命令可以对数据表中指定范围内满足条件的记录加注删除标记，其格式为： DELETE 范围 FOR 条件 (2) 恢复逻辑删除的记录 使用撤销标记命令，可以恢复逻辑删除的记录，其格式为： RECALL 范围 FOR 条件 (3) 物理删除加注删除标记的记录 可以将数据表中所有具有删除标记的记录正式从表文件中删掉。其格式为： PACK (4) 直接删除所有记录 直接删除所有记录命令可以一次删除数据表中的全部记录，但保留表结构。其格式为：ZAP,11.3 在表单中操作表,11.3.1 在表单中显示浏览窗口 【例11-4
11、】在表单中使用命令方式来打开浏览窗口，显示并修改数据表的内容（如图11-16所示）。,设计步骤如下： 建立应用程序用户界面与设置对象属性。选择“新建”表单，进入表单设计器。增加两个命令按钮Command1、Command2，并按图11-17所示设置其属性。, 编写代码。 在表单的Load事件代码中打开数据表：USE xs 在表单的Destoy事件代码中关闭数据表：USE 在命令按钮Command1的Click事件代码中打开编辑窗口： GO TOP EDIT 在命令按钮Command2的Click事件代码中打开浏览窗口： GO TOP BROWSE,11.3.2 数据环境,【例11-5】在上例的
12、表单中使用数据环境。 设计步骤如下： 创建“数据环境”。选择新建表单，进入表单设计器。在系统菜单的“显示”子菜单中选择“数据环境”，或在表单设计器中单击鼠标右键，从弹出的快捷菜单中选择“数据环境”，或单击表单设计器中“数据环境”按钮（如图11-18），均可打开“数据环境设计器”窗口。,11.3.3 在表单中操作数据表 【例11-6】设计一个操作数据表的表单，使之具有按记录浏览、编辑的功能。 设计步骤如下： 创建数据环境。选择新建表单，进入表单设计器。打开“数据环境设计器”窗口，在“数据环境”窗口中单击鼠标右键，在快捷菜单中选择“添加”，添加表单所要控制的数据表：xs.dbf，如图11-19所示
13、。 建立应用程序用户界面与设置对象属性。依次将表中“xh”、“xm”、“xb”等字段用鼠标拖拉至表单中。表单上出现相应的标签和文本框，如图11-20左所示。 然后增加一个命令按钮组CommandGroup1和一个标签Label1。修改各对象属性如图11-20右所示。, 编写事件代码。 在表单中增加一个自定义方法butt来控制4个按钮的是否可用： LPARAMETERS L THIS.CommandGroup1.Buttons(1).Enabled = L THIS.CommandGroup1.Buttons(2).Enabled = L THIS.CommandGroup1.Buttons(3
14、).Enabled = not L THIS.CommandGroup1.Buttons(4).Enabled = not L 编写命令按钮组CommandGroup1的Click事件代码： n = THIS.Value DO CASE CASE n = 1 GO TOP THISFORM.butt(.f.) CASE n = 2 SKIP 1 IF BOF() GO TOP THISFORM.butt(.f.) ENDIF,THIS.Buttons(3).Enabled = .T. THIS.Buttons(4).Enabled = .T. CASE n = 3 SKIP 1 IF EOF(
15、) GO BOTTOM THISFORM.butt(.T.) ENDIF THIS.Buttons(1).Enabled = .T. THIS.Buttons(2).Enabled = .T. CASE n = 4 GO BOTTOM THISFORM.butt(.T.) ENDCASE THISFORM.Refresh 说明： 函数BOF()用来测试记录指针是否指向表文件头，是则返回.T.，否则返回.F.。 函数EOF()用来测试记录指针是否指向表文件尾，是则返回.T.，否则返回.F.。 运行表单，可以完成对数据表xs.dbf的简单浏览。如图11-21所示。,可以在此例基础上增加一个命令按钮
16、使之在表单中显示浏览窗口。设计步骤如下： 在表单上增加命令按钮Command1，将其Caption属性改为“浏览”，如图11-22左所示。,编写Command1的Click事件代码： BROWSE GO RECNO() THISFORM.Refresh 运行表单，单击“浏览”按钮，可以显示浏览窗口（如图11-22右）。,11.3.4 使用表格控件 【例11-7】在例11-6的表单中增加一个浏览窗口。如图11-23所示。 设计步骤如下： 打开上例的表单文件，进入表单设计器。首先修改表单布局，并在表单上增加一个“表格”控件Grid1，如图11-24所示。, 用鼠标右键单击Grid1，在弹出的快捷菜单中
