最新VFP及其应用系统开发试验讲义.doc

《最新VFP及其应用系统开发试验讲义.doc》由会员分享，可在线阅读，更多相关《最新VFP及其应用系统开发试验讲义.doc（178页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVFP及其应用系统开发试验讲义实验一：基本表的建立Visual FoxPro及其应用系统开发 实 验 指 导 书实验一：基本表的建立1、实验目的：掌握建立基本表的方法(表设计器的使用) 应掌握的命令：CREATE USE APPEND2、实验内容：建立如下所示的商品表：表名：SP。DBF结构：SP（货号C（6），品名C（8），迸口L，单价N（7，2），数量N（2），开

2、单日期D，生产单位C（18），摘要M，商标G)记录内容：货号 品名 进口 单价 数量 开单日期 生产单位 备注 商标LX-750 影碟机 T 5900.00 4 08/10/96 松下电器公司YU-120 彩电 F 8700.00 4 10/10/96 上海电视机厂AX-120 音响 T 3100.00 5 11/10/95 日立电器公司DV-430 影碟机 T 2680.00 3 09/30/96 三星公司 96年9月1日起调价FZ-901 取暖器 F 318.00 6 09/05/96 中国富利电器厂LB-133 音响 T 4700.00 8 12/30/95 松下电器公司SY-701 电

3、饭锅 F 258.00 10 08/19/96 上海电器厂 本产品属改进型NV-920 录放机 T 1750.00 6 07/Z0/96 先锋电器公司3、操作要求：（1）在 Visual FoxPro 的界面下，设置默认的文件夹和日期的格式（2）用表设计器建立表的结构（3）建立SP。DBF的结构后，立即输人前6个记录的数据，其中头两个记录的商标字段，由读者在Windows环境下选两个图标分别输人。数据输人后存盘退出。（4）打开SP。DBF，分别查看其结构与记录，包括备注字段与商标字段的数据。（5）追加最后两个记录，结束后分别以浏览格式和编辑格式查看数据。（6）分别用链接、嵌人方法为SB。DBF

4、的轿车增加“商标”，图形文件自选。实验二：表达式、函数、子句1、实验目的： 掌握常量、内存变量、字段变量、函数、表达式的概念和计算方法； 掌握对表操作命令中的范围、条件、字段子句的应用 应掌握的命令： = LIST | DISPLAY MEMORY LIKE RELEASE ALL | LIKE | EXCEPT GO TOP | BOTTOM | SKIPLIST | DISPLAY FOR FIELDS 2、实验内容： 内存变量的赋值、显示、清除； 各种类型数据的运算符与运算规则； 函数的验证； 表达式的计算； LIST、DISPLAY命令的使用3、操作要求：（1）在 Visual Fox

5、Pro 的界面下，设置默认的文件夹和日期的格式（2）变量的赋值：请把万大兵、12345.789、2002-10-01、.T.四个常量分别赋值给ma、mb、mc、md四个内存变量。再把ma、mb、mc、md四个内存变量的值分别赋值给xa、xb、xc、xd四个内存变量。（3）字段变量的使用：打开sp.dbf表；把品名、单价、数量、开单日期、 生产单位等五个字段变量的值分别赋值给内存变量za,zb,zc,zd,ze；把记录指针指向第五号记录，显示品名、单价、数量、开单日期、 生产单位等五个字段变量的值。（4）用显示内存变量的命令，验证对内存变量赋值的结果。（5）使用已有的内存变量进行字符串、数值、日

6、期、关系和逻辑运算。例如：? ma + xa ? mc + 220（6）对一学过的函数进行验证。例如：l A.取整函数：INT()l B.取余函数：MOD( , )l C.四舍五入函数：ROUND( , )l D.字符串查找函数：AT(， ,)l E.取字符串子串函数：SUBSTR( ， ，)l F.测字符串长度函数：LEN()l G.系统日期函数：DATE()l H.从日期中取出其中的年份函数：YEAR()l I.测试当前表的当前记录的记录号函数：RECNO()l J.测试表达式数据类型函数：TYPE()（7）打开sp.dbf 表，练习对表操作时范围、条件、字段三种子剧的使用。分别用LIST

