上星期使用PB12測試了WEB開發網頁的功能,下面把我測試的做法跟心得分享一下:
測試工具:使用Sybase的PB12測試版光諜 , 再去Sybase網站下載PoweBuilder 12.1 (6639)補丁更新版本.
1.啟動PowerBuilder Classic 12
2.首先建立一個新的工作區後,再Target處選擇.Net Web Forms 模式
這裡我是建立一個名字為 EWeb的 Target 過程中都使用預設值一直按Next即可.
3.建立PB Object
將此window命名為w_main存檔
4.開始設計一簡易的window畫面跟按鈕
在其上建一個dw_1的datawindow及一個cb_1的按鈕
5.在window裡頭沒有寫上多少行程式(只有在dw視窗大小控制跟查詢按鈕上)
在w_main window的 resize event 寫上以下程式碼:
long ll_width, ll_height
ll_width = this.WorkspaceWidth()
ll_height = this.WorkspaceHeight()
//dw_1大小位置
dw_1.setredraw(false)
dw_1.move(439, 232)
dw_1.resize(ll_width - 800 , ll_height - 200)
dw_1.setredraw(true)
在查詢按鈕cb_1的 clicked event寫上以下程式碼
dw_1.SetTransObject(SQLCA)
dw_1.retrieve()
上面都處理好後將w_main存檔
6.接下來我們要做的是資料庫的連結 , 這邊我使用SQL Server上的附贈的NorthWind , 先在
DB Profile上建好此DB連結 , 以利之後dw設計 , dw_1使用的Table是NorthWind中的
Customers表單.
將做好的datawindow存成d_customer物件.
搭配dw_1做好後之完整畫面.
7.最後 , 我們處理程式runtime時如何連接資料庫 , 一般傳統PB是使用ini文件的方式來連接上
資料庫 , 在這邊我先將這些連接資料庫的語法固定寫在Application物件的 open event內
( 傳統ini文件的方式 , 我再下一篇再介紹如何使用 ) .
在Application物件的open event寫上以下程式碼
SQLCA.DBMS = "OLE DB"
SQLCA.LogPass = "123456"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PROVIDER='SQLOLEDB',DATASOURCE='MIS-SIMON',PROVIDERSTRING='database=NorthWind'"
SQLCA.LOCK="RC"
CONNECT USING SQLCA;
if SQLCA.SQLCode = -1 then
MessageBox("資料庫連結錯誤", SQLCA.SQLErrText)
else
OPEN(w_main)
end if
注意 , LogId , Logpass及DATASOURCE請寫你自己的 , 不要都照抄 , 以免等下部署失敗 , 呵呵.
8.開始部署我們的小程式至IIS上
執行Run ewwb
過程都使用Next預設 , 無需變動.
開始deploy 物件.
9.部署完畢之後 , 可以直接執行工具列右上角之Run eweb看看我們的實驗成果.
10.如果你覺得這樣子的畫面怪怪的 , 不太像WEB那你可以打開IE輸入下這一網址
http://localhost/eweb/default.aspx
那看到的就會是以下的畫面:
有興趣的朋友可以自己試玩一下PB12的WEB開發功能 .
留言列表
