收藏 分享(赏)

VF代码①.doc

上传人:wspkg9802 文档编号:7049375 上传时间:2019-05-04 格式:DOC 页数:4 大小:41KB
下载 相关 举报
VF代码①.doc_第1页
第1页 / 共4页
VF代码①.doc_第2页
第2页 / 共4页
VF代码①.doc_第3页
第3页 / 共4页
VF代码①.doc_第4页
第4页 / 共4页
亲,该文档总共4页,全部预览完了,如果喜欢就下载吧!
资源描述

1、1VF编程代码一、表单代码(共 7 个,每套试卷表单设计均以此为例)1、写在自建方法程序中(例:自建方法程序,命名为“mo”)nrec=recno()do casecase nrec=mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=.t.case nrec=mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=.t.endcasethisform.refresh2

2、、写在 Init Event 中public ntop,nbottomgo bottomnbottom=recno()go topntop=recno()thisform.mo 注:mo 为自建方法程序名3、写在逐条命令按钮中。首条go topthisform.mo4、上一条skip -1if bof()go topendifthisform.mo5、下一条2skipif eof()go bottomendifthisform.mo6、末条go bottomthisform.mo7、关闭thisform.release二、程序设计代码1、题目:1 到 50 之间的所有数之积(即 s=1*2*3

3、*50)set talk offclears=1for i=1 to 50s=s*iendfor?1*2*50=,sset talk onreturn运行结果:3.14040932E+642、题目:0 到 100 之间的所有数之和(即 s=1+2+3+100)set talk offclearsum=0for i=1 to 100sum=sum+iendfor?1+2+3+100=,sumset talk onreturn运行结果:50503、奇数之和的写法:set talk offclearsum=0for i=1 to 99 step 2sum=sum+i3endfor?1+3+5+99=

4、,sumset talk onreturn运行结果:25004、偶数之和的写法:set talk offclearsum=0for i=0 to 100 step 2sum=sum+iendfor?2+4+6+100=,sumset talk onreturn运行结果:2550三、菜单设计器(过程为两行代码、命令为一行)1、use xs.dbfBrowsr 注:xs 为表名2、do my.qpr 注:my 为以自己名字命名的文件名3、set sysmenu to default4、do form my.scx5、do my.prg6、report form my.frx preview四、数据类型字母 数据类型 字母 数据类型C 字符型或备注型 G 通用型N 数值型、整型、浮点型或双精度型 D 日期型Y 货币型 T 日期时间型L 逻辑型 X NULL值4O 对象型 U 未定义

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 企业管理 > 管理学资料

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报