vbcheet2.bas

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

' ****************************************************************************************************
' VBCHEET2.BAS - CHEETAH DATABASE SYSTEM DLL DECLARES
'
' DECLARES FOR VISUALBASIC COMPILERS.
' Created: 03-08-2006
' ****************************************************************************************************

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Creation/Opening/Closing 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbCreate Lib "CHEETAH2.DLL" Alias "XDBCREATEVB" (dbFile$, FieldArray$())

' ----------------------------------------------------------------------------------------------------
'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 "XDBCREATEEXTENDEDVB" (tFileName$, FieldArray$(), ByVal MemoBlockSize&, ByVal Algorithm&, EncryptionKey$) 
     Declare Function xdbOpen& Lib "CHEETAH2.DLL" Alias "XDBOPEN" (dbFile$, Optional EncryptionKey$)
     Declare Function xdbOpenEX& Lib "CHEETAH2.DLL" Alias "XDBOPENEX" (dbFile$, ByVal AccessMode&, ByVal ShareMode&, Optional EncryptionKey$)
     Declare Function xdbAlias$ Lib "CHEETAH2.DLL" Alias "XDBALIAS" (ByVal dbHandle&)
     Declare Sub xdbSetAlias Lib "CHEETAH2.DLL" Alias "XDBSETALIAS" (ByVal dbHandle&, AliasName$)
     Declare Sub xdbCreateFields Lib "CHEETAH2.DLL" Alias "XDBCREATEFIELDS" (mFileName$)
     Declare Sub xdbCreateFieldsExtended Lib "CHEETAH2.DLL" Alias "XDBCREATEFIELDSEXTENDED" (mFileName$, ByVal MemoBlockSize&, ByVal Algorithm&, EncryptionKey$) 
     Declare Sub xdbAddField Lib "CHEETAH2.DLL" Alias "XDBADDFIELD" (FieldInfoString$)
     Declare Sub xdbClose Lib "CHEETAH2.DLL" Alias "XDBCLOSE" (ByVal dbHandle&)
     Declare Sub xdbCloseAllIndexes Lib "CHEETAH2.DLL" Alias "XDBCLOSEALLINDEXES" (ByVal dbHandle&)

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - MultiUser & Locking  
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbMultiUser Lib "CHEETAH2.DLL" Alias "XDBMULTIUSER" (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 xdbActivate Lib "CHEETAH2.DLL" Alias "XDBACTIVATE" (ByVal ActivateNumber As Long) 
     Declare Function xdbSetExclusiveLock& Lib "CHEETAH2.DLL" Alias "XDBSETEXCLUSIVELOCK" (ByVal DBFhandle&) 
     Declare Sub xdbRemoveExclusiveLock Lib "CHEETAH2.DLL" Alias "XDBREMOVEEXCLUSIVELOCK" (ByVal DBFhandle&, ByVal LOCK_NUM&) 
     Declare Function xdbSetEditLock& Lib "CHEETAH2.DLL" Alias "XDBSETEDITLOCK" (ByVal DBFhandle&, ByVal RecordNumber&) 
     Declare Sub xdbRemoveEditLock Lib "CHEETAH2.DLL" Alias "XDBREMOVEEDITLOCK" (ByVal DBFhandle&, ByVal LOCK_NUM&) 
     Declare Function xdbIsEditLock& Lib "CHEETAH2.DLL" Alias "XDBISEDITLOCK" (ByVal DBFhandle&, ByVal RecordNumber&)  

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Adding/Deleting Records 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbAddRecord Lib "CHEETAH2.DLL" Alias "XDBADDRECORD" (ByVal dbHandle&)
     Declare Sub xdbAppendRecord Lib "CHEETAH2.DLL" Alias "XDBAPPENDRECORD" (ByVal DBFhandle&)
     Declare Sub xdbClearBuffer Lib "CHEETAH2.DLL" Alias "XDBCLEARBUFFER" (ByVal dbHandle&)
     Declare Sub xdbPutRecord Lib "CHEETAH2.DLL" Alias "XDBPUTRECORD" (ByVal dbHandle&, RN&)
     Declare Sub xdbGetRecord Lib "CHEETAH2.DLL" Alias "XDBGETRECORD" (ByVal dbHandle&, ByVal RN&)
     Declare Sub xdbDeleteRecord Lib "CHEETAH2.DLL" Alias "XDBDELETERECORD" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Sub xdbRecallRecord Lib "CHEETAH2.DLL" Alias "XDBRECALLRECORD" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Function xdbDeleted& Lib "CHEETAH2.DLL" Alias "XDBDELETED" (ByVal DBFhandle&, ByVal RecordNumber&)
     Declare Sub xdbFlushDatabase Lib "CHEETAH2.DLL" Alias "XDBFLUSHDATABASE" (ByVal dbHandle&)
     Declare Sub xdbPack Lib "CHEETAH2.DLL" Alias "XDBPACK" ( ByVal DBFhandle&)
     Declare Sub xdbZap Lib "CHEETAH2.DLL" Alias "XDBZAP" ( ByVal DBFhandle&)
     Declare Function xdbRecordBuffer$ Lib "CHEETAH2.DLL" Alias "XDBRECORDBUFFER" (ByVal DBFhandle&) 
     Declare Sub xdbSpeedAppend Lib "CHEETAH2.DLL" Alias "XDBSPEEDAPPEND" (ByVal DBFhandle&, ByVal TrueFalse&)

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Database Information
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbRecordCount& Lib "CHEETAH2.DLL" Alias "XDBRECORDCOUNT" (ByVal dbHandle&)
     Declare Function xdbFieldCount& Lib "CHEETAH2.DLL" Alias "XDBFIELDCOUNT" (ByVal dbHandle&)
     Declare Function xdbFieldNumber& Lib "CHEETAH2.DLL" Alias "XDBFIELDNUMBER" (ByVal dbHandle&, FieldName$)
     Declare Function xdbRecordNumber& Lib "CHEETAH2.DLL" Alias "XDBRECORDNUMBER" (ByVal DBFhandle&)
     Declare Sub xdbLastUpdated Lib "CHEETAH2.DLL" Alias "XDBLASTUPDATED" (ByVal dbHandle&, YearNr&, MonthNr&, DayNr&)
     Declare Sub xdbFieldInfo Lib "CHEETAH2.DLL" Alias "XDBFIELDINFO" (ByVal DBFhandle&, ByVal FieldNumber&, FieldName$, FieldType$, FieldLength&, FieldDecimals&)
     Declare Function xdbFieldName$ Lib "CHEETAH2.DLL" Alias "XDBFIELDNAME" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Function xdbFieldType$ Lib "CHEETAH2.DLL" Alias "XDBFIELDTYPE" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Function xdbFieldLength& Lib "CHEETAH2.DLL" Alias "XDBFIELDLENGTH" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Function xdbFieldDecimals& Lib "CHEETAH2.DLL" Alias "XDBFIELDDECIMALS" (ByVal DBFhandle&, ByVal FieldNumber&)
     Declare Sub xdbDatabaseHandles Lib "CHEETAH2.DLL" Alias "XDBDATABASEHANDLES" (DBFfilename$, CheetahHandle&, WindowsHandle&)
     Declare Sub xdbIndexHandles Lib "CHEETAH2.DLL" Alias "XDBINDEXHANDLES" (IDXfilename$, CheetahHandle&, WindowsHandle&)

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Navigating the Database 
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbEOF& Lib "CHEETAH2.DLL" Alias "XDBEOF" (ByVal DBFhandle&)
     Declare Function xdbBOF& Lib "CHEETAH2.DLL" Alias "XDBBOF" (ByVal DBFhandle&)
     Declare Sub xdbMoveFirst Lib "CHEETAH2.DLL" Alias "XDBMOVEFIRST" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMoveNext Lib "CHEETAH2.DLL" Alias "XDBMOVENEXT" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMoveLast Lib "CHEETAH2.DLL" Alias "XDBMOVELAST" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMovePrev Lib "CHEETAH2.DLL" Alias "XDBMOVEPREV" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbSkipDeleted Lib "CHEETAH2.DLL" Alias "XDBSKIPDELETED" (ByVal DBFhandle&, ByVal TrueFalse&)
     Declare Function xdbKeyPosition& Lib "CHEETAH2.DLL" Alias "XDBKEYPOSITION" (ByVal DBFhandle&, ByVal IDXhandle&, ByVal KeyPosition&) 

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Assigning Field Values 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbAssignField Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELD" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldString$)
     Declare Sub xdbAssignFieldINT Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDINT" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldInteger%)
     Declare Sub xdbAssignFieldLNG Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDLNG" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldLong&)
     Declare Sub xdbAssignFieldSNG Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDSNG" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldSingle!)
     Declare Sub xdbAssignFieldDBL Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDDBL" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldDouble#)
     Declare Sub xdbAssignFieldCUR Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDCUR" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldCurrency@)

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Retrieving Field Values 
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbFieldValue$ Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUE" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueINT% Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUEINT" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueLNG& Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUELNG" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueSNG! Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUESNG" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueDBL# Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUEDBL" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueCUR@ Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUECUR" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Sub xdbFieldPadding Lib "CHEETAH2.DLL" Alias "XDBFIELDPADDING" (ByVal DBFhandle&, ByVal TrueFalse&)

' ----------------------------------------------------------------------------------------------------
' INDEX ROUTINES - Creation/Opening/Closing 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbCreateIndex Lib "CHEETAH2.DLL" Alias "XDBCREATEINDEX" (iFilename$, ByVal dbHandle&, IndexExpression$, ByVal Duplicates&)
     Declare Function xdbOpenIndex& Lib "CHEETAH2.DLL" Alias "XDBOPENINDEX" (iFilename$, ByVal dbHandle&)
     Declare Sub xdbCloseIndex Lib "CHEETAH2.DLL" Alias "XDBCLOSEINDEX" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbReindex Lib "CHEETAH2.DLL" Alias "XDBREINDEX" (ByVal DBFhandle&, ByVal idxHandle&, Optional ByVal ContinueOrError&)
     Declare Sub xdbReindexAll Lib "CHEETAH2.DLL" Alias "XDBREINDEXALL" (ByVal DBFhandle&, Optional ByVal ContinueOrError&) 
     Declare Function xdbSeek& Lib "CHEETAH2.DLL" Alias "XDBSEEK" (ByVal DBFhandle&, ByVal idxHandle&, LookForKey$)
     Declare Function xdbSeekNext& Lib "CHEETAH2.DLL" Alias "XDBSEEKNEXT" (ByVal dbHandle&, ByVal idxHandle&, LookForKey$)
     Declare Function xdbSeekPartial& Lib "CHEETAH2.DLL" Alias "XDBSEEKPARTIAL" (ByVal dbHandle&, ByVal idxHandle&, LookForKey$)
     Declare Function xdbSeekPartialNext& Lib "CHEETAH2.DLL" Alias "XDBSEEKPARTIALNEXT" (ByVal dbHandle&, ByVal idxHandle&, LookForKey$)
     Declare Sub xdbSetCallback Lib "CHEETAH2.DLL" Alias "XDBSETCALLBACK" (ByVal hWnd&)

' ----------------------------------------------------------------------------------------------------
' INDEX ROUTINES - Index information 
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbKeyLength& Lib "CHEETAH2.DLL" Alias "XDBKEYLENGTH" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyCount& Lib "CHEETAH2.DLL" Alias "XDBKEYCOUNT" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyUnique& Lib "CHEETAH2.DLL" Alias "XDBKEYUNIQUE" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyExpression$ Lib "CHEETAH2.DLL" Alias "XDBKEYEXPRESSION" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbMKL$ Lib "CHEETAH2.DLL" Alias "XDBMKL" (ByVal LongValue&)
     Declare Function xdbMKI$ Lib "CHEETAH2.DLL" Alias "XDBMKI" (ByVal IntegerValue%)