《过程表单使用》PPT课件.ppt

第十讲过程 表单使用 鲁宁学时 2节 Thursday March19 2020 教学内容 10 1循环回顾10 1 1选择排序10 1 2循环示例10 2过程10 2 1子过程10 2 2函数10 2 3变量的作用域10 3表单10 3 1表单基本使用10 3 2表单示例 Thursday March19 2020 教学重点及目标 教学重点选择排序循环的灵活使用子过程与函数表单基本使用教学目标掌握过程的使用方法掌握表单的使用方法灵活应用过程和表单解决实际问题 Thursday March19 2020 数组 格式DIMENSION数组名 下标上限1 下表上限2 DECLARE数组名 下标上限1 下表上限2 功能 一次可以创建多个一维数组或二维数组 数组下标从1开始 数组创建时 每个数组元素赋值 F 示例 Dimensionx 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 可以用一维数组的形式访问二维数组 如数组y中的各元素用一维数组表示为 y 1 y 2 y 3 y 4 y 5 y 6 其中y 4 与y 2 1 是同一变量数组中各元素的类型可以不同 Thursday March19 2020 选择排序算法 a 1 a 2 a 3 a 4 a 5 102015305a k a i a i i Min520153010a k a i a i i Min510153020510152030 k i k i Thursday March19 2020 选择排序 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 Disp N Disp 按升序排 Fori 1to5k ii Min a i forj i 1to5ifi Min a j i Min a j k jendifnexta k a i a i i MinN Disp N Disp Space 5 Str A i next N Disp Thursday March19 2020 For循环示例 求Sn 1 1 2 1 2 3 1 2 3 n ClearS 0Si 0Input InputN ToNFori 1tonSi 0forj 1toiSi Si jnextS S Sinext S Thursday March19 2020 For循环示例 求Sn 1 1 2 1 2 3 1 2 3 n ClearS 0Si 0Input InputN ToNFori 1tonSi 0forj 1toiF 1fork 1tojF F knextSi Si FnextS S Sinext S Thursday March19 2020 For循环示例 计算S 5 8 S 0F 1Fori 1to5F F iNextS S FF 1Fori 1to8F F iNextS S F 求N F 1Fori 1toNF F iNext 8 5 Thursday March19 2020 过程及其调用 过程是以特定的命令开始又以特定的命令结束的模块 被放置在程序文件或过程文件中 一个独立的程序块 放在过程文件中 过程的名字为1 8个字符 没有扩展名 每个过程以PROCEDURE语句起始 以RETURN语句终止 过程分为内部过程和外部过程 Thursday March19 2020 定义过程 格式 PROCDURE RETURN ENDPROC 说明 过程名必须以字母或下划线开头 字母 数字和下划线的组合 RETURN命令是过程返回命令 控制将转回到调用程序 或命令窗口 并返回表达式的值 若省略表达式 则返回逻辑值 T 缺省RETURN命令 则自动执行一条隐含的RETURN命令 Thursday March19 2020 子程序或过程的返回语句 格式RETURN TOMASTER TO 功能将程序控制权返回给调用程序 并返回表达式值说明 1 短语 指定返回给调用程序的表达式值 如果省略RETURN命令或省略返回表达式 则自动将 T 返回给调用程序 2 TOMASTER短语 将控制权返回给最外层的调用程序 3 TO短语 将控制权返回给指定的过程 Thursday March19 2020 调用过程 格式DO IN WITH 功能执行过程名所指定的子程序 WITH用于主程序和子程序间参数的传递 说明 1 短语 指定要执行的过程名称 2 IN 3 WITH 指定要传递给程序或过程的参数 Thursday March19 2020 内部过程 主程序与子程序放在同一个程序文件中 dosub1 Dosub2 Return 子程序sub1 prgPROCDURESub1 ENDPROC 子程序sub2 prgPROCDURESub2 ENDPROC 主程序 Thursday March19 2020 外部过程 子程序存放在另一个程序 过程 文件中使用SetProcedureTo过程文件名打开过程文件 Thursday March19 2020 内部过程示例 clearDoGetAreaProcedureGetAreainput InputR toRifR 0thenArea pi R R 圆的面积为Area Str Area 10 2 elsemessagebox 圆的半径必须大于0 endifEndproc Thursday March19 2020 定义过程文件 过程文件由若干各自独立的过程组成语法PROCEDURE RETURN ENDPROC PROCEDURE RETURN ENDPROC Thursday March19 2020 调用过程文件 在调用过程之前 必须先打开过程文件格式SETPROCEDURETO ADDITIVE 功能打开指定的过程文件 说明 1 ADDITIVE表示并不关闭已打开的过程文件 2 调用其他命令文件中的过程要先打开此命令文件 再用Do 或 调用 Thursday March19 2020 关闭过程文件语句 当过程文件不再用时应将其关闭 以节省内存空间 格式1 SETPROCEDURETO功能 关闭所有已打开的过程文件 格式2 Close RELEASEPROCEDURE 功能 关闭所指定的过程文件 Thursday March19 2020 外部过程示例 ClearSetProcedureToMyProcDoGetAreaSetProcedureTo MyProc prgProcedureGetAreainput InputR toRifR 0thenArea pi R R 圆的面积为Area Str Area 10 2 elsemessagebox 圆的半径必须大于0 endifEndproc Thursday March19 2020 参数传递 在过程中接收参数的命令 命令格式1 PARAMETERS 命令格式2 LPARAMETERS 说明 PARAMETERS语句只能在过程中使用 且必须作为过程中PROCEDURE语句后的第一条可执行语句 形参的数目不能少于实参的数目 多余的形参变量初值为逻辑假 F 形式参数与实在参数要类型对应一致PARAMETERS中形式参数只能是变量 且为私有变量 LPARAMETERS中形式参数为局部变量 过程结束后 即被清除 Thursday March19 2020 调用参数传递 1 调用程序向被调用过程传递参数的命令 命令格式1 DOWITH 命令格式2 WITH 说明 DOWITH语句中的参数也叫实参 实参可以是任何类型的常量 变量和表达式 有多个参数时 各参数之间用逗号分隔 若参数表中的内存变量与库文件的字段名相同时 则内存变量前应冠以m 以区别同名字段变量 否则字段变量优先于内存变量 参数表中的内存变量必须先定义或赋值才能使用 采用命令格式1 实参是常量 按值传递 即把实参的值传给形参 实参是变量 按引用传递 即把实参的地址传给形参 采用命令格式2 默认情况下都以按值方式传递参数 如果实参是变量 可以通过命令SETUDFPARMS重新设置参数传递的方式 Thursday March19 2020 求N 的过程 ClearInput 请输入N ToNF 1DoGetJCWithN F Str N FProcedureGetJCParametersN FF 1fori 1tonF F INextEndProc Thursday March19 2020 参数过程示例 子程序CalcArea prgProcedureCalcAreaPARAMETERSR SS 3 1416 R RRETURN 主程序 GetCirAera prgS 0SetProcedureToCalcArea PrgINPUT 半径 TOXDOCalcAreaWITH S 圆面积 SSetProcedureTo Thursday March19 2020 自定义函数 语法FUNCTION RETURN ENDFUNC 调用函数与程序在一个文件中函数名 参数 函数与程序在不同的文件中SetProcedureTo过程文件名函数名 参数 SetProcedureto Thursday March19 2020 求N 的函数 ClearInput 请输入N ToN Str N NJC N FunctionNJCParametersNF 1Fori 1toNF F inextreturnFEndFun Thursday March19 2020 自定义函数示例 函数CircleS prgFunctionCircleSParametersXreturn3 1416 X XEndFun 函数调用 主程序SetproceduretoCircleSinput 半径r tor 半径 r 面积 circleS r setproceduretoreturn Thursday March19 2020 过程嵌套调用 VFP允许执行一个过程时 调用第二个过程 执行第二个过程时 调用第三个过程 这样一个接一个地调用下去 称为过程嵌套调用 系统允许这种嵌套最多126层 Thursday March19 2020 变量的作用域 变量的作用域指的是变量在什么范围内是有效或能够被访问的VFP中 以变量的作用域来分 内存变量分三类 公用变量 私有变量及局部变量 Thursday March19 2020 公用变量 公用变量也称为全局变量 是在主程序和子程序中都有效的变量 命令格式PUBLIC 命令功能定义公用变量注 在执行CLEARMEMORY RELEASE QUIT等命令后 公共变量才被释放 Thursday March19 2020 私有变量 私有变量是在程序中直接使用而由系统自动隐含建立的变量 私有变量可以在使用中建立示例 STORE23TOXY1说明私有变量只能在建立它的模块或下层模块中使用 私有变量在建立它的模块程序运行结束时被释放 Thursday March19 2020 局部变量 局部变量是只能在建立它的模块中使用的变量命令格式LOCAL 说明局部变量要先建立后使用 初值是逻辑假 F 局部变量不能在上层或下层模块中使用 只能在建立它的模块中使用 局部变量在建立它的模块程序运行结束时被释放 Thursday March19 2020 变量作用域示例 clearPublicx1Localx2Store100TOx2 x3dop6 主程序中 x1 x1 x2 x2 x3 x3 x4 x4return procedurep6 子程序中 x1 3 x1 x1 x2 x2 x3 x3x4 5 x4endproc Thursday March19 2020 表单 表单 Form 在系统中是用户的主要界面 其扩展名为 scx 它为数据库信息的显示 输入和编辑提供了非常简便的方法 表单 Form 是系统中用户见到的主要界面 表单的设计是可视化编程的基础 表单提供不仅仅是一个界面 它还提供丰富的对象集 这些对象能响应用户 或系统 事件 使用户尽可能方便和直观地完成信息管理工作 表单是一种容器类 是一个或多个页面的集合 表单可以包含用以显示并编辑数据的控件 Thursday March19 2020 创建表单 设置工作目录 SetDefaulttoD 鲁宁菜单文件 新建 表单命令CreateForm 表单名 Thursday March19 2020 表单设计步骤 创建表单CreateFormFormName添加控件表单控件 选定 表单绘出设置属性 界面设计选定对象 属性窗口 设置相应属性编写代码双击对象 选择事件 编写程序保存 运行调试运行 工具栏 命令 DoForm表单名 Thursday March19 2020 输入半径 求圆的面积 界面设计 Thursday March19 2020 双击按钮 编写代码 Thursday March19 2020 退出代码 Thursday March19 2020 对象的引用 如果要引用某个对象 需要指明对象在嵌套层次中的位置 两种引用方式1 绝对引用从最高容器开始逐层向下直到某个对象为止的引用称为绝对引用 2 相对引用从正在为编写事件代码的对象出发 通过逐层向高一层或低一层直到另一对象的引用称为相对引用 Thursday March19 2020 对象引用规则与方法 对象引用规则对象引用方法mand captionR ThisForm TxtR value Thursday March19 2020 对象属性设置 属性设置方法 属性 窗口设置程序设置对象的父类名 当前对象名 属性名 属性值程序设置示例R ThisForm TxtR value 读取属性Area pi Val R VAL R 设置属性ThisForm TxtArea value str area 8 2 Thursday March19 2020 表单属性 Caption 用来改变表单的标题BackColor 其值决定窗口颜色ControlBox 设置窗口标题栏的控制按钮和图标的显示Height Width Left Top用来决定窗口位置Icon 设置标题栏图标MaxButton MinButton Movable设置窗口按钮可用性Fontname 字体名Fontsize 字体大小Fontbold 字体加粗Forecolor 文本前景色 Thursday March19 2020 表单属性 Picture 给表单背景图片visible 设置对象运行时的可见性WindowState 其值最大时 决定窗口位置的属性设置无效AlwaysOnTop 其值为真时 本窗口在其它窗口之上Closable 默认为真 即可关闭 当为假时 要小心窗口不能关闭ShowTips 要使鼠标移到某对象上系统自动蹦出提示 该值必须为真Showwindow 设计表单运行后在屏幕的位置 Thursday March19 2020 求任意三角形的周长和面积 输入三角形三边长a b c 计算周长和面积周长计算公式L a b c面积计算公式 Thursday March19 2020 界面设计 Thursday March19 2020 计算按钮 CmdCalc 代码 Thursday March19 2020 修改代码 增加程序控制 A val Thisform TxtA Value B val Thisform TxtB Value C val Thisform TxtC Value IfA B CAndA C BAndB C AAndA 0andb 0andc 0L A B Cd L 2Area sqrt d d a d b d c Thisform TxtL Value LThisForm TxtArea value str area 8 2 elseMessagebox 输入的不是一个三角形 endif Thursday March19 2020 修改表单 方法菜单 文件 打开 表单名命令 ModiForm表单名修改表单添加清除按钮 Thursday March19 2020 添加清除按钮 CmdClear 代码 Thursday March19 2020 程序运行 Thursday March19 2020 多表单切换 Thursday March19 2020 编写代码 圆的面积按钮Doformcirarea scx三角形面积doformsjxarea scx数据操作 暂无系统退出Quit注意各表单必须是同一目录下