樣題四
一、界面設(shè)計(jì)：（50分）
在指定文件夾D:bb中創(chuàng)建應(yīng)用程序庫b1.pbl，并在其中開發(fā)應(yīng)用b1，使其能在PowerBuilder下運(yùn)行。運(yùn)行該應(yīng)用時(shí)會打開如下窗口（左）：

用戶在復(fù)選框中選擇若干個(gè)課程，并單擊“確定”按鈕時(shí)，就會彈出“確認(rèn)”信息框，顯示“您的課程有： *** *** ***”；單擊按鈕“退出”時(shí)，就會退出該應(yīng)用程序。
二、數(shù)據(jù)庫操作（50分）
在指定文件夾D:ce中創(chuàng)建應(yīng)用程序庫ctest3.pbl，并在其中開發(fā)“應(yīng)用ce3”，使其能在PowerBuilder下運(yùn)行。運(yùn)行該應(yīng)用時(shí)會打開如下窗口（包括一個(gè)數(shù)據(jù)窗口控件和命令按鈕“瀏覽”，“查詢”，“結(jié)束”）：
 
要求：（1）用戶為本地磁盤上的Visual Foxpro數(shù)據(jù)庫文件xsk（學(xué)生庫）建立ODBC數(shù)據(jù)源，數(shù)據(jù)源名稱為：xstest。
(2) 在PowerBuilder中建立到xstest的連接。當(dāng)用戶單擊按鈕“瀏覽”時(shí)，數(shù)據(jù)窗口中就會顯示xsk.mdb中表student中的全部數(shù)據(jù)（以表格形式顯示，并可用滾動條查看）。
  （3）當(dāng)用戶在文本框中輸入一個(gè)學(xué)生姓名，并按“查詢”按鈕時(shí)，系統(tǒng)將顯示表student表中姓名取值為輸入值的所有記錄。
 （4）單擊“結(jié)束”時(shí)系統(tǒng)將關(guān)閉窗口。
提示：xsk可自行利用VFP創(chuàng)建。
樣題參考答案
樣題一
一、界面設(shè)計(jì)
 
創(chuàng)建有關(guān)對象：
  新建Workspace;
創(chuàng)建應(yīng)用ce1；
創(chuàng)建窗口w_main；其text為“應(yīng)用ce1”.
在窗口中創(chuàng)建控件如上所示。
有關(guān)腳本：
  應(yīng)用：open(w_main)
按鈕click事件的代碼：
  減法: if real(sle_2.text)>＝0 then
sle_3.text=string(real(sle_1.text)-real(sle_2.text))
else
  messagebox("提示","數(shù)據(jù)非法！")
end if
  除法: if real(sle_2.text)<>0 then
  sle_3.text=string(real(sle_1.text)/real(sle_2.text))
else
messagebox("提示","0不能做為除數(shù)！")
end if
其他按鈕的click代碼與上面基本相同。
  清除:  sle_1.text=""
sle_2.text=""
sle_3.text=""
  結(jié)束: close(w_main)

二、數(shù)據(jù)庫操作
 

創(chuàng)建有關(guān)對象：
  新建Workspace;
創(chuàng)建應(yīng)用ce2。
創(chuàng)建窗口w_main；其text為“應(yīng)用aa2”.
在窗口中創(chuàng)建控件如上所示。（一個(gè)數(shù)據(jù)窗口控件，兩個(gè)按鈕）。
創(chuàng)建數(shù)據(jù)窗口，名稱為dw_1, 數(shù)據(jù)窗口以表格形式顯示數(shù)據(jù)表printer中的內(nèi)容。然后此窗口與數(shù)據(jù)窗口控件相聯(lián)系。
有關(guān)腳本：
應(yīng)用(相關(guān)代碼可從ODBC編輯器的Preview中粘貼)：
  SQLCA.DBMS = "ODBC"
  SQLCA.Database = "Powersoft Demo DB V6"
  SQLCA.AutoCommit = False
  SQLCA.DBParm = "ConnectString='DSN=Powersoft Demo DB V6;UID=dba;PWD=sql'"
  connect using SQLCA;
  if sqlca.sqlcode<>0 then
 messagebox("數(shù)據(jù)庫連接錯(cuò)誤！","無法建立到數(shù)據(jù)庫的連接！")
 return
  end if