app_option.prg

来自「智能考勤管理系统是我学习别人的一个软件,我主要在搞工业自动化的编程,单片机,PL」· PRG 代码 · 共 71 行

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


 LPARAMETER LSET
 LOCAL LERR , OLDERR
 OLDERR = ON('error')
 ON ERROR lerr=.t.
 LOCAL LCHA
 PUBLIC P_SYSTITLE , P_SYSBGIMG , P_SYSPASS
 IF TYPE('P_SYSTITLE') <> 'C' .OR. TYPE('P_SYSBGIMG') <> 'C' .OR. TYPE('P_SYSPASS') <> 'C'
    STORE '' TO P_SYSTITLE , P_SYSBGIMG , P_SYSPASS
 ENDIF 
 IF TYPE('lset') <> 'L'
    RETURN 
 ENDIF 
 LOCAL SCONFLE
 SCFG = HOME() + 'trcfg.ini'
 CREATE CURSOR trcfg ( SNAME C ( 30 ) , SVALUE C ( 250 ) , SEDIT C ( 250 ) )
 SELECT TRCFG
 IF FILE(SCFG)
    APPEND FROM SCFG + '' DELIMITED WITH CHAR TAB
 ENDIF 
 LOCATE FOR ALLTRIM(SNAME) == 'systitle'
 IF  .NOT. FOUND()
    INSERT INTO trcfg ( SNAME ) VALUES ( 'systitle' )
    IF TYPE('P_DEFASYSTITLE') = 'C'
       REPLACE IN TRCFG SVALUE WITH P_DEFASYSTITLE
    ENDIF 
    LCHA = .T.
 ENDIF 
 IF LSET
    REPLACE SVALUE WITH P_SYSTITLE
 ELSE 
    P_SYSTITLE = TRCFG.SVALUE
 ENDIF 
 LOCATE FOR ALLTRIM(SNAME) == 'sysbgimg'
 IF  .NOT. FOUND()
    INSERT INTO trcfg ( SNAME ) VALUES ( 'sysbgimg' )
    IF TYPE('P_DEFASYSBGIMG') = 'C'
       REPLACE IN TRCFG SVALUE WITH P_DEFASYSBGIMG
    ENDIF 
    LCHA = .T.
 ENDIF 
 IF LSET
    REPLACE SVALUE WITH P_SYSBGIMG
 ELSE 
    P_SYSBGIMG = ALLTRIM(TRCFG.SVALUE)
 ENDIF 
 LOCATE FOR ALLTRIM(SNAME) == 'syspass'
 IF  .NOT. FOUND()
    INSERT INTO trcfg ( SNAME ) VALUES ( 'syspass' )
    LCHA = .T.
 ENDIF 
 IF LSET
    P_SYSPASS = LEFT(P_SYSPASS,10)
    REPLACE SVALUE WITH P_SYSPASS
 ELSE 
    P_SYSPASS = LEFT(TRCFG.SVALUE,10)
 ENDIF 
 IF LSET .OR. LCHA
    COPY TO SCFG + '' DELIMITED WITH DIF TAB 
 ENDIF 
 USE IN TRCFG
  ON error &olderr
 IF LERR
    WAIT WINDOW NOWAIT 'option config file is error'
 ENDIF 
*