cheetah2.inc

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

' ****************************************************************************************************
' CHEETAH2.INC - CHEETAH DATABASE SYSTEM DLL DECLARES
'
' DECLARES FOR POWERBASIC PB/CC, PB/DLL, PB/WIN COMPILERS.
' Created: 03-08-2006
' ****************************************************************************************************

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Creation/Opening/Closing 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbCreate Lib "CHEETAH2.DLL" Alias "XDBCREATE" (dbFile$, FieldArray$())
     Declare Sub xdbCreate_Z Lib "CHEETAH2.DLL" Alias "XDBCREATE_Z" (dbFile As Asciiz, AllFields As Asciiz)

' ----------------------------------------------------------------------------------------------------
'Declare Function idxDumpIndex( ByVal DBFhandle As Long, ByVal IDXhandle As Long, sFilename As String ) As Long 
' ----------------------------------------------------------------------------------------------------

' ----------------------------------------------------------------------------------------------------
'Declare Function GetgLocks( ByVal DBFhandle As Long ) As String 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbCreateExtended Lib "CHEETAH2.DLL" Alias "XDBCREATEEXTENDED" (tFileName$, FieldArray$(), ByVal MemoBlockSize&, ByVal Algorithm&, EncryptionKey$) 
     Declare Sub xdbCreateExtended_Z Lib "CHEETAH2.DLL" Alias "XDBCREATEEXTENDED_Z" (tFileName As Asciiz, AllFields As Asciiz, ByVal MemoBlockSize&, ByVal Algorithm&, EncryptionKey As Asciiz) 
     Declare Function xdbOpen& Lib "CHEETAH2.DLL" Alias "XDBOPEN" (dbFile$, Optional EncryptionKey$)
     Declare Function xdbOpen_Z& Lib "CHEETAH2.DLL" Alias "XDBOPEN_Z" (dbFile As Asciiz, Optional EncryptionKey As Asciiz)
     Declare Function xdbOpenEX& Lib "CHEETAH2.DLL" Alias "XDBOPENEX" (dbFile$, ByVal AccessMode&, ByVal ShareMode&, Optional EncryptionKey$)
     Declare Function xdbOpenEX_Z& Lib "CHEETAH2.DLL" Alias "XDBOPENEX_Z" (dbFile As Asciiz, ByVal AccessMode&, ByVal ShareMode&, Optional EncryptionKey As Asciiz)
     Declare Function xdbAlias$ Lib "CHEETAH2.DLL" Alias "XDBALIAS" (ByVal dbHandle&)
     Declare Function xdbAlias_Z Lib "CHEETAH2.DLL" Alias "XDBALIAS_Z" (ByVal dbHandle&) As Long
     Declare Sub xdbSetAlias Lib "CHEETAH2.DLL" Alias "XDBSETALIAS" (ByVal dbHandle&, AliasName$)
     Declare Sub xdbSetAlias_Z Lib "CHEETAH2.DLL" Alias "XDBSETALIAS_Z" (ByVal dbHandle&, AliasName As Asciiz)
     Declare Sub xdbCreateFields Lib "CHEETAH2.DLL" Alias "XDBCREATEFIELDS" (mFileName$)
     Declare Sub xdbCreateFields_Z Lib "CHEETAH2.DLL" Alias "XDBCREATEFIELDS_Z" (mFileName As Asciiz)
     Declare Sub xdbCreateFieldsExtended Lib "CHEETAH2.DLL" Alias "XDBCREATEFIELDSEXTENDED" (mFileName$, ByVal MemoBlockSize&, ByVal Algorithm&, EncryptionKey$) 
     Declare Sub xdbCreateFieldsExtended_Z Lib "CHEETAH2.DLL" Alias "XDBCREATEFIELDSEXTENDED_Z" (mFileName As Asciiz, ByVal MemoBlockSize&, ByVal Algorithm&, EncryptionKey As Asciiz) 
     Declare Sub xdbAddField Lib "CHEETAH2.DLL" Alias "XDBADDFIELD" (FieldInfoString$)
     Declare Sub xdbAddField_Z Lib "CHEETAH2.DLL" Alias "XDBADDFIELD_Z" (FieldInfoString As Asciiz)
     Declare Sub xdbClose Lib "CHEETAH2.DLL" Alias "XDBCLOSE" (ByVal dbHandle&)
     Declare Sub xdbClose_Z Lib "CHEETAH2.DLL" Alias "XDBCLOSE_Z" (ByVal dbHandle&)
     Declare Sub xdbCloseAllIndexes Lib "CHEETAH2.DLL" Alias "XDBCLOSEALLINDEXES" (ByVal dbHandle&)
     Declare Sub xdbCloseAllIndexes_Z Lib "CHEETAH2.DLL" Alias "XDBCLOSEALLINDEXES_Z" (ByVal dbHandle&)

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - MultiUser & Locking  
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbMultiUser Lib "CHEETAH2.DLL" Alias "XDBMULTIUSER" (ByVal TrueFalse&, ByVal NumRetries&, ByVal WaitTime&) 
     Declare Sub xdbMultiUser_Z Lib "CHEETAH2.DLL" Alias "XDBMULTIUSER_Z" (ByVal TrueFalse&, ByVal NumRetries&, ByVal WaitTime&) 
     Declare Function xdbMultiThreaded Lib "CHEETAH2.DLL" Alias "XDBMULTITHREADED" (ByVal OnOff As Long) As Long  
     Declare Sub xdbFailedLockInfo Lib "CHEETAH2.DLL" Alias "XDBFAILEDLOCKINFO" (ByVal DBFhandle&, Reason$, Username$, Workstation$, LockDate$, LockTime$) 
     Declare Sub xdbFailedLockInfo_Z Lib "CHEETAH2.DLL" Alias "XDBFAILEDLOCKINFO_Z" (ByVal DBFhandle&, zReason As Long, zUsername As Long, zWorkstation As Long, zLockDate As Long, zLockTime As Long) 
     Declare Sub xdbActivate Lib "CHEETAH2.DLL" Alias "XDBACTIVATE" (ByVal ActivateNumber As Long) 
     Declare Sub xdbActivate_Z Lib "CHEETAH2.DLL" Alias "XDBACTIVATE_Z" (ByVal ActivateNumber As Long) 
     Declare Function xdbSetExclusiveLock& Lib "CHEETAH2.DLL" Alias "XDBSETEXCLUSIVELOCK" (ByVal DBFhandle&) 
     Declare Function xdbSetExclusiveLock_Z& Lib "CHEETAH2.DLL" Alias "XDBSETEXCLUSIVELOCK_Z" (ByVal DBFhandle&) 
     Declare Sub xdbRemoveExclusiveLock Lib "CHEETAH2.DLL" Alias "XDBREMOVEEXCLUSIVELOCK" (ByVal DBFhandle&, ByVal LOCK_NUM&) 
     Declare Sub xdbRemoveExclusiveLock_Z Lib "CHEETAH2.DLL" Alias "XDBREMOVEEXCLUSIVELOCK_Z" (ByVal DBFhandle&, ByVal LOCK_NUM&) 
     Declare Function xdbSetEditLock& Lib "CHEETAH2.DLL" Alias "XDBSETEDITLOCK" (ByVal DBFhandle&, ByVal RecordNumber&) 
     Declare Function xdbSetEditLock_Z& Lib "CHEETAH2.DLL" Alias "XDBSETEDITLOCK_Z" (ByVal DBFhandle&, ByVal RecordNumber&) 
     Declare Sub xdbRemoveEditLock Lib "CHEETAH2.DLL" Alias "XDBREMOVEEDITLOCK" (ByVal DBFhandle&, ByVal LOCK_NUM&) 
     Declare Sub xdbRemoveEditLock_Z Lib "CHEETAH2.DLL" Alias "XDBREMOVEEDITLOCK_Z" (ByVal DBFhandle&, ByVal LOCK_NUM&) 
     Declare Function xdbIsEditLock& Lib "CHEETAH2.DLL" Alias "XDBISEDITLOCK" (ByVal DBFhandle&, ByVal RecordNumber&)  
     Declare Function xdbIsEditLock_Z& Lib "CHEETAH2.DLL" Alias "XDBISEDITLOCK_Z" (ByVal DBFhandle&, ByVal RecordNumber&)  

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Adding/Deleting Records 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbAddRecord Lib "CHEETAH2.DLL" Alias "XDBADDRECORD" (ByVal dbHandle&)
     Declare Sub xdbAddRecord_Z Lib "CHEETAH2.DLL" Alias "XDBADDRECORD_Z" (ByVal dbHandle&)
     Declare Sub xdbAppendRecord Lib "CHEETAH2.DLL" Alias "XDBAPPENDRECORD" (ByVal DBFhandle&)
     Declare Sub xdbAppendRecord_Z Lib "CHEETAH2.DLL" Alias "XDBAPPENDRECORD_Z" (ByVal DBFhandle&)
     Declare Sub xdbClearBuffer Lib "CHEETAH2.DLL" Alias "XDBCLEARBUFFER" (ByVal dbHandle&)
     Declare Sub xdbClearBuffer_Z Lib "CHEETAH2.DLL" Alias "XDBCLEARBUFFER_Z" (ByVal dbHandle&)
     Declare Sub xdbPutRecord Lib "CHEETAH2.DLL" Alias "XDBPUTRECORD" (ByVal dbHandle&, RN&)
     Declare Sub xdbPutRecord_Z Lib "CHEETAH2.DLL" Alias "XDBPUTRECORD_Z" (ByVal dbHandle&, RN&)
     Declare Sub xdbGetRecord Lib "CHEETAH2.DLL" Alias "XDBGETRECORD" (ByVal dbHandle&, ByVal RN&)
     Declare Sub xdbGetRecord_Z Lib "CHEETAH2.DLL" Alias "XDBGETRECORD_Z" (ByVal dbHandle&, ByVal RN&)
     Declare Sub xdbDeleteRecord Lib "CHEETAH2.DLL" Alias "XDBDELETERECORD" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Sub xdbDeleteRecord_Z Lib "CHEETAH2.DLL" Alias "XDBDELETERECORD_Z" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Sub xdbRecallRecord Lib "CHEETAH2.DLL" Alias "XDBRECALLRECORD" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Sub xdbRecallRecord_Z Lib "CHEETAH2.DLL" Alias "XDBRECALLRECORD_Z" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Function xdbDeleted& Lib "CHEETAH2.DLL" Alias "XDBDELETED" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Function xdbDeleted_Z& Lib "CHEETAH2.DLL" Alias "XDBDELETED_Z" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Sub xdbFlushDatabase Lib "CHEETAH2.DLL" Alias "XDBFLUSHDATABASE" (ByVal dbHandle&)
     Declare Sub xdbFlushDatabase_Z Lib "CHEETAH2.DLL" Alias "XDBFLUSHDATABASE_Z" (ByVal dbHandle&)
     Declare Sub xdbPack Lib "CHEETAH2.DLL" Alias "XDBPACK" ( ByVal DBFhandle&)
     Declare Sub xdbPack_Z Lib "CHEETAH2.DLL" Alias "XDBPACK_Z" ( ByVal DBFhandle&)
     Declare Sub xdbZap Lib "CHEETAH2.DLL" Alias "XDBZAP" ( ByVal DBFhandle&)
     Declare Sub xdbZap_Z Lib "CHEETAH2.DLL" Alias "XDBZAP_Z" ( ByVal DBFhandle&)
     Declare Function xdbRecordBuffer$ Lib "CHEETAH2.DLL" Alias "XDBRECORDBUFFER" (ByVal DBFhandle&) 
     Declare Function xdbRecordBuffer_Z Lib "CHEETAH2.DLL" Alias "XDBRECORDBUFFER_Z" (ByVal DBFhandle&) As Long 
     Declare Sub xdbSpeedAppend Lib "CHEETAH2.DLL" Alias "XDBSPEEDAPPEND" (ByVal DBFhandle&, ByVal TrueFalse&)
     Declare Sub xdbSpeedAppend_Z Lib "CHEETAH2.DLL" Alias "XDBSPEEDAPPEND_Z" (ByVal DBFhandle&, ByVal TrueFalse&)

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Database Information
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbRecordCount& Lib "CHEETAH2.DLL" Alias "XDBRECORDCOUNT" (ByVal dbHandle&)
     Declare Function xdbRecordCount_Z& Lib "CHEETAH2.DLL" Alias "XDBRECORDCOUNT_Z" (ByVal dbHandle&)
     Declare Function xdbFieldCount& Lib "CHEETAH2.DLL" Alias "XDBFIELDCOUNT" (ByVal dbHandle&)
     Declare Function xdbFieldCount_Z& Lib "CHEETAH2.DLL" Alias "XDBFIELDCOUNT_Z" (ByVal dbHandle&)
     Declare Function xdbFieldNumber& Lib "CHEETAH2.DLL" Alias "XDBFIELDNUMBER" (ByVal dbHandle&, FieldName$)
     Declare Function xdbFieldNumber_Z& Lib "CHEETAH2.DLL" Alias "XDBFIELDNUMBER_Z" (ByVal dbHandle&, FieldName As Asciiz)
     Declare Function xdbRecordNumber& Lib "CHEETAH2.DLL" Alias "XDBRECORDNUMBER" (ByVal DBFhandle&)
     Declare Function xdbRecordNumber_Z& Lib "CHEETAH2.DLL" Alias "XDBRECORDNUMBER_Z" (ByVal DBFhandle&)
     Declare Sub xdbLastUpdated Lib "CHEETAH2.DLL" Alias "XDBLASTUPDATED" (ByVal dbHandle&, YearNr&, MonthNr&, DayNr&)
     Declare Sub xdbLastUpdated_Z Lib "CHEETAH2.DLL" Alias "XDBLASTUPDATED_Z" (ByVal dbHandle&, YearNr&, MonthNr&, DayNr&)
     Declare Sub xdbFieldInfo Lib "CHEETAH2.DLL" Alias "XDBFIELDINFO" (ByVal DBFhandle&, ByVal FieldNumber&, FieldName$, FieldType$, FieldLength&, FieldDecimals&)
     Declare Sub xdbFieldInfo_Z Lib "CHEETAH2.DLL" Alias "XDBFIELDINFO_Z" (ByVal DBFhandle&, ByVal FieldNumber&, zFieldName As Long, zFieldType As Long, FieldLength&, FieldDecimals&)
     Declare Function xdbFieldName$ Lib "CHEETAH2.DLL" Alias "XDBFIELDNAME" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Function xdbFieldName_Z Lib "CHEETAH2.DLL" Alias "XDBFIELDNAME_Z" (ByVal DBFhandle&, ByVal FieldNumber&) As Long
     Declare Function xdbFieldType$ Lib "CHEETAH2.DLL" Alias "XDBFIELDTYPE" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Function xdbFieldType_Z Lib "CHEETAH2.DLL" Alias "XDBFIELDTYPE_Z" (ByVal DBFhandle&, ByVal FieldNumber&) As Long
     Declare Function xdbFieldLength& Lib "CHEETAH2.DLL" Alias "XDBFIELDLENGTH" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Function xdbFieldLength_Z& Lib "CHEETAH2.DLL" Alias "XDBFIELDLENGTH_Z" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Function xdbFieldDecimals& Lib "CHEETAH2.DLL" Alias "XDBFIELDDECIMALS" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Function xdbFieldDecimals_Z& Lib "CHEETAH2.DLL" Alias "XDBFIELDDECIMALS_Z" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Sub xdbDatabaseHandles Lib "CHEETAH2.DLL" Alias "XDBDATABASEHANDLES" (DBFfilename$, CheetahHandle&, WindowsHandle&)
     Declare Sub xdbDatabaseHandles_Z Lib "CHEETAH2.DLL" Alias "XDBDATABASEHANDLES_Z" (DBFfilename As Asciiz, CheetahHandle&, WindowsHandle&)
     Declare Sub xdbIndexHandles Lib "CHEETAH2.DLL" Alias "XDBINDEXHANDLES" (IDXfilename$, CheetahHandle&, WindowsHandle&)
     Declare Sub xdbIndexHandles_Z Lib "CHEETAH2.DLL" Alias "XDBINDEXHANDLES_Z" (IDXfilename As Asciiz, CheetahHandle&, WindowsHandle&)

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Navigating the Database 
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbEOF& Lib "CHEETAH2.DLL" Alias "XDBEOF" (ByVal DBFhandle&)
     Declare Function xdbEOF_Z& Lib "CHEETAH2.DLL" Alias "XDBEOF_Z" (ByVal DBFhandle&)
     Declare Function xdbBOF& Lib "CHEETAH2.DLL" Alias "XDBBOF" (ByVal DBFhandle&)
     Declare Function xdbBOF_Z& Lib "CHEETAH2.DLL" Alias "XDBBOF_Z" (ByVal DBFhandle&)