7、和DISPLAY命令完成以下操作：A.显示第5个记录。B.显示第3个记录开始的5个记录。C.显示第3个记录到第5个记录。D.显示数量少于5的商品的货号、品名与生产单位。E.显示进口商品或95年开单的商品信息。F.显示上海商品信息。G.显示单价大于4000的进口商品信息或单价大于5000的国产商品信息。H.列出95年开单的商品的货号、品名、单价与开单日期，其中单价按9折显示。I.列出单价小于2000以及单价大于5000的进口商品信息。J.显示从第3个记录开始的所有国产商品信息。K.列出货号的后3位为“120”的全部商品信息。L.列出货号第1个字母为“L”或者第2个字母为“v”的全部商品信息。M.

8、列出公司生产的单价大于3000的所有商品信息。（8）用清除内存变量的命令清除以m打头的内存变量。并验证之。实验三：表的复制、更新1、实验目的： 掌握复制表的各种方法； 掌握向表中追加记录；修改数据；逻辑删除和物理删除记录的方法。 应掌握的命令：COPY FILE TO COPY TO FOR FIELDS APPEND BLANKAPPEND FROM FOR FIELDS BROWSE REPLACE WITH , WITH FOR MODIFY STRUCTUREDELETE FOR SET DELETE on | OFFRECALL FOR PACK2、实验内容： 复制sp.dbf； 向

9、sp.dbf表中追加记录； 修改表中数据； 逻辑删除和物理删除表中记3、操作要求：（1）在 Visual FoxPro 的界面下，设置默认的文件夹和日期的格式（2）对表SP。DBF按如下要求进行复制，写出命令序列。A.复制SP。DBF的结构，并将复制后的表结构显示出来。B.复制一个仅有货号、品名、单价、数量等4个字段的表结构SPS.DBF。C.将SP。DBF复制为表SP3。D.复制具有货号、品名、数量、生产单位等4个字段的表SP4。E.将第2到第6个记录中单价不小于3000的进口商品复制为表SP5。F.将96年1月1日及以后开单的商品复制为表SP6。G.将表SP.DBF按系统数据格式复制为文本

10、文件SP.TXT，再将SP.TXT中的数据添加到表SP6中去。（3）打开SP1DBF；显示结构与记录数据；修改结构，增加总价N(8,2)字段。（4）将表SPl。DBF中的总价字段值用单价数量进行替换。（5）追加一个空记录，并自行确定一些数据填人该空记录中。（6）在第3号记录与第7号记录上分别加上删除标记；打开逻辑删除开关，验证第3号记录与第7号记录已被逻辑删除。关闭逻辑删除开关，验证第3号记录与第7号记录依然存在。撤消第3个记录上的删除标记并将第7个记录从表中物理删除。（7）将SP。DBF的全部记录追加到SP1。DBF中去，并查看经追加后的记录。实验四：表的索引和查询1、实验目的： 掌握物理排

11、序和逻辑排序的概念； 掌握建立结构化复合索引和指定主控索引的方法； 掌握顺序查询和索引查询的方法。INDEX ON TAG USE ORDER TAG ASCENDING | DESCENDINGSET ORDER TO LOCATE FOR CONTINIUESEEK SET FILTER TO 2、实验内容： 对表进行物理排序。 以不同的索引表达式建立结构化复合索引。 指定主控索引 对表进行顺序查询和索引查询在今后的实验中，我们将使用以下四个表：一、系代码表: DEPARTMENT.DBF 的结构字段 字段名 类型 宽度 小数位 说明 1 DIPARTMENT 字符型 2 系代码（主索引）

12、 2 NAME 字符型 12 系名 3 DIRECTOR 字符型 8 系主任名二、学生基本档案表: STUDENT.DBF 的结构 字段 字段名 类型 宽度 小数位 说明 1 CODE 字符型 6 学号（主索引） 2 NAME 字符型 8 姓名 3 SEX 字符型 2 性别 4 BIRTHDAY 日期型 8 生日 5 NATION 字符型 12 民族 6 NATIVE 字符型 30 籍贯 7 PARTY 字符型 12 参加党派 8 MARRIAGE 逻辑型 1 婚否9 HISTORY 备注型 4 简历10 DIPARTMENT 字符型 2 系代码三、课程代码表:COURSE.DBF 的结构字段

13、 字段名 类型 宽度 小数位 说明 1 COURSE 字符型 3 课程编号（主索引） 2 NAME 字符型 24 课程名 3 HOUR 整型 4 学时 4 UPCOURSE 字符型 3 前导课程编号四、学生选课表:SC.DBF 的结构字段 字段名 类型 宽度 小数位 说明1 CODE 字符型 6 学号 2 COURSE 字符型 3 课程编号 3 MARK 数值型 6 2 分数（成绩）3、操作要求：（1）在 Visual FoxPro 的界面下，设置默认的文件夹和日期的格式（2）打开学生基本档案表(student.dbf)，（3）使用表设计器建立以学号为索引关键字，以code为索引标识名的候选索

