mzgl.prg

门诊收费管理系统

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MZGL.PRG(主文件) <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 DO SET
 ON SHUTDOWN do _quit
 GS_OLDPATH = SET('PATH')
 SET PATH TO '..\;..\data;..\tools;..\lib;..\bmp;..\mzgl'
 IF FILE('fgc01.dll')
    DECLARE INTEGER SetComNo IN Fgc01 INTEGER 
    DECLARE SetQuickSwitch IN Fgc01 INTEGER 
    DECLARE SetHandleType IN Fgc01 INTEGER 
    DECLARE AllClear IN Fgc01
    DECLARE PartClear IN Fgc01 INTEGER , INTEGER , INTEGER , INTEGER 
    DECLARE AllDisplay IN Fgc01 INTEGER 
    DECLARE PartDisplay IN Fgc01 INTEGER , INTEGER , INTEGER , INTEGER , INTEGER 
    DECLARE StringDisplay IN Fgc01 STRING , INTEGER , INTEGER 
    DECLARE SetFontName IN Fgc01 STRING 
    DECLARE SetFontSize IN Fgc01 INTEGER 
    DECLARE SetFontStyle IN Fgc01 INTEGER 
    DECLARE LocStringDisplay IN Fgc01 INTEGER , INTEGER , STRING 
    DECLARE PictureDisplay IN Fgc01 INTEGER , INTEGER , INTEGER , INTEGER 
    DECLARE MagicDisplay IN Fgc01 INTEGER , INTEGER 
    DECLARE MagicClear IN Fgc01 INTEGER 
    DECLARE PickDisplay IN Fgc01 INTEGER , INTEGER , INTEGER , INTEGER , INTEGER , INTEGER ,  ;
         INTEGER 
    DECLARE INTEGER PlayWaves IN Fgc01 STRING 
    DECLARE INTEGER RMB2Wav IN Fgc01 DOUBLE
    DECLARE STRING Val2RMB IN Fgc01 DOUBLE
    DECLARE ClearWaves IN Fgc01
 ENDIF 
 IF FILE('tdbjq.dll')
    DECLARE INTEGER dsbdll IN tdbjq.dll INTEGER , STRING 
 ENDIF 
 GI_SYSTEM = 5
 GI_FPH = 0
 GI_MZHJFTYPE = TS('mzhjftype',1,'mz_')
 GS_MZFTYPE = TS('门诊费用类型',1,'mz_')
 GL_MZSLGL =  .NOT. EMPTY(TS('mzslgl',1,'mz_'))
 GI_KSLS = VAL(TS('mzfpksl',1,'mz_'))
 GL_MZIC =  .NOT. EMPTY(TS('门诊ic管理',1,'mz_'))
 GL_MZBA =  .NOT. EMPTY(TS('门诊病案管理',1,'mz_'))
 GL_MZGH =  .NOT. EMPTY(TS('门诊挂号管理',1,'mz_'))
 GL_MZYB =  .NOT. EMPTY(TS('门诊医保管理',1,'mz_'))
 GL_YFHJ =  .NOT. EMPTY(TS('药房划价',1,'mz_'))
 GL_IC =  .NOT. EMPTY(TS('磁卡管理'))
 GL_YBGL =  .NOT. EMPTY(TS('医保管理'))
 GL_BAGL =  .NOT. EMPTY(TS('病案号管理'))
 M.GS_B4AUTOADD = TS('b4autoadd',1,'zy_')
 _SCREEN.CAPTION = '门诊收费划价系统'
 IF EMPTY(M.GS_USERNAME)
    DO FORM first
    READ EVENTS 
    DO FORM login
    READ EVENTS 
 ENDIF 
 IF EMPTY(M.GS_USERNAME)
    ON SHUTDOWN 
    RETURN 
 ENDIF 
 DO HANDBUSY
 = SQLEXEC(HAND,'select * from user_ where username=?m.gs_username','query')
 IF  .NOT. ISDIGIT(GROUP_)
    GI_MZYF = VAL(TS('mzyf',1,'mz_'))
    GI_MZZYF = VAL(TS('mzzyf',1,'mz_'))
    GI_MZCYF = VAL(TS('mzyf',1,'mz_'))
    GS_YF_LIST =  ;
         ALLTRIM(STR(M.GI_MZYF)) + ',' + ALLTRIM(STR(M.GI_MZZYF)) + ',' +  ;
   ALLTRIM(STR(M.GI_MZCYF))
 ELSE 
    GS_YF_LIST = ALLTRIM(GROUP_)
 ENDIF 
 DO SET_FIRSTDBF_IN_MZGL
 _SCREEN.WINDOWSTATE = 2
 _SCREEN.VISIBLE = .T.
 DO FORM mz_desk
 DO mzgl.mpr
 READ EVENTS 
 CLEAR WINDOW
 IF TYPE('gs_adt') <> 'C'
    SET SYSMENU TO DEFAULT
     SQLDISCONNECT(HAND)
 ENDIF 
  set path to &gs_oldpath
 ON SHUTDOWN 
 RETURN 

PROCEDURE set_firstdbf_in_mzgl
 DO HANDBUSY
 S_STRING = '^*' + ALLTRIM(M.GS_USERNAME)
 HANDRETU =  ;
      SQLEXEC(HAND,'select expr from mz_expr where id=?s_string and no=1','query')
 LOCATE 
 IF M.HANDRETU = 1
    IF RECCOUNT('query') = 0
        SQLSETPROP(HAND,'transactions',2)
       DO HANDBUSY
       HAND1 =  ;
            SQLEXEC(HAND,"insert into mz_expr (mark,id,no,expr) values (1,?s_string,1,'1')")
        SQLCOMMIT(HAND1)
       M.GI_FPH = 1
    ELSE 
       M.GI_FPH = VAL(QUERY.EXPR) + 1
    ENDIF 
 ELSE 
    WAIT WINDOW 'error!'
 ENDIF 
 IF USED('l_dpt')
    USE IN L_DPT
 ENDIF 
 IF USED('l_employee')
    USE IN L_EMPLOYEE
 ENDIF 
 FN = FOPEN('l_employee.dbf',2)
 = FCLOSE(FN)
 IF M.FN <> -1 .OR.  .NOT. FILE('l_employee.dbf')
    DO HANDBUSY
    = SQLEXEC(HAND,'select * from employee','query')
    COPY TO l_employee FOX2X 
    SELECT 0
    USE EXCLUSIVE l_employee
    INDEX ON DPTID TAG DPTID
    INDEX ON EID TAG EID
    USE IN L_EMPLOYEE
 ENDIF 
 FN = FOPEN('l_dpt.dbf',2)
 = FCLOSE(FN)
 IF M.FN <> -1 .OR.  .NOT. FILE('l_dpt.dbf')
    DO HANDBUSY
    = SQLEXEC(HAND,'select * from dpt','query')
    COPY TO l_dpt FOX2X 
    SELECT 0
    USE EXCLUSIVE l_dpt
    INDEX ON DPTID TAG DPTID
    USE IN L_DPT
    USE 
 ENDIF 
ENDPROC
*------*