BAAN 工具
一、用户变量和常量
变量和常量名可以由字母、数字、下划线和点组成。每个变量和常量必须以字母开头。长度任意。
下列两个条件适用于变量和常量名：
1． 为避免冲突，变量和常量名不要与系统保留字相同，保留字信息请看开发手册。
2． 变量名应能反映变量的内容。
常量的类型可为长、双精度、字符、列举和它们的组合。长型的常量用于正负整数；双
精度常量用于浮点数；幂常量可以用e来定义；字符型常量用于表示字符串；列举型常量通过列举域来定义，其表示方法为列举域名带上列举域中列举的某一个常量名。组合常量由上述常量通过加减号连接组合而成。
常量类型
范围
举例
初值
长（Long）
-2147483648～2147483648
123456, -124
0
双精度（Double）
最大长度为15位的小数
123．45， -2.3e10
0
字符型（string）
所有字符、数字等，最大长度1024字节
Abc1231?
“”
列举型（enumerate）
所有已定义的常量值
是（s）或否（）
empty
组合型（set）
和列举型一样，但可以组合（+/-）
黑体+下划线
变量的类型有：长（long），双精度（double），字符（string），表（table）和域（domain）。长型变量用于正负整数，双精度用于小数，字符型变量包含的字符长度可声明为固定的，这意味着其当前长度等于最大长度，表变量用于在数据字典中已定义了的数据库的表。
域变量是依据数据字典中定义的域来定义的，主要用于临时存储的表字段的内容。域的数据类型可以为长、字节、整数，日期，列举、组合、浮点、双精度、字符串（不能用于中文输入）、文本和多字节字符串（可用于输入中文）。
变量类型
范围
举例
长（long）
-2147483648～2147483648
12345
Double（双精度）
最大长度为15位的小数
12345.321
String（字符串）
所有字符、数字等，最大长度1024字节
Abcd123!?
Table（表）
数据字典中定义的表
Ttiitm001
Domain（域）
数据字典中定义的域
Tiedm.cdrw
变量和常量可以在函数中声明，也可以在4GL 的declaration部件中声明。在函数块中声明的变量和常量（局部变量和常量）只可用于该函数，在declaration部件中声明的变量和常量（全局变量和常量）可用于该程序脚本中所有的部件和函数。
常量必须用关键字＃difine来定义。
如果一个变量用于程序脚本外面，如用于form或report，则必须用extern来声明，扩展成需要用于当前程序外部的变量。
下面是变量和常量的一个例子：
|****************** declaration ************************
declaration:
| 变量的定义
table    tcuoes020    | items
extern  long      total.amount,  average.amount
string    description（30）      | 字符长度为30
string    （6）  fixed  | 字符有固定的长度6
double    float.variable
  |常量的定义
  #define        USER_ERROR    -1
  #define        USER_SUCCES    1
  #define        FLOAT_NUMBER    123.4e5
  #define        MESSAGE          “This is a message constant”
|********** function section **********
functions:
function my_function()
{
  domain  color      box color      |color是一个包含green和blue的列举域
  domain  feature    box feature    | feature 是一个组合类型的域，它包含bold
| reverse 和underlined
  box color =
  box feature = feature.bold
…
box color = d
box feature = box verse
}
二、运算符和语句
本节简单描述BAAN IV 程序语言中用到的运算符和条件语句。有关的详细信息请看开发手册。
1． 算术运算符：
－    减        ＋    加        *    乘        /    除        \    余数        &    字符串连接
例：
   
Long
var1,
Var2
String
var3（5）,
Var4（10）
Var1 = 8\3
|
var1 = 2
Var2 = var1 – 1
|
var2 = 1
Var3 = “hello”
Var4 = var3&“world”
enum函数
2． 关系运算符：
=    等于    <>    不等于    >    大于    <    小于    >=    大于或等于    <=    小于或等于
例：
Long  var1,  var2
If  var1 >= var2 then
……
|当 var1>=var2时将执行的代码
else
……
|当var1<=var2时将执行的代码
endif
3． 逻辑运算符：
not            and            or
not优先于and,  and优先于or, 当使用园括号时，括号内的运算符最优先。
4． 控制语句：
用于传送控制的语句通常有两种，分别为：if-then-else和on case。If-then-else用于执行可以在ture和false中任选一个条件的代码。其标准格式为：
if    then    else    endif
例：
Long  var1,  var2,  var3
if  var1>=var2  then
var3=var1-var2
else
var3=var2-var1
endif
On case是if the else语句的扩展，如果不满足指定的值，将按默认代码执行。其标准格式为：on case  <变量>    case 1:    case 2:    default:    endcase
例：
long weekday
string day(9)
on case  weekday
case 1:
day=”Sunday”
break
case 2:
day=”Monday”
break
case 3:
day=”Tuesday”
break
default:
day=”other day”
endcase
为避免条件赋值时匹配值与其它值比较，Break命令用于中断回路的执行，在循环嵌套的情况下，最内层循环的执行被中断，之后程序立即执行回路后面的语句。继续命令（不显示）可用于强制程序符合循环条件。使得回路中剩余的语句被跳过。
5． 循环语句
循环语句反复执行命令直到指定的条件不成立。有三个著名的循环语句：while 
endwhile语句、for endfor语句和repeat until语句。
While <条件> … endwhile
例：long  counter
counter=1
while  counter<=100
…        | code witch must be repeated
counter=counter+1
endwhile
for    <变量>=<初值>    to    <始值>    step        <步长>        …        endfor
例：long        counter
    for    counter=1 to 100 step 1
        …        |    code        witch    must    be    repeated
    endfor
repeat    …    until        …
例：long        counter
    repeat
        …        |    code        witch    must    be    repeated
        counter=counter+1
    until    counter=101
三、函数
BAAN IV 程序设计语言中有许多预先定义好的函数。由于篇幅关系，只介绍一部分常用的函数。至于这些函数的语法和用法请看开发手册。
BAAN IV 的内部函数可分为两批：3GL函数和4GL函数。4GL函数与3GL函数的不同之处为：
1． 直接影响标准程序。
2． 受限于特定的4GL部件。
3． 不能用于用户自定义函数。
4． 不能用于动态连接库。
4GL函数直接影响标准程序的流程。正因为如此它只能用于特定的4GL部件。基于同
样的原因，它们也不能用于用户自定义函数和动态连接库。
此外，用户可以定义自己的函数。有关用户自定义函数的语法，请看7.3.3。
4GL 函数
下表列出了常用的4GL函数和它们的使用处：
函数：
说明
用于（yes）、不能用于(No)
abort.io
中断数据库事务处理
Yes:
before.write,  write,  before.delete,
after.write,  write,  after.delete,
after.skip.write,  write, 
after.skip.delete,
after.choice of choice update.db
choice.again               
立即将控制传送到选择字段
Yes:
before.choice,        on.choice,    after.choice,
before.field,        before.input,    on.input,
when.field.changes,        after.input
Display
Display.all
Display.fld
显示一个或多个字段。.
No:
Before.program
Execute
执行一个选项。
Yes:
before.choice,        on.choice,    after.choice,
before.form,        on.entry,    after.form,
No:
before.choice,    on.choice  and after.choice  for  the  choice itself
Input
在一个字段中请求输入
No:
Before.program
ax
in
Set.limits.off
在主表中设限制。
No:
Before.program
Do.occ
Do.occ.without.update
为特定的事件执行指定的函数。
Yes:
before.choice,        on.choice,    after.choice,
before.input,    on.input,    after.input,  check.input, when.field.changes,  ,
执行当前记录修改前的特定值
Yes:
write ,  write
On.main.table
执行与当前记录无关的特定函数。
No:
Before.program
显示错误信息并请求重输该字段
Yes:
Check.input:
Skip.io
跳过数据库的活动
Yes:
ad,  before.write,  write,  before.delete,  read.view
$
推进到特定的 session 或 menu.
Yes:
All 4GL sections
3GL函数
下表列出了一些常用的3GL函数，其它有用的3GL函数信息请看开发手册。
Function
Description
日期和时间函数,如:
- date.num
- time.num
- um
用于日期和时间的转换的函数。
Enum 函数，如:
- um
- enum.descry$
- etol
用于列举型的函数.
格式函数:
- edit$
- sprintf$
- string.scan
用于字符表达式的格式的函数.
Isspace
判断字符串是否为空的函数
最大最小值函数:
- max
- min
- set.max
- set.min
确定或保存变量的最大最小值.
信息函数，如:
- cleanmess
- mess
- message
显示或删除信息; 信息可以在也可以不在数据字典中定义。
字符串函数，如:
- lval
- str$
- strip$
- shiftr$
- toupper$
用于字符串转换的函数。
四、用户自定义函数
用户可以定义自己的函数，但必须在functions部件定义。与以前的TOOLS版本的区别是函数不再需要在4GL declaration部件中定义。
下面是一个用户自定义函数的例子：
Functions:
Function long give.max.value（long value1, long value2）
{
  long max.value
  if value1 > value2 then
max.value = value1
  else
max.value = value2
  endif
return（max.value）
}
该例中函数的类型是长，返回值由函数的return提供。该函数有两个结果（value1 and value2）和一个内部变量（max.value）。
函数的类型就等于返回的值的类型。下面是常用的类型：
● double
● string
● domain
● void
如果函数的类型是void，该void的关键字和RETURN语句可跳过。局部变量可定义为静态的，这表明离开函数前它们的值将被保存。如果函数被重新激活，该值可恢复。启动进程时，静态变量被初始化, 数值变成0、字符变成空。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。