pb 得到数组和字符串的长度

 

string  slevalue;//这样是为了初始化 因为他有默认值的 默认值为“”；
slevalue = sle_value.text;
int i ;
if slevalue="" then
	messagebox("","null");
	sle_value.setFocus( );
	return;
else 
    if IsNumber(slevalue) then 
		messagebox("","is Number");
		//for  i = 1 to integer(slevalue) 
		//	messagebox("",i);
		//next
		int arr[] = {1,2,3,4,5,6};
		string  s ;
		s="abc";
		messagebox("string的长度",len(s));
		for i = 1 to upperBound(arr)//得到数组的长度
			messagebox("",arr[i]);
			next
		
	else 
		messagebox("","not number");
		end if
end if

下面是转换

//pb中是先定义变量后赋值 不想java可以直接初始化 要先默认定义变量 然后在

string sleValue ;
 sleValue = sle_value.text;
 if sleValue="" then
	Messagebox("提示","你输入的为控制请重新输入");
	sle_value.setFocus( );
	return;
 else
	if isNumber(sleValue) then
//	int sleInt = integer(sleValue);
//	messagebox("数字为",sleInt);
//    choose case sleInt
 Integer ii;
  ii =Integer(sleValue);
Messagebox("ii", ii);
else
	messagebox("","你输入的不是数字，请重新输入");
	sle_value.text="";
	sle_value.setFocus( );
	return;
end if
 end if

 

//pb中是先定义变量后赋值 不想java可以直接初始化 要先默认定义变量 然后在

string sleValue ;
 sleValue = sle_value.text;
 if sleValue="" then
	Messagebox("提示","你输入的为控制请重新输入");
	sle_value.setFocus( );
	return;
 else
	if isNumber(sleValue) then
//	int sleInt = integer(sleValue);
//	messagebox("数字为",sleInt);
//    choose case sleInt
 Integer ii;
  ii =Integer(sleValue);
//Messagebox("ii", ii);
choose case ii
	case IS > 90 
		st_grade.text="你的成绩优秀";
	case 80 to 90 
		st_grade.text="你的成绩良好";
	case 70 to 80
   st_grade.text="你的成绩中等";
case 60 to 70
	st_grade.text="你的成绩及格";
case else
	st_grade.text="你的成绩不及格";
end choose
else
	messagebox("","你输入的不是数字，请重新输入");
	sle_value.text="";
	sle_value.setFocus( );
	return;
end if
 end if

 

 用select语句

/*select 一个记录
string  a ;
select  account.name into :a from account where id = 1  using sqlca;
messagebox("",a);
*/
/*
insert 一条记录
String str;
str = "我是";
insert into account(account.name)values(:str) 
using sqlca;
*/
/*
删除一条语句
delete from account where account.id=6
using sqlca;
*/
/*update语句
string a ;
a = "update数据";
update account set account.name = :a ,account.age=1 where account.id=7
using sqlca;
if sqlca.sqlcode= -1  then
	messagebox("","连接失败"+sqlca.sqlerrtext );
end if
*/
	

 使用游标

//唔系好明 点解当我change的时候会少一个的
int li_int;
string ls_name;
//声明游标
declare lcur_name cursor for
select project.name from project ;
open lcur_name;
if sqlca.sqlcode<>0 then
	messagebox("","open falie"+sqlca.sqlerrtext );
	return
else
 messagebox("","open success");
end if
ddlb_1.setredraw( false);
do while sqlca.sqlcode = 0
	fetch lcur_name into :ls_name;
 	if sqlca.sqlcode=0 then
	//messagebox("",ls_name);
	ddlb_1.addItem( ls_name);
else
	messagebox("","fetch fail"+sqlca.sqlerrtext );
	return;
end if
loop
//ddlb_1.setredraw( true);

close lcur_name;

 获取环境 和 messagebox的使用方法

msg="你要查看powerbuilder的版本信息吗";
int rnt;//get environment return code
 Environment env ;
 
 messagebox("","welcome to use booking system");
 

 rnt = getEnvironment(env);
 
 if rnt =-1 then 
	messagebox("","enviromnent fali");
	return
end if



 
 
rnt = messagebox("ation",msg,Question!,YesNo! ,2);
 //确认了是的话
 
 
 if rnt = 1 then
	
	msg="";
	msg +=string(env.pbbuildnumber);
	messagebox("",msg);	
 end if