随手笔记

弹出提示窗口时,点击了'取消'按钮      if MessageBox("提示","是否修改船期日期?",question!,yesno!) = 2 then return

datawindow中设置可以输入      d_row=dw_1.insertrow(0)     dw_1.scrolltorow(d_row)

船期确认中'保存'事件

if idw_1.update() = 1 then 

if g_co_no = '002' then

string ls_sql

ls_sql = "sp_invoice_update_unite '" + ls_inv_no + "'"

execute immediate :ls_sql;

if sqlca.sqlcode <> 0 then

rollback;

messagebox("提示", "更新分票错误!")

return

end if

end if

commit using sqlca;

if uf_sd001_send_to_sap(ls_inv_no,4) = 0 then

messagebox("提示","修改成功!")

end if

closewithreturn(parent ,'1')

else

ls_sqlerrtext = sqlca.sqlerrtext

rollback using sqlca;

messagebox("提示","保存失败："+ls_sqlerrtext)

end if

PB中的缓冲区    例如  dw_1.SetItemStatus(d_row, 0,  Primary!, NotModified!)

UpperBound (Obtains the upper bound of a dimension of an array.)

pos (Finds one string within another string.)返回的是一个long类型,  Pos(string1,string2{,start} )  返回string1中从start开始查询的包含string2的位置,位置是从start开始查的,但是是实际的位置数.例如:ll_num = pos("abdcdefga","a",5) ll_num得到的是9

mid (Obtains a specified number of characters from a specified position in a string)返回的是一个string类型.  Mid(string,start{,length} ),返回从star开始至字符串最后一个

len(string) 获取一个字符串的长度,返回的是一个long类型(在PB9.0中的汉字长度为2 len('你') = 2 但是 在PB12.0中汉字长度为1 len('你') = 1)

Left(string,n)返回的是一个string类型字符串,是从第一个字符开始返回n个字符

Right(string,n)返回的是一个string类型字符串,是从最后一个字符开始往前计算返回n个字符

Mod(x,y)得到x/y的余数

Round(x,n)把x置为含有n个小数位的decimal数值,例如:Round(9.624, 2)  返回的是9.62

IsNumber(string)返回一个Boolean类型数据,如果string是一个数值的,则是true,否则是false

致富文本框为空

string ls_null

setnull(ls_null)

mle_1.text=ls_null

致datawindow为空 dw_1.retrieve("Nothing")

实例一个UpDate()函数:

rc = dw_1.update()

if rc > 0 then

commit using sqlca;

if sqlca.sqlcode<0 then

messagebox("数据库出错","错误号="+string(sqlca.sqldbcode) + "原因为:" + sqlca.sqlerrtext)

halt close

end if

else

rollback using sqlca;

if sqlca.SQLCode < 0 then

messagebox("数据库出错","错误号=" + string(sqlca.SQLdbcode) + "原因为:" + sqlca.sqlerrtext)

halt close

end if

end if

continue的用法

integer A=0, B=0, Count

FOR Count = 1 to 100

A = A + 1

IF Count > 15 THEN CONTINUE

B = B + 1

NEXT

// Upon completion, a=100 and b=15.

DaysAfter(date1,date2)函数的用法:

This statement returns 4:

DaysAfter(2002-12-20, 2002-12-24)

This statement returns -4:

DaysAfter(2002-12-24, 2002-12-20)

This statement returns 0:

DaysAfter(2003-12-24, 2003-12-24)

This statement returns 5:

DaysAfter(2003-12-29, 2004-01-03)

Move(x,y)函数的使用方法:

objectname.Move(x,y) 相对于父类,把位置移动到了(x,y)处 .  例如:gb_box1.Move(150,200)

拼接paint_no的最小值,'_'和最大值的第五个字母之后的数据作为查询路径

string ls_path

choose case dwo.name

case 'b_open'

if DaysAfter(2017-05-17,date(getitemdatetime(getrow(),'pac_date')))<0 or isnull(getitemdatetime(getrow(),'pac_date')) then

ls_path = "\\s20\Bestway\Packaging(包装)\Final Packaging Assets(最终印刷品资料)\JPG\Customization(客专JPG)\不干胶\"+getitemstring(getrow(), 'guidang_no')

else

if dw_2.rowcount() = 1 then

ls_path = "\\S20\bz\生产交接资料\不干胶和贴签\"+getitemstring(getrow(), 'paint_no')

end if

if dw_2.rowcount()>1 then

ls_path = "\\S20\bz\生产交接资料\不干胶和贴签\"+getitemstring(getrow(),'compute_min')+'_'+mid(getitemstring(getrow(),'compute_max'),5)

end if

end if

// ls_path = "\\s20\Bestway\Packaging(包装)\Final Packaging Assets(最终印刷品资料)\JPG\Customization(客专JPG)\不干胶\"+getitemstring(getrow(), 'guidang_no')

// ls_path = "\\s20\BZ\客户包装JPG\不干胶\"+getitemstring(getrow(), 'guidang_no')

//      ls_path = "\\s20\BZ\不干胶汇总(Stickers Collection)\" + mid(getitemstring(getrow(), 'guidang_no'), 7,4) + "年不干胶\" +getitemstring(getrow(), 'guidang_no')

if fileexists(ls_path) = false then

messagebox("提示", "文件夹[" + getitemstring(getrow(), 'guidang_no') + "]不存在")

return

else

run("explorer " + ls_path + "\")

end if

end choose

isvalid的使用方法:

if not isvalid(message.powerobjectparm) then

messagebox("提示", "无效对象调用!")

close(this)

return

typeof的使用方法:(多使用于控件类型之中)

if typeof(message.powerobjectparm) <> DataWindow! then

messagebox("提示", "调用的对象不是DataWindow!")

close(this)

return

end if

end if

classname的使用方法: (多使用于变量之中)

string stringval

double dblval

date dateval

any anyval

anyval = myoleobject.application.cells[1,1].value

CHOOSE CASE ClassName(anyval)

CASE "string"

stringval = anyval

CASE "double"

dblval = anyval

CASE "datetime"

dateval = Date(anyval)

END CHOOSE

getactivesheet()的使用方法

mdiframewindow.GetActiveSheet( ) 返回的是一个MDI!类型的窗口.

Move的使用方法:(移动其坐标位置)

This statement changes the X and Y properties ofgb_box1to 150 and 200, respectively, and movesgb_box1to the new location:

gb_box1.Move(150, 200)

This statement moves the picturep_Train2next to the picturep_Train1:

P_Train2.Move(P_Train1.X + P_Train1.Width, &

P_Train1.Y)

//ldt_sap_check_date = today()//此时间为电脑上的时间

//invoice1.sap_check_date = getdate()//此时间为系统上的时间

exit退出循环

return退出程序

setpointer的使用方法

int i

pointer oldpointer

if dw_1.rowcount() <= 0 then return

oldpointer = SetPointer(HourGlass!)

if this.checked then

for i = 1 to dw_1.rowcount()

dw_1.setitem(i,'ck','1')

next

else

for i = 1 to dw_1.rowcount()

dw_1.setitem(i,'ck','0')

next

end if

setpointer(oldpointer)

//以下代码把焦点定位到第5行第3个字段：

dw_1.setfocus()//焦点切换到数据库窗口

dw_1.setrow(5)//切换当前行为第5行

dw_1.selectrow(0,false)//取消高亮显示

dw_1.selectrow(5,true)//高亮显示第5行

dw_1.setcolumn(3)//焦点移动到第3个字段

move(x,y)此函数修改的是控件的x,y坐标

resize(width,height)此函数修改的是控件的宽与高

                                                  match函数

SQL中的创建触发器--触发器例子

int value

value = GetFileSaveName("选择文件存放位置", "c:\", w_reg_main.inv_no+".XLS", "XLS", "Excel文件 (*.XLS),*.XLS")

if value<>1 then

   return 0

end if

lds_detail.saveas(ls_path, excel!, true)

模板导出

string ls_path, ls_file

int li_rc

ls_path = '快递导入模板'

li_rc = GetFileSaveName ( "Select File", ls_path, ls_file, "XLS", "Excel (*.xls),*.xls" , "C:\", 32770)

IF li_rc <> 1 Then return

integer li_FileNum

li_FileNum = FileCopy ("\\s03\共享文件\W.信息中心\个人文件夹\王灼安\BW_Express9快递\Bmp\快递导入模板.XLS" , ls_path, false)

if li_FileNum = -1 then

messagebox("提示", "复制文件错误！")

return

end if

Find

ls_key_id = dw_5.getitemstring(getrow(), 'key_id')

ll_row = dw_3.find("key_id='"+ls_key_id+"'", 1, dw_3.rowcount())

富文本框中去掉回车~n

string ls_mle_1, ls_string_before

integer li_pos

ls_mle_1 = trim(mle_1.text)

li_pos = pos(ls_mle_1, '~n')

do while li_pos > 0

ls_string_before = mid(ls_mle_1, li_pos + 1)

ls_mle_1 = trim(ls_string_before)

SetNull(li_pos)

li_pos = Pos(ls_mle_1, '~n')

loop

if isnull(trim(ls_mle_1)) or trim(ls_mle_1) = '' then

MessageBox('提示', '您输入的内容为空')

return

end if

点击回车跳转焦点

Send(handle,message#,lowword,long)

错误:

解答:这种错误查看下文件夹中是否包含代码中所描述的文件夹

dddw:可指 edit中的 DropDownDW 类型下的DataWindow       例如       dw_1.modify("mer_no.dddw.allowedit=no")