报刊订阅管理系统步骤+代码（PowerBuilder实现） - 图文

（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

按部门统计数据窗口：

按部门统计界面：