mina.prg

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

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


  _SCREEN.HIDE
 CLOSE ALL
 SET TALK OFF
 SET SYSMENU AUTOMATIC 
 SET EXCLUSIVE OFF
 SET ESCAPE OFF
 SET SAFETY OFF
 SET STATUS BAR OFF
 _SCREEN.AUTOCENTER = .T.
 _SCREEN.WINDOWSTATE = 2
 SET DELETED ON
 PUBLIC QX( 8 ) , SYSRQ , NFRQ , CP , CZYXM , C_ID , C_REG , C_REGID , DXPATH , MLPATH ,  ;
      MYEAR , MMONT , MDAY , BMP , N_COLOR , SYQM , M_YEAR , N_DATE , SN ,  ;
      RY , RM , RDAY
 PUBLIC JLCS , CWIN , BDS , QJ , NFDH , C_CK , NTOTALPAGES , ZTH , ZTMC , DMLL , ADMICZY ,  ;
      BAKPATH , BAKTIME , USERINFO , ZCS , XS , WINDIR , XGMM , SJ
 PUBLIC LERROR , V , VB
 V = '5.1.0'
 VB = '510'
 XGMM = ''
 WINDIR = FULLPATH('COMMAND.COM',2)
 WINDIR = STRTRAN(WINDIR,'COMMAND.COM','')
 NTOTALPAGES = 0
 SYQM = .F.
 DXPATH = SYS(5) + SYS(2003) + '\'
 MYEAR = ALLTRIM(STR(YEAR(DATE())))
 MMONT = PADL(ALLTRIM(STR(MONTH(DATE()))),2,'0')
 MDAY = PADL(ALLTRIM(STR(DAY(DATE()))),2,'0')
 M_YEAR = MYEAR
 SET PROCEDURE TO d:\jxc\drivinfo.prg
 C_USER = DRIVINFO()
 SET PROCEDURE TO
 IF FILE(DXPATH + 'data\regid.dbf')
    USE (DXPATH + 'data\regid.dbf')
    GO TOP
 ELSE 
    = MESSAGEBOX('找不到regid.dbf文件,系统不能启动！',16,'警告')
    QUIT 
 ENDIF 
 IF  .NOT. 退出
    = MESSAGEBOX('注意：系统检测到非法退出,如不能正常运行，请进行系统维护！',16,'系统提示')
 ENDIF 
 IF 启动
    FF = MESSAGEBOX('本系统已经在运行!是否再运行一个副本？',20,'提示')
    IF  .NOT. FF = 6
       QUIT 
    ENDIF 
 ELSE 
    REPLACE 启动 WITH .T.
 ENDIF 
 BMP = ALLTRIM(B_BMP)
 N_COLOR = B_COLOR
 DWMC = ALLTRIM(单位名称)
 CKMC = ALLTRIM(仓库名称)
 MLPATH = ALLTRIM(M_PATH)
 CP = 成本计算
 DMLL = 速码
 XS = 小数
 IF EMPTY(ALLTRIM(ID)) .OR. ID <> C_USER
    REPLACE ID WITH C_USER
 ENDIF 
 C_ID = ID
 REG = ''
 IF EMPTY(ALLTRIM(REGID))
    C_REG = .F.
 ELSE 
    FOR I = 1 TO 10
       REG1 = VAL(SUBSTR(C_ID,I,1)) + I
       IF REG1 > 9
          REG2 = PADL(ALLTRIM(STR(REG1 - 10)),1,'0')
       ELSE 
          REG2 = ALLTRIM(STR(REG1))
       ENDIF 
       REG = REG + REG2
    ENDFOR 
    REG3 = ''
    FOR I = 1 TO 10
       IF MOD(I,2) = 0
          REG3 = REG3 + SUBSTR(REG,I,1)
       ELSE 
          REG3 = REG3 + CHR(70 + VAL(SUBSTR(REG,I,1)))
       ENDIF 
    ENDFOR 
    IF REG3 == ALLTRIM(REGID)
       C_REG = .T.
       C_REGID = ALLTRIM(REGID)
    ELSE 
       C_REGID = ''
       C_REG = .F.
    ENDIF 
 ENDIF 
 USE 
 IF C_REG = .F.
    IF FILE(WINDIR + '\system\xdjxwin.Dll')
       HAND = FOPEN(WINDIR + '\system\xdjxwin.Dll')
       RQ = FGETS(HAND)
        FCLOSE(HAND)
       IF  .NOT. ALLTRIM(RQ) == 'Your Trial Period is now over.'
          IF DATE() - CTOD(RQ) > 60
             = MESSAGEBOX('本系统限时使用60天时间已满，请进行软件注册' + CHR(13) +  ;
            '联系电话:[phone] 3899347 黄先生。',16,'警告')
              STRTOFILE('Your Trial Period is now over.',WINDIR + '\system\xdjxwin.Dll',.F.)
             SYQM = .T.
          ENDIF 
       ELSE 
          = MESSAGEBOX('本系统限时使用60天时间已满，请进行软件注册' + CHR(13) +  ;
         '联系电话:[phone] 3899347 黄先生。',16,'警告')
          SYQM = .T.
       ENDIF 
    ELSE 
        STRTOFILE(STRTRAN(DTOC(DATE()),'/','-'),WINDIR + '\system\xdjxwin.Dll')
    ENDIF 
 ENDIF 
 IF C_REG
    _SCREEN.CAPTION = '进销存管理系统 V' + V + DWMC + '_' + CKMC
 ELSE 
    _SCREEN.CAPTION = '进销存管理系统[未注册] V' + V + DWMC + '_' + CKMC
 ENDIF 
 IF FILE(DXPATH + 'jxc.hlp')
    SET HELP TO DXPATH + 'jxc.hlp'
 ENDIF 
 DO FORM d:\jxc\系统登录
 READ EVENTS 
 UNLOCK 
*