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
盐城工学院经济与管理学院