《《过程表单使用》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《过程表单使用》PPT课件.ppt（53页珍藏版）》请在金锄头文库上搜索。
1、第十讲第十讲 过程、表单使用过程、表单使用鲁鲁 宁宁学时：学时：2节节教学内容l10.1循环回顾10.1.1选择排序10.1.2循环示例l10.2过程10.2.1子过程10.2.2函数10.2.3变量的作用域l10.3表单10.3.1表单基本使用10.3.2表单示例Friday, August 2, 2024教学重点及目标l教学重点选择排序循环的灵活使用子过程与函数表单基本使用l教学目标掌握过程的使用方法掌握表单的使用方法灵活应用过程和表单解决实际问题Friday, August 2, 2024数组l格式格式DIMENSION 数组名数组名(下标上限下标上限1，下表上限，下表上限2.) ,.D
2、ECLARE 数组名数组名(下标上限下标上限1，下表上限，下表上限2.) ,. l功能：一次可以创建多个一维数组或二维数组。功能：一次可以创建多个一维数组或二维数组。l数组下标从数组下标从1开始，数组创建时，每个数组元素赋值开始，数组创建时，每个数组元素赋值.F.l示例：示例：Dimension x(5),y(2,3)一维数组一维数组x含有含有5个元素：个元素：x(1)、 x(2)、 x(3)、 x(4)、 x(5)二维数组二维数组y含有含有6个元素：个元素：y(1,1)、 y(1,2)、 y(1,3)、 y(2,1)、 y(2,2)、 y(2,3)l可以用一维数组的形式访问二维数组，如数组可
3、以用一维数组的形式访问二维数组，如数组y中的各元素中的各元素用一维数组表示为用一维数组表示为:y(1)、 y(2)、 y(3)、 y(4)、 y(5) 、y(6)l其中其中y(4)与与y(2,1)是同一变量是同一变量l数组中各元素的类型可以不同数组中各元素的类型可以不同Friday, August 2, 2024选择排序算法a(1)a(2)a(3)a(4)a(5)102015305a(k)=a(i)a(i)=i_Min5 20153010a(k)=a(i)a(i)=i_Min5 10 1530205 10 152030k=5i_Mini_Mini=1i_Mini=2i_Mini_MinK=3k
4、=5k=ik=iFriday, August 2, 2024选择排序ClearDimensiona(5)a(1)=10a(2)=20a(3)=15a(4)=30a(5)=5N_Disp=待排数据：Fori=1to5N_Disp=N_Disp+space(5);+str(a(i)next?N_DispN_Disp=按升序排按升序排:For i=1 to 5k=ii_Min=a(i)for j=i+1 to 5if i_Mina(j) i_Min=a(j) k=jendifnext a(k)=a(i)a(i)=i_Min N_Disp=N_Disp+Space(5)+Str(A(i)next?N_
5、DispFriday, August 2, 2024For循环示例l求Sn=1+(1+2)+(1+2+3)+(1+2+3+n)ClearS=0Si=0InputInputN=ToNFori=1tonSi=0forj=1toiSi=Si+jnextS=S+Sinext?SFriday, August 2, 2024For循环示例l求求Sn=1!+(1!+2!)+(1!+2!+3!)+(1!+2!+3!+n!)ClearS=0Si=0Input Input N= To NFor i=1 to nSi=0for j=1 to iF=1for k=1 to j F=F*knext Si=Si+Fnex
6、t S=S+Sinext? SFriday, August 2, 2024For循环示例l计算S=5!+8!S=0F=1Fori=1to5F=F*iNextS=S+FF=1Fori=1to8F=F*iNextS=S+F&求N!F=1Fori=1toNF=F*iNext8!5!Friday, August 2, 2024过程及其调用l过程是以特定的命令开始又以特定的命令结束的模块，被放置在程序文件或过程文件中。l一个独立的程序块，放在过程文件中。l过程的名字为18个字符,没有扩展名,每个过程以PROCEDURE语句起始,以RETURN语句终止。l过程分为内部过程和外部过程Friday, Augu
7、st 2, 2024定义过程l格式：PROCDURE RETURNENDPROCl说明：过程名必须以字母或下划线开头，字母、数字和下划线的组合；RETURN命令是过程返回命令，控制将转回到调用程序（或命令窗口），并返回表达式的值，若省略表达式，则返回逻辑值.T.；缺省RETURN命令，则自动执行一条隐含的RETURN命令；Friday, August 2, 2024子程序或过程的返回语句l格式RETURN/TOMASTER/TOl功能将程序控制权返回给调用程序，并返回表达式值l说明（1）短语：指定返回给调用程序的表达式值。如果省略RETURN命令或省略返回表达式，则自动将“.T.”返回给调用程
8、序。（2）TOMASTER短语：将控制权返回给最外层的调用程序。（3）TO短语：将控制权返回给指定的过程。Friday, August 2, 2024调用过程l格式DOINWITHl功能执行过程名所指定的子程序。WITH用于主程序和子程序间参数的传递。l说明（1）短语：指定要执行的过程名称。（2）IN：（3）WITH：指定要传递给程序或过程的参数。Friday, August 2, 2024内部过程l主程序与子程序放在同一个程序文件中do sub1Do sub2Return&子程序子程序sub1.prgPROCDURE Sub1ENDPROC&子程序子程序sub2.prgPROCDURE Su
9、b2ENDPROC主程序主程序Friday, August 2, 2024外部过程l子程序存放在另一个程序（过程）文件中l使用SetProcedure To 过程文件名打开过程文件&打开过程文件打开过程文件Set Procedure To MyFrocdo sub1Do sub2return&主程序主程序&子程序子程序sub1.prgPROCDURE Sub1ENDPROC&子程序子程序sub2.prgPROCDURE Sub2ENDPROC&过程文件过程文件MyProc.prgFriday, August 2, 2024内部过程示例clearDoGetAreaProcedureGetArea
10、inputInputR=toRifR0thenArea=pi()*R*R?圆的面积为Area=+Str(Area,10,2)elsemessagebox(圆的半径必须大于0)endifEndprocFriday, August 2, 2024定义过程文件l过程文件由若干各自独立的过程组成l语法PROCEDURERETURNENDPROCPROCEDURERETURNENDPROCFriday, August 2, 2024调用过程文件l在调用过程之前，必须先打开过程文件l格式SETPROCEDURETO,.ADDITIVEl功能打开指定的过程文件。l说明（1）ADDITIVE表示并不关闭已打开
11、的过程文件。（2）调用其他命令文件中的过程要先打开此命令文件，再用Do或()调用。Friday, August 2, 2024关闭过程文件语句l当过程文件不再用时应将其关闭，以节省内存空间。l格式1：SETPROCEDURETOl功能：关闭所有已打开的过程文件。l格式2：Close/RELEASEPROCEDURE,.l功能：关闭所指定的过程文件。Friday, August 2, 2024外部过程示例ClearSetProcedureToMyProcDoGetAreaSetProcedureTo&MyProc.prgProcedureGetAreainputInputR=toRifR0the
12、nArea=pi()*R*R?圆的面积为Area=+Str(Area,10,2)elsemessagebox(圆的半径必须大于0)endifEndprocFriday, August 2, 2024参数传递l在过程中接收参数的命令：命令格式1：PARAMETERS,命令格式2：LPARAMETERS,l说明:PARAMETERS语句只能在过程中使用，且必须作为过程中PROCEDURE语句后的第一条可执行语句。形参的数目不能少于实参的数目，多余的形参变量初值为逻辑假.F.，形式参数与实在参数要类型对应一致PARAMETERS中形式参数只能是变量，且为私有变量，LPARAMETERS中形式参数为局
13、部变量，过程结束后，即被清除。Friday, August 2, 2024调用参数传递l（1）调用程序向被调用过程传递参数的命令：命令格式1：DOWITH,命令格式2：WITH,l说明:DOWITH语句中的参数也叫实参实参可以是任何类型的常量、变量和表达式，有多个参数时，各参数之间用逗号分隔。若参数表中的内存变量与库文件的字段名相同时，则内存变量前应冠以m-，以区别同名字段变量，否则字段变量优先于内存变量。参数表中的内存变量必须先定义或赋值才能使用。采用命令格式1，实参是常量，按值传递，即把实参的值传给形参；实参是变量，按引用传递，即把实参的地址传给形参；采用命令格式2，默认情况下都以按值方式
14、传递参数，如果实参是变量，可以通过命令SETUDFPARMS重新设置参数传递的方式。Friday, August 2, 2024求N!的过程ClearInput请输入N=ToNF=1DoGetJCWithN,F?Str(N)+!=,FProcedureGetJCParametersN,FF=1fori=1tonF=F*INextEndProcFriday, August 2, 2024参数过程示例*子程序子程序CalcArea.prgProcedure CalcAreaPARAMETERS R,SS=3.1416*R*RRETURN*主程序主程序,GetCirAera.prgS=0Set Pr
15、ocedure To CalcArea.PrgINPUT 半径半径= TO XDO CalcArea WITH ,S? “圆面积圆面积=,SSet Procedure ToFriday, August 2, 2024自定义函数l语法FUNCTIONRETURNENDFUNCl调用函数与程序在一个文件中函数名(参数)函数与程序在不同的文件中SetProcedureTo过程文件名函数名(参数)SetProceduretoFriday, August 2, 2024求N!的函数ClearInput请输入N=ToN?Str(N)+!=,NJC(N)FunctionNJCParametersNF=1Fo
16、ri=1toNF=F*inextreturnFEndFunFriday, August 2, 2024自定义函数示例&函数函数CircleS.prgFunction CircleSParameters Xreturn 3.1416*X*XEndFun* 函数调用函数调用,主程序主程序Set procedure to CircleS input 半径半径r= to r ? 半径半径=,r ? 面积面积=,circleS(r)set procedure toreturnFriday, August 2, 2024过程嵌套调用lVFP允许执行一个过程时,调用第二个过程;执行第二个过程时,调用第三个过
17、程。这样一个接一个地调用下去,称为过程嵌套调用。l系统允许这种嵌套最多126层。 主程序主程序 过程过程1 过程过程2. . .DO 过程过程 1 DO 过程过程 2 DO 过程过程 3. . . . . . .RETURN RETURN RETURNFriday, August 2, 2024变量的作用域l变量的作用域指的是变量在什么范围内是有效或能够被访问的lVFP中,以变量的作用域来分,内存变量分三类:公用变量、私有变量及局部变量。Friday, August 2, 2024公用变量l公用变量也称为全局变量，是在主程序和子程序中都有效的变量。l命令格式PUBLIC，.l命令功能定义公用变
18、量l注：在执行CLEARMEMORY、RELEASE、QUIT等命令后，公共变量才被释放；Friday, August 2, 2024私有变量l私有变量是在程序中直接使用而由系统自动隐含建立的变量。l私有变量可以在使用中建立l示例：STORE23TOXY1l说明私有变量只能在建立它的模块或下层模块中使用；私有变量在建立它的模块程序运行结束时被释放。Friday, August 2, 2024局部变量l局部变量是只能在建立它的模块中使用的变量l命令格式LOCAL，.l说明局部变量要先建立后使用，初值是逻辑假.F.。局部变量不能在上层或下层模块中使用，只能在建立它的模块中使用；局部变量在建立它的模
19、块程序运行结束时被释放。Friday, August 2, 2024变量作用域示例clearPublicx1Localx2Store100TOx2,x3dop6?主程序中.?x1=,x1?x2=,x2?x3=,x3&?x4=,x4returnprocedurep6?子程序中.x1=3?x1=,x1&?x2=,x2?x3=,x3x4=5?x4endprocFriday, August 2, 2024表单l表单（Form）在系统中是用户的主要界面，其扩展名为.scx，它为数据库信息的显示、输入和编辑提供了非常简便的方法。l表单（Form）是系统中用户见到的主要界面,表单的设计是可视化编程的基础。l
20、表单提供不仅仅是一个界面，它还提供丰富的对象集，这些对象能响应用户（或系统）事件，使用户尽可能方便和直观地完成信息管理工作。l表单是一种容器类，是一个或多个页面的集合。表单可以包含用以显示并编辑数据的控件。Friday, August 2, 2024创建表单l设置工作目录：SetDefaulttoD:鲁宁l菜单文件新建表单l命令CreateForm表单名Friday, August 2, 2024表单设计步骤l创建表单CreateFormFormNamel添加控件表单控件选定表单绘出l设置属性，界面设计选定对象属性窗口设置相应属性l编写代码双击对象选择事件编写程序l保存、运行调试运行：工具栏!
21、命令:DoForm表单名Friday, August 2, 2024输入半径，求圆的面积l界面设计Friday, August 2, 2024双击按钮,编写代码Friday, August 2, 2024退出代码Friday, August 2, 2024对象的引用l如果要引用某个对象，需要指明对象在嵌套层次中的位置。l两种引用方式1绝对引用从最高容器开始逐层向下直到某个对象为止的引用称为绝对引用。2相对引用从正在为编写事件代码的对象出发，通过逐层向高一层或低一层直到另一对象的引用称为相对引用。Friday, August 2, 2024对象引用规则与方法l对象引用规则l对象引用方法mand.
22、captionR=ThisForm.TxtR.value属性或关键字引用Parent当前对象的直接容器对象This当前对象ThisForm当前对象所在的表单ThisFormSet当前对象所在的表单集Friday, August 2, 2024对象属性设置l属性设置方法“属性”窗口设置程序设置对象的父类名.当前对象名.属性名=属性值l程序设置示例R=ThisForm.TxtR.value&读取属性Area=pi()*Val(R)*VAL(R)&设置属性ThisForm.TxtArea.value=str(area,8,2)Friday, August 2, 2024表单属性lCaption:用来
23、改变表单的标题lBackColor:其值决定窗口颜色lControlBox：设置窗口标题栏的控制按钮和图标的显示lHeight/Width/Left/Top用来决定窗口位置lIcon:设置标题栏图标lMaxButton/MinButton/Movable设置窗口按钮可用性lFontname:字体名lFontsize：字体大小lFontbold：字体加粗lForecolor：文本前景色Friday, August 2, 2024表单属性lPicture：给表单背景图片lvisible：设置对象运行时的可见性lWindowState：其值最大时，决定窗口位置的属性设置无效lAlwaysOnTop:
24、其值为真时，本窗口在其它窗口之上lClosable:默认为真，即可关闭。当为假时，要小心窗口不能关闭lShowTips：要使鼠标移到某对象上系统自动蹦出提示，该值必须为真lShowwindow:设计表单运行后在屏幕的位置Friday, August 2, 2024求任意三角形的周长和面积l输入三角形三边长a,b,c，计算周长和面积l周长计算公式L=a+b+cl面积计算公式Friday, August 2, 2024界面设计Friday, August 2, 2024计算按钮(CmdCalc)代码Friday, August 2, 2024修改代码，增加程序控制A=val(Thisform.Tx
25、tA.Value)B=val(Thisform.TxtB.Value)C=val(Thisform.TxtC.Value)IfA+BCAndA+CBAndB+CAAndA0andb0andc0L=A+B+Cd=L/2Area=sqrt(d*(d-a)*(d-b)*(d-c)Thisform.TxtL.Value=LThisForm.TxtArea.value=str(area,8,2)elseMessagebox(输入的不是一个三角形)endifFriday, August 2, 2024修改表单l方法菜单：文件打开表单名命令：ModiForm表单名l修改表单添加清除按钮Friday, August 2, 2024添加清除按钮(CmdClear)代码Friday, August 2, 2024程序运行Friday, August 2, 2024多表单切换Friday, August 2, 2024编写代码l圆的面积按钮Doformcirarea.scxl三角形面积doformsjxarea.scxl数据操作&暂无l系统退出Quitl注意各表单必须是同一目录下Friday, August 2, 2024
