PowerBuilder 風雲再起 - PowerBuilder 使用者家族

隨著資訊科技的進步，E Mail 已經是現在人每日生活所不可或缺的生活工具。在 PowerBuilder 當中要如何設計 E Mail 寄送的功能呢?
在 PowerBuilder 當中提供有 4 個專門用來處理 E Mail 的系統物件，其功能如下：  

MailSessioin：負責登入及建立 MAPI 的連線。
MailMessage：是system structure，屬性包含了 eMail 的相關資訊。
MailRecipient：是system structure，屬性包含了相關人員資訊 ( From、To、CC、BCC )。
MailFileDescription：是system structure，屬性包含了附件的相關資訊。

全形與半形應該只會發生在數字及大小寫英文字上
依據此理論可使用一個比較簡單的理論來實作,如下
1.問題:
   希望將 １２３大123４５寫６456ＡＢ字Ｃabc
   轉換成 １２３大１２３４５寫６４５６ＡＢ字Ｃａｂｃ
2.程式參考如下
string ls_char
string ls_result
string ls_string = '１２３大123４５寫６456ＡＢ字Ｃabc'
string ls_data1 = '０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ'
string ls_data2 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
integer i , li_pos
for i = 1 to len(ls_string)
   ls_char = mid( ls_string , i , 1 )
   if asc(ls_char) > 127 then
     ls_result += mid( ls_string , i , 2 )
     i ++
   else
     if (asc( ls_char ) >= 48 and asc( ls_char ) <= 57) or (asc( ls_char ) >= 65 and asc( ls_char ) <= 90) or (asc( ls_char ) >= 97 and asc( ls_char ) <= 122) then
     li_pos = pos( ls_data2 , ls_char )
     if li_pos > 0 then
     ls_result += mid( ls_data1 , (li_pos * 2 - 1) , 2 )
     else
     ls_result += mid( ls_string , i , 1 )
     end if
     else
     ls_result += mid( ls_string , i , 1 )
     end if
   end if
next
messagebox( 'Result' , ls_result )

說明:
以下在Client-Server下可正常使用,在Web Form 下,li_int <>0.
OLEObject myoleobject
myoleobject = CREATE OLEObject
li_int = myoleobject.ConnectToNewObject( "excel.application")
IF li_int <> 0 THEN
Messagebox("錯誤","無法連結至Excel!")
Destroy myoleobject
RETURN -1
END IF

當執行有輸入參數並且返回結果集的格式在編譯時無法確定的SQL語句時可以使用第四種格式。有時候我們執行一些SQL語句時，不僅帶有參數而且返回的結果集中有多少個欄位，每個欄位是什麼類型的資料都不確定，這時只能使用第四種格式來實現。

1語法
　　PREPARE DynamicStagingArea FROM SQLStatement{USING TransactionObject}；
　　DESCRIB DynamicStagingArea INTO DynamicDescriptionObject；
　　DECLARE cursor DYNAMIC CURSOR FOR DynamicDescriptionObject；
　　OPEN DYNAMIC cursor USING DESCRIPTOR DynamicDescriptionObject；
　　FETCH cursor USING DESCRIPTOR DynamicDescriptionObject；
　　CLOSE cursor；

其中：DynamicDescriptionObject是PowerBuilder提供的一個資料類型，在PowerBuilder中提供了一個DynamicDescriptionObject類型的全局資料類型SQLDA，用來存放動態SQL語句的輸入輸出參數。

當執行有輸入參數並且返回結果集的格式在編譯時可以確定的SQL語句時可以使用第三種格式。這種格式語法比較複雜，但要比前面兩種功能強，可以返回結果集。在返回結果時由於不知道滿足過濾條件的記錄到底有多少條，因此第三種格式通常採用游標的形式。

1語法
　　DECLARE cursor DYNAMIC CURSOR FOR DynamicStagingArea；
　　PREPARE DynamicStagingArea FROM SQLStatement{USING TransactionObject};
　　OPEN DYNAMIC cursor {USING Parameterlist};
　　FETCH cursor INTO VariableList;
　　CLOSE cursor;

 

2應用實例
　　將表base中的code欄位中間兩位為”01”的所有記錄讀取出來並分別進行相應處理。
　　STRING lsSQL,lsCode,lsName,lsFilter
　　LsFilter=”01”
　　LsSQL=”SELECT code，name FROM base WHERE substring(code，3，2)=?”
　　DECLARE cursor_base DYNAMIC CURSOR FOR SQLSA；
　　PREPARE SQLSA FROM：lsSQL；
　　OPEN DYNAMIC cursor_base USING:lsFilter;
　　FETCH cursor_base INTO:lsCode,:lsName;
　　DO WHILE SQLCA.SQLCODE=0
　　　．
　　　∥對滿足條件的記錄根據要求分別進行處理
　　　．
　　　FETCH cursor_base INTO:lsCode,:lsName;
　　LOOP
　　CLOSE cursor_base;

　　其中cursor是用戶所定義的游標的名字。
　　

當執行帶輸入參數但沒有返回結果集時的SQL語句可以採用第二種格式。該格式不僅可以動態地指定要執行的SQL語句，同時還可以動態地確定SQL語句所需要的參數值。

1語法
　　PREPARE DynamicStagingArea FROM SQLStatement{USING TransactionObject}；
　　EXECUTE DynamicstagingArea{USING Parameterlist}；

其中：DynamicstagingArea是PowerBuilder提供的一種資料類型。PowerBuilder本身提供了一個名字為SQLSA的DynamicstagingArea類型的總體變數，用於保存要執行的動態SQL語句資訊。
　　

2應用實例
　　刪除base表中的滿足一定條件的記錄。
　　STRING lsCode
　　lsCode=”320101”
　　PREPARE SQLSA FROM“DELETE base WHERE code=?”；
　　EXECUTE SQLSA USING：lsCode；

當執行沒有輸入參數並且沒有返回結果集的SQL語句時可以使用這種格式，這種格式使用比較簡單，其實現的操作也比較少。

1. 語法
   　　EXECUTE IMMEDIATE SQLStatement{USING TransactionObject}；

其中SQLStatement是要執行的SQL語句，可以直接用引號將要執行的SQL引起來用，或者用字串變數的形式提供SQL語句。通過使用字串變數可以在具體執行的時候才指定要執行什麼樣的SQL語句。TransactionObject是用戶所使用的事務物件，缺省為SQLCA。
　　

2應用實例
　　①建立一張資料庫表(base)，SQL語句的表述用引號引起來直接使用。

EXECUTE IMMEDIATE‘CREATE TABLE base(code char(6),name char(30))’USING SQLCA；

　　②執行對資料庫記錄的操作，在表base中插入一條記錄，SQL語句通過字串變數傳遞執行語句。

　　STRING lsSQL
　　LsSQL=”INSERT INTO TABLE base VALUES(’320201’，’市中區支行’)”
　　EXECUTE IMMEDIATE:lsSQL；

 

原作者:張繼榮　王舉國　譚琦　謝元呈
摘要：本文介紹了PowerBuilder開發工具中嵌入式SQL語句與動態SQL語句之間的區別和特點，並通過具體實例詳細說明了如何在PowerBuilder中使用動態SQL語句以及四種格式的動態SQL語句各自所能實現的功能。
一、前言
　　PowerBuilder是目前最流行的資料庫開發工具之一。中國農業銀行的“信貸綜合管理系統”和用於上報人民銀行的信貸登記諮詢系統的“介面程式”都是使用PowerBuilder開發的。PowerBuilder提供了在程式碼中加入嵌入式SQL語句的功能來支援對資料庫的訪問。但這種嵌入式SQL語句只能支持一些固定的標準的SQL語句，即在進行程式碼編譯處理時這些SQL語句必須是確定的，例如：對哪張表哪幾個欄位進行操作在程式碼中是固定寫明的，另外這種方式也不能執行像Creat Table,Creat Database等這些資料庫定義的語句(DDL)。因此這種嵌入式SQL語句在實際應用中有一定的局限性。為克服這種方式的局限性，可以使用PowerBuilder提供的動態SQL語句，這種對資料庫訪問的方式可以完成嵌入式SQL語句無法實現的功能。如建庫、建表這一類的資料庫定義語句(DDL)；其次，由於動態SQL語句允許在執行時才確定到底要執行怎樣的SQL語句，因此使用動態SQL語句可以使程式實現參數化設計，具有很大的靈活性和通用性。

integer li_ii
for li_ii = 1 to 10
cbx_(li_ii).checked = true
next
cbx_N 可以變成變數來代用嗎 還是只能用判斷式一個個勾 感謝

---

  

//統一編號檢查
integer li_v1, li_v2, li_v3, li_v4, li_v5, li_v6, li_v7, li_v8
string ls_v1, ls_v2, ls_v3, ls_v4, ls_v5, ls_v6, ls_v7, ls_v8
boolean lb_ret1, lb_ret2, lb_retval
//乘上權數
ls_v1=string(integer(mid(as_tid,1,1))*1,'00')
ls_v2=string(integer(mid(as_tid,2,1))*2,'00')
ls_v3=string(integer(mid(as_tid,3,1))*1,'00')
ls_v4=string(integer(mid(as_tid,4,1))*2,'00')
ls_v5=string(integer(mid(as_tid,5,1))*1,'00')
ls_v6=string(integer(mid(as_tid,6,1))*2,'00')
ls_v7=string(integer(mid(as_tid,7,1))*4,'00')
ls_v8=string(integer(mid(as_tid,8,1))*1,'00')
//所有乘積和
li_v1=integer(left(ls_v1,1))+integer(right(ls_v1,1))
li_v2=integer(left(ls_v2,1))+integer(right(ls_v2,1))
li_v3=integer(left(ls_v3,1))+integer(right(ls_v3,1))
li_v4=integer(left(ls_v4,1))+integer(right(ls_v4,1))
li_v5=integer(left(ls_v5,1))+integer(right(ls_v5,1))
li_v6=integer(left(ls_v6,1))+integer(right(ls_v6,1))
li_v7=integer(left(ls_v7,1))+integer(right(ls_v7,1))
li_v8=integer(left(ls_v8,1))+integer(right(ls_v8,1))
IF (mod(li_v1+li_v2+li_v3+li_v4+li_v5+li_v6+li_v7+li_v8,10)=0) THEN
lb_ret1=TRUE
ELSE
lb_ret1=FALSE
END IF
IF li_v7=10 THEN
IF (mod(li_v1+li_v2+li_v3+li_v4+li_v5+li_v6+1+li_v8,10)=0) THEN
lb_ret2=TRUE
ELSE
lb_ret2=FALSE
END IF
ELSE
lb_ret2=FALSE
END IF
lb_retval=lb_ret1 OR lb_ret2
return lb_retval

---