（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
按报刊查询数据窗口：
按报刊查询界面：
(9) 制作管理员主菜单中统计菜单：制作统计数据窗口d_consumer_stat, d_query_dept,
d_stat_magazine;制作管理员按用户统计界面w_stat_consumer,按部门统计界面
w_stat_department，按报刊统计界面w_stat_magazine;将d_consumer_stat, d_query_dept, d_stat_magazine分别放入w_stat_consumer, w_stat_department，w_stat_magazine中；
以下仅列出按出按部门统计的代码和界面抓图(按用户、报刊统计类似，不再列出)； 代码：按部门统计代码： 窗口代码： long ll_row
dw_1.settransobject(sqlca) dw_1.setfilter(\dw_1.filter()
ll_row=dw_1.retrieve() if ll_row=0 then
messagebox(\系统提示\无记录!\return
end if
按部门统计数据窗口：
按部门统计界面：
