样题四
一、界面设计：（50分）
在指定文件夹D:\bb中创建应用程序库b1.pbl，并在其中开发应用b1，使其能在PowerBuilder下运行。运行该应用时会打开如下窗口（左）：

用户在复选框中选择若干个课程，并单击“确定”按钮时，就会弹出“确认”信息框，显示“您的课程有： *** *** ***”；单击按钮“退出”时，就会退出该应用程序。
二、数据库操作（50分）
在指定文件夹D:\ce中创建应用程序库ctest3.pbl，并在其中开发“应用ce3”，使其能在PowerBuilder下运行。运行该应用时会打开如下窗口（包括一个数据窗口控件和命令按钮“浏览”，“查询”，“结束”）：
 
要求：（1）用户为本地磁盘上的Visual Foxpro数据库文件xsk（学生库）建立ODBC数据源，数据源名称为：xstest。
(2) 在PowerBuilder中建立到xstest的连接。当用户单击按钮“浏览”时，数据窗口中就会显示xsk.mdb中表student中的全部数据（以表格形式显示，并可用滚动条查看）。
  （3）当用户在文本框中输入一个学生姓名，并按“查询”按钮时，系统将显示表student表中姓名取值为输入值的所有记录。
 （4）单击“结束”时系统将关闭窗口。
提示：xsk可自行利用VFP创建。
样题参考答案
样题一
一、界面设计
 
创建有关对象：
  新建Workspace;
创建应用ce1；
创建窗口w_main；其text为“应用ce1”.
在窗口中创建控件如上所示。
有关脚本：
  应用：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("提示","数据非法！")
end if
  除法: if real(sle_2.text)<>0 then
  sle_3.text=string(real(sle_1.text)/real(sle_2.text))
else
messagebox("提示","0不能做为除数！")
end if
其他按钮的click代码与上面基本相同。
  清除:  sle_1.text=""
sle_2.text=""
sle_3.text=""
  结束: close(w_main)

二、数据库操作
 

创建有关对象：
  新建Workspace;
创建应用ce2。
创建窗口w_main；其text为“应用aa2”.
在窗口中创建控件如上所示。（一个数据窗口控件，两个按钮）。
创建数据窗口，名称为dw_1, 数据窗口以表格形式显示数据表printer中的内容。然后此窗口与数据窗口控件相联系。
有关脚本：
应用(相关代码可从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("数据库连接错误！","无法建立到数据库的连接！")
 return
  end if

[1]