志翔科技有限公司後勤網

後勤等待處理訊息站,請各位成員努力消除待工區
 
首頁首頁  會員註冊會員註冊  登入登入  

分享 | 
 

 自訂視窗呼叫系統內含的輔助查詢窗用法

向下 
發表人內容
flying
Admin
avatar

文章數 : 207
注冊日期 : 2008-11-11

發表主題: 自訂視窗呼叫系統內含的輔助查詢窗用法   周五 11月 28, 2008 1:59 am

底下為自訂視窗內設計指定button紐以便開啟輔助查詢窗的PB程式碼

1.傳回單欄位
設計上是希望直接點選某指定button後,系統能開窗,並在點選輔助窗某項值後,系統自動將所點選回傳值填在 [single edit]輸入區.

int li_open

//lstr_choose_no為系統預設的 PB 的 structure 變數
lstr_choose_no.mstring=trim(sle_purno.text)    //開窗以前使用者先行輸入的值,會被填入輔助窗 [邊打邊找] 當先行輸入的值
lstr_choose_no.asneed="1"             //是否retrieve as needed
lstr_choose_no.return_col="purno"        //輔助窗內含datawindow回傳之欄位名稱
lstr_choose_no.colname=""

//.dwoname可以為資料視窗名稱或SQL select子句,此例為傳入Select子句
lstr_choose_no.dwoname="SELECT purno,vendno FROM pomast where rstat=' ' and postat<>'Y' and recovery<>'N' and puramt>recamt order by purno "

//開窗應放的左上角座標
lstr_choose_no.openy=sle_purno.y+parent.y
lstr_choose_no.openx=sle_purno.x+parent.x


w_choose_id_nonedit lwin2  //輔助視窗變數
li_open=openwithparm(lwin2,lstr_choose_no)   //開啟輔助窗
lstr_choose_no=message.powerobjectparm    //接收回傳值,一樣以structure傳回
sle_purno.text=lstr_choose_no.mstring //structure內含的mstring為實際回傳字串放入 [singleedit]sle_purno中

待續..
回頂端 向下
檢視會員個人資料 http://idon.666forum.net
 
自訂視窗呼叫系統內含的輔助查詢窗用法
回頂端 
1頁(共1頁)

這個論壇的權限:無法 在這個版面回復文章
志翔科技有限公司後勤網 :: 系統主題 :: 系統架構-
前往: