窗口布局完毕后，Layout视图效果如图：
5、新建一个窗口对象，修改其title属性为“查询”，在“WindowType”下拉列表框中选择“Popup!”，保存时命名为w_query。 6、在窗口w_query中放置控件如下：
四个静态文本控件，修改其text属性为：“学号”、“姓名”、“性别”、“出生日期”； 四个单行编辑框控件，修改其name属性为：“sle_id”、“sle_name”、“sle_sex”、“sle_birth”，删除Text属性的默认值“none”；
一个按钮控件，修改其text属性为“关闭”。 窗口布局完毕后，Layout视图效果如图：
7、在系统树中双击打开应用对象，其open事件代码如下： //profile school,数据库连接参数设置 SQLCA.DBMS=\SQLCA.AutoCommit=false
SQLCA.DBParm=\connect; //执行连接数据库的操作 //判断连接动作是否成功
24
if SQLCA.SQLCode <>0 then end if
//若连接成功，则打开主窗口 open(w_sql)
8、编写窗口w_sql的“查询”按钮的clicked事件代码： string ls_id
ls_id = Trim(sle_id.Text)
OpenWithParm(w_query,ls_id) //向w_query窗口传递ls_id参数 9、编写窗口w_query的open事件代码： string ls_id,ls_name,ls_sex date ld_birth
ls_id = Message.StringParm
//Message.StringParm获得传递过来的字符串值
MessageBox(\提示\数据库连接失败！\Return //若失败，则返回，不再继续执行程序
//用select语句从student表中查询对应学号的学生信息，并将记录中的值写入变量 select \into :ls_name, :ls_sex, :ld_birth from \
where \if SQLCA.SQLCode = 100 then
MessageBox(\提示\数据库中没有该记录！\Return
elseif SQLCA.SQLCode <>0 then end if
//将变量赋值给相应文本控件、编辑框控件 sle_id.Text = ls_id
25
MessageBox(\提示\数据库连接错误！\Return
sle_sex.Text = ls_sex sle_name.Text = ls_name
sle_birth.Text = string(ld_birth,\
10、编写窗口w_sql和w_query的“关闭”按钮clicked事件代码： Close(parent)
11、运行调试程序
在学号编辑框输入“0001”后，单击“查询”按钮，将弹出学生信息显示窗口，如图所示：
五、注意事项：
1、注意select语句的写法。 2、注意编程规范。
3、学生严格遵守实验室的各项规章制度，配合和服从实验室人员管理。
六、练习项目及思考题：
1、如何使PowerBuilder应用程序和ASA数据库相连接？
26
实验项目十一 常见SQL语句之插入语句insert的应用
一、实验目的和要求：
（一）目的：
1、熟悉SQLCode属性值的几种常见场合及代码。 2、会使用insert语句。
（二）要求：
1、认真做好实验前的各项准备工作，熟悉实验内容和机器操作流程。 2、遵守实验室规章制度和实验课堂教学纪律。 3、认真完成实验任务，填写实验报告。
二、实验时数：2学时 三、实验器材：
PC机一台、PowerBuilder 11.5及PowerBuilder 11.5自带的SQL Anywhere 11.0（即ASA 11.0）数据库
四、实验内容或步骤：
（一）内容：用户输入某个学生的详细信息，将学生的详细信息存入数据库中。 （二）步骤：
1、先建立好PowerBuilder基本框架。
2、新建ASA数据库“school”，在数据库“school”中建立表student，表结构如下图。
其中，“student_id”是主键。
3、新建一个窗口对象，修改其title属性为“SQL练习”，保存时命名为w_sql。 4、在窗口w_sql中放置控件如下：
1个静态文本控件，修改其text属性为“学号”；
1个单行编辑框控件，修改其name属性为“sle_id”，删除Text属性的默认值“none”； 5个按钮控件，修改其text属性分别为“查询”、“删除”、“更新”、“增加”、“关闭”。 窗口布局完毕后，Layout视图效果如图：
27
5、新建一个窗口对象，修改其title属性为“增加”，在“WindowType”下拉列表框中选择“Popup!”，保存时命名为w_add。 6、在窗口w_add中放置控件如下：
四个静态文本控件，修改其text属性为：“学号”、“姓名”、“性别”、“出生日期”； 四个单行编辑框控件，修改其name属性为：“sle_id”、“sle_name”、“sle_sex”、“sle_birth”，删除Text属性的默认值“none”；
两个按钮控件，修改其text属性为“保存”、“关闭”。 窗口布局完毕后，Layout视图效果如图：
7、在系统树中双击打开应用对象，其open事件代码如下： //profile school,数据库连接参数设置 SQLCA.DBMS=\SQLCA.AutoCommit=false
SQLCA.DBParm=\connect; //执行连接数据库的操作 //判断连接动作是否成功 if SQLCA.SQLCode <>0 then
28