cheetah2.inc

功能强大的 DBF 数据库操作 dll,可以让 VB 和 POWERBASIC 调用

     Declare Function xdbNameOfDay$ Lib "CHEETAH2.DLL" Alias "XDBNAMEOFDAY" (DateCheck$) 
     Declare Function xdbNameOfDay_Z Lib "CHEETAH2.DLL" Alias "XDBNAMEOFDAY_Z" (DateCheck As Asciiz) As Long 
     Declare Function xdbTodaysDate$ Lib "CHEETAH2.DLL" Alias "XDBTODAYSDATE" () 
     Declare Function xdbTodaysDate_Z Lib "CHEETAH2.DLL" Alias "XDBTODAYSDATE_Z" () As Long 
     Declare Function xdbValidDate& Lib "CHEETAH2.DLL" Alias "XDBVALIDDATE" (DateCheck$) 
     Declare Function xdbValidDate_Z& Lib "CHEETAH2.DLL" Alias "XDBVALIDDATE_Z" (DateCheck As Asciiz) 
     Declare Function xdbDateToJulian& Lib "CHEETAH2.DLL" Alias "XDBDATETOJULIAN" (DateString$) 
     Declare Function xdbDateToJulian_Z& Lib "CHEETAH2.DLL" Alias "XDBDATETOJULIAN_Z" (DateString As Asciiz) 
     Declare Function xdbJulianToDate$ Lib "CHEETAH2.DLL" Alias "XDBJULIANTODATE" (ByVal JulianNumber&) 
     Declare Function xdbJulianToDate_Z Lib "CHEETAH2.DLL" Alias "XDBJULIANTODATE_Z" (ByVal JulianNumber&) As Long 
     Declare Function CTOD Lib "CHEETAH2.DLL" Alias "CTOD" (PBDate As String) As String 
     Declare Function CTOD_Z Lib "CHEETAH2.DLL" Alias "CTOD_Z" (PBDate As Asciiz) As Long 
     Declare Function DTOS Lib "CHEETAH2.DLL" Alias "DTOS" (xDate As String) As String 
     Declare Function DTOS_Z Lib "CHEETAH2.DLL" Alias "DTOS_Z" (xDate As Asciiz) As Long 

' ----------------------------------------------------------------------------------------------------
' MISCELLANEOUS ROUTINES 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbResetError Lib "CHEETAH2.DLL" Alias "XDBRESETERROR" ()
     Declare Sub xdbResetError_Z Lib "CHEETAH2.DLL" Alias "XDBRESETERROR_Z" ()
     Declare Function xdbError& Lib "CHEETAH2.DLL" Alias "XDBERROR" ()
     Declare Function xdbError_Z& Lib "CHEETAH2.DLL" Alias "XDBERROR_Z" ()
     Declare Function xdbVersion$ Lib "CHEETAH2.DLL" Alias "XDBVERSION" () 
     Declare Function xdbVersion_Z Lib "CHEETAH2.DLL" Alias "XDBVERSION_Z" () As Long 
     Declare Function xdbRegisteredTo$ Lib "CHEETAH2.DLL" Alias "XDBREGISTEREDTO" () 
     Declare Function xdbRegisteredTo_Z Lib "CHEETAH2.DLL" Alias "XDBREGISTEREDTO_Z" () As Long 
     Declare Sub xdbDebugMode Lib "CHEETAH2.DLL" Alias "XDBDEBUGMODE" (ByVal UserMode&)
     Declare Sub xdbDebugMode_Z Lib "CHEETAH2.DLL" Alias "XDBDEBUGMODE_Z" (ByVal UserMode&)
     Declare Sub xdbDebugReadStart Lib "CHEETAH2.DLL" Alias "XDBDEBUGREADSTART" ()
     Declare Sub xdbDebugReadEnd Lib "CHEETAH2.DLL" Alias "XDBDEBUGREADEND" ()
     Declare Function xdbAppPath$ Lib "CHEETAH2.DLL" Alias "XDBAPPPATH" ()
     Declare Function xdbAppPath_Z Lib "CHEETAH2.DLL" Alias "XDBAPPPATH_Z" () As Long
     Declare Sub xdbFreeDLL Lib "CHEETAH2.DLL" Alias "XDBFREEDLL" () 
     Declare Sub xdbFreeDLL_Z Lib "CHEETAH2.DLL" Alias "XDBFREEDLL_Z" () 
     Declare Function xdbIsEncrypted& Lib "CHEETAH2.DLL" Alias "XDBISENCRYPTED" (ByVal DBFhandle&) 
     Declare Function xdbIsEncrypted_Z& Lib "CHEETAH2.DLL" Alias "XDBISENCRYPTED_Z" (ByVal DBFhandle&) 
     Declare Function xdbEncryptionMethod& Lib "CHEETAH2.DLL" Alias "XDBENCRYPTIONMETHOD" (ByVal DBFhandle&) 
     Declare Function xdbEncryptionMethod_Z& Lib "CHEETAH2.DLL" Alias "XDBENCRYPTIONMETHOD_Z" (ByVal DBFhandle&) 
     Declare Function xdbTempFileName$ Lib "CHEETAH2.DLL" Alias "XDBTEMPFILENAME" () 
     Declare Function xdbTempFileName_Z Lib "CHEETAH2.DLL" Alias "XDBTEMPFILENAME_Z" () As Long  
 

