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
分享到:
相关推荐
|PowerBuilder 数组字符串相互转化 天津 李华锋 * * | | * *PowerBuilder 数组字符串相互转化 完全免费 * * | | * *如果你将这个程序放在你的网站上,我希望你能同时加上本站的链接 | | * | * | * *老字符串转数组...
将字符串转化为数组,资源为pb9导出来的文本文件,可以直接导入pb9,也可以打开查看
可以将一个字符串按要求格式化为一个标准长度的字符串
数组使用,含一维、二维数组赋值、调用等使用方法。
由于PB不带有字符串替换函数功能,因此自为PB程序开发了常用的字符串替换函数。
pb函数库之字符串操作函数pb函数库之字符串操作函数pb函数库之字符串操作函数pb函数库之字符串操作函数
初学者pb实现测字符长度 和计算器的实现 初学者很好的学习资源
pb split() pb 字符串分割函数 自己写的字符串分割函数
PB中操作Excel的技巧集 oleobject sheet long ll_row_count,ll_col_count excel1 = CREATE OLEObject dd = excel1.connecttonewobject("Excel.Application") IF dd<>0 then messagebox('...
这是我遇到的问题,然后发现pb里没有split方法,就自己写了一个,应该还能算是简单而实用吧
PBJson用于解析和生成Json结构的字符串,没有涉及Json嵌套字符串情况
PB字符串加密、解密函数,非常好用。PB字符串加密、解密函数,非常好用。
getsep 得到指定符号分隔开的文本数组 hexdecode 将16进制字符串以指定字符集进行解码成字符 hexencode 将字符串指定字符集进行编码成16进制字符串 hexstring 将字符串指定字符集进行编码成16进制字符串 power 求...
pb函数库之字符串操作函数.docx
pb字符串分数组支持任意多个元数,可以返回的数组长度不受限制
PB解析XML字符串 把XML 变为数据窗口,然后可以方便的获取各字段内容,内含源码PB解析XML字符串 把XML 变为数据窗口,然后可以方便的获取各字段内容,内含源码
Pb字符串中的中文和英文(含符号)拆分 如: '中字A文C' 拆分成: '中字文' 'AC'
POWERBLUIDE11 将带有分隔符的字符串,转为SQL IN语句中需要的格式字符串;如:ABCD1234,ABCD5678 转换为 'ABCD1234','ABCD5678'然后可放直接放入IN语句中。
解决PB无法直接识别全角空格问题,特写该函数,将字符串中的全角空格替换为半角空格。
powerbuilder 9字符串转换进制源码