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 ifend 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 chooseelse	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=6using sqlca;*//*update语句string a ;a = "update数据";update account set account.name = :a ,account.age=1 where account.id=7using sqlca;if sqlca.sqlcode= -1  then	messagebox("","连接失败"+sqlca.sqlerrtext );end if*/	

?使用游标

//唔系好明 点解当我change的时候会少一个的int li_int;string ls_name;//声明游标declare lcur_name cursor forselect project.name from project ;open lcur_name;if sqlca.sqlcode<>0 then	messagebox("","open falie"+sqlca.sqlerrtext );	returnelse messagebox("","open success");end ifddlb_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 ifloop//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");	returnend if  rnt = messagebox("ation",msg,Question!,YesNo! ,2); //确认了是的话   if rnt = 1 then		msg="";	msg +=string(env.pbbuildnumber);	messagebox("",msg);	 end if

?