end if
if password<>copypassword then MessageBox(\系统提示\对不起!两次输入密码必须一致！否则无法注册!\ sle_8.setfocus() return end if
if realname=\
MessageBox(\系统提示\对不起!请输入真实姓名！否则无法注册!\sle_4.setfocus() return
end if
if number=\
MessageBox(\系统提示\对不起!请输入部门号！否则无法注册!\sle_5.setfocus()
return end if
select Dnumber into :number1
from department
where Dnumber=:number;
if sqlca.sqlcode<>0 then
messagebox(\警告\您输入的部门号无效!无此部门!\sle_5.text=\
sle_5.setfocus() return end if
//插入数据库表中
INSERT INTO consumer
(Uname,Upassword,Urealname,Usex,Dnumber,Uphone,Uaddress) VALUES(:name,:password,:realname,:sex,:number,:phone,:address) ; MessageBox(\系统提示\恭喜！注册成功！\
close(parent) close(parent)
取消按钮：close(w_enroll)
（6）制作管理员主菜单mainmenu,制作管理员主界面w_main，将mainmenu放入w_main中； 菜单：
主界面：
（7）制作管理员主菜单中录入菜单：制作录入数据窗口d_magazien, d_inputconsumer；制作管理员录入报刊界面w_inputmagazine，录入用户界面w_inputconsumer；将d_magazien,d_inputconsumer分别放入w_inputmagazine，w_inputconsumer中； 录入报刊代码及界面：（录入用户代码及界面类似，不再列出）
窗口代码：dw_1.settransobject(sqlca) dw_1.retrieve()
数据窗框控制框代码： if dwo.name=\ dw_1.update()//更新表数据，即将数据窗口控件中的数据保存到数据库中 if sqlca.sqlcode<>0 then
rollback;
messagebox(\操作非法！\无法保存！\
return else
commit;
messagebox(\系统提示\信息保存成功!\return
end if end if
if dwo.name=\ close(parent) end if
数据窗口：
界面：
（8）制作管理员主菜单中查询菜单：分别制作制作查询数据窗口d_consumer_ruery,
d_dept_query, d_magazine_query,分别制作管理员按用户查询界面w_consumer_ruery，按部门查询界面w_dept_query，按报刊查询界面w _magazine_query；将d_consumer_ruery, d_dept_query, d_magazine_query分别放入w_consumer_query，w_dept_query， w _magazine_query中;
以下仅列出按报刊查询代码和界面（按用户、部门查询类似，不再列出）; 窗口代码：dw_1.settransobject(sqlca) sle_1.setfocus() 检索按钮：string number,copynumber,name long ll_row
number=trim(sle_1.text)
if number=\系统提示\请输入报刊号!\end if
select Mnumber,Mname into :copynumber,:name from magazine where Mnumber=:number; if sqlca.sqlcode<>0 then
messagebox(\系统提示\无此报刊!\end if
sle_2.text=name
//窗口过滤
dw_1.setfilter(\
dw_1.filter()
ll_row=dw_1.retrieve()
if ll_row=0 then messagebox(\系统提示\无记录!\
end if
按报刊查询数据窗口：
按报刊查询界面：