sle_id.Text = ls_id sle_sex.Text = ls_sex sle_name.Text = ls_name
sle_birth.Text = string(ld_birth,\
10、编写窗口w_update的“保存”按钮clicked事件代码： string ls_id,ls_name,ls_sex date ld_birth
ls_id = Trim(sle_id.Text) ls_name = Trim(sle_name.Text) ls_sex = Trim(sle_sex.Text) ld_birth = Date(sle_birth.Text)
//用update语句向数据库中插入数据 update \ set
\\\
where \
//判断update语句是否执行成功 if SQLCA.SQLCode <>0 then else end if
11、运行调试程序
在学号编辑框输入“0008”后，单击“更新”按钮，将弹出学生信息更新窗口，修改部分
34
MessageBox(\提示\数据保存失败！\ROLLBACK;//若失败，则回滚
Return //若失败，则返回，不再继续执行程序
MessageBox(\提示\数据保存成功！\COMMIT;//若成功，则提交
信息后，单击“保存”按钮，系统将给出运行结果提示，如图所示：
五、注意事项：
1、注意update语句的写法。 2、注意编程规范。
3、学生严格遵守实验室的各项规章制度，配合和服从实验室人员管理。
六、练习项目及思考题：
1、如何使PowerBuilder应用程序和ASA数据库相连接？
35
实验项目十三 常见SQL语句之删除语句delete的应用
一、实验目的和要求：
（一）目的：
1、熟悉SQLCode属性值的几种常见场合及代码。 2、会使用delete语句。
（二）要求：
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属性分别为“查询”、“删除”、“更新”、“增加”、“关闭”。
36
窗口布局完毕后，Layout视图效果如图：
5、在系统树中双击打开应用对象，其open事件代码如下： //profile school,数据库连接参数设置 SQLCA.DBMS=\SQLCA.AutoCommit=false
SQLCA.DBParm=\connect; //执行连接数据库的操作 //判断连接动作是否成功 if SQLCA.SQLCode <>0 then end if
//若连接成功，则打开主窗口 open(w_sql)
6、编写窗口w_sql的“删除”按钮的clicked事件代码： string ls_id
ls_id = Trim(sle_id.Text)
//通过delete语句从数据库中删除记录 delete from \
where \
//判断delete语句是否执行成功 if SQLCA.SQLCode <>0 then
MessageBox(\提示\数据库连接失败！\Return //若失败，则返回，不再继续执行程序
37
else end if
MessageBox(\提示\数据删除失败！\ROLLBACK;//若失败，则回滚
Return //若失败，则返回，不再继续执行程序
MessageBox(\提示\数据删除成功！\COMMIT;//若成功，则提交
7、运行调试程序
在学号编辑框输入“0008”后，单击“删除”按钮，系统将给出运行结果提示，如图所示：
五、注意事项：
1、注意delete语句的写法。 2、注意编程规范。
3、学生严格遵守实验室的各项规章制度，配合和服从实验室人员管理。
六、练习项目及思考题：
1、如何使PowerBuilder应用程序和ASA数据库相连接？
38