' ----------------------------------------------------------------------------------------------------
' EQUATES - General and Error Codes
' ----------------------------------------------------------------------------------------------------
     %XDBTRUE = 1                     
     %XDBFALSE = 0                    
     %MAX_INDEXES           = 100   
     %MAX_FIELDS            = 1000  
     %MAX_CONDITIONS        = 50    
     %MAX_INDEXKEYS         = 6     
     %MAX_CHARFIELD_SIZE    = 256   
     %MAX_NUMFIELD_SIZE     = 20    
     %ENCRYPT_NONE          = 0     
     %ENCRYPT_RC4           = 1     
     %ENCRYPT_KEYEDXOR      = 2     
     %ENCRYPT_SUPERSCRAMBLE = 3     
     %QUERY_AND = 1  
     %QUERY_OR  = 2  
     %EQUAL_TO              = 1   
     %NOT_EQUAL_TO          = 2   
     %LESS_THAN             = 3   
     %GREATER_THAN          = 4   
     %LESS_THAN_EQUAL_TO    = 5   
     %GREATER_THAN_EQUAL_TO = 6   
     %CONTAINS              = 7   
     %BETWEEN               = 8   
     %SUM                   = 9   
     %MINIMUM               = 10  
     %MAXIMUM               = 11  
     %AVERAGE               = 12  
     %WILDCARD              = 13  
     %SORT_ASCEND           = 1   
     %SORT_DESCEND          = 0   
     %XDBREADONLY  = 0  
     %XDBWRITEONLY = 1  
     %XDBREADWRITE = 2  
     %XDBDENYREADWRITE = 1  
     %XDBDENYWRITE     = 2  
     %XDBDENYREAD      = 3  
     %XDBDENYNONE      = 4  
     %XDBUNIQUE_CONTINUE = 0          
     %XDBUNIQUE_ERROR = 1             
     %FILE_ACCESS_ERROR = 4000        
     %INVALID_DATE_FORMAT = 4001      
     %FILE_READ_ONLY = 4002           
     %FILE_WRITE_ONLY = 4003          
     %INVALID_FILENAME = 4004         
     %ENGINE_NOT_INITIALIZED = 5000   
     %FILE_NOT_FOUND = 5001           
     %TOO_MANY_FILES_OPEN = 5002      
     %INVALID_STRUCTURE = 5003        
     %FILE_NOT_OPEN = 5004            
     %RECORD_OUT_OF_RANGE = 5005      
     %FIELD_NOT_FOUND = 5006          
     %INVALID_FILE_HANDLE = 5007      
     %INVALID_FIELD_LENGTH = 5008     
     %DUPLICATE_ALIAS_NAME = 5009     
     %INVALID_ACCESSMODE = 5010       
     %INVALID_SHAREMODE = 5011        
     %RECORD_BUSY = 5012              
     %INCOMPATIBLE_MEMO_FIELDS = 5013 
     %RECORDSIZE_EXCEEDED = 5014      
     %INVALID_ENCRYPTIONKEY = 5015    
     %DATABASE_NOT_OPEN = 7000        
     %TOO_MANY_INDEXES_OPEN = 7002    
     %INVALID_KEY_EXPRESSION = 7003   
     %INDEX_NOT_OPEN = 7004           
     %INDEX_UNIQUE_KEYS_ONLY = 7005   
     %SEEK_NO_INDEX_SET = 7006        
     %INDEX_NOT_FOUND = 7007          
     %QUERY_NOT_GENERATED = 9000         
     %QUERY_INVALID_FIELDNAME = 9001     
     %QUERY_INVALID_COMPARISON = 9002    
     %QUERY_MISSING_DELIMITERS = 9003    
     %QUERY_MISSING_SEARCHSTRING = 9004  
     %QUERY_TOO_MANY_EXPRESSIONS = 9005  
     %QUERY_EXPECTED_NUMERIC_STRING = 9006 
     %QUERY_ERROR_GETRECORD = 9007       
     %QUERY_INVALID_HANDLE = 9008        
     %QUERY_INVALID_JOINPHRASE = 9009    
     %QUERY_NO_WILDCARD_FOUND = 9010     '
     %QUERY_INVALID_PARENTHESIS = 9011   '