VFP.docx - 冰豆网

资源描述

VFP.docx

《VFP.docx》由会员分享，可在线阅读，更多相关《VFP.docx（30页珍藏版）》请在冰豆网上搜索。

VFP.docx

VFP

《程序设计基础—VFP实验》

说明：

实验1和实验2均为电子实验报告，后面8个实验是纸制实验报告。

实验1计算机基本操作

实验目的

⑴熟悉计算机，能够正确进行开、关机操作。

⑵熟悉键盘，掌握键盘上所有字符的输入，掌握正确的指法，能够进行中、英文切换。

⑶理解操作系统概念，掌握WindowsXP的基本操作，能够利用“控制面板”进行一些参数的设置。

⑷知道“回收站”的功能，学会有关文件、文件夹的基本操作。

⑸学会在计算机上搜索或查找相关的文件或文件夹，掌握通配符的使用。

实验内容

⑴熟悉上机实验的计算机，熟悉键盘，学会中、英文输入方式的转换。

⑵学会用正确的指法进行输入，知道键盘上所有字符的输入。

⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。

⑷在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。

⑸用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。

⑹将上述文件夹复制到ftp:

//10.10.9.222上。

实验2常用软件的基本操作

实验目的

⑴了解Word功能，掌握Word的基本操作，包括页眉/页脚的设置、分栏、页面设置、添加底纹等。

⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等，能够在Word中插入图片、表格、艺术字、特殊符号等。

⑶了解Excel的功能，掌握Excel的基本操作，包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。

⑷掌握Excel的基本公式的使用，能够用公式进行基本计算。

掌握Excel中的图形制作方法，能够根据表格做出图形。

实验内容

⑴将ftp上自己文件夹中的1.doc文件复制到桌面上，然后做如下处理：

①将标题“自我介绍”居中；

②将文章中第二段的内容进行分栏，要求中间有分割线；

③插入一个4行4列的表格，内容为学号、姓名、某门课的成绩；

④任意插入一张图片；

⑤在文章中的任意位置加底纹。

将做好的文档以2.doc命名并保存。

⑵用Excel建立如下表格：

学生的总成绩

学号

姓名

语文

数学

英语

计算机

总分

平均分

09001

张辉

09003

万明

09004

杜芳鸣

09006

徐好芳

09007

江珍

09008

王豪

09009

王小盟

09010

胡甜甜

09012

卫晓

并对表格进行如下操作：

①利用公式计算学生的总分、平均分；

②将表中所有的数据选择居中；

③利用该表格中的姓名和计算机的成绩做簇状图形。

将做好的Excel表以2.xls命名并保存。

将本次实验的两个文件上传到ftp上自己的文件夹中。

实验3VFP语言基础与数据表基本操作

一、实验目的

1.熟悉VFP的开发环境及项目管理器；

2.掌握VFP中的常量、变量及常用函数；

3.熟练使用运算符和表达式来表达一些实际命题；

4.掌握数据表及其记录的基本操作。

二、实验要求

1.掌握表达式和函数的使用。

2.掌握变量的定义和使用。

3．分别用菜单和CREATE命令打开表设计器（TableDesigner），建立表结构并输入数据，表名分别为：

教师表、成绩登记表、学生学籍表、课程表。

4．打开、关闭、浏览表。

5．修改表结构。

6．复制表与表结构，修改表文件名，删除表文件。

7．将记录指针移动到指定的记录，修改记录、插入记录、删除记录。

三、实验内容

（一）、表达式和函数的使用

1.计算以下各式的值

（1）数值表达式（在命令窗口中分别输入以下命令并记录结果）

①命令：

？

127%5执行结果：

②命令：

？

25+5^2/6-10执行结果：

（2）字符串表达式（在命令窗口中分别输入以下命令并记录结果）：

①命令：

？

[Letter]+space

（2）+[Scientist]执行结果：

②命令：

？

[Letter]+space

（2）-[Scientist]执行结果：

③命令：

？

"t"$"Letterateur"执行结果：

④命令：

？

[little]==[Little]执行结果：

⑤命令：

？

"wind"="WIND"执行结果：

⑥命令：

？

[我的名字是"王红"]执行结果：

（3）日期表达式（在命令窗口中分别输入以下命令并记录结果）：

①命令：

？

CTOD（[1/13/2005]）+20执行结果：

②命令：

？

CTOD（[09/10/2004]）-5执行结果：

③命令：

？

CTOD（"12/29/2004"）-{^2005/1/14}执行结果：

（4）关系表达式（在命令窗口中分别输入以下命令并记录结果）：

①命令：

？

5+6*3>3+7/2执行结果：

②命令：

？

"天空">"地面"执行结果：

③命令：

？

50+2*100=50*10/2执行结果：

④命令：

？

60*3+20<>20*10

（5）逻辑表达式（在命令窗口中分别输入以下命令并记录结果）：

①命令：

？

"ToolBox"$"Tool".AND.（1.5+3.8）<6.8执行结果：

②命令：

？

.NOT."ABC"=="ABC".OR.ASC（[ToolBar]）=INT（66.87）执行结果：

③命令：

？

year（date（））%4=0andyear（data（））%100!

=0执行结果：

2．求各函数的值

（1）字符函数的使用（在命令窗口中分别输入以下命令并记录结果）

①命令：

A="中华民族"+space（6）

②命令：

B="是一个伟大的民族"

③命令：

C="民族"

④命令：

at（C,B）执行结果：

⑤命令：

len（A）执行结果：

⑥命令：

Alltrim（A）执行结果：

⑦命令：

len（Alltrim（A））执行结果：

⑧命令：

len（A+B）执行结果：

⑨命令：

len（A-B）执行结果：

⑩命令：

substr（B,7,10）执行结果：

（2）数值函数使用（在命令窗口中分别输入以下命令并记录结果）

①命令：

X=-10

②命令：

Y=6

③命令：

Z=2.7

④命令：

？

ABS（X）执行结果：

⑤命令：

？

INT（Z）执行结果：

⑥命令：

？

MOD（10，4）执行结果：

⑦命令：

？

MOD（-10，4）执行结果：

⑧命令：

？

ROUND（Z，2）执行结果：

（二）、变量操作

1．变量的赋值

1命令：

AA=“VFP程序设计”（或命令：

store“VFP程序设计”toAA）

2命令：

？

AA结果为：

3命令：

BB=25

4命令：

CC=25（或输入命令：

store25toBB，CC）

5命令：

？

BB结果为：

6命令：

？

CC结果为：

7命令：

EE={^2005-5-1}（或输入以下命令：

store{^2005-5-1}toEE）

8命令：

？

EE结果为：

2．变量的保存

命令：

3．浏览内存变量

命令：

（三）、分别用菜单和CREATE命令建立表结构并输入数据（数据表内容见附页）

1．创建表结构（命令）

（四）、用命令打开、关闭、浏览数据表，并写出所使用的命令。

1．打开表

2．浏览表

3．关闭表

（五）、复制表与表结构（命令方式）

1．复制表

2．复制表结构

（六）、修改记录、插入记录、删除记录（命令方式）

1．追加记录

2．定位记录

3．编辑记录

4．插入记录

5．删除记录

实验4数据库的创建与表的高级操作

一、实验目的

1.掌握建立数据库及其中表的方法；

2.掌握数据词典的使用方法；

3.掌握简单的数据库操作命令；

4.掌握对数据表排序、索引、查寻的方法；掌握数据表的计算、汇总的方法；

5.掌握多表（Table）建关联及建立数据库中表之间关系的方法。

二、实验要求

1．用菜单和命令方式打开数据库设计器建立数据库。

2．用菜单与命令方式打开、关闭数据库。

3．在数据库中添加表、新建表、移去表。

4．设置数据库表的属性（显示属性、字段有效性，记录有效性）。

5．用菜单与命令方式对表排序、索引、查寻、计数。

6．对表中的数值型字段进行计算、汇总。

7．对多表建立关联及建立数据库中表之间的关系。

三、实验内容

（一）、用菜单和命令方式打开数据库设计器建立数据库

（二）、数据库的打开和关闭

（三）、在数据库中添加表、新建表、移去表

1．向数据库添加表

2．在数据库中新建表

3．从数据库中移出表

（四）、设置数据库表的属性（写出具体设置的值或表达式）

1．设置字段的输入/输出格式及显示标题

2．设置字段有效性

3．设置表名与表注

4．设置记录的有效性规则

1．设置触发器

（五）、对表排序、索引、查寻、计数

1．记录排序

2．单索引的建立

3．结构复合索引的建立

4．索引的打开与关闭

5．确定主控索引

6．索引查询

（1）FIND查询：

查询结果：

（2）SEEK查询：

查询结果：

7．索引的删除

（六）、对表中的数值型字段进行计算、汇总

1．记录计数

2．记录求和

3．求平均值

4．记录计算

5．索引分类汇总

（七）、对多表建立关联及建立数据库中表之间的关系

1．设置主索引并建立永久联系

2．删除表间永久关系

3．使用多表（要求用jion….with…联接两个表，生成文件名LJB。

DBF的表文件）

实验5查询与视图操作（SQL语句）

一、实验目的

1.掌握用查询设计器建立查询的方法；

2.掌握用视图设计器建立视图的方法；

3.掌握各种SELECT－SQL查询命令的使用方法。

二、实验要求

1.启动查询设计器，建立一个查询。

2.启动视图设计器，建立一个视图（要求利用视图更新源表中的数据）。

3.用SELECT命令进行简单查询。

4.用JOIN进行连接查询。

5.用WHERE进行多表连接查询。

6.使用系统函数和别名查询。

7.查询分组、排序和结果保存。

8.SQL的数据操纵功能。

三、实验内容

（一）、启动查询设计器建立一个查询

1．启动查询设计器

2．选择查询数据源

3．选取字段

4．设置关联

5．筛选记录

6．排序结果

7．设定“杂项”

8．运行查询

9．查看SQL语句

10．保存查询：

（二）、启动视图设计器建立一个视图

1．启动视图设计器

2．设计视图

3．更新数据

4．查看SQL语句

5．保存视图

6．浏览视图

（三）、用SELECT命令进行简单查询（以下均用SQL语句来实现）

1．给定字段查询

2．给定查询满足的条件

（四）、用JOIN进行连接查询

1．内连接查询

2．外连接查询

（五）、用WHERE进行多表连接查询

（六）、使用系统函数和别名查询

1．别名查询

2．查询平均值和总和

3．查询最大／最小值

4．统计个数

（七）、查询分组、排序和结果保存

1．分组查询

2．查询排序

3.结果保存

实验6VFP程序设计初步

一、实验目的

1．掌握建立、修改、运行和保存一个程序的方法；

2．熟悉调试程序的办法；

3．掌握程序设计的三种基本结构及执行流程；

4．熟练利用三种基本结构编写符合某些要求的基本程序；

5．掌握人机交互命令—input、accept、wait和…say…get…read；

6．熟悉针对数据库表而设计的“指针”型循环scan…endscan。

二、实验要求

1.建立一个程序文件hope1.prg，完成以下功能：

输入三角形的三个边长Ａ、Ｂ、Ｃ，若Ａ、Ｂ、Ｃ能构成三角形，则计算出三角形面积；否则提示“不能构成三角形！

”。

若构成的三角形为直角三角形，也给出“构成直角三角形”的提示。

2.建立一个利用case语句求指定分段函数值的程序文件hope2.prg。

3.建立一个利用while循环、for循环求出1至100以内的素数和，并显示结果的程序文件。

4．编写一个用双重循环实现打印九九乘法表的程序文件。

5．创建一个数据表并编写完成指定功能的相应程序。

6．分别用当型循环完成和扫描型循环结构编程，输出教师表中职称是教授的教师编号、姓名、职称及专业，并统计输出这些教师的人数。

三、实验内容

（一）、hope1.prg参考程序：

clear

"输入三角形的三边:

input"请输入三角形第一个边的值"toa

input"请输入三角形第二个边的值"tob

input"请输入三角形第三个边的值"toc

ifa+b>canda+c>bandb+c>athen

s=（a+b+c）/2

area=sqrt（s*（s-a）*（s-b）*（s-c））

"三角形的面积是：

"+str（area,6,2）

ifa*a+b*b=c*cora*a+c*c=b*borc*c+b*b=a*athen

messagebox（"此三角形是直角三角形",64）

endif

else

messagebox（str（a）+","+str（b）+","+str（c）+"不能构成三角形",48）

endif

return

输入的a、b、c数据及程序运行结果：

（二）、建立一个利用case语句求以下分段函数值的程序文件hope2.prg。

X（X＜0）

2*X（0≤

F（X）=

X*X（1≤

sqrt（X）（X≥2）

参考程序如下：

clear

input"输入一个数"tox

docase

casex<0

f=x

casex<1

f=2*x

casex<2

f=x*x

otherwise

f=sqrt（x）

endcase

"f（"+alltrim（str（x,6,2））+"）="+alltrim（str（f,8,3））

return

输入的X值及程序执行结果：

（三）、求100内的素数和参考程序：

clear

sum=0

n=2

dowhilen<=100

k=int（sqrt（n））+1

fori=2tokstep1

ifn%i=0then

exit

endif

endfor

ifi>=kthen

sum=sum+n

alltrim（str（n））+","

endif

n=n+1

enddo

"素数和为:

"+alltrim（str（sum））

return

程序执行结果：

（四）、参考程序如下：

*****用计数型循环实现的打印九九乘法表程序***

clear

fori=1to9

forj=1to9

k=i*j

str（i,1,1）+"*"+str（J,1,1）+"="+str（K,2,1）

space（4）

endfor

return

分别改变内外循环的初始、终止值，执行程序并写出程序运行后的结果：

（四）、参考程序如下：

*****用计数型循环实现的打印九九乘法表程序***

clear

fori=1to9

forj=1to9

k=i*j

str（i,1,1）+"*"+str（J,1,1）+"="+str（K,2,1）

space（4）

endfor

return

分别改变内外循环的初始、终止值，执行程序并写出程序运行后的结果：

（五）、创建一个数据表“工资.DBF”，表结构如下：

工资（工号，部门，姓名，基本工资，津贴，房租，水电费，所得税，实发工资）。

其中记录值如下：

工号部门姓名基本工资津贴房租水电费所得税实发工资

99035001数学系王红100050010010

99035002物理系李红12454002010

99035003化学系张红23153005011

99035004英语系刘红17892008018

99035005历史系孙红8003007012

99035006计算机系黄红50010006010

编写一个程序PROGGZ.PRG，该程序的功能是在“工资.DBF”表中填写“所得税”和“实发工资”字段值，并将交税数量超过100（含100）的员工信息存放到新建立的表应交税（部门C（10），姓名C（10），所得税N（10））中。

注：

所得税计算方法：

（（基本工资＋津贴－房租－水电费）－1000）＊0.1

实发工资计算方法：

基本工资＋津贴－房租－水电费－所得税。

参考程序如下：

use工资

scan

if（基本工资+津贴—房租—水电费）—1000>0

replace所得税with（（基本工资+津贴—房租—水电费）—1000）*0.1

endif

replace实发工资with基本工资+津贴—房租—水电费—所得税

endscan

copyto应交税fields部门,姓名,所得税for所得税>=100

closall

（六）、参考程序如下：

Clearall

UES教师表程序执行结果：

Clear

Store0toN

Dowhileeof（）<>.T.

If职称<>“教授”

Skip

Loop

Endif

教师编号,姓名,职称,专业

N=N+1

Skip

Enddo

“职称是教授的教师共有：

”+str（N,3）+“人”

Closedatabases

Return

实验7多模块程序设计及数组

一、实验目的

1．掌握子程序与过程文件建立的方法；

2．掌握用户自定义函数的建立和参数的值与地址传递方式；

3．掌握变量的作用域知识；

4．掌握对数组的定义和对数组的初始化方法及对数组的使用；

5．掌握对话框函数的使用方法。

二、实验要求

1.建立一个程序文件abc1.prg，使其内含有一个计算圆面积的函数area，同时具有调用计算圆面积函数area主调部分。

2.编写一个独立保存的自定义函数NPACE，用来去掉字符串中的所有空格。

3.编写一个求阶乘的过程JcProc，并将其包含在一个求解Z=X！

+Y！

值的程序文件abc2.prg中。

4.定义一个二维数组a（2,3）,分别给数组的每个元素赋值。

5.利用实验指导中的数据表分别编写由表记录向数组传递数据的程序文件abc3.prg、由数组内容传递到记录的程序文件abc4.prg。

6.编写一个程序文件abc5.prg，采用过程（过程文件名为SUB.prg）的递归调用，计算1至N的阶乘。

三、实验内容

（一）、abc1参考程序如下：

Clear

Input"圆柱半径：

"toR

Input"圆柱高度：

"toH

？

"圆柱的底面积为：

"，area（R）

？

"圆柱的体积为：

"，area（R）*H

Return

********计算圆面积的自定义函数*********

Functionarea

ParametersR

S=3.14159*R*R

ReturnS

Endfunc

输入的R、H值及程序执行结果：

（二）、实验内容2的参考程序NPACE.prg如下：

ParametersX

PrivateX

Dowhileat（"",X）>0

X=stuff（X,at（"",X）,1,""）

Enddo

ReturnX

保存，调试运行并调用该函数，在命令窗口中输入以下命令：

输入：

word="欢迎光临"

？

"大家好！

"＋NPACE（word）

查看并记录结果：

（三）、求阶乘的过程JcProc用abc2.prg程序如下：

******abc2.prg******

Clearall

Input"X="toX

Input"Y="toY输入X、Y的值及结果：

N=X

DoJcProc

Temp1=T

N=Y

DoJcProc

Temp2=T

Z=Temp1+Temp2

"X！

+Y！

=",Z

******JcProc过程******

PROCEDUREJcProc

PUBLICT

T=1

Fori=1ton

Endproc

Return

（四）、定义一个二维数组a（2,3）,分别给数组的每个元素赋值为：

.t.“Vfp98”3

4{^2005-01-15}-378000

可编写如下程序：

dimensiona（2,3）

a（1,1）=.t.

a（1,2）="Vfp98"

a（1,3）=3

a（2,1）=4

a（2,2）={^2005-01-15}

a（2,3）=-3.78e5

a（2,2）

a（5）

程序执行结果为：

（五）、abc3.prg参考程序如下：

Clearmemory程序执行结果为：

Use成绩登记表

Display

ScattertoAA

DisplaymemorylikeAA

Abc4.prg参考程序如下：

Clearmemory

DimensionBB（6）

（1）="10102011"

（2）="10202"

BB（3）=90

BB（4）=78

BB（5）=88

BB（6）="考试课"

Use成绩登记表

Appendblank

GatherfromBB

Display

程序执行结果：

（六）、abc5.prg参考程序如下：

Clear

Settalkoff

input"输入N的值:

"toN

S=1

DosubwithN,s

Settalkon

SUB.prg参考程序如下：

Parametersm,s

Ifm>1

Dosubwithm-1,s

S=M*s

Endif

str（m,2）+"!

="+str（s,15）

Return

运行程序文件abc5.prg结果为：

实验8菜单、表单基本操作

一、实验目的

1．掌握菜单设计及在表单中应用菜单的方法；

2．掌握表单设计的基本方法和过程；

3．掌握表单设计中的控件的添加、属性设置、事件代码的编写及方法程序的调用；

4．掌握面向对象程序设计的基本概念。

二、实验要求

1．用菜单设计器设计菜单，并建立菜单文件。

2．用菜单设计器设计快捷菜单。

3.新建一个表单文件“学生学籍管理系统.scx”,该表单的标题为学籍管理,表单中含有标签“学生学籍管

展开阅读全文