14、引。（4）使用表设计器建立以姓名为索引关键字，以name为索引标识名的普通索引。（5）使用命令建立以生日为索引关键字，以birthday为索引标识名的普通索引。（6）使用命令建立以年龄为索引关键字，以year为索引标识名的普通索引。（7）使用命令建立以年龄为索引关键字，以year为索引标识名的普通索引。（8）分别指定上述所建立的索引为主控索引，用浏览方式观察记录排列的顺序。（8）用顺序查询的方法查询山西籍的男学生，显示查询结果；再继续查第二个。（9）用索引查询的方法查询山西籍的男学生，显示查询结果；再继续查第二个。（10）用筛选查询的方法查询山西籍的男学生，显示查询结果。（11）比较上述三种查

15、寻方法有和不同？ 实验五：数据库和多表查询1、实验目的： 掌握工作区的概念，能够在多个工作区打开多个表。 掌握数据库的概念，能够使用数据库设计器对数据库中的表进行添加、移出、建立表之间的联系等操作。 掌握SQL查询语句，能够进行多表查询。 掌握统计、求和、求平均的方法。 应掌握的命令：CREATE DATABASE MODIFY DATABASEOPEN DATABASE CLOSE DATABASE SELECT | USE IN ALIAS SELECT FROM WHERE 格式：COUNT FOR TO SUM FOR TO AVERAGE FOR TO CALCULATE FOR T

16、O 2、实验内容： 在多个工作区打开多个表的练习。 建立一个项目管理器。 建立一个数据库 用SQL查询语句进行多表查询。 进行统计、求和、求平均的练习。3、操作要求：（1）选择不同的工作区，打开student.dbf、department.dbf、course.dbf、sc.dbf四个表，为每个表起一个别名。（2）通过别名选择工作区，对该工作区的表进行操作。（3）建立一个名为student的项目管理器。（4）在项目管理其中建立一个名为st.dbc的数据库，把。student.dbf、department.dbf、course.dbf、sc.dbf四个表添加到数据库中。（5）使用数据库设计器，建

17、立表之间的联系。（6）在命令窗口，打开st.dbc数据库（7）使用SQL查询语句，对st.dbc数据库中的表进行查询：A.查询年龄大于 23 岁学生的全部信息。B.查询每一位学生选修的各门课程的课程名和成绩。C.查询选修了各门课程的学生人数，按课程号排序。D.查询计算机系97级学生各门课程的平均成绩实验六：程序设计基础（一）1、实验内容和目的： 掌握程序文件的建立方法 掌握运行一个程序的方法 掌握顺序结构、选择结构和循环结构程序的一般设计方法 应掌握的命令：MODIFY COMMAND DO RETURN CLEAR SAY SAY GET READWAIT TO IF ENDIFDO CAS

18、E ENDCASE DO WHILE ENDDOFOR ENDFOR SCAN ENDSCAN2、操作要求：(1) 阅读程序举例，按举例程序建立程序文件并运行之* 程序名: chx1.prg* 功 能: 屏幕显示字符字体,字号,风格的控制CLEARmm = 和平、民主、自由、平等。 0,0 SAY 宋体: + mm FONT 宋体,28 COLOR RGB(255,255,255,0,0,255) 1,0 SAY 黑体: + mm FONT 黑体,28 COLOR RGB(255,255,255,0,0,255) 2,0 SAY 仿宋: + mm FONT 仿宋_GB2312,28 COLOR

19、 RGB(255,255,255,0,0,255) 3,0 SAY 楷体: + mm FONT 楷体_GB2312,28 COLOR RGB(255,255,255,0,0,255) 4,0 SAY 加粗: + mm FONT 楷体_GB2312,28 STYLE B 5,0 SAY 倾斜: + mm FONT 楷体_GB2312,28 STYLE I 6,0 SAY 倾斜: + mm FONT 楷体_GB2312,28 STYLE BI 7,0 SAY 下划线,加粗: FONT 楷体_GB2312,36 STYLE BU ROW(),COL()+1 SAY 删除线,加粗: FONT 楷体_G

