很感谢大家的关心和帮助,我现在也在别论坛上找到一点提示,完成了几部分,但不敢藏私,抄下来给大家一齐看看,也对VFP有兴趣的大伙有个交待。谢谢大家。
四、编写程序,功能为:在主窗口中显示某表中结构索引标识的名称及其候选状态。
use table &&此表必须建立有主索引、候选索引、普通索引,否则VFP出错。
for ncount=1 to 254
if !empty(tag(ncount))
?tag(ncount)
?primary(ncount)
else
exit
endif
endfor
五、编写程序,功能为:当数值型内存变量TEST被赋值时,显示变量值(分数)并判定成绩(评价),其中变量TEST的值在>=0并且<60\>=60并且<80\>=80并且<90\>=90并且<=100时,分别判定为"不及格"、"及格"、"良好"、“优秀”;当变量TEST的值<0ak >100时,则判定为“考试成绩有误,需要重新计分”。
clear
input "输入一个数:" to test
do case
case test >=0.and.test<60
?"不及格"
case test <80
?"及格"
case test <90
?"良好"
case test<=100
?"优秀"
other
?"考试成绩有误"
endcase
六、编写程序,功能:根据当前系统时间显示月份并显示该月份相应的季度。
t_month=int(cmonth(date()+2)/3)
do case
case t_month=1
txt_month="now is November in the First Quarter of a year"
case t_month=2
txt_month="now is November in the Second Quarter of a year"
case t_month=3
txt_month="now is November in the Third Quarter of a year"
case t_month=4
txt_month="now is November in the Fourth Quarter of a year"
endcase
wait windows txt_month
七、编写程序,功能:统计某表中“dwmc”前两个字为“广东”的共有多少条记录。
use table
count to nm for left(dwmc,2)="广东"
八、编写程序,功能:如果某表中各记录“F1”至“F5”字段数值之和大于或等于40,则在“ZF”字段中记录“F1”至“F5”之和的数值;如果 “F1”至“F5”字段数值之和小于40,帽在“ZF”中记录“NO PASS”;显示第1至第10条记录“KPYBH”、“F1”、“F2”、“F3”、“F4”、“F5”、“ZF”、“BZ”字段的值。
use table
go top
replace next 10 zf with f1+f2+f3+f4+f5 for f1+f2+f3+f4+f5>=40
replace next 10 zf with "NO PASS" for f1+f2+f3+f4+f5<40
use
九、编写程序,功能:当系统的日期为3月8日、5月1日、6月1日、10月1日时,分别显示日期并提示“三八国际妇女节”、“五一”国际劳动节、“六一”国际儿童节、中华人民共和国国庆节。
jr=month(daet())*100+day(date())
do case
case jr=308
?"今天是三八国际妇女节"
case jr=501
?"今天是五一国际劳动节"
case jr=601
?"今天是六一国际儿童节"
case jr=1001
?"中华人民共和国国庆节"
case jr<1231
?"平常日"
endcase
十、编写程序,功能:在主窗口显示从“L”至“U”10个英文字母的ANSII值。
L=asc("L")
U=asc("U")
"下列10个英文字母对应的ANSI值分别为:"
for i=Lto U
?chr(i)+space(3)+str(i)
next i
十一、编写程序,功能:统计某表中“JPK”字段的值大于200的记录共有多少条。
use table
count to jl for jpk>200
十二、编写程序,功能:当某表中的“余额”字段各记录的值小于或等于1000时,则增加50倍,大于1000并小于10000时,则增加10培;显示第1至8条记录的“凭单号”、“对方科目”、“支票号”、“余额”四个字段的内容。
use table
replce all 余额 with iif(余额<=1000,余额*50,iif(余额<10000,余额*10,余额))
go top
list next 8 fields 凭单号,对方科目,支票号,余额
十三、编写程序,功能:在主窗口中显示ANSII值65至75对应的英文字母。
clear
?"ANSI值65至75对应的英文字母分别为:"
for a=65 to 75
?chr(a)
next a
十四、编写程序,功能:统计某表中“SXR”字段第一个字为“刘”和“王”的分别有多少条记录,并在主窗口中显示。
count to jlgs for left(sxr,2)="刘".or.left(sxr,2="王"))
?jlgs
十五、编写程序,功能:在主窗口中显示某表中的全部字段名。
clear
use table
for gncount=1 to Fcount()
?fields(gncount)
next
十六、编写程序,功能:查找某表中“单位名称”字段前两个字为“卫生”的记录,并在主窗口显示“单位名称”、“学习人数”“TJ3”、“TJ11”四个字段的内容。
use
display all fields 单位名称,学习人数,Tj3,tj11 for left(单位名称,4)=“卫生”
use
十七、编写程序,功能:当系统的日期为2月25日、8月6日、9月16日、12月12日时,分别显示日期并提示这一天是小明、小红、小刚、小英的生日。
jr=month(date())*100+day(date())
do case
case jr=806
?"今天是小红的生日"
case jr=225
?"今天是小明的生日"
case jr=919
?"今天是小刚的生日"
case jr=1212
?"今天是小英的生日"
case jr<1231
?"没有人生日"
endcase
十八、编写程序,功能:查找某表中“XM”字段的值为“王和秀”、“钱利宏”、“沈福”、“李小明”的记录,并在主窗口显示“XM”、“DWDM”、“GZRQ”、“BZGZ”、“SHPT”五个字段的内容,未找到的记录则显示“未找到该记录:(姓名)”。
十九、编写程序,功能:分别统计某表中“ZC”字段的值大于或等于60和大于或等于90的记录数,计算各自所占全部记录的百分比,并在主窗口中显示统计结果。