prog_ini.prg

自写的仓库管理系统,之前在工厂打工时写的

**
** C:\仓储管理\prog_ini.fxp
**
 isshutdown = .F.
 cnotfilelist = ""
 nnotfile = 0
 nfiles = 13
 DIME mfilelist(nfiles, 2)
 mfilelist(1, 1) = 'Guest.dbf'
 mfilelist(1, 2) = "帐户数据库"
 mfilelist(2, 1) = 'Storage.dbf'
 mfilelist(2, 2) = "库存数据库"
 mfilelist(3, 1) = 'Employ.dbf'
 mfilelist(3, 2) = "员工数据库"
 mfilelist(4, 1) = 'RoomList.dbf'
 mfilelist(4, 2) = '房号设置库'
 mfilelist(5, 1) = 'Alarm.dbf'
 mfilelist(5, 2) = '提醒数据库'
 mfilelist(6, 1) = 'Alarm.fpt'
 mfilelist(6, 2) = '提醒数据库备注'
 mfilelist(7, 1) = 'Case.dbf'
 mfilelist(7, 2) = '案例分析数据库'
 mfilelist(8, 1) = 'Case.fpt'
 mfilelist(8, 2) = '案例分析数据库备注'
 mfilelist(9, 1) = 'WPList.dbf'
 mfilelist(9, 2) = '物品数据库'
 mfilelist(10, 1) = 'WPList.fpt'
 mfilelist(10, 2) = '物品数据库备注'
 mfilelist(11, 1) = 'WuPinLog.dbf'
 mfilelist(11, 2) = '物品操作痕迹数据库'
 mfilelist(12, 1) = 'WuPinLog.fpt'
 mfilelist(12, 2) = '物品操作痕迹数据库备注'
 mfilelist(13, 1) = 'Detail.dbf'
 mfilelist(13, 2) = '帐目明细数据库'
 FOR p = 1 TO nfiles
      if !file('&mFileList(p,1)')
           nnotfile = nnotfile+1
           cNotFileList=cNotFileList+allt(str(nNotFile))+"、"+"&mFileList(p,2)"+"文件："+"&mFileList(p,1)"+chr(13)
           isshutdown = .T.
      ENDI
 ENDF
 IF isshutdown=.T.
      n = MESSAGEBOX("请检查下列文件："+CHR(13)+CHR(13)+cnotfilelist+CHR(13)+"由于缺少以上文件，程序运行可能会出错!", 018, "停止")
      IF n=4
           DO prog_ini
      ENDI
      IF n=3
           isnoticealarm = .F.
           DO shutdown
      ENDI
 ELSE
 ENDI
ENDPROC
*