foxpro编程范例推荐word版 12页.docx
《foxpro编程范例推荐word版 12页.docx》由会员分享，可在线阅读，更多相关《foxpro编程范例推荐word版 12页.docx（10页珍藏版）》请在冰豆网上搜索。
foxpro编程范例推荐word版12页
本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！
==本文为word格式，下载后可方便编辑和修改！
==
foxpro编程范例
篇一：
VisualFoxpro编程实例
实验五VisualFoxpro编程实践
一.实验目的与要求
掌握利用VisualFoxpro编制开发自己的应用程序的实践知识，并学会在程序调试中自行发现问题和修改程序代码，最终完成应用程序的无错运行。
二.相关知识
利用VisualFoxpro自行开发编制应用程序的步骤：
1．设置好系统的工作环境（尤其注意工作目录的默认设置）。
2．如果是初次进行，应当先建立一个项目，为该项目命名，激活项目管理器。
如果是接着上次的工作进行，则打开上次工作的本项目，同样也激活项目管理器。
3．在项目管理器的“数据”?
“数据库”下面创建一个数据库，并命名（如已创建，则跳过本步骤）。
4．在项目管理器的“数据”?
“数据库”?
“表”下面进行数据表的创建或修改工作，并输入少量的正确数据以便将来的运行调试（如果已经创建了数据表，则跳过本步骤）。
5．在项目管理器的“文档”下面创建该应用程序所用到的所有表单，设计好各表单的界面并为表单里的控件填写程序代码.（注意为表单添加各自的数据环境，否则会出错!
）6．试运行各表单，发现问题后重新修改有问题的表单的代码，反复调试和修改直至最后能无错运行。
7．将应用程序打包发布或制作成安装文件。
三.实验内容与步骤
本次实验以一个简单的学生成绩管理系统为例。
首先，对该系统作一个简单的介绍：
该应用系统为完成学生信息和成绩的管理系统，主要有以下几个应用模块：
（1）用户登录管理：
系统具有管理员功能，只有取得管理员权限的人才能使用本系统。
（2）数据添加功能：
对学生基本信息、教师基本信息、班级信息、课程信息、学生成
绩信息进行添加录入。
（3）数据查询功能：
对上述信息的基本查询。
（4）数据修改功能：
对上述信息可进行修改工作。
（5）统计操作：
可分别按个人成绩、单科成绩统计出最高成绩、最低成绩和平均成绩
等。
（6）打印功能：
对上述信息可进行打印。
实验步骤如下：
1．数据库设计：
首先设置好系统的运行环境和工作目录，然后建立项目，为项目命名为“学生成绩管理系统”，激活项目管理器，并在在项目管理器的“数据”?
“数据库”下面创建一个数据库，命名为“学生成绩管理”，在“数据库”的“表”下面创建以下各数据表：
（1）
（2）
（3）
（4）
（5）（6）
创建好以上数据表以后，应该向每个表中添加适量合法数据以便后面的测试。
2.表单设计2.1登录模块
功能描述：
实现只有指定的用户才能访问系统的功能。
并且，只有身份为“管理员”的用户才可以调用修改模块修改数据。
界面设计：
表单名称：
login文件名：
login.scx数据环境：
user.dbf对象设置：
函数与方法声明：
（1）Command1中的Click事件
功能：
完成在登录时对输入的用户名和密码的检验，如果数据表user中存在输入的用户名和密码信息，则调用主窗口（如果是管理员则不但调用主窗口，还允许执行主窗口的修改功能），否则提示输入错误。
程序清单：
privatekl，yh，st
st='密码不正确，请重新输入!
'useuser
kl=alltrim（thisform.text1.value）yh=alltrim（bo1.value）
*将用户输入的用户名和密码的值分别保存在yh和kl变量中locateforalltrim（bo1.value）==alltrim（user.用户名）*在user表中查找是否有与yh和kl匹配的记录iffound（）andalltrim（user.密码）==kl
*正确的用户名和密码thisform.visible=.f.closetablesalldoformmain.scxifyh=='admin'
*如果是超级用户管理员，则允许他使用main表单中的第三组按钮（即修改模块）main.optiongroup1.option3.enabled=.t.endif
this.parent.text1.value=''else
*错误的用户名和密码，系统给出提示，延迟2秒waitwindowsttimeout2thisform.text1.value=''thisform.text1.setfocusendif
（2）Command2中的Click事件功能：
退出学生成绩管理系统程序清单：
cleareventsquit
（3）Form1的Destroy事件
功能：
意外关闭程序窗口时的处理程序清单：
clearevents
2.2主界面模块
功能描述：
主要是提供本系统各功能模块的入口.界面设计：
表单名称：
main文件名：
main.scx数据环境：
无
对象设置：
函数与方法声明：
（1）Optiongroup1中的IntelactiveChange事件：
功能：
根据Optiongroup1中的选择单击按钮，调用各重要功能模块.程序清单：
docase
casethis.value=1doform添加casethis.value=2doform查询casethis.value=3doform修改casethis.value=4doform统计casethis.value=5doform打印casethis.value=6thisform.releasequitendcase
（2）Optiongroup1中的每一个Option的Click事件：
功能：
与
（1）中不同，
（1）是指在Optiongroup中的各个Option切换时才触发的程序，仅这样还不够，还要编写每个Option被单击时触发的程序才完整。
程序清单：
对应Optiongroup1.Option1的Click事件：
doform添加……（其余类推）2.3数据添加模块
功能描述：
用户通过5个不同的页面来完成对学生信息表、教师信息表、班级表、课程表和成绩表的数据添加操作。
界面设计：
篇二：
VisualFoxPro程序设计基础实例
VisualFoxPro程序设计基础实例
▲表文件CJ.DBF情况：
学生成绩数据库的表文件cj.dbf结构为：
字段名字段类型宽度小数位
学号字符型6
姓名字符型10
英语数值型62
高等数学数值型62
计算机应用数值型62
总分数值型72
平均分数值型62
建立表文件cj.dbf结构显示如下：
输入一些学生成绩。
例2-1计算表CJ.DBF中的平均分和总分的程序
settalkoff
CLOSEALL
USEc:
\000\CJ
REPLACEALL总分WITH英语+数学+计算机应用
REPLACEALL平均分WITH总分/3
LIST
执行结果为：
例2-2统计成绩表CJ.DBF中平均分大于90分的所有学生数目。
SETTALKOFF
CLEAR
USEc:
\000\CJ
M=0
SCANFOR平均分>90
DISPLAY
M=M+1
ENDSCAN
?
"总数为:
",M
USE
RETURN
执行结果：
例2-3统计成绩表CJ.DBF中所有英语大于等于75分的学生数目。
SETTALKOFF
USEC:
\000\CJ
MCOUNT=0
FORREC=1TORECCOUNT（）＆＆RECCOUNT（）为该库中的记录数
GOREC
IF英语<75
LOOP
ENDIF
DISPLAY
MCOUNT=MCOUNT+1
ENDFOR
?
"英语成绩不小于75分的总数为:
",MCOUNT
USE
RETURN
执行结果：
例2-4显示表CJ.DBF中英语成绩小于90分的学生。
SETTALKOFF
CLEAR
USECJ
DOWHILE.T.（**或DOWHILE.NOT.EOF（））
IF英语>=90
SKIP（或**LOOP）
ENDIF
DISPLAY
WAIT"按任一键继续显示.…"
SKIP
ENDDO
USE
RETURN
执行结果：
例2-5对成绩表CJ.DBF查询，若首记录的平均分数大于60分，则显示及格；成绩不及格”否则显示不及格。
SETTALKOFF
CLEAR
USEC:
\000\CJ
IF平均分>60
?
姓名+"成绩及格"
ELSE
?
姓名+"成绩不及格"
ENDIF
USE
RETURN
执行结果如下：
例2-6对成绩表CJ.DBF查询，根据该学生的平均分进行分类：
优秀90<=平均分
优良80<=平均分<90
良好70<=平均分<80
及格60<=平均分<70
不及格平均分<60
程序为：
SETTALKOFF
CLEAR
USEC:
\000\CJ
DOCASE
CASE平均分>=90
?
姓名+":
成绩优秀"
CASE平均分>=80
?
姓名+":
成绩优良"
CASE平均分>=70
?
姓名+":
成绩良好"
CASE平均分>=60
?
姓名+":
成绩及格"
OTHERWISE
?
姓名+":
成绩不及格"
ENDCASE
USE
RETURN
执行结果如下：
例2-7设计5乘5的乘法表
settalkoff
clear
x=1
dowhilex<=5
y=1
dowhiley<=x
s=x*y
?
?
str（y,1）+"*"+str（x,1）+"="+str（s,2）+""
y=y+1
enddo
?
x=x+1
enddo
执行结果：
例2-8DOCASE……ENDCASE命令的嵌套用法.
SETTAlKOFF
CLEAR
?
"1…………录入"
?
"2………查询"
?
"3…………修改"
?
"4…………打印"
ACCEPT"输入选择（0-4）：
"TOMSELECT
DOCASE
CASEMSELECT="l"
DOAPP&&录入程序
CASEMSELECT="2"
DOQUER&&查询程序
CASEMSElECT="3"
DOMOD&&修改程序
CASEMSELECT="4"
CLEAR
?
"1--打印A类表"
?
"2--打印B类表"
?
"3--打印C类表"
ACCEPT"输入选择（1-3）：
"TOMY
DOCASE
CASEMY="1"
DOPRINTA
CASEMY="2"
DOPRINTB
CASEMY="3"
DOPRINTC
ENDCASE
例2-9显示成绩库CJ.DBF中记录号为偶数的前三个学生记录。
SETTALKOFF
篇三：
VisualFoxpro软件编程习题（重要典型例题）
1.先用赋值语句分别为变量X、Y、Z赋初值为200、300、400，然后要求输出：
①[（X-2Y）/（2-Z）]*Y
②Y>100或Y<0
③
502.按照以下表结构，建立三个表。
3.统计职工表的职工总人数以及男、女职工的人数。
USE
升级会员 