1、PB 基本语句 循环语句PB 基本语句一、赋值语句赋值语句用于给变量、对象属性赋值，这是应用程序中使用最频繁的语句，其语法格式为：variablename = expression其中：variablename 是变量名或对象属性；expression 是表达式，其数据类型应该与 variablename 的数据类型兼容。下面是赋值语句的几个简单示例： Address = “北京 “ TaxRate = .05 Age = 30 mle.text=“北京欢迎你“PowerScript 的赋值语句不支持多重赋值，也就是说，一条赋值语句只对一个变量赋值，不能同时对多个变量赋值。下面的语句：A=B=
2、0在有些编程语言中同时把 A 和 B 均赋值 0，但 PowerScript 中，该语句等价于：A=(B=0)其意义为，检查 B 等于 0 是否成立，成立时将 TRUE 赋给变量 A，否则把 FALSE 赋给变量 A。如果 A 不是 Boolean 类型的变量，则上述语句将引起编译错误。二、条件语句IF 语句有两种形式，下面我们按照从简单到复杂的次序逐一介绍。1. 单行 IF . THEN 语句单行 IF . THEN 语句的格式为：IF 逻辑表达式 THEN 语句 1 ELSE 语句 2单行 IF . THEN 语句书写时整条语句写在一行上，当逻辑表达式的结果为 True 时执行语句 1，否
3、则执行语句 2（如果有该子句的话） 。例如：IF sle_State.text=“BJ“ THEN MessageBox(“欢迎“,“北京“)2多行 IF . THEN 语句多行 IF . THEN 语句的语法格式为：IF 逻辑表达式 1 THEN 语句 1 ELSEIF 逻辑表达式 2 THEN语句 2 . . . ELSE 语句 nEND IF本语句的执行过程为：计算逻辑表达式 1，如果其结果为 True，则执行语句 1，然后离开整个 IF 语句；否则计算逻辑表达式 2，如果其结果为 True，则执行语句 2，然后离开整个 IF 语句；. 如果逻辑表达式的结果都是 False，且存在 EL
4、SE 子句，则执行语句 3。例 1：从单行编辑框中输入考分，按“输入”按钮再根据考分显示及格或不及格。Integer ss = integer(sle_1.text) /sle_1 text 单行编辑框文本If s =90 thenSt_1.text = “优” elseif s=80 thenSt_1.text = “良”elseif s=70 thenSt_1.text = “中”elseif s=60 thenSt_1.text = “及格”elseSt_1.text = “不及格”end if3. CHOOSE CASE 语句根据测试表达式的值选择不同的操作，其语法格式为： CHOOS
5、E CASE 测试表达式CASE 判断表达式执行语句块CASE 判断表达式语句块. . .CASE 判断表达式语句块 CASE ELSE语句块 END CHOOSE判断表达式可以使用如下的形式：1. 用逗号分隔的一组数据，例如：2,4,72. 用 TO 表示一个区间范围，例如：2 TO 153. 用 IS 代表测试值，后跟关系操作符和比较值，例如：IS 304. 组合运用上述三种方法，并用逗号进行分隔，例如：5,6,8 TO 12,IS 20 执行 CHOOSE CASE 语句时，PowerBuilder 将逐条查找 CASE，如果找到与测试值相匹配的判断表达式，就执行该 CASE 后的语句块
6、，然后执行 END CHOOSE 后的第一条语句。如果 CHOOSE CASE 语句中包含 CASE ELSE 子句，则未找到任何匹配的 CASE 条件时，执行 CASE ELSE 子句中的语句块。例 3：从单行编辑框中输入考分，按“输入”按钮后，再根据考分显示优、良、种、及格或不及格。 （用choose case 重写例 2）integer fString sf = integer(sle_1.text)CHOOSE CASE fCASE IS = 90 / 改进 90 to 100S = “优“CASE 80 TO 89 S = “良 “CASE 70 TO 79 S = “中“CASE
7、60 TO 69 S = “及格 “CASE 0 TO 59S = “不及格 “CASE ELSE S = “输入错，请重新输入！“END CHOOSESt_1.text = string(S)三、循环语句各种语言都提供了自己的循环语句，PowerScript 也不例外，它的循环语句有三种形式：DO LOOP、FOR NEXT、GOTO ，将前两种形式与 EXIT 和 CONTINUE 语句配合使用，可以完全抛弃GOTO 语句，而且 DO LOOP 本身有四种格式，丰富多采的表达方式为我们编写清晰流畅的程序提供了有效手段。下面介绍 PowerScript 循环语句的格式、中途退出循环或中途开始
8、下次循环的方法、以及循环嵌套的概念。1 DO LOOP 循环DO LOOP 结构提供了一种基于某个条件的灵活的循环方法，它有四种形式，分别为：DO UNTILu LOOPDO WHILEu LOOP (类似 c)DO LOOP UNTILu u DO LOOP WHILE (类似 c)DO 表示循环的开始，LOOP 表示循环的结束，condition 表示循环条件，是个逻辑表达式，其值为 True或 False。(1) DO UNTIL LOOP 的语法格式为：DO UNTIL 语句块LOOP其执行过程为：先计算条件 condition，其结果为 False 时，执行语句块，接着再检查条件，直
9、到条件的结果为 True 时退出循环。例：按计算按钮求 s = 1+2+3+10。解 1：integer i=1, s = 0DO UNTIL i10s += ii +LOOPst_1.text = string(s)(2) DO WHILE LOOP 的语法格式为：DO WHILE 语句块LOOP其执行过程为：先计算条件，其结果为 True 时，执行语句块，接着再检查条件，直到条件的结果为False 时退出循环。例：按计算按钮求 s = 1+2+3+10。解 2：integer i=1, s = 0DO WHILE i其执行过程为：先执行语句块，然后计算条件，如果其结果为 False，则继续
10、执行语句块，直到条件的结果为 True 时退出循环。例：按计算按钮求 s = 1+2+3+10。解 3：解 1 与解 3 完全等价integer i=1, s = 0DOs += ii +LOOP UNTIL i10st_1.text = string(s)(4) DO LOOP WHILE 的语法格式为：DO 语句块LOOP WHILE 其执行过程为：先执行语句块，然后计算条件，如果其结果为 True，则继续执行语句块，直到条件的结果为 False 时退出循环。例：按计算按钮求 s = 1+2+3+10。解 4：解 2 与解 4 完全等价integer i=1, s = 0DO s += i
11、i +LOOP WHILE i6 thenexitend ifnexts = s + inext4 CONTINUE（继续循环）功能：在循环语句的循环体中，遇到 CONTINUE 语句后，将不执行 CONTINUE 语句后与循环结束前的所有语句，而开始新一轮循环。四、返回语句与终止程序运行在编写事件处理程序或函数时，使用 RETURN 语句返回控制给用户或调用函数的地方。当希望终止应用程序的运行时，使用 HALT 语句。1 RETURN 语句RETURN 语句立即终止事件处理程序或函数的执行，把控制返回到调用程序。语法格式：RETURN 表达式功能：RETURN 语句立即终止事件处理程序或函数
12、的执行，把控制返回到调用程序。表达式值作为事件处理程序或函数的返回值返回。2 HALT 语句HALT 语句用于终止应用程序的运行，其语法为：HALT CLOSE其中 CLOSE 是个可选项。当 HALT 语句不带 CLOSE 选项时，该语句立即终止应用程序的运行；当HALT 语句带 CLOSE 选项时，执行到该语句后，应用程序先执行应用对象的 Close 事件处理程序，之后再终止应用程序的运行。OpenWithParm() 功能 带参数打开窗口，与打开窗口的 Open()函数相似，OpenWithParm()有两种语法格式： 语法一、带参数打开编程时已知数据类型的窗口对象； 语法二、带参数打开
13、程序运行后才能确定数据类型的窗口对象。 下面分别予以介绍： 语法一、带参数打开编程时已知数据类型的窗口对象语法 OpenWithParm(windowvar,parameter,parent) 参数 windowvar：要打开窗口的窗口名，可以使用窗口画笔定义的窗口对象名，也可以使用该窗口对象的某个变量。 Open()函数把打开窗口的引用放置到 windowvar 变量中 parameter：指定要传递给打开窗口的数据，该数据保存在 Message 对象的属性中，parameter 参数的数据类型必须是下述三种类型之一：String、Numeric、PowerObjectparent：可选项，
14、指定要打开窗口的父窗口，要打开窗口成为父窗口的子窗口，只有当要打开窗口需要成为某个窗口的子窗口时才需要指定该参数。如果应用程序使用 Open()函数打开某个子窗口或弹出窗口而又省略了该参数，那么当前活动窗口成为被打开窗口的父窗口返回值 Integer。 函数执行成功时返回 1，发生错误时返回-1。如果任何参数的值为 NULL，OpenWithParm()函数返回 NULL。 用法消息对象 Message 有三个属性用于存储 OpenWithParm()函数传递给打开窗口的数据。根据 parameter 参数数据类型的不同，该参数的值保存在 Message 对象的不同属性中。parameter
15、参数的类型与使用的 Message 对象属性的对应关系为： parameter 参数的类型 使用的 Message 对象属性 数值类型 Message.DoubleParm PowerObject（比如结构）Message.PowerObjectParm 字符串类型 Message.StringParm 应用程序根据 OpenWithParm()函数 parameter 参数的数据类型，从 Message 对象的不同属性中提取该函数传送给被打开窗口的值。 语法二、带参数打开程序运行后才能确定数据类型的窗口对象 语法 OpenWithParm(windowvar,parameter,window
16、type,parent) 参数 windowvar：指定窗口变量名，Open()函数把打开窗口的引用放置到该变量中 parameter：指定要传递给打开窗口的数据，该数据保存在 Message 对象的属性中，parameter 参数的数据类型必须是下述三种类型之一：String、Numeric、PowerObjectwindowtype：string类型，指定要打开窗口的数据类型，该参数指定的窗口数据类型必须与 windowvar 参数的类型相同或是 windowvar 类型的后继对象 parent：可选项，指定要打开窗口的父窗口，要打开窗口成为父窗口的子窗口，只有当要打开窗口需要成为某个窗口
17、的子窗口时才需要指定该参数。如果 应用程序使用 Open()函数打开某个子窗口或弹出窗口而又省略了该参数，那么当前活动窗口成为被打开窗口的父窗口 返回值 Integer。 函数执行成功时返回 1，发生错误时返回-1。如果任何参数的值为 NULL，OpenWithParm()函数返回 NULL。 示例 1. 下面的代码从表中选择要打开窗口的类型，然后打开该窗口，并把单行编辑框sle_location 的内容放置在消息对象的 Message.StringParm 属性中： window w_to_open string s_w_name, e_location e_location = sle_location.Text SELECT next_window INTO :s_w_nameFROM routing_tableWHERE . ; OpenWithParm(w_to_open, e_location, s_w_name)