20、B2312,36 STYLE B-RETURN-* 程序名：CHX2.PRG* 功能：输入一个正整数，若是奇数，用红色显示；若是偶数，用蓝色显示。CLEARMODIFY WINDOWS SCREEN FONT 宋体,16 & 设置屏幕显示字符的属性mm = 0 3,10 SAY 请输入一个正整数： FONT 宋体,16 GET mm FONT 宋体,16READIF INT(mm/2) * 2 = mm 4,10 SAY 你输入的是一个偶数：+STR(mm) FONT 宋体,16； COLOR RGB(0,0,255,255,255,255)ELSE 4,10 SAY 你输入的是一个奇数：+S

21、TR(mm) FONT 宋体,16； COLOR RGB(255,0,0,255,255,255)ENDIFRETURN-* 程序名：计算手续费的程序：CHX3.PRG* 功 能：按照如下规则，计算手续费。* 每股售价 14 元 Q = W * 8.4 % * (1 + 6 %)* 交易额 每股售价 14 元 Q = W * 8.4 % * (1 + 4 %)* 每股售价 28 元 Q = W * 8.4 % * (1 + 2 %)* * 每股售价 交易额1000 元 28元每股售价14 元 Q=( W * 5 % + 34 ) * (1 + 4 %)* 每股售价 28 元 Q=( W * 5

22、 % + 34 ) * (1 + 2 %)* * 每股售价 10000 元 28元每股售价14 元 Q=( W * 4 % + 134 ) * (1 + 4 %)* 每股售价 28 元 Q=( W * 4 % + 134 ) * (1 + 2 %)CLEARMODIFY WINDOWS SCREEN FONT 宋体,24 & 设置屏幕显示字符的属性W = 0pp = 0 2,10 SAY 请输入交易额： GET W 4,10 SAY 请输入每股售价： GET pp READDO CASE CASE W = 1000 .AND. pp = 14 Q = W * 0.084 * (1 + 0.06

23、) CASE W 14 .AND. pp = 28 Q = W * 0.084 * (1 + 0.04) CASE W 28 Q = W * 0.084 * (1 + 0.02) CASE W 1000 .AND. W = 10000 .AND. pp 1000 .AND. W 14 .AND. pp 1000 .AND. W 28 Q = (W * 0.05 + 34) * (1 + 0.02) CASE W 10000 .AND. pp 10000 .AND. pp 14 .AND. pp 10000 .AND. pp 28 Q = (W * 0.04 + 134) * (1 + 0.02

24、)ENDCASE 6,10 SAY 手续费是：+STR(Q) COLOR RGB(0,0,255,255,255,255)RETURN-* 程序名：CHX4.PRG* 功 能：求自然数的前N项和，即：给定一个正整数n,求：S=1+2+.+nCLEARMODIFY WINDOWS SCREEN FONT 宋体,28 & 设置屏幕显示字符的属性n = 0 3,2 SAY 请输入一个正整数： GET n READmi = 1s = 0DO WHILE mi = n s = s + mi mi = mi + 1ENDDO 4,2 SAY 1 + 2 + .+ + ALLTRIM(STR(n) + =

25、+ ALLTRIM(STR(s)RETURN-* 程序名：CHX5.PRG* 功 能：给定一个正整数n,求：S=1*2*.*nCLEARMODIFY WINDOWS SCREEN FONT 宋体,28n = 0 3,2 SAY 请输入一个正整数： GET n READmi = 1s = 1DO WHILE mi = n s = s * mi mi = mi + 1ENDDO 4,2 SAY 1*2* .* + ALLTRIM(STR(n) + = + ALLTRIM(STR(s)RETURN-* 程序名：CHX6.PRG* 功 能：在屏幕上显示出男学生的姓名、性别、年龄、民族和籍贯，每显示十名

26、学生的信息后，提示用户按任意键继续，直到所有学生的信息显示完毕。CLEAR ALLUSE studentmm = 1MODIFY WINDOWS SCREEN FONT 宋体,16 & 设置屏幕显示字符的属性CLEAR 0,2 SAY 姓名 性别 年龄 民族 籍贯 FONT ,16SCAN ALL FOR sex = 男 nl = STR(DATE() - birthday) / 365,4,1) ROW() + 1,2 SAY name + + sex + + nl + + nation + + native FONT ,16 IF mm 10 mm = mm + 1 ELSE WAIT 按

27、任意键继续. mm = 1 CLEAR 0,2 SAY 姓名 性别 年龄 民族 籍贯 FONT ,16 ENDIFENDSCANUSERETURN-(2)、按照题目要求，进行程序设计，建立程序文件，运行、调试。 给定一个正整数，求小于这个数的所有奇数的和 编写一个程序，在屏幕上显示如下图所示的平行四边形图案实验七：程序设计基础（二）1、实验内容和目的： 掌握带参数的程序设计和调用方法 掌握用户自定义函数的设计方法 掌握多模块程序设计中变量的作用域 应掌握的命令：DO WITH PARAMETERS RETURN | TO MASTER | TO PUBLIC PRIVATE LOCAL 2、操

28、作要求：（1）阅读程序举例，按举例程序建立程序文件并运行之* 程序名：CHX7.PRG* 功 能：检测student.dbf表中同年同月同日生的学生，* 把他们的学号、姓名、性别、生日等信息显示出来。CLEAR ALLCLEARMODIFY WINDOWS SCREEN FONT 宋体,16 & 设置屏幕显示字符的属性USE studentmxss = RECC() & 求出学生总数mxsjlh = 1mp = DO WHILE mxsjlh = mxss GO mxsjlh mname = name msex = sex mcode = code mbirthday = birthday m

29、i = 0 SCAN ALL FOR code mcode IF mbirthday = birthday IF mi = 0 ? mcode + mname + msex + DTOC(mbirthday) ENDIF ? code + name + sex + DTOC(birthday) mi = mi + 1 ENDIF ENDSCAN IF mi 0 ? 与+mname+同年同月同日生的学生有 +ALLTRIM(STR(mi)+ 人 WAIT 按任一键继续，按 P 键退出. TO mp ENDIF IF mp = p .OR. mp = P EXIT ENDIF mxsjlh = m

30、xsjlh + 1ENDDOUSERETURN-* 程序名：CHX8.PRG* 功 能：输入两个正整数，求在这两个数之间的质数ma = 0mb = 0MODIFY WINDOWS SCREEN FONT 宋体,16 & 设置屏幕显示字符的属性CLEAR 1,4 SAY 请输入第一个正整数： FONT 宋体,16 GET ma 3,4 SAY 请输入第二个正整数： FONT 宋体,16 GET mbREADIF ma mb mc = ma ma = mb mb = mcENDIFFOR mi = ma TO mb myn = .T. FOR mj = 2 TO mi/2 IF INT(mi/mj

31、) = mi/mj myn = .F. EXIT ENDIF ENDFOR IF myn = .T. ? mi ENDIFENDFORRETURN-* 自定义函数：QZS()* 返回值：给定的不是自然数，返回一个空字符串；给定的不是质数，返回.F.；给定的是质数，返回.T.LOCAL mj,mk,mynLPARAMETE maIF NOT(ma 0 .AND. INT(ma) = ma) RETURN ENDIFmk = INT(SQRT(ma)myn = .T.FOR mj = 2 TO mk IF INT(ma/mj) = ma/mj myn = .F. EXIT ENDIFENDFORI

32、F myn = .T. RETURN .T.ENDIFRETURN .F.-* 用户自定义函数: dtocc.prg* 调用格式: dtocc()* 返 回 值: 日期的汉字表达字符串,若参数为非法的日期, 则返回空串PARAMETERS rqIF TYPE(rq)D.OR.EMPTY(rq) RETURN SPACE(0)ENDIFmn = STR(YEAR(rq),4)+年my = MONTH(rq)mr = DAY(rq)my = IIF(my10,0+STR(my,1),STR(my,2) + 月mr = IIF(mr10,0+STR(mr,1),STR(mr,2) + 日mrq =

33、mn + my + mrRETURN mrq-* 自定义函数: name.prg* 函数调用格式: name()* 返回值: 一个字符串符合以下条件为有效的姓名:* 1. 由两个或两个以上的汉字组成，不能超过四个汉字。* 2. 汉字与汉字之间可以有空格符，不能含有其它字符。* 若字符串符为有效的姓名，返回值为真(.T.)* 若字符串符为无效的姓名，返回值为假(.F.)* 功 能: 对一个字符串是否是一个姓名进行有效性检查。FUNCTION namePARAMETERS nmIF TYPE(nm) C RETURN .F.ENDIFmyn = .T. & 若发现字符串中有非汉字字符, 就把它置为.F.nm = LTRIM(TRIM(nm) & 移去字符串首尾空格ml =