DOC《上海市高等教育自学考试》

再点击"OK"按钮,可把这条记录从数据库中删除. ⑥ 在单行编辑器中输入一个整数(譬如5)后,点击"UPDATE_SC"按钮, 可将sc表当前记录的成绩值增加这个整数值(5);

再点击"OK"按钮,可把这条记录的修改写入数据库中. ⑦ 在单行编辑器中输入一个学号(譬如s1)后,点击"QUERY_SNO"按钮, 可在s表、sc表和视图s_sc中显示该学生情况和其所学课程及平均成绩情况. ⑧ 点击"EXIT"按钮,返回(退出应用). 8.运行应用student. 9.据考场规定的方法,把C:\temp目录下的内容发送到服务器的存储器中.

(三)参考答案 (编写脚本) 1.在应用student.pbl的open事件中写脚本: SQLCA.DBMS="ODBC"数据库厂商的名称 SQLCA.AutoCommit=False //定义程序是手工提交事务 SQLCA.DBParm="ConnectString=′DSN=newdb′" //DBMS所需的额外信息 /*上述三条可从DB Profile对话框中的Preview选项的内容复制、粘贴得到*/ connect;

连接数据源newdb! open(w_main)打开主窗口w_main 2.在主窗口w_main的各个对象中书写脚本: ① 在主窗口w_main的open事件中写脚本: dw_1.settransobject(sqlca) //给数据窗口控件dw_1设置通讯区域sqlca dw_2.settransobject(sqlca) //给数据窗口控件dw_2设置通讯区域sqlca dw_3.settransobject(sqlca) //给数据窗口控件dw_3设置通讯区域sqlca dw_4.settransobject(sqlca) //给数据窗口控件dw_4设置通讯区域sqlca sle_1.setfocus() //将焦点设置到控件sle_1 ② 命令按钮BROWSE的Clicked事件: dw_1.retrieve(从数据库的s表中检索全部数据 dw_2.retrieve(从数据库的sc表中检索全部数据 dw_3.retrieve(从数据库的c表中检索全部数据 dw_4.retrieve(从视图s_sc中检索全部数据 ③ 命令按钮RESET的Clicked事件: string query dw_1.reset(清除数据窗口控件dw_1中的所有行 dw_2.reset(清除数据窗口控件dw_2中的所有行 dw_3.reset(清除数据窗口控件dw_3中的所有行 dw_4.reset(清除数据窗口控件dw_4中的所有行 query=置过滤条件为空 dw_1.setfilter(query) //修改dw_1的过滤条件 dw_1.filter(过滤数据 dw_2.setfilter(query) //修改dw_2的过滤条件 dw_2.filter(过滤数据 dw_4.setfilter(query) //修改dw_4的过滤条件 dw_4.filter(过滤数据 sle_1.text=置单行编辑器为空 sle_1.setfocus(将焦点设置到控件sle_1 ④ 命令按钮INSERT_SC的Clicked事件: dw_2.insertrow(0) //在sc表的尾部插入一行 dw_2.scrolltorow(dw_2.rowcount()) //把指定行设置为当前行 dw_2.setfocus(将焦点设置到控件dw_2 ⑤ 命令按钮DELETE_SC的Clicked事件: dw_2.deleterow(0) //从数据库的sc表中删除当前行 ⑥ 命令按钮UPDATE_SC的Clicked事件: int g1,g2 g1=integer(sle_1.text)取单行编辑器中的整数 g2=dw_2.GetItemNumber(dw_2.GetRow(),3) //取当前记录的原grade值dw_2.SetItem(dw_2.GetRow(),3,g2+g1) //在原grade值上增加g1值⑦命令按钮OK的Clicked事件: if dw_2.update()=1 then //将修改传送到数据库,成功否 commit;

传送成功,事务提交 else rollback;

传送不成功,事务回退 end if ⑧ 命令按钮QUERY_SNO的Clicked事件: string query dw_3.reset(清除数据窗口控件dw_3中的所有行 query="sno='"+sle_1.text+"'" //设置过滤条件 dw_1.setfilter(query) //修改dw_1的过滤条件 dw_1.filter(过滤数据 dw_1.retrieve(从s表中显示检索到的数据 dw_2.setfilter(query) //修改dw_2的过滤条件 dw_2.filter(过滤数据 dw_2.retrieve(从sc表中显示检索到的数据 dw_4.setfilter(query) //修改dw_4的过滤条件 dw_4.filter(过滤数据 dw_4.retrieve(从视图s_sc中显示检索到的数据 sle_1.setfocus(将焦点设置到控件sle_1 ⑨ 命令按钮EXIT的Clicked事件: close(parent)关闭按钮所在的窗口