vfp综合应用题.docx
《vfp综合应用题.docx》由会员分享,可在线阅读,更多相关《vfp综合应用题.docx(15页珍藏版)》请在冰豆网上搜索。
vfp综合应用题
一、在表单设计器中,建立一个名为“myform”的表单文件。
建立一个名为“cmdYes”的命令按钮,其Caption属性为“计算”,再建立另一个名为”cmdNo“的命令按钮,其Caption属性为“关闭”。
二、双击“计算”命令按钮,对其进行编程操作,即Click事件代码:
usescore
replaceall学分with0&&把所有的学分字段进行清0操作
gotop
dowhile.not.eof()
if物理>=60then&&如果物理成绩大于等于60,置物理学分值
replace学分with学分+2
endif
if高数>=60then&&如果高数成绩大于等于60,置高数学分值
replace学分with学分+3
endif
if英语>=60then&&如果英语成绩大于等于60,置英语学分值
replace学分with学分+4
endif
skip
enddo
*生成一个新的表xf,该表只包括学号和学分两个字段落。
*按学分升序排序,如果学分相等,则按学号降序排序。
sorton学分,学号/dtoxf
list
use
三、双击“关闭”命令按钮,对其进行编程操作,即Click事件代码:
thisform.release&&关闭表单
1.单击“文件\新建”命令项。
2.在“新建”对话框中选择“菜单”单选钮,再按“新建文件”按钮。
3.在“新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的“菜单名称”中输入“计算”和“退出”。
4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。
settalkoff
setsafetyoff
select1
usestock_fk
zap&&表内容清空,保证结果的正确性
appendfromstock_sl
select2
usestock_sl
indexon股票代码tosl
select1
setrelationto股票代码intob&&设置关联表
replaceall浮亏金额with(b->现价-b->买入价)*b->持有数量for股票代码=b->股票代码&&计算浮亏金额
deletefor浮亏金额>0
pack
replaceall浮亏金额with-浮亏金额
sum浮亏金额tom_je
copystrutostock_z
closeall
usestock_z
appendblank
replace浮亏金额withm_je
list&&显示结果
setsafetyon
settalkon
5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault,这样程序就可以终止运行了。
一、在表单设计器中,建立一个名为“form_my”的表单文件。
建立一个名为“cmdYes”的命令按钮,其Caption属性为“统计”,再建立另一个名为“cmdNo”的命令按钮,其Caption属性为“关闭”。
二、双击“统计”命令按钮,对其进行编程操作,即Click事件代码:
settalkoff
usescore_fs
gotop
dowhilenoteof()
store0tors,pjf
if物理>0then
pjf=物理
rs=1
endif
if高数>0then
pjf=pjf+高数
rs=rs+1
endif
if英语>0then
pjf=pjf+英语
rs=rs+1
endif
replace平均分withpjf/rs
skip
enddo
gotop
sorton平均分/d,学号field学号,平均分topjf
usepjf
list
wait
closall
settalkon
三、双击“关闭”命令按钮,对其进行编程操作,即Click事件代码:
thisform.release&&关闭表单
1.单击“文件\新建”命令项。
2.在“新建”对话框中选择“菜单”单选钮,再按“新建文件”按钮。
3.在弹出的“新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的“菜单名称”中输入“计算”和“退出”。
4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。
settalkoff
setsafetyoff
select2
usestock_cc
zap
indexon股票代码tocc
select1
usestock_mm
indexon股票代码tomm
dowhilenoteof()
select2
seeka->股票代码
ifnotfound()
appendblank
replace股票代码witha->股票代码
endif
ifa->买卖标记then
replace持仓数量with持仓数量+a->本次数量
else
replace持仓数量with持仓数量-a->本次数量
endif
select1
skip
enddo
select2
sorton持仓数量tocc1
usecc1
copynext1tostock_x
usestock_x
list
closeall
wait
settalkon
setsafetyon
5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault,这样程序就可以终止运行了。
一、在表单设计器中,建立一个名为“form_my”的表单文件。
建立一个名为“cmdYes”的命令按钮,其Caption属性为“统计”,再建立另一个名为“cmdNo”的命令按钮,其Caption属性为“关闭”。
二、双击“统计”命令按钮,对其进行编程操作,即Click事件代码:
settalkoff
setsafetyoff
closeall
select2
usekecheng
indexon课程号tokc
select1
usechengji
dowhilenoteof()
select2
seeka->课程号
if最高分成绩then
replace最高分witha->成绩,学号witha->学号
endif
select1
skip
enddo
select2
sorton最高分/dtojianglifield课程名,最高分
usejiangli
list
closeall
wait
setsafetyon
settalkon
三、双击“关闭”命令按钮,对其进行编程操作,即Click事件代码:
thisform.release&&关闭表单
1.单击“文件\新建”命令项。
2.在“新建”对话框中选择“菜单”单选钮,再按“新建文件”按钮。
3.在“新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的“菜单名称”中输入“计算”和“退出”。
4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。
settalkoff
setsafetyoff
select2
usestock_mm
indexon股票代码tomm
select1
usestock_cs
zap
indexon股票代码tocs
select2
setfilterto买卖标记
gotop
dowhilenoteof()
select1
seekb->股票代码
ifnotfound()then
appendblank
replace股票代码withb->股票代码
endif
replace买入次数with买入次数+1
if最高价单价then
replace最高价withb->单价
endif
select2
skip
enddo
select1
sorton买入次数/dtocs1
usecs1
copynext1tostock_x
usestock_x
list
wait
closeall
settalkon
setsafetyon
5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault,这样程序就可以终止运行了。
一、在表单设计器中,建立一个名为“form_stu”的表单文件。
建立一个名为“cmdYes”的命令按钮,其Caption属性为“统计”,再建立另一个名为“cmdNo”的命令按钮,其Caption属性为“关闭”。
二、双击“统计”命令按钮,对其进行编程操作,即Click事件代码:
settalkoff
select1
usechengji
select2
usexuesheng
indexon学号toxs
gotop
dowhilenoteof()
select1
setfilterto学号=b->学号
average成绩tocj
select2
replace平均分withcj
skip
enddo
gotop
sorton平均分,学号topingjun
usepingjun
list
wait
closeall
settalkon
三、双击“关闭”命令按钮,对其进行编程操作,即Click事件代码:
thisform.release&&关闭表单
1.单击“文件\新建”命令项。
2.在“新建”对话框中选择“菜单”单选钮,再按“新建文件”按钮。
3.在“新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的“菜单名称”中输入“计算”和“退出”。
4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。
settalkoff
setsafetyoff
select1
usezhicheng
indexon职称代码tozc
select2
useyuangong
dowhilenoteof()
select1
seekb->职称代码
select2
replace新工资with工资*(1+a->增加百分比/100)
skip
enddo
list
wait
closeall
settalkon
setsafetyon
5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault,这样程序就可以终止运行了。
一、在表单设计器中,建立一个名为“form_stu”的表单文件。
建立一个名为“cmdYes”的命令按钮,其Caption属性为“计算”,再建立另一个名为“cmdNo”的命令按钮,其Caption属性为“关闭”。
二、双击“计算”命令按钮,对其进行编程操作,即Click事件代码:
settalkoff
usescore1
dowhilenoteof()
jf=0
docase
case三好生
jf=20
case优秀干部
jf=10
case少数民族
jf=5
endcase
replace总成绩with考试成绩+jf
skip
enddo
sorton总成绩,学号tozcjfield学号,总成绩
usezcj
list
wait
closeall
settalkon
三、双击“关闭”命令按钮,对其进行编程操作,即Click事件代码:
thisform.release&&关闭表单
1.单击“文件\新建”命令项。
2.在“新建”对话框中选择“菜单”单选钮,再按“新建文件”按钮。
3.在“新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的“菜单名称”中输入“计算”和“退出”。
4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。
settalkoff
usezhiban
ye=每天加班费
skip
zy=每天加班费
useyuangong
replaceall加班费withye*夜值班天数+zy*昼值班天数
sorton加班费/d,职工编码field职工编码,姓名,加班费tostaff_d
closeall
settalkon
5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault,这样程序就可以终止运行了。