scxb.prg

来自「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用」· PRG 代码 · 共 54 行

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


 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 IF 1 = 0
 SET DEFAULT TO \xbbjs
 MMBZ4 = '4'
 ENDIF 
 CLOSE DATABASES 
 M_BH = '00'
 DO FORM .\src\form\gong2
 IF M_BH = '00'
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 CLOSE DATABASES 
 USE LIB\BZL.DAT
 LOCATE FOR BH = M_BH
 M_BM = ALLTRIM(BM)
 MSGTTL = '报表删除'
 MESSGTXT =  ;
      '  是否删除表名为:' + CHR(13) + CHR(13) + '==' + M_BM + '==' + CHR(13) + CHR(13) +  ;
' 的报表' + CHR(13) + CHR(13) + CHR(13) + '本表被删除后将无法恢复!!!'
 IF MESSAGEBOX(MESSGTXT,324,MSGTTL) = 7
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 SELECT BZL
 DELETE FOR BH = M_BH
 PACK 
 USE 
 USE LIB\BLK.DAT
 DELETE FOR BH = M_BH
 PACK 
 USE 
 USE LIB\DYJ.DAT
 DELETE FOR BH = M_BH
 PACK 
 USE 
  DELE FILE LIB\DP&M_BH..DAT
  DELE FILE LIB\DP&M_BH.A.DAT
  DELE FILE LIB\B&M_BH..DAT
  DELE FILE LIB\BB&M_BH..DAT
  DELE FILE LIB\XM&M_BH..DAT
 MSGTTL = '报表删除'
 MESSGTXT = '报表:' + '==' + M_BM + '==' + CHR(13) + CHR(13) + '已被删除!!!'
  MESSAGEBOX(MESSGTXT,64,MSGTTL)
*