sellitsetup.prg

来自「通过VFP编程的方式来统计指定数据库中的有关数据」· PRG 代码 · 共 26 行

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


 SELECT 0
 DO CASE 
 CASE FILE('有奖销售.DBF')
    USE 有奖销售.DBF
 CASE FILE('XSGL\有奖销售.DBF')
    USE XSGL\有奖销售.DBF
 CASE FILE('\VFP\XSGL\有奖销售.DBF')
    USE \VFP\XSGL\有奖销售.DBF
 CASE FILE('C:\VFP\XSGL\有奖销售.DBF')
    USE C:\VFP\XSGL\有奖销售.DBF
 CASE USED('有奖销售')
    SELECT 有奖销售
 OTHERWISE 
    = MESSAGEBOX('未发现文件 有奖销售.DBF ！    ',48,'信息')
    RETURN 
 ENDCASE 
 SELECT 有奖销售
 BROWSE NOAPPEND NOEDIT NODELETE 
 USE 
*