vbcheet2.bas

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

' ----------------------------------------------------------------------------------------------------
' QUERY ROUTINES 
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbCreateQuery& Lib "CHEETAH2.DLL" Alias "XDBCREATEQUERY" (ByVal DBFhandle&)
     Declare Sub xdbQueryCondition Lib "CHEETAH2.DLL" Alias "XDBQUERYCONDITION" (ByVal QueryHandle&, ByVal JoinPhrase&, FieldName$, ByVal Equality&, vParameter1$, vParameter2$)
     Declare Sub xdbQuerySort Lib "CHEETAH2.DLL" Alias "XDBQUERYSORT" (ByVal QueryHandle&, FieldName$, ByVal SortDirection&) 
     Declare Sub xdbQueryExecute Lib "CHEETAH2.DLL" Alias "XDBQUERYEXECUTE" (ByVal QueryHandle&)
     Declare Function xdbQuerySUM# Lib "CHEETAH2.DLL" Alias "XDBQUERYSUM" (ByVal QueryHandle&, FieldName$)
     Declare Function xdbQueryMIN# Lib "CHEETAH2.DLL" Alias "XDBQUERYMIN" (ByVal QueryHandle&, FieldName$)
     Declare Function xdbQueryMAX# Lib "CHEETAH2.DLL" Alias "XDBQUERYMAX" (ByVal QueryHandle&, FieldName$)
     Declare Function xdbQueryAVG# Lib "CHEETAH2.DLL" Alias "XDBQUERYAVG" (ByVal QueryHandle&, FieldName$)
     Declare Sub xdbQueryDistinct Lib "CHEETAH2.DLL" Alias "XDBQUERYDISTINCT" (ByVal QueryHandle&, DistinctFieldName$) 
     Declare Sub xdbHtmlStripTag Lib "CHEETAH2.DLL" Alias "XDBHTMLSTRIPTAG" (ByVal QueryHandle&, ByVal TrueFalse&) 
     Declare Sub xdbDestroyQuery Lib "CHEETAH2.DLL" Alias "XDBDESTROYQUERY" (ByVal QueryHandle&)
     Declare Function xdbQueryIndex& Lib "CHEETAH2.DLL" Alias "XDBQUERYINDEX" (ByVal QueryHandle&)

' ----------------------------------------------------------------------------------------------------
' DATE ROUTINES  
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbDaysApart& Lib "CHEETAH2.DLL" Alias "XDBDAYSAPART" (DateFrom$, DateTo$) 
     Declare Function xdbDaysInMonth& Lib "CHEETAH2.DLL" Alias "XDBDAYSINMONTH" (ByVal Year&, ByVal Month&) 
     Declare Function xdbAddDate$ Lib "CHEETAH2.DLL" Alias "XDBADDDATE" (StartDate$, ByVal Days&) 
     Declare Function xdbNameOfDay$ Lib "CHEETAH2.DLL" Alias "XDBNAMEOFDAY" (DateCheck$) 
     Declare Function xdbTodaysDate$ Lib "CHEETAH2.DLL" Alias "XDBTODAYSDATE" () 
     Declare Function xdbValidDate& Lib "CHEETAH2.DLL" Alias "XDBVALIDDATE" (DateCheck$) 
     Declare Function xdbDateToJulian& Lib "CHEETAH2.DLL" Alias "XDBDATETOJULIAN" (DateString$) 
     Declare Function xdbJulianToDate$ Lib "CHEETAH2.DLL" Alias "XDBJULIANTODATE" (ByVal JulianNumber&) 
     Declare Function CTOD Lib "CHEETAH2.DLL" Alias "CTOD" (PBDate As String) As String 
     Declare Function DTOS Lib "CHEETAH2.DLL" Alias "DTOS" (xDate As String) As String 

' ----------------------------------------------------------------------------------------------------
' MISCELLANEOUS ROUTINES 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbResetError Lib "CHEETAH2.DLL" Alias "XDBRESETERROR" ()
     Declare Function xdbError& Lib "CHEETAH2.DLL" Alias "XDBERROR" ()
     Declare Function xdbVersion$ Lib "CHEETAH2.DLL" Alias "XDBVERSION" () 
     Declare Function xdbRegisteredTo$ Lib "CHEETAH2.DLL" Alias "XDBREGISTEREDTO" () 
     Declare Sub xdbDebugMode Lib "CHEETAH2.DLL" Alias "XDBDEBUGMODE" (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 Sub xdbFreeDLL Lib "CHEETAH2.DLL" Alias "XDBFREEDLL" () 
     Declare Function xdbIsEncrypted& Lib "CHEETAH2.DLL" Alias "XDBISENCRYPTED" (ByVal DBFhandle&) 
     Declare Function xdbEncryptionMethod& Lib "CHEETAH2.DLL" Alias "XDBENCRYPTIONMETHOD" (ByVal DBFhandle&) 
     Declare Function xdbTempFileName$ Lib "CHEETAH2.DLL" Alias "XDBTEMPFILENAME" () 
 

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