pb 失去数组和字符串的长度

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

?

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

下面是转换

//pb中是先定义变量后赋值 不想java可以直接初始化 要先默认定义变量 然后在string sleValue ; sleValue = sle_value.text; if sleValue="" thenMessagebox("提示","你输入的为控制请重新输入");sle_value.setFocus( );return; elseif isNumber(sleValue) then//int sleInt = integer(sleValue);//messagebox("数字为",sleInt);//    choose case sleInt Integer ii;  ii =Integer(sleValue);Messagebox("ii", ii);elsemessagebox("","你输入的不是数字，请重新输入");sle_value.text="";sle_value.setFocus( );return;end if end if
?
//pb中是先定义变量后赋值 不想java可以直接初始化 要先默认定义变量 然后在string sleValue ; sleValue = sle_value.text; if sleValue="" thenMessagebox("提示","你输入的为控制请重新输入");sle_value.setFocus( );return; elseif isNumber(sleValue) then//int sleInt = integer(sleValue);//messagebox("数字为",sleInt);//    choose case sleInt Integer ii;  ii =Integer(sleValue);//Messagebox("ii", ii);choose case iicase IS > 90 st_grade.text="你的成绩优秀";case 80 to 90 st_grade.text="你的成绩良好";case 70 to 80   st_grade.text="你的成绩中等";case 60 to 70st_grade.text="你的成绩及格";case elsest_grade.text="你的成绩不及格";end chooseelsemessagebox("","你输入的不是数字，请重新输入");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  thenmessagebox("","连接失败"+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 thenmessagebox("","open falie"+sqlca.sqlerrtext );returnelse messagebox("","open success");end ifddlb_1.setredraw( false);do while sqlca.sqlcode = 0fetch lcur_name into :ls_name; if sqlca.sqlcode=0 then//messagebox("",ls_name);ddlb_1.addItem( ls_name);elsemessagebox("","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 thenmsg="";msg +=string(env.pbbuildnumber);messagebox("",msg); end if

?