vfp程序与程序文件

一、1、程序的概念2、3、编程中要遵照的原则4、2：在弹出的“程序”3：保存文献。从“文献”的下拉菜单中选择“保存”或“另存为”或用快捷键“CTRL+W”,在“另存2：从文献类型中选择“程序”。3：从“搜寻”4：从文献列表框中选择要修改的文献，并单击“拟定”环节2：在命令窗口输入“DO文献名”，也能够运行程序1、命令格式：INPUT字符串体现式TO例1Input”请输入一种数：”toaInput”请输入一种数：”to?a&&?b&&c=a&&Cac中a=b&&aba中b=c&&c中的数据（a中的数据）b中?”换位后的2ACCEPT命令格式：ACCEPT字符体现式to例2opendatabaseuse职工状况表exclusiveaccept”请输入职工号：towlistfor职工号=wclosedatabase面中只需要选择“取消”无视：跳过出错行，程序继续往下运行。3、WAIT命令格式：字符体现式>][to<内存变量>][window[at行>,<列>]][nowait][clar|noclear][tieout<数值体现式>]⑵[]中的内容都是参数，能够加能够不加，只有一种t是系统会出现提示信息：“按任意键继续……”。⑶<内存变量>Enter键或单击了鼠标，那么<内存变量>TO<内存变量>短语，输入的单字符不保存。WINDOWWAIT提示窗口，用以显示提示信息。提示窗口普通显示在主窗口中AT短语指定（某行某列）其在主窗口的位置。提示窗口。NOWAITNOCLEARWAITWINDOWWAITCLEAR命令为止。⑻TIMEOUT意思为时间限制，等待的时间为秒，在限定的秒数内，顾客输入数据或按任意键，程三、1条件选择构造IF<条件ELSE子句时，两组可供选择的代码分别是<1>和<2>。如果<条件>成立，则执行<1>，否则执行<2>ENDIF的下一条语句。ELSE子句时，能够看作第二组代码不涉及任何命令。如果<条件>成立，则执行<1>，然ENDIFENDIF的下一条语句去执行。⑶IFENDIF必须成对出现，IF是本构造的入口，ENDIF⑸<条件>的形式是比较运算或逻辑运算，只要最后成果为逻辑型即可。即.T.或IFENDIF例1inputx的值″toifx<0例21200.06元，1200.05元。试编辑一种程序。input”请输入包裹的重量：”towifw<=120f=(w-例34100input”输入年份：”toify%4=0.and.y%100<>0.or.y%400=0&&%*ifmod(y,4)=0.and.mod(y,100)!=0.or.mod(y,400)=0&&opendatabaseuse职工状况表accept”请输入要查找的职工号：”toslocatefor职工号=sifwaitwindowat23,45timeout10closedatabase例5显示“查无此人”opendatabase职工管理useexclusiveaccept”请输入职工号”towlocatefor职工号=wifif性别=’男wait该统计为男性统计″windowtimeout10wait该统计为女性统计″windowtimeout10closedatabase2、DOCASECASE1><CASE<<CASE<<N>OTHERWISEENDCASEENDCASE背面的语句。CASECASECASEOTHERWISE⑶DOCASEENDCASE必须成对出现，DOCASE是本构造的入口，ENDCASE⑷DOCASEENDCASEDOCASEENDCASE1：settalkoffinput”X的值：toxdocasecasey=2*abs(x)-1&&ABS是取绝对值函数casex>=0.and.x<4y=3**x+5&&**是乘方运算casex>=4.and.x<8y=5*int(x)+1&&int取整函数casex>=8.and.x<10y=5^x-3&&^y=7*sqrt(x)+2&&sqrt是求平方根函数?’fsettalkon例2settalkoffopendatabaseuseexclusive1—2—3—4—5—6—wait”请选择（1-6）”towdocasecasebrowseallfieldscasew=’2’appendblankcasew=’3’deleteallfor基本工资caseaccept”输入职工号：”toxlocatefor职工号=xifwait”该统计显示以下windowat12,21timeout5casereplaceallwith基本工资+150,with奖金+100for工龄>3casew=’6’closedatabasesettalkon3、dowhilenddodowhile条件DOWHILEDOWHILE与ENDDO背面的语句。LOOPLOOP时，就结束循环体的本次运行，不再执行其背面的DOWHILE处重新判断条件。⑷普通LOOP或EXITLOOP⑸DOWHILEENDDODOWHILEENDDO11+2+3+……100的和1s=s+ii=i+1，i100。每一次执行，s的值累加，i1。settalkoffdowhilei<=100settalkon例2settalkopendatabase职工管理useexclusivelocatefor性别=’女’dowhile.not.eof()closedatabasesettalkon例3settalkoffdowhielopendatabaseuseexclusivelocatefor性别=’女’iffound()waitwindowwait”与否继续（Y/N）”tokifupper(k)=’Y’closedatabasesettalkon例4settalkdowhilei<=9dowhile4、FOR-ENDFORFOR内存变量>=<初值>TO终值>[STEP<步长<循环体ENDFOR背面的语句。⑴<步长>1⑷EXITLOOPLOOP命令时，结束循环例111000settalkofffork=1to例21100010settalkofffork=1to??k&&if?&&settalkon例settalkoffforI=100to999ifsettalkon例410settalkoffinput”请输入一种数：”tostorextoma,mifori=2to10input”请输入一种数：”toifma<xifmi>=xsettalk?”例5110000settalkoffforp=1to10000settalkon5、SCAN-ENDSCAN<循环体⑵EXITL