一、如何建立一个完整的VFP应用程序 建立一个完整的VFP应用程序的操作步骤为： 1. 建立一个项目文件,将用到的文件添加到项目文件中(或者在项目文件中建立所需的文件), 将其中一个文件设置为主文件。 2. 连编，形成.exe文件，就可以在脱离VFP环境运行。 3. 关闭VFP, 双击.exe文件运行。 下面以求圆的面积为例，来讲生成VFP应用程序的步骤：1. 建立一个项目文件，文件名为：圆面积.pjx 在其中新建一个程序文件，文件名为main.prg，作为主文件，主文件中的命令语句是运行一个求圆面积的表单文件，表单文件名为：yuan.scx。 将main.prg添加到项目文件中，当然也可以直接在项目文件中建立。将main.prg设置为主文件。在项目管理器窗口中目录树中选择“代码”中的“程序”，如果main.prg是黑体显示的，表明此文件已经是主文件，否则，选定此文件，用“项目”菜单中的“设置主文件”将其设置成主文件。 将表单文件yuan.scx也添加到项目文件中。同样也可在项目文件中直接建立。 （1）Main.prg文件的内容为： Set default to f:\xt &&这里f:\xt要根据自己的文件地址写 Do form yuan.scx Read events （2）建立表单文件yuan.scx，运行如下图： 步骤如下： a. 选择文件-> 新建->表单,出现“表单设计器”窗口，
b. 添加控件 在“表单控件”工具栏，选择“标签”按钮，在表单空白处按下鼠标拖动，表单上显示标签控件label1 。同样方法，再做一个标签控件label2,两个文本框控件Text1和Text2,两个命令按钮Command1, Command2,如图分别设置他们的属性。 c.设置对象的属性： 分别选中lable1、label2、Text1、Text2及Command1、command2,按下表分别设置它们的属性： 对象属性名属性值 label1Caption输入圆的半径： label2Caption圆的面积为： Text1Value0 Text2Value0 Command1caption计算 Command2caption退出 d编写事件代码 为command1(“计算”按钮）编写click事件代码（即单击“计算”按钮时发生的事件）： 在“表单设计器”中双击“计算”按钮，弹出代码窗口，如下图 我们在该窗口的“过程”列表中选“click”，然后在窗口的编辑区中输入如下代码： r=thisform.text1.value thisform.text2.value=3.14159*r*r thisform.refresh 同样方法，为command2(“退出”按钮)编写click事件代码： 其中的clear events语句与前面主程序中的read events相对应。在脱离VFP环境运行时，有这句才可以正常退出。
一．程序设计题汇总 1.通过输入学生的学号（字符型）查找学生，若找到该学生，先输出学号与姓名，然后输出“英语”和“计算机实用技术”成绩。若找不到该学生输出“查无该生”。（设表文件“学生信息”满足题目需要） set talk off clear use 学生信息 accept "请输入学生学号：" to xh locate for 学号==xh if !eof() ?学号,姓名 list fiel 英语,计算机实用技术 for 学号=xh else ?"查无该生" endif use 2.输入学生成绩，并要求：成绩小于60分时，输出“不及格”；成绩在60～69分之间时，输出“及格”；成绩在70～79之间时，输出“中”；当成绩在80～89之间时，输出“良”；当成绩在90～100之间时，输出“优”。 set talk off clear input "请输入成绩： " to cj do case case cj>=90 ?"优秀" case cj >=80 ?"良好" case cj >=70 ?"中" case cj >=60 ?"及格" case cj<60 ?"不及格" otherwise
?"数据有误" endcase set talk on 3.按学号在“学生信息.dbf”文件中查找并显示指定的记录。要求可以重复查询，找到则显示该生的记录，找不到则提示“查无此人！”，按非“Y”、“y”可结束查询。 SET TALK OFF CLEAR USE 学生信息 &&设当前目录下表文件存在 ACCEPT '学号查询吗（Y/N）？' TO cx &&循环条件的初始化 DO WHILE cx='Y'.OR.cx='y' &&大小写均可执行查询 CLEAR ACCEPT '请输入学号：' TO xh LOCATE ALL FOR 学号=xh &&此处ALL可以缺省，默认为在全部记录查找。 IF EOF() ?'查无此人！' WAIT ELSE DISPLAY ENDIF ACCEPT '继续按学号查询吗（Y/N）？' TO cx &&修改循环条件 ENDDO SET TALK ON USE 4.逐条显示“学生信息.dbf”文件中“英语成绩”大于等于75的记录。 方法一： SET TALK OFF CLEAR USE 学生信息 DO WHILE !EOF() IF 英语成绩>=75 DISP ENDIF SKIP &&按默认值1向下移动记录指针 ENDDO USE
针对VisualFox p ro表单设计中Grid表的着色设置 【摘要】:本文论述在Visual Foxpro表单设置中，根据不同字的字段、记录中字段的属性值、选中的记录以及在多记录显示中，对Grid表中的记录着色，以区分不同的选择或记录的具体方法及应用场合。 【关键词】:VisualFoxpro Grid 着色设置 在利用VisualFoxpro开发各种管理系统中，为了在表单中显示多条记录，常用方法在表单中添加Grid表(以下称“表格”)控件。然而，当表格中的字段较多或显示的记录较多时，如果表格的中文字的颜色又都一样，未免让人看了眼花缭乱，容易造成这样或那样的操作错误。如果能根据表格中的不同字段、不同记录、关键字段等赋予不同的着色方式以区分不同的字段或记录，减少不必要的操作失误，其效果就不言而喻了。笔者在系统开发的实践中，针对表格中记录的不同特性，探索出几种在表格中着色的具体方法及应用场合，现阐述如下。 1、对表格的不同列（字段）设置不同的着色方式 如果需浏览的表格存在较多列，为了区分不同列或某些重要列，以方便用户浏览记录、美化表格设置，我们可以对不同的列或重要列采用不同的着色。具体是在表单的适当位置（如笔者在表单的activate事件中）中添加如下代码： &&设某一表格（grid1）在三列 thisform.grid1.column1.backcolor=rgb(255,255,0) thisform.grid1.column1.forecolor=rgb(255,0,255) thisform.grid1.column3.backcolor=rgb(255,0,0) thisform.grid1.column3.forecolor=rgb(255,255,255) 以上代码的含义是设置表的第一列的背景色和前景色（文字的颜色）为黄色和紫色；
VFP程序设计题 一．程序设计题汇总 1.通过输入学生的学号（字符型）查找学生，若找到该学生，先输出学号与姓名，然后输出“英语”和“计算机实用技术”成绩。若找不到该学生输出“查无该生”。（设表文件“学生信息”满足题目需要） set talk off clear use 学生信息 accept "请输入学生学号：" to xh locate for 学号==xh if !eof() ?学号,姓名 list fiel 英语,计算机实用技术 for 学号=xh else ?"查无该生" endif use 2.输入学生成绩，并要求：成绩小于60分时，输出“不及格”；成绩在60～69分之间时，输出“及格”；成绩在70～79之间时，输出“中”；当成绩在80～89之间时，输出“良”；当成绩在90～100之间时，输出“优”。 set talk off clear input "请输入成绩： " to cj do case case cj>=90 ?"优秀" case cj >=80 ?"良好" case cj >=70 ?"中"
case cj >=60 ?"及格" case cj ?"不及格" otherwise ?"数据有误" endcase set talk on 3.按学号在“学生信息.dbf”文件中查找并显示指定的记录。要求可以重复查询，找到则显示该生的记录，找不到则提示“查无此人！”，按非“Y”、“y”可结束查询。 SET TALK OFF CLEAR USE 学生信息 &&设当前目录下表文件存在 ACCEPT '学号查询https://www.doczj.com/doc/bc9195646.html,/b-5d46134968dc5022aaea998fcc22bcd127ff42e4.html吗（Y/N）？' TO cx &&循环条件的初始化 DO WHILE cx='Y'.OR.cx='y' &&大小写均可执行查询 CLEAR ACCEPT '请输入学号：' TO xh LOCATE ALL FOR 学号=xh &&此处ALL可以缺省，默认为在全部记录查找。 IF EOF() ?'查无此人！' WAIT ELSE DISPLAY ENDIF ACCEPT '继续按学号查询吗（Y/N）？' TO cx &&修改循环条件 ENDDO SET TALK ON USE
VFP表单控件应用设计与案例 表单控件的应用要点： 1.条件语句在表单中应用：IF语句和do case语句 2.循环语句在表单中应用：for语句和do while语句 3.计时器的应用 4.数据表在表单中应用：skip 5.SQL语句的应用 6.列表框的应用 难点：SQL的应用 表单控件对象有： 表单表单集文本框编辑框列表框组合框表格 复选框选项按钮组（单选框）页框 Container容器 命令按钮命令按钮组 标签线条形状图像 计时器微调控件 ActiveX绑定控件超级链接控件 对象分为：控件对象和容器控件。 控件对象是基本对象：命令按钮、文本框、标签、线条、形状、复选框、组合框。。。。容器控件包含其他对象的对象：表单、表单集、Container容器、命令按钮组、微调控件、选项按钮组（单选框）、页框、页面、表格、表格列 从功能上分为： 输出类：标签、图像、线条、形状 输出类：文本框、编辑框、列表框、组合框、微调控件 控制类：命令按钮、命令按钮组、复选框选项按钮组（单选框）、计时器 多重容器类：表格、页框、Container容器、表单集 连接类：ActiveX绑定控件超级链接控件 1、条件语句在表单中应用 单分支语句： if …. Else…. Endif 多分支语句： do case ……endcase If…endif语句一般都是与 For…endfor配合应用。 案例1多分支0901
参考答案： “计算”按钮的click event代码：x=thisform.text1.value do case case x<-10 y=2*（sin(x)+1） case x<10 y=(abs(x)-5)/3 other y=x/7-8 endcase thisform.text2.value=y thisform.refresh 案例2多分支0912 k=thisform.text1.value do case case k>=0 and k<60 m="不合格" case k<85 m="合格" case k<=100 m="优秀"
VFP表单设计 1、表单设计 一、实验目的 1、掌握表单设计器的使用 2、掌握表单设计的基本方法 3、掌握常用控件属性的基本设置，事件和方法程序的设计 二、实验内容及任务 1、编写一个表单程序，其功能是给数据表添加记录并给各字段输入数据，输入的记录条数不定，单击“添 加”按钮，将数据添加到数据库，单击“退出”按钮，结束程序运行，所需的数据表ST.DBF在文件夹VFPEX中。 数据表的结构如下： 其中：总分= 表单界面如下： 最后表单以文件名SR.SCX保存。 三、实验环境和实验材料 1、Visual FoxPro 6.0中文版； 2、VFPEX中的数据表ST.DBF。 四、实验方法和步骤 1、进入Visual FoxPro 6.0环境。 2、选择“文件/新建”命令，显示“新建”对话框，选择“表单”并单击“新建文件”，显示表单设计器 窗口，如图5-1。
图5-1 3、按设计界面的要求，依次从“表单控件”工具栏处单击所需的控件，然后在所设计表单上添加该控件， 同时，在属性窗口内设置该控件的属性，具体如下： 表单Form1需要设置的属性：Caption=成绩输入 标签Label1需要设置的属性：Caption=考号：，FontSize=12 “考号”对应的文本框Text1需要设置的属性：FontSize=12 标签Label2需要设置的属性：Caption=姓名：，FontSize=12 “姓名”对应的文本框Text2需要设置的属性：FontSize=12 标签Label3需要设置的属性：Caption=性别：，FontSize=12 “性别”对应的选项按钮Option1需要设置的属性：Caption=男，FontSize=12 “性别”对应的选项按钮Option2需要设置的属性：Caption=女，FontSize=12 标签Label4需要设置的属性：Caption=数学：，FontSize=12 “数学”对应的文本框Text3需要设置的属性：FontSize=12 标签Label1需要设置的属性：Caption=语文：，FontSize=12 “语文”对应的文本框Text4需要设置的属性：FontSize=12 命令按钮Command1需要设置的属性：Caption=添加，FontSize=12 命令按钮Command2需要设置的属性：Caption=退出，FontSize=12 除上述需要设置的属性以外，其他属性保持缺省值。 4、选择“显示/布局工具栏”命令，打开“布局”工具栏。按住“SHIFT”键，并单击选中表单中需要重 新排列的控件，然后在布局工具栏中单击排列方式按钮，可对控件的布局进行重新调整。 5、选择“显示/代码”命令，打开代码编写窗口，如图5-2。
实验11 常用表单控件（一） 1）实验目的 （1）熟练掌握表单设计器的使用方法。 （2）熟练在表单新建的方法和步骤。 （3）掌握在表单中添加对象的操作方法。 （4）掌握在属性窗口中设置对象属性的方法。 （5）掌握在对象事件中书写代码的方法。 （6）掌握常见对象的事件和属性以及对象的方法。 （7）掌握文本框、标签、按钮的常用属性、方法的代码。 2）实验内容 设计一个登录表单LOGIN.SCX，如图1.6.1所示。当用户输入用户名和密码并单击“登录”按钮后检查其输入是否正确，若正确（假定用户名为SWNU_JKX，密码为CCEO），就显示一个对话框为“欢迎使用学生信息管理系统”；若不正确，则显示“用户名或密码不正确！”。单击“取消”按钮则关闭表单。（要求将“登录”按钮设置为Default 按钮。另外，密码输入时显示星号“*”。） 图1.6.1 登录表单效果图 操作步骤： ①先创建表单，然后在表单上添加两个标签label1和label2、两个文本框text1和text2 以及两个命令按钮Command1和Command2。 ②设置表单的Caption为“学生管理系统登录”；分别设置label1和label2的Caption 属性值为“用户名”和“密码”；分别设置Command1和Command2按钮的Caption属性值为“登录”和“退出”，“登录”按钮的Default属性值设置为 .T.；设置文本框text2的Passwordchar属性值为“*”。 ③双击“登录”按钮启动代码窗口，在Command1的Click事件中设置如下代码： IF Thisform.Text1.value="SWNU_JKX" AND Thisform.Text2.Value="CCEO" &&注意大小写，在这里是要求区分大小写的 =MESSAGEBOX("欢迎使用学生信息管理系统","提示信息") &&产生提示窗口，第一个字符串为要提示的信息，第二个为窗口标题ELSE =MESSAGEBOX("用户名或密码错误！","提示信息") ENDIF ④双击“退出”按钮，在Command2的Click事件中设置如下代码： Thisform.Release &&调用表单release 方法关闭表单 ⑤保存表单。单击工具栏上【保存】按钮，在【另存为】对话框中将表单保存为“login.SCX”。 ⑥运行表单。单击工具栏上【运行】按钮，执行表单，观察效果。
课程设计课程名称《VFP程序设计》课程设计题目工资管理系统 专业计算机 班级 学号 姓名 成绩 指导教师 2008 年12 月22 日至2008年12月26日 课程设计任务书 设计题目：工资管理系统
设计目的 本课程的设计的目的是通过实践使同学们经历数据库设计、应用系统开发的全过程和受到一次综合训练，以便能较全面地理解、掌握和综合运用所学的知识。结合具体的开发案例，理解并初步掌握运用VFP的可视化开发工具及事件驱动的程序设计方法进行系统开发的方法；了解系统分析、系统设计、系统实施的主要环节和步骤以及软件文档的制作过程。 设计任务（在规定的时间内完成下列任务） 1、系统功能的基本要求：员工每个工种基本工资的设定，加班津贴管理，根据加班时间和类型给予不同的加班津贴；按照不同工种的基本工资情况、员工的考勤情况产生员工的每月的月工资；员工年终奖金的生成，员工的年终奖金计算公式＝（员工本年度的工资总和＋津贴的总和）/12；企业工资报表。能够查询单个员工的工资情况、每个部门的工资情况、按月的工资统计，并能够打印； 2、数据库要求：在数据库中至少应该包含下列数据表： 员工考勤情况表；员工工种情况表，反映员工的工种、等级，基本工资等信息； 员工津贴信息表，反映员工的加班时间，加班类别、加班天数、津贴情况等；员工基本信息表员工月工资表。 具体要完成的任务是： A.完成整个程序的联调及测试，得出正确结果，并经教师检查及答辩； B.写出规范的课程设计说明书； 时间安排 12月22日布置课程设计任务；讲述设计目的、内容、时间安排与本次课程设计的要求 查阅资料，确定设计题目，并报自各班学习委员处集中； 12月23日按各设计题，继续查阅资料，书写需求分析报告草稿； 12月24日系统总体设计，按各设计题，继续查阅资料，设计调试程序，书写总体设计报告草稿； 12月25日系统详细设计，按各设计题，继续查阅资料，设计调试程序，书写详细设计报告草稿； 12月26日调试程序、演示设计软件、答辩 12月26日提交课程设计报告 具体要求 1.课程设计报告按国际通用格式书写，具体格式要求请在网络上查阅； 2.每位学生应独立完成各自的任务且每天至少在设计室工作半天；
最前一个： go top thisform.text1.value=用户名 thisform.text2.value=用户密码 thisform.refresh 后退： if not eof() skip-1 thisform.text1.value=用户名 thisform.text2.value=用户密码 endif thisform.refresh 前进： if !bof() skip thisform.text1.value=用户名 thisform.text2.value=用户密码 endif thisform.refresh 最后一个： go bottom thisform.text1.value=用户名 thisform.text2.value=用户密码 thisform.refresh 删除： delete thisform.refresh 退出： release thisform form1 （init ） ：set dele on 修改与保存： if this.caption="修改" thisform.text1.enabled=.t. thisform.text2.enabled=.t. https://www.doczj.com/doc/bc9195646.html,mand1.enabled=.f. https://www.doczj.com/doc/bc9195646.html,mand2.enabled=.f. https://www.doczj.com/doc/bc9195646.html,mand3.enabled=.f. https://www.doczj.com/doc/bc9195646.html,mand4.enabled=.f. this.caption="保存" else sele 系统用户表 replace 用户名 with alltrim(thisform.text1.value),;
Vfp表单实例： 实验6-1设计一个用户登录表单，在表单上创建一个组合框和一个文本框，从组合框选择用 户名，在文本框中输入口令，三次不正确退出。 方法步骤： 图6.1 （1）新建表单Form1，从表单控件工具栏中拖入两个标签Label1、Label2，两个命令按钮Command1、Command2，以及一个组合框控件Combo1和一个文本框控件Text1。并按图6.1调整好其位置和大小。 （2）设置Label1的Caption属性值为“用户名”，Label2的Caption属性值为“密码”，Command1、Command2的Caption属性值分别为“登录”和“退出”。Form1的Caption属性值为“登录”。 （3）设置Combo1的RowSourceType属性为“1-值”，RowSource属性为“孙瑞，刘燕”，Text1的PasswordChar属性为“*”。 （4）在Form1的Init Event过程中加入如下代码： public num num=0 在Command1的Click Event过程中加入如下的程序代码： if (alltrim(https://www.doczj.com/doc/bc9195646.html,bo1.value)=="孙瑞" and alltrim(thisform.text1.value)=="123456") or (alltrim(https://www.doczj.com/doc/bc9195646.html,bo1.value)=="刘燕" and alltrim(thisform.text1.value)=="abcdef") thisform.release do 主菜单.mpr else num=num+1 if num<3 messagebox("用户名或密码错误，请重试",0+48,"注意") https://www.doczj.com/doc/bc9195646.html,bo1.value=""
VFP6.0第7xx表单设计与应用及答案 一、填空题： 1、根据表单数据来源进行分类，表单可以分为_自由表、_数据库表_和_视图_3种类型。 2、表单数据源可以使用数据库表、_自由表_或__视图__。 3、在使用表单向导创建的表单中，按钮类型可以是_文本按钮_、_图片按钮、无按钮和定制4种类型。 4、表单文件默认的扩展名为_.scx__。 5、表单“属性”窗口由对象列表框、选项卡、_属性设置框、属性列表框和__属性说明信息_组成。 6、根据VisualFoxPro6.0中的控件对象基于所属的类可以分为__容器__类和_控件_类。 7、标签控件属性Caption的含义是_____指定标签的标题文本_____，Name 的含义是_指定在代码中用以引用对象的名称_。 8、文本框控件属性ControlSource的含义是_为文本框绑定数据源_。 10、组合框控件属性RowSource和ControlSource的含义分别是_指明组合框中条目的数据源_、_为组合框绑定数据源_。 二、单项选择题： 1、使用表单向导创建表单，在“表单样式”对话框中可以确定（D）。 A.表和字段 B.表和样式 C.视图和按钮 D.样式和按钮2、在命令窗口执行表单文件AA,应键入命令(A)。 A.DO FORM AA B.DO AA.scx C.RUN FORM AA D.RUN AA.xcx 3、在表单中添加字符型字段控件,系统生成的是( A )。
A.文本框 B.编辑框 C.OLE绑定型控件 D.复选框4、下列表单控件中属于容器类的是( C )。 A.列表框、组合框、命令按钮、页面、表格 B.列表框、组合框、命令按钮、线条 C.命令按钮组、选项按钮组、页面、表格 D.命令按钮组、选项按钮组、图像、表格 5、在VisualFoxPro6.0中，表单是指（D）。 A.数据库中各个表的清单 C.数据库查询的列表B.一个表中各个记录的清单 D.窗口界面 6、表单对象中可以包括的控件是( D )。 A.任意控件 B.所有容器对象 C.页框或任意控件 D.页框、任意控件、容器或自定义对象 7、在VisualFoxPro6.0中，标签控件默认的名字是（B）。 A.List https://www.doczj.com/doc/bc9195646.html,bell C.Edit D.Text 8、在创建表单时，创建的对象用于保存不希望用户改动的文本控件是（A）。 A.标签 B.文本框 C.编辑框 D.组合框 9、表单创建下拉列表框控件,该控件的默认名称为( A )。 https://www.doczj.com/doc/bc9195646.html,bo https://www.doczj.com/doc/bc9195646.html,mand C.Check D.Caption 10、在VisualFoxPro6.0中，为了将表单从内在中释放（清除），可将表单中寻出命令按钮的Click事件代码设置为（D）。 A.ThisForm.Refresh