请问那位仁兄有用powerbuilder做好的具有查删改功能的数据库模板！急用！

下面是我做过的程序中的一段添加工资奖励的代码，以为不知道呢的具体情况，不知是否有用，先参考一下吧、

string jllx,jltast
long jlmuch
date today,jldate
today=today()
if sle_1.text="" then
messagebox("提示","必须输入员工ID项")
else

select jl_lx,jl_much,jl_tast
into :jllx,:jlmuch,:jltast
from employee_jiangl
where e_id=:sle_1.text;//数据表中原来的值
if asc(jllx)>asc(sle_2.text) then
jllx=sle_2.text
end if//更新级别
jlmuch=(jlmuch+long(sle_5.text))//更新金额
jltast=jltast+sle_4.text//更新备注
update employee_jiangl
set jl_lx=:jllx,jl_much=:jlmuch,jl_tast=:jltast,jl_date=:today
where e_id=:sle_1.text;//更新数据表
end if
commit;
w_jiangl.dw_1.retrieve()

messagebox("提示","输入成功！")
sle_1.text=""
sle_2.text=""

sle_4.text=""
sle_5.text=""