set.prg

门诊收费管理系统

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: SET.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 IF TYPE('m.gs_adt') = 'C'
    SET RESOURCE OFF
    RETURN 
 ENDIF 
 SET TALK OFF
 SET ECHO OFF
 SET RESOURCE OFF
 SET HOURS TO 24
 SET NOTIFY OFF
 SET EXCLUSIVE OFF
 SET SAFETY OFF
 SET DECIMALS TO 4
 SET EXACT ON
 SET DATE ansi
 SET CENTURY ON
 SET STATUS BAR OFF
 SET DEVELOPMENT ON
 SET DELETED ON
 SET LOGERRORS ON
 SET CONFIRM OFF
 SET HEADING ON
 SET DELETED ON
 SET OPTIMIZE ON
 SET UNIQUE OFF
 SET CPDIALOG OFF
 SET REFRESH TO 0 , 5
 SET ODOMETER TO 100
 SET BLOCKSIZE TO 64
 SET REPROCESS TO 0
 SET COLLATE TO 'PINYIN'
 SET TRBETWEEN OFF
 SET DATE TO ansi
 _SCREEN.ICON = 'jxkj.ico'
 _SCREEN.PICTURE = ''
 PUBLIC GS_RIGHTS , GL_SYSTEMDATA , GI_CURRDPTID , GS_SYSTEMNAME , GI_YKDM , GS_PRNT ,  ;
      GS_YEARMONTH
 PUBLIC GS_FULLNAME , GS_USERNAME , GI_YPFYXM , GS_YPFTYPE , GS_JCFTYPE , GI_SYSTEM ,  ;
      HAND , TIME_HAND
 PUBLIC GI_YF_LSJ , GI_XYF , GI_ZYF , GI_CYF , GT_BEGINTIME , GT_ENDTIME , GS_MY_COMPANY ,  ;
      GS_MY_PRODUCT
 PUBLIC GL_COMMIT , GI_ZYFLJD , GS_ZYFLJDTYPE
 PUBLIC GI_ZWDM , GI_ZWFYXM , GS_ZWFTYPE , GI_ZW_LSJ
 PUBLIC Y( 20 , 3 )
 M.GL_SYSTEMDATA = .T.
 M.HAND = SQLCONNECT('his','sa','')
 M.TIME_HAND = SQLCONNECT('his','sa','')
 IF HAND <> 1
     MESSAGEBOX('对不起，计算机没有连接到数据库服务器，请与系统管理员联系，系统终止！',0,'提示')
    QUIT 
 ENDIF 
  SQLSETPROP(HAND,'transactions',2)
 DECLARE INTEGER GetPrivateProfileString IN win32api AS GetPrivStr STRING , STRING ,  ;
      STRING , STRING @ , INTEGER , STRING 
 DECLARE INTEGER WritePrivateProfileString IN win32api AS writeprivstr STRING , STRING ,  ;
      STRING , STRING 
 DECLARE INTEGER FindWindow IN user32.dll AS FindWindow STRING , STRING 
 FN = FOPEN('l_userexpr.dbf',2)
 = FCLOSE(FN)
 IF M.FN <> -1 .OR.  .NOT. FILE('l_userexpr.dbf')
    DO HANDBUSY
    = SQLEXEC(HAND,"select * from userexpr where right(rtrim(id),1)=';'",'query')
    COPY TO l_userexpr FOX2X 
    SELECT 0
    USE EXCLUSIVE l_userexpr
    INDEX ON ID TAG ID
    INDEX ON NO TAG NO
    INDEX ON ALLTRIM(ID) + ALLTRIM(STR(NO)) TAG MAIN
    USE 
    DO HANDBUSY
    = SQLEXEC(HAND,"select * from mz_expr where right(rtrim(id),1)=';'",'query')
    COPY TO l_mz_expr FOX2X 
    SELECT 0
    USE EXCLUSIVE l_mz_expr
    INDEX ON ID TAG ID
    INDEX ON NO TAG NO
    INDEX ON ALLTRIM(ID) + ALLTRIM(STR(NO)) TAG MAIN
    USE IN L_MZ_EXPR
    DO HANDBUSY
    = SQLEXEC(HAND,"select * from zw_expr where right(rtrim(id),1)=';'",'query')
    COPY TO l_zw_expr FOX2X 
    SELECT 0
    USE EXCLUSIVE l_zw_expr
    INDEX ON ID TAG ID
    INDEX ON NO TAG NO
    INDEX ON ALLTRIM(ID) + ALLTRIM(STR(NO)) TAG MAIN
    USE IN L_ZW_EXPR
    DO HANDBUSY
    = SQLEXEC(HAND,"select * from zy_expr where right(rtrim(id),1)=';'",'query')
    COPY TO l_zy_expr FOX2X 
    SELECT 0
    USE EXCLUSIVE l_zy_expr
    INDEX ON ID TAG ID
    INDEX ON NO TAG NO
    INDEX ON ALLTRIM(ID) + ALLTRIM(STR(NO)) TAG MAIN
    USE IN L_ZY_EXPR
    DO HANDBUSY
    ARRA =  ;
         SQLEXEC(HAND,"select * from yk_expr where right(rtrim(id),1)=';'",'query')
    COPY TO l_yk_expr FOX2X 
    SELECT 0
    USE EXCLUSIVE l_yk_expr
    INDEX ON ID TAG ID
    INDEX ON NO TAG NO
    INDEX ON ALLTRIM(ID) + ALLTRIM(STR(NO)) TAG MAIN
    USE IN L_YK_EXPR
    DO HANDBUSY
    ARRA = SQLEXEC(HAND,'select * from user_','query')
    REPLACE PASSWORD WITH ('')
    COPY TO l_user_ FOX2X 
    COPY TO l_user FOX2X 
 ENDIF 
 M.GI_ZWFYXM = VAL(TS('zwfyxm',1,'zw_'))
 M.GS_ZWFTYPE = DELSPACE(TS('zwftype',1,'zw_'))
 M.GS_JCFTYPE = DELSPACE(TS('jcftype',1,'zw_'))
 M.GI_ZWDM = VAL(TS('zwdm',1,'zw_'))
 M.GI_ZW_LSJ = VAL(TS('zw_lsj',1,'zw_'))
 M.GS_YEARMONTH = ALLTRIM(TS('yearmonth',1,'zw_'))
 M.GI_YPFYXM = VAL(TS('ypfyxm'))
 M.GS_YPFTYPE = DELSPACE(TS('ypftype'))
 M.GS_JCFTYPE = DELSPACE(TS('jcftype'))
 M.GI_YKDM = VAL(TS('ykdm'))
 M.GS_SYSTEMNAME = TS('systemname')
 M.GS_PRNT = ALLTRIM(TS('print'))
 M.GS_PRNT = IIF(EMPTY(M.GS_PRNT),'preview',M.GS_PRNT)
 M.GS_YEARMONTH = ALLTRIM(TS('yearmonth'))
 M.GI_YEAR = VAL(LEFT(M.GS_YEARMONTH,4))
 M.GI_MONTH = VAL(LEFT(M.GS_YEARMONTH,2))
 M.GI_YF_LSJ = VAL(TS('yf_lsj'))
 M.GI_XYF = VAL(TS('xyf'))
 M.GI_ZYF = VAL(TS('zyf'))
 M.GI_CYF = VAL(TS('cyf'))
 M.GS_MY_COMPANY = '佳信科技有限公司'
 M.GS_MY_PRODUCT = '佳信医院信息系统'
 M.GL_COMMIT = .T.
 FOR I = 1 TO 20
    Y( I , 1 ) = ' '
    Y( I , 2 ) = 0
    Y( I , 1 ) = ALLTRIM(TS('ftype',I))
 ENDFOR 
 LS = TS('begintime')
  gt_begintime=ctot(&ls)
 LS = TS('endtime')
  gt_endtime=ctot(&ls)
 OPEN DATABASE his
*