《软件开发工具》实践环节考核指导三

二、数据库操作
 
创建有关对象：
  新建Workspace;
①创建应用ce3。
②创建窗口w_main；其text为“应用ce3”.
③在窗口中创建控件如上所示。（一个数据窗口控件，一个标签，一个文本框，两个按钮）。
④创建数据窗口，名称为dw_1, 数据窗口的DataSource用SQL Query，显示方式用表格形式。在其Where标签中设计查询条件，“city=”，其value可定义为宿主变量  ：xxx，即其值由参数传递得到。然后此窗口与数据窗口控件相联系。
  参数xxx可由DataSource窗口的菜单Design/Retrieval Arguments指定。其具体数值由语句retrieve(参数)传递而来。
  说明：如果已经完成创建数据窗口，可通过修改数据窗口完成上面任务：进入数据窗口界面，通过DataWindows的Design/DataSource菜单打开数据源窗口，在其Where标签中设计查询条件。
有关脚本：
应用：
  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
  open(w_main)
按钮“查询”
  string xxx
  xxx=sle_2.text+"%"
  dw_2.SetTransObject(SQLCA)
  dw_2.retrieve(xxx)
按钮“浏览”：
  string xxx
  xxx="%"
  dw_2.SetTransObject(SQLCA)
  dw_2.retrieve(xxx)
按钮“结束”
close(w_main)

样题三
一、界面设计

创建有关对象：
  新建Workspace;
创建应用cc1；
创建窗口w_main；其text为“学历”.
在窗口中创建控件如上所示。
有关脚本：
  应用：open(w_main)
按钮“确定”的click事件的代码如下：
string xxx
xxx=""
if rb_1.checked=true then
 xxx="研究生"
end if
if rb_2.checked=true then
 xxx="大学本科"
end if
if rb_3.checked=true then
 xxx="大学专科"
end if
messagebox("确认","您的学历是："+xxx)
按钮“结束”的click代码为：close(w_main)
二、数据库操作
 
创建有关对象：
  新建Workspace;
创建应用ce3。
创建窗口w_main；其text为“应用ce3”.
在窗口中创建控件如上所示。（一个数据窗口控件，一个标签，一个文本框，两个按钮）。
创建数据窗口，名称为dw_1, 数据窗口以表格形式显示数据表Contact中的内容。然后此窗口与数据窗口控件相联系。
有关脚本：
应用：
  SQLCA.DBMS = "ODBC"
  SQLCA.Database = "Powersoft Demo DB V6"
  SQLCA.AutoCommit = False
  SQLCA.DBParm = "ConnectString='DSN=Powersoft Demo DB V6;UID=dba;P

[1]