资源描述：
《chap4程序设计初步1w.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第四章程序设计初步VFP程序设计包括结构化程序设计和面向对象程序设计，但结构化程序设计仍是面向对象程序设计的基础。4.1程序文件4.1.1程序文件的建立与执行一、程序文件的建立与修改MODIFYCOMMAND<文件名>文件名由用户指定，扩展名为.PRG程序文件由VFP命令组成关闭编辑窗口的方法Ctrl+W:文件存盘推出ESC：若程序文件修改过，将询问“放弃修改吗？”双击左上角控制菜单：将询问“将所做的更改保存到*.prg吗？”单双击右上角关闭按钮：将询问“将所做的更改保存到*.prg吗？”“文件”菜单：“保存”、“另存为”或“还原”命令二、程序的执行DO<文件名>
2、例如：DOMCZZ.QPR&&运行查询程序默认扩展名为.PRG，若为其它类型必须指明扩展名举例a=2b=5c=a+b?"a=",a?"b=",b?a,"+",b,"=",ccancel举例例4-2：已知X=16,Y=18，编写程序，将它们的值互换后输出。程序如下：CLEARX=16Y=18T=XX=YY=T?”X=",X,”Y=",YCANCEL程序运行结果：X=18Y=16XYT161618161816181816181616举例例4-3：设计程序创建数据库SBSJ{SB,BMDM,DX,ZZ}creatdatasbsjaddtablsbaddtablzzadd
3、tabldxaddtablbmdmclosedata三、程序的书写规则1、命令分行一行只写一条命令，结尾回车一行写不完，则加续行号“；”回车2、命令注释注释行以“*”号开头一条命令后可加“&&”引出注释例如：*本程序修改指定记录SETDATEUSA&&日期格式为MM-DD-YY4.1.2程序文件中的专用命令一、程序结尾的专用命令RETURN：使程序结束，返回到上级或命令窗口，准许缺省CANCEL：使程序正常终止，清除程序的私有变量，返回到命令窗口QUIT：退出VFP系统，自动删去临时文件，返回到WINDOWS二、定位输入输出专用命令@<行，列>[SAY<表达式1>
4、][GET<变量名>][DEFAULT<表达式2>]数据在窗口显示位置输出数据输入及编辑数据指定变量初值[P128例4-1]CLEAR&&清屏幕USEsbjlh=1&&GET变量必须赋初值@2,10SAY"请输入记录号:"GETjlhREADGOjlh@4,10SAY"请修改第"+STR(jlh,1)+"个设备的数据"*输出提示字符串@6,10SAY"价格"GET价格*价格是字段变量,已经有初值@8,10SAY"部门"GET部门READUSEGET子句的变量必须用READ命令激活，既若干带有GET子句的定位输入命令后，必须遇到READ命令才能输入、编辑数据三、WA
5、IT命令暂停程序的运行,直到用户输入一个字符,也可用于输出一条提示信息WAIT[<信息文本>][TO<内存变量>][WINDOW[AT<行>,<列>]][NOWAIT][CLEAR][NOCLEAR][TIMEOUT<数值表达式>]保存键入的字符,省略TO子句不保存省略则显示“按任意键继续….不等待用户输入关闭提示窗口不关闭提示窗口,直到下一个WAIT命令自动关闭WINDOW子句使屏幕出现一个WAIT提示窗口,内容由<信息文本>确定,位置有AT子句指定.省略AT子句则出现在屏幕右上角TIMEOUT子句设定等等时间（以秒为单位）[例Lwait][P129例4-2]C
6、LEARWAIT"请检查输入内容！"WINDOWAT8,40RETURN执行后显示如下：按任意键返回命令窗口4.2程序的控制结构顺序结构：按命令的书写顺序依此执行分支结构：根据指定条件的当前值在两条基本结构或多条路径中选择一条执行循环结构：由指定条件的当前值来控制循环体中的语句（或命令）序列是否要重复执行。4.2.1分支结构VFP可用条件语句或分支语句实现分支结构一、简单的条件语句IF<逻辑表达式><语句序列>ENDIF[P130例4-3]USEsbLOCATEFORNOT主要设备IFFOUND()&&若查到，FOUND函数返回.T.DISPLAY名称,价格REP
7、LACE价格WITH价格*(1-0.1)DISPLAY名称,价格ENDIFUSERETURN二、带ELSE的条件语句IF<逻辑表达式><语句序列1>ELSE<语句序列2>ENDIF三、宏替换函数函数格式：&<字符型内存变量>[.<字符表达式>]功能：替换出字符型内寸变量的值[P131例4-4]m=5x="m"?x&&显示m?&x&&显示5若宏替换函数后还有非空的<字符表达式>，则需要在此<字符表达式>前加“.”。[P131例4-5]clear@5,10SAY"请输入表名："GETbmDEFAULTSPACE(10)READbm=ALLTRIM(bm)&&删去两端的
8、空格IFF
