Visual FoxPro程序设计
上QQ阅读APP看本书,新人免费读10天
设备和账号都新为新人

上机实训

实训1:表的建立

【实训目的】

1.了解设计表的思路。

2.掌握自由表的建立方法和步骤。

【实训内容】

建立反映学生基本情况的学生表。

【实训步骤】

1.参看如表2.2所示的学生表,分析、确定表中字段的个数、字段名、字段类型、字段宽度等。

表2.2 学生表

“学号”根据实际情况定义为字符型,比如学号2005032101”代表的意义是“2005”级“03”系“21”班“01”号,所以我们将“学号”定义为字符型,这样可以通过字符的截取函数取得“年级”、“系”或“班级”等信息。这个字段也是唯一能够确定学生记录的关键字,长度为10字节。

“姓名”定义为字符型,考虑到复姓,长度定义为8字节。

“性别”字段只有两个值,可以定义为逻辑型,如果人为规定“男”用“.T.”表示,那么“女”的值就是“.F.”,固定长度为1字节。

“出生年月”定义为日期型,固定长度为8字节。

“班级”根据实际情况定义为字符型,宽度为6字节。

“家庭住址”定义为字符型,考虑足够容纳所存放的数据,宽度定义为20字节。

“简历”存放字符较多,是不定长的文本,定义为备注型,固定长度为4字节。

“照片”存放图片,属多媒体信息,定义为通用型,固定长度为4字节。

2.利用菜单、命令等方式,打开“表设计器”对话框创建表“学生.DBF”的结构。

3.使用菜单方式打开学生表。

4.打开“显示”菜单,选择“浏览”命令,打开表“浏览”窗口。此时的表是一个空表,只显示表中的字段名。

5.第2次打开“显示”菜单,选择“追加方式”命令,在当前表尾部追加记录。

6.依照上表向表“学生表.DBF”中录入数据。

7.录入备注型字段。

8.双击第1条记录的备注型字段memo标志区(或单击memo标志区后按Ctrl+PgDn组合键),打开备注型字段编辑窗口,输入“出生地:陕西”。

9.输入完毕,单击关闭按钮(或按Ctrl+W组合键),关闭备注型字段编辑窗口,保存数据。此时备注型字段显示为Memo(第1个字母大写)。

10.如果要放弃本次的输入或修改操作,则按Esc键或Ctrl+Q组合键。

11.录入通用型字段。

(1)双击第1条记录的通用注型字段gen标志区(或单击gen标志区后按Ctrl+PgDn组合键),打开通用型字段编辑窗口。

(2)打开“编辑”菜单,选择“插入对象”命令,弹出“插入对象”对话框,选中由“文件创建”单选按钮,单击“浏览”按钮,选择相应的位图文件。

(3)单击“插入对象”对话框中的“确定”按钮,图像出现在通用型字段编辑窗口。

(4)单击关闭按钮(或按Ctrl+W组合键),关闭通用型字段编辑窗口,保存图像。此时通用型字段显示为Gen(第1个字母大写)。

12.打开“窗口”菜单,选择“数据工作期”命令,弹出“数据工作期”对话框,在“别名”列表框中,选择需要关闭的学生表,单击“关闭”按钮,关闭该表。

实训2:表的显示

【实训目的】

1.熟练掌握表的浏览方法。

2.熟悉FOR短语、FIELDS短语和范围短语的使用。

【实训内容】

1.用菜单方式浏览和修改数据。

2.用LIST/DISPLAY命令显示记录。

【实训步骤】

1.用菜单方式浏览和修改数据。

(1)使用菜单方式打开学生表。注意,若要对表进行修改,须使用“独占”方式打开表。

(2)打开“显示”菜单,选择“浏览”命令,打开表“浏览”窗口,如图2.36所示。

图2.36 学生表浏览窗口

(3)在浏览窗口中,将鼠标移到需要修改记录的相应字段上,直接进行修改。

(4)在浏览窗口中,可以用鼠标调整浏览窗口的大小,同时还可以用鼠标拖动的方法调整表中字段的显示顺序和显示宽度。

(5)退出浏览窗口,完成记录的浏览和修改。

2.用LIST/DISPLAY命令显示记录,在命令窗口输入以下命令。

(1)显示全部记录。

USE 学生表
LIST
CLEAR

(2)使用<范围>子句。

USE 学生表
LIST record 2
GO TOP
DISPLAY
GO 3
LIST next 2
GO 6
LIST rest

(3)使用FOR子句和FIELDS子句。

USE 学生表
LIST for 性别
LIST for NOT 性别
LIST for 性别=.f.
LIST for AT("安阳",家庭住址)<>0
LIST for "安阳"$家庭住址
LIST for AT("河南",家庭住址)=0
LIST for NOT "河南"$家庭住址
LIST FIELDS 学号,姓名,出生年月 FOR 出生年月<{^1986/6/1}

实训3:表的复制

【实训目的】

掌握表复制的方法。

【实训内容】

1.复制表文件,包括结构和数据。

2.复制表结构。

【实训步骤】

1.复制表文件,包括结构和数据。

USE 学生表
COPY TO stu1
USE stu1
LIST
USE 学生表
COPY TO stu2 FOR 班级="电商一"
COPY TO stu3 FOR 班级="电商一" FIELDS 学号,姓名,出生年月
USE stu2
LIST
USE stu3
LIST

2.复制表结构。

USE 学生表
LIST STRUCTURE
COPY STRUCTURE TO stu4
USE stu4
LIST
LIST STRUCTURE
USE 学生表
COPY STRUCTURE TO stu5 FIELDS 学号,姓名,出生年月
USE stu5
LIST STRUCTURE

实训4:记录的删除与恢复

【实训目的】

掌握删除记录的步骤和特点。

【实训内容】

1.逻辑删除表中的记录。

2.恢复逻辑删除的记录。

3.物理删除表中打上删除标记的记录。

【实训步骤】

1.使用“独占”方式打开学生表。

2.逻辑删除表中的记录。

(1)用鼠标的方式逻辑删除记录。在浏览窗口,用鼠标单击第1条记录前的白色小框,使其变为黑色,表示逻辑删除。

(2)用DELETE命令逻辑删除记录。

GO 2
DELETE
DELETE FOR 性别
BROWSE

3.恢复逻辑删除的记录。

(1)用鼠标的方式逻辑删除记录。在浏览窗口,用鼠标单击第1条记录前的黑色小框,使其变为白色,表示恢复逻辑删除。

(2)用RECALL命令恢复逻辑删除的记录。

GO 4
RECALL
BROWSE
RECALL FOR 姓名="张杰"
BROWSE
RECALL FOR 性别=.f.
BROWSE

4.物理删除表中打上删除标记的记录。

PACK
BROWSE