樣題四
一、界面設計

創(chuàng)建有關對象：
  新建Workspace;
創(chuàng)建應用cc1；
創(chuàng)建窗口w_main；其text為“選擇課程”.
在窗口中創(chuàng)建控件如上所示。
有關腳本：
  應用：open(w_main)
按鈕“確定”的click事件的代碼如下：
string xxx
xxx=""
if cbx_1.checked=true then
 xxx=xxx+"軟件開發(fā)工具 "
end if
if cbx_2.checked=true then
 xxx=xxx+"信息系統(tǒng)開發(fā) "
end if
if cbx_3.checked=true then
 xxx=xxx+"信息資源管理 "
end if
messagebox("確認","您的課程有："+xxx)
按鈕“結(jié)束”的click代碼為：close(w_main)
二、數(shù)據(jù)庫操作
 
1，建立Visual Foxpro數(shù)據(jù)庫
在Windows環(huán)境下啟動Visual Foxpro系統(tǒng)，建立一個名字為xsk的數(shù)據(jù)庫，其中包含名字為student的數(shù)據(jù)表。并輸入適當條數(shù)的記錄。
2，建立ODBC數(shù)據(jù)源
  啟動Powerbuilder系統(tǒng)，選擇工具欄中的ODBC按鈕，創(chuàng)建ODBC連接：
單擊工具欄中的ODBC按鈕，系統(tǒng)啟動“config ODBC”對話框，選擇其中的“Microsoft VFP Driver”驅(qū)動程序后單擊“creat”,進而啟動“ODBC Visual Foxpro安裝”對話框。
在“ODBC Visual Foxpro安裝”對話框中輸入數(shù)據(jù)源：xstest,選取剛剛建立的VFP數(shù)據(jù)庫xsk,然后“確定”。
3，連接數(shù)據(jù)庫
  選擇工具欄中的“DB Profile”按鈕，啟動“Database Profiles”對話框；
  展開ODBC項目,可以看見xstest數(shù)據(jù)源。選中xstest數(shù)據(jù)源，然后選擇“Connect”,建立與xstest數(shù)據(jù)源的連接。
4，創(chuàng)建有關對象：
  新建Workspace;
創(chuàng)建應用ce3。
創(chuàng)建窗口w_main；其text為“應用ce3”.
在窗口中創(chuàng)建控件如上所示。（一個數(shù)據(jù)窗口控件，一個標簽，一個文本框，兩個按鈕）。
創(chuàng)建數(shù)據(jù)窗口，名稱為dw_1, 數(shù)據(jù)窗口以表格形式顯示數(shù)據(jù)表student中的內(nèi)容。然后此窗口與數(shù)據(jù)窗口控件相聯(lián)系。
有關腳本：
應用：
// Profile Xstest
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=xstest'"
  connect using SQLCA;
  if sqlca.sqlcode<>0 then
 messagebox("數(shù)據(jù)庫連接錯誤！","無法建立到數(shù)據(jù)庫的連接！")
 return
  end if
  open(w_main)
窗口腳本：
  dw_1.SetTransObject(SQLCA)
  dw_1.retrieve()
按鈕“查詢”
  dw_1.setfilter("Xm like '"+sle_1.text+"%'")
  dw_1.filter()
  dw_1.setFocus()
按鈕“瀏覽”
  dw_1.setfilter("xm like '%'")
  dw_1.filter()
  dw_1.setFocus()
按鈕“結(jié)束”
  close(w_main)