行业应用

开发平台：
VFP

file_ini.prg：源码内容
							* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: FILE_INI.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 LOCAL CNOTFILELIST , NNOTFILE , ISSHUTDOWN
 CNOTFILELIST = ''
 NNOTFILE = 0
 NTOTALFILES = 10
 DIMENSION MFILELIST( NTOTALFILES , 2 )
 MFILELIST( 1 , 1 ) = 'Thisday.dbf'
 MFILELIST( 1 , 2 ) = '当前帐目库'
 MFILELIST( 2 , 1 ) = 'Thisday.fpt'
 MFILELIST( 2 , 2 ) = '当前帐目操作痕迹及备注'
 MFILELIST( 3 , 1 ) = 'History.dbf'
 MFILELIST( 3 , 2 ) = '历史记录库'
 MFILELIST( 4 , 1 ) = 'History.fpt'
 MFILELIST( 4 , 2 ) = '历史记录库备注'
 MFILELIST( 5 , 1 ) = 'Hs_log.dbf'
 MFILELIST( 5 , 2 ) = '每日合计记录库'
 MFILELIST( 6 , 1 ) = 'Cashier.dbf'
 MFILELIST( 6 , 2 ) = '操作员记录库'
 MFILELIST( 7 , 1 ) = 'Roomlist.dbf'
 MFILELIST( 7 , 2 ) = '餐桌设置库'
 MFILELIST( 8 , 1 ) = 'Setup.dbf'
 MFILELIST( 8 , 2 ) = '代码库'
 MFILELIST( 9 , 1 ) = 'Folio.dbf'
 MFILELIST( 9 , 2 ) = '当前帐目明细库'
 MFILELIST( 10 , 1 ) = 'Hs_Folio.dbf'
 MFILELIST( 10 , 2 ) = '历史帐目明细库'
 FOR P = 1 TO NTOTALFILES
     if !file('&mFileList(p,1)')
    NNOTFILE = NNOTFILE + 1
     cNotFileList=cNotFileList+allt(str(nNotFile))+"、"+"&mFileList(p,2)"+"文件："+"&mFileList(p,1)"+chr(13)
    ISSHUTDOWN = .T.
 ENDIF 
 ENDFOR 
 IF ISSHUTDOWN = .T.
 N =  ;
      MESSAGEBOX('请检查下列文件：' + CHR(13) + CHR(13) + CNOTFILELIST + CHR(13) +  ;
'由于缺少以上文件，程序运行可能会出错!',18,'检查文件')
 IF N = 4
    DO FILE_INI
 ENDIF 
 IF N = 3
    DO SHUTDOWN
 ENDIF 
 ELSE 
 IF FILE('thisday.dbf')
    USE thisday
    PACK 
    USE 
 ENDIF 
 IF FILE('folio.dbf')
    USE folio
    PACK 
    USE 
 ENDIF 
 ENDIF 
 OSTARTFORM.MSG.CAPTION = '检查历史库及当前库编号的唯一性...'
 DO ONLY_CHK WITH 'History' , 'ID'
 DO ONLY_CHK WITH 'Thisday' , 'ID'
 OSTARTFORM.MSG.CAPTION = '检查帐目库，获取最大帐目号...'
 DO GET_MAX_ID
 OSTARTFORM.MSG.CAPTION = '正在检查餐桌位置的唯一性...'
 DO ONLY_CHK WITH 'RoomList' , 'Position'
 OSTARTFORM.MSG.CAPTION = '正在检查餐桌名称的唯一性...'
 DO ONLY_CHK WITH 'RoomList' , 'RoomName'
 OSTARTFORM.MSG.CAPTION = '正在检查物品名称的唯一性... '
 DO ONLY_CHK WITH 'WuPin' , 'Id'
 OSTARTFORM.MSG.CAPTION = '正在检查累计数据日期的唯一性...'
 DO ONLY_CHK WITH 'hs_log' , 'date'
 OSTARTFORM.MSG.CAPTION = '正在检查帐目正确及一致性...'
 DO CHECK_FOLIO
  if file('&softname..hlp')
  set help to &softname..hlp
 ENDIF 
 RETURN 
*

						