powerbuilder10,学生成绩数据库设计报告 - 图文(9)

integer ret

u_zxh18_pipe.dataobject=p_object

ret=u_zxh18_pipe.start(sourcetrans,desttrans,w_zxh18_pipe.dw_1) if ret<>1 then error(ret) else messagebox(\数据管道运行成功\操作成功\end if

sle_2.text=string (u_zxh18_pipe.rowsread) sle_1.text=string (u_zxh18_pipe.rowswritten) sle_3.text=string (u_zxh18_pipe.rowsinerror) 5)“开始”按钮的click事件 integer ret

ret=connectserver() if ret=-1 then

messagebox('提示',serverdb.sqlerrtext) end if

if ret <>0 then messagebox(\错误的信息提示===\不能连接服务器数据库！~r~n请询问系统管理员\ return end if

if rb_down.checked then startpipe(serverdb,sqlca,\else startpipe(sqlca,serverdb,\end if

disconnect using serverdb; if serverdb.sqlcode=-1 then messagebox('提示',serverdb.sqlerrtext) end if 6）“取消”按钮的click事件 int ret

ret =u_zxh18_pipe.cancel() if ret=1 then messagebox(\取消操作成功\终止管道运行\else messagebox(\取消操作失败\未能终止管道运行\end if 7）“返回”按钮的click事件 close (parent)

8） 窗口的close事件

41

盐城工学院经济与管理学院

destroy u_zxh18_pipe;

disconnect using serverdb; 23.修改密码

1）“提交修改”按钮的click事件 if sle_2.text<> sle_3.text then messagebox(\警告\两次输入的密码不一致，请重新输入！\ sle_3.text=\ sle_3.setfocus() else if sle_1.text<> ls_userpassword then messagebox(\警告\输入的原密码不正确，请重新输入！\ sle_1.text=\ sle_1.setfocus()

else string b b=sle_2.text update zxh_user set userpasswd=:b where userid=:ls_userid using sqlca; ls_userpassword=b messagebox(\提示信息\你的密码已经修改，请妥善保存！\

close (w_zxh18_mimaxiugai) end if end if 2）“取消”按钮的click事件 sle_1.text='' sle_2.text='' sle_3.text='' sle_1.setfocus()

42

盐城工学院经济与管理学院

24用户管理

1） 窗口的open事件

dw_1.settransobject(sqlca) 2）“显示”按钮的click事件 dw_1.retrieve() 3）“增加用户”按钮的click事件 string ls_user,ls_pwd,ls_limited ls_user=trim(sle_1.text) ls_pwd=trim(sle_2.text) ls_limited=trim(ddlb_1.text)

if ls_user='' or ls_pwd='' or ls_limited='' then messagebox('提示信息','用户名,密码或权限不能为空！') else

if ls_limited=\管理员\ string s1 select userid into :s1 from zxh_user where userid=:ls_user; if s1='' then

insert into zxh_user

values (:ls_user,:ls_pwd,'1');

messagebox('提示信息','新用户已增加！') else messagebox('提示信息','该用户名已经存在，请重新输入！') end if

43

盐城工学院经济与管理学院