书店管理系统（powerbuilder和sql后台数据库）

//窗口czygl_win的组合框ddlb_1的selectionchanged()事件，文本框sle_1获得焦点 //文本框sle_1获得焦点 sle_1.setfocus() string czy1,czy2,czybh2,czyjb2,pwd2 czy2="aaa" czybh2="0001" czyjb2="1" pwd2="aaa" select 操作员姓名 into :czy1 from 操作员管理; if czy1="" then insert into 操作员管理(操作员编号,操作员级别,操作员姓名,操作员密码) values(:czybh2,:czyjb2,:czy2,:pwd2); else end if string czy //利用游标检索数据 declare cursor1 cursor for select distinct 操作员姓名 from 操作员管理; //打开游标 open cursor1; //执行游标赋值给相应的变量 fetch cursor1 into :czy; //检索成功进行循环 do while sqlca.sqlcode=0 ddlb_1.additem(czy) fetch cursor1 into :czy; loop //关闭游标 close cursor1; cb_1.enabled=false //窗口czygl_win的“增删用户”按钮的clicked()事件，打开窗口zsyh_win,并关闭当前窗口 open(zsyh_win) close(parent) //窗口zsyh_win的closequery()事件，在当前窗口关闭后，打开窗口czygl_win open(czygl_win) //窗口zsyh_win的“添加”按钮的clicked()事件，添加新用户,并自动生成操作员编号 int czybh,a //得到记录总数 select count(*) into :czybh from 操作员管理; //记录总数加1给a a=czybh+1 int czybh4 //利用游标检索编号 declare cursor1 cursor for select 操作员编号 from 操作员管理; //打开游标 open cursor1; //执行游标赋值给变量czybh4 fetch cursor1 into :czybh4; //如果检索成功进行循环 do while sqlca.sqlcode=0 //若czybh4等于a，则把a加1赋值给a if czybh4=a then a=a+1 end if fetch cursor1 into :czybh4; loop //关闭游标 close cursor1; //把a 转换成字符型赋值给掩码框 em_1.text=string(a) sle_1.text=string(2) em_1.enabled=false sle_1.enabled=false cb_5.enabled=false cb_6.enabled=true sle_2.text="" sle_3.text="" //窗口zsyh_win的“保存”按钮的clicked()事件，保存新添加的用户信息 string czy,pwd,czybh,czyjb1 czybh=trim(em_1.text) czy=trim(sle_2.text) czyjb1=trim(sle_1.text) pwd=trim(sle_3.text) if czy="" or pwd="" then //判断操作员和密码是否为空，若为空提示保存失败 messagebox("","保存失败!") else //若操作员和密码不为空提示保存成功 insert into 操作员管理 (操作员编号,操作员级别,操作员姓名,操作员密码) values (:czybh,:czyjb1,:czy,:pwd); messagebox("","保存成功!") cb_6.enabled=false cb_5.enabled=true sle_2.text="" sle_3.text="" end if dw_1.settransobject(sqlca) dw_1.retrieve() //窗口zsyh_win的“取消”按钮的clicked()事件，取消尚未保存的操作 em_1.text="" sle_1.text="" sle_2.text="" sle_3.text="" cb_5.enabled=true cb_6.enabled=false //窗口zsyh_win的“修改”按钮的clicked()事件，保存对操作员信息的修改 string czybh,czyjb,czy,pwd czybh=trim(em_1.text) czyjb=trim(sle_1.text) czy=trim(sle_2.text) pwd=trim(sle_3.text) //修改操作员信息 update 操作员管理 set 操作员编号=:czybh,操作员级别=:czyjb,操作员姓名=:czy,操作员密码=:pwd where 操作员编号=:czybh; messagebox("","修改成功!") dw_1.settransobject(sqlca) dw_1.retrieve() //窗口zsyh_win的“删除”按钮的clicked()事件，删除当前记录 string czybh czybh=trim(em_1.text) int bh bh=integer(czybh) //删除记录 delete from 操作员管理 where 操作员编号=:czybh; messagebox("","删除成功!") //窗口zsyh_win的“退出”按钮的clicked()事件，关闭当前窗口 close(parent)