mzgl.mpr

门诊收费管理系统

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MZGL.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD _1C80LQS38 OF _MSYSMENU PROMPT '日常工作(\<R)' COLOR SCHEME 3 KEY ALT+R , ''
 DEFINE PAD _1C80LQS39 OF _MSYSMENU PROMPT '查询(\<C)' COLOR SCHEME 3 KEY ALT+C , ''
 DEFINE PAD _1C80LQS3A OF _MSYSMENU PROMPT '报表(\<R)' SKIP FOR  .NOT. '4' $ M.GS_RIGHTS  ;
      COLOR SCHEME 3 KEY ALT+R , ''
 DEFINE PAD WINDOW OF _MSYSMENU PROMPT '窗口(\<W)' COLOR SCHEME 3 KEY ALT+W , ''
 DEFINE PAD _1C80LQS3B OF _MSYSMENU PROMPT '系统(\<S)' COLOR SCHEME 3 KEY ALT+S , ''
 ON PAD _1C80LQS38 OF _MSYSMENU ACTIVATE POPUP 日常工作R
 ON PAD _1C80LQS39 OF _MSYSMENU ACTIVATE POPUP 查询C
 ON PAD _1C80LQS3A OF _MSYSMENU ACTIVATE POPUP 报表R
 ON PAD WINDOW OF _MSYSMENU ACTIVATE POPUP WINDOW
 ON PAD _1C80LQS3B OF _MSYSMENU ACTIVATE POPUP 系统S
 DEFINE POPUP 日常工作R COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 日常工作R PROMPT '\<01 开票划价收费(\<K)' SKIP FOR  ;
       .NOT. '1' $ M.GS_RIGHTS
 DEFINE BAR 2 OF 日常工作R PROMPT '\<02 退发票(\<T)' SKIP FOR  .NOT. '2' $ M.GS_RIGHTS
 DEFINE BAR 3 OF 日常工作R PROMPT '\<03 重打发票(\<R)' SKIP FOR  .NOT. '3' $ M.GS_RIGHTS
 DEFINE BAR 4 OF 日常工作R PROMPT '\-'
 DEFINE BAR 5 OF 日常工作R PROMPT '\<04 收款员收款报表...'
 DEFINE BAR 6 OF 日常工作R PROMPT '\-'
 DEFINE BAR 8 OF 日常工作R PROMPT '\<05 收款员退票处方明细表'
 DEFINE BAR 9 OF 日常工作R PROMPT '\<06 分类处方明细'
 ON SELECTION BAR 1 OF 日常工作R do_form('kp')
 ON SELECTION BAR 2 OF 日常工作R do_form('tp')
 ON SELECTION BAR 3 OF 日常工作R do_form('cdfp')
 ON SELECTION BAR 5 OF 日常工作R do_form('mzskyskb')
 ON SELECTION BAR 8 OF 日常工作R do_form('mztpcfmx')
 ON SELECTION BAR 9 OF 日常工作R do_form('lgbcfmx')
 DEFINE POPUP 查询C COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 查询C PROMPT '\<01 病人处方查询...'
 DEFINE BAR 2 OF 查询C PROMPT '\-'
 DEFINE BAR 3 OF 查询C PROMPT '\<02药房药品库存余量查询...'
 ON SELECTION BAR 1 OF 查询C do_form('dcfcx')
 ON SELECTION BAR 3 OF 查询C do_form('mz_yfypkcl')
 DEFINE POPUP 报表R COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 报表R PROMPT '\<02 收款员收款一览表'
 DEFINE BAR 3 OF 报表R PROMPT '\-'
 DEFINE BAR 2 OF 报表R PROMPT '\<03 医师工作量统计'
 DEFINE BAR 5 OF 报表R PROMPT '\-'
 DEFINE BAR 4 OF 报表R PROMPT '\<04 科室工作量统计'
 ON SELECTION BAR 1 OF 报表R do_form('mzskylb')
 ON SELECTION BAR 2 OF 报表R do_form('mzysyj_ftype1')
 ON SELECTION BAR 4 OF 报表R do_form('mzksyj_ftype1')
 DEFINE POPUP WINDOW COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF WINDOW PROMPT '业务导航'
 DEFINE BAR 2 OF WINDOW PROMPT '\-'
 ON SELECTION BAR 1 OF WINDOW  ;
      DO _1c80lqs3j  IN LOCFILE("MZGL\MZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is MZGL?")
 DEFINE POPUP 系统S COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 系统S PROMPT '\<X.退出系统'
 DEFINE BAR 2 OF 系统S PROMPT '\-'
 DEFINE BAR 3 OF 系统S PROMPT '系统帮助'
 DEFINE BAR 4 OF 系统S PROMPT '\-'
 DEFINE BAR 5 OF 系统S PROMPT '口令设置'
 DEFINE BAR 6 OF 系统S PROMPT '计算器'
 DEFINE BAR 7 OF 系统S PROMPT '\-'
 DEFINE BAR 8 OF 系统S PROMPT '关于本系统'
 ON SELECTION BAR 1 OF 系统S do _quit
 ON SELECTION BAR 3 OF 系统S sys(1037)
 ON SELECTION BAR 5 OF 系统S do form password
 ON SELECTION BAR 6 OF 系统S ! /N calc.exe
 ON SELECTION BAR 8 OF 系统S do form about with _screen.caption

PROCEDURE _1c80lqs3j
 ACTIVATE WINDOW DESKTOP
ENDPROC
*------*