PB 简单笔记！

1、总体说明：

a) 程序不区分大小写

b) 赋值用=  –String city=“南京”，country ;Integer  person[3]={3,8,9};String s = ' You got a "job" '

c) 代码提示 Design->option->AutoScript->options下面的两项勾上。

d) RETURN语句立即终止事件处理程序或函数的执行，把控制返回到调用程序 HALT语句用于终止应用程序的运行

e) ™可以将一条语句分成几行，这时就需要用到续行符&，将语句串起来。

™例如：

–IF  side1 = 5  AND &

   side2 = 6 THEN area = 5*7

–相当于

   IF  side1 = 5  AND  side2 = 6 THEN area = 5*7

 

f) 空值：

™变量被赋予空值的途径有如下两条。

–（1）从数据库中读到空值。

–（2）使用SetNull()函数赋值。

™例1：

–String person  // person=""

–SetNull(person) // person值为NULL

™例2：

–Integer x,y,z=2002

–Setnull(y)

™测试变量或表达式是否为空值时，使用函数IsNull

–IF  IsNull(a)THEN 

 

 

g) RUN、

Run("C:\WINDOWS\system32\calc.exe“,normal!)    

//这里使用的是Windows XP sp2操作系统

c) 弹出对话框　

string ls_text
ls_text = sle_2.text
if ls_text = "" then
MessAgeBox("消息窗口","文本框的内容为空") //为空时显示此内容
else
MessAgeBox("消息窗口",ls_text) //不为空时就显示时面的内容
end if

MessageBox（"学生信息","保密资料",Exclamation!,YesNo!）

 

Int ret

ret=MessageBox("这是一个例子","是否要存盘?",Question!,YesNoCancel!,3)

IF ret=1 THEN

Dw_1.update()

Else

IF ret=2 THEN

        RETURN

END IF

END IF

 

int li_return
li_return = Messagebox("提示","请选择按钮",Question!,YesNo!)
if li_return = 1 then
        Messagebox("提示","你选择了Yes",Exclamation!)
else
        Messagebox("提示","你选择了No",Exclamation!)
end if

 

d) 应用退出 Close(Parent)

2、基本语句

1. 单行IF ... THEN语句 IF sle_State.text="BJ" THEN   MessageBox("欢迎","北京")

2. 多行IF ... THEN语句

Integer s
s = integer(sle_1.text)       //sle_1 text单行编辑框文本
if s>=90 then
St_1.text = “优”
elseif s>=80 then
   St_1.text = “良”
elseif s>=70 then
   St_1.text = “中”
elseif s>=60 then
   St_1.text = “及格”
else
St_1.text = “不及格”
end if

3.CHOOSE CASE

integer f
String s
f = integer(sle_1.text)
CHOOSE CASE f
CASE IS >= 90    // 改进 90 to 100// 用IS代表测试值，后跟关系操作符和比较值，例如：IS> 30
S = "优"
CASE 80 TO 89
   S = "良"
CASE 70 TO 79   
S = "中"
CASE 60 TO 69   
S = "及格"
       CASE 0 TO 59
S = "不及格"
CASE ELSE   
S = "输入错，请重新输入！"
END CHOOSE
St_1.text = string(S)

4.循环DO …LOOP、FOR …NEXT、GOTO   EXIT（退出循环） CONTINUE（继续循环）

integer i=1, s = 0
DO UNTIL i>10
   s += i
i ++
LOOP
st_1.text = string(s)

integer i=1, s = 0
DO WHILE i<=10
   s += i
i ++
LOOP
st_1.text = string(s)

integer i, s = 0
for i=1 to 10
   s += i
next
st_1.text = string(s)

3、

2、取得当前时间

得到当天日期  
date lda_today  
lda_today = today()  

得到当前时间  
time lt_time
lt_time = now()

得到当前日期时间
datetime ldt_now
ldt_now = datetime(today(),now())