(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
按部门统计数据窗口：
按部门统计界面：
（10）制作管理员主菜单中系统维护菜单中的信息维护菜单：制作信息维护数据窗口
d_maintenance_consumer，d_maintenance_dept，d_maintenance_magazine，
d_maintenance_subscribe;制作管理员用户信息维护界面w_maintenance_consumer，
部门信息维护界面w _maintenance_dept，报刊信息维护界面 w _maintenance_magazine，订阅信息维护界面w _maintenance_subscribe；将d_maintenance_consumer，d_maintenance_dept，d_maintenance_magazine，d_maintenance_subscribe分别放入w_maintenance_consumer，w _maintenance_dept，w _maintenance_magazine，w _maintenance_subscribe中；
以下仅列出订阅信息维护代码和界面抓图（其他信息维护类似，不再列出） 订阅信息维护代码：
窗口代码：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 数据窗口：
界面：
（11）制作管理员主菜单中更改登录菜单： int b_select
b_select=messagebox(\系统提示\确认更改？\if b_select=1 then
open(w_login)//回到登录窗口 close(w_main) end if
（12）制作用户主菜单m_consumer_menu；制作用户主界面w_consumermain,将m_consumer_menu放入其中 用户主菜单：