cheetah2.inc

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

     Declare Sub xdbMoveFirst Lib "CHEETAH2.DLL" Alias "XDBMOVEFIRST" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMoveFirst_Z Lib "CHEETAH2.DLL" Alias "XDBMOVEFIRST_Z" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMoveNext Lib "CHEETAH2.DLL" Alias "XDBMOVENEXT" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMoveNext_Z Lib "CHEETAH2.DLL" Alias "XDBMOVENEXT_Z" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMoveLast Lib "CHEETAH2.DLL" Alias "XDBMOVELAST" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMoveLast_Z Lib "CHEETAH2.DLL" Alias "XDBMOVELAST_Z" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMovePrev Lib "CHEETAH2.DLL" Alias "XDBMOVEPREV" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbMovePrev_Z Lib "CHEETAH2.DLL" Alias "XDBMOVEPREV_Z" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbSkipDeleted Lib "CHEETAH2.DLL" Alias "XDBSKIPDELETED" (ByVal DBFhandle&, ByVal TrueFalse&)
     Declare Sub xdbSkipDeleted_Z Lib "CHEETAH2.DLL" Alias "XDBSKIPDELETED_Z" (ByVal DBFhandle&, ByVal TrueFalse&)
     Declare Function xdbKeyPosition& Lib "CHEETAH2.DLL" Alias "XDBKEYPOSITION" (ByVal DBFhandle&, ByVal IDXhandle&, ByVal KeyPosition&) 
     Declare Function xdbKeyPosition_Z& Lib "CHEETAH2.DLL" Alias "XDBKEYPOSITION_Z" (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 xdbAssignField_Z Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELD_Z" (ByVal dbHandle&, FieldName As Asciiz, ByVal FieldNumber&, FieldString As Asciiz)
     Declare Sub xdbAssignMemo_Z Lib "CHEETAH2.DLL" Alias "XDBASSIGNMEMO_Z" (ByVal dbHandle&, zFieldName As Asciiz, ByVal FieldNumber&, ByVal MemAddress As Long, StringLength As Long)
     Declare Sub xdbAssignFieldINT Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDINT" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldInteger%)
     Declare Sub xdbAssignFieldINT_Z Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDINT_Z" (ByVal dbHandle&, FieldName As Asciiz, ByVal FieldNumber&, FieldInteger%)
     Declare Sub xdbAssignFieldLNG Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDLNG" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldLong&)
     Declare Sub xdbAssignFieldLNG_Z Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDLNG_Z" (ByVal dbHandle&, FieldName As Asciiz, ByVal FieldNumber&, FieldLong&)
     Declare Sub xdbAssignFieldSNG Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDSNG" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldSingle!)
     Declare Sub xdbAssignFieldSNG_Z Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDSNG_Z" (ByVal dbHandle&, FieldName As Asciiz, ByVal FieldNumber&, FieldSingle!)
     Declare Sub xdbAssignFieldDBL Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDDBL" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldDouble#)
     Declare Sub xdbAssignFieldDBL_Z Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDDBL_Z" (ByVal dbHandle&, FieldName As Asciiz, ByVal FieldNumber&, FieldDouble#)
     Declare Sub xdbAssignFieldCUR Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDCUR" (ByVal dbHandle&, FieldName$, ByVal FieldNumber&, FieldCurrency@)
     Declare Sub xdbAssignFieldCUR_Z Lib "CHEETAH2.DLL" Alias "XDBASSIGNFIELDCUR_Z" (ByVal dbHandle&, FieldName As Asciiz, ByVal FieldNumber&, FieldCurrency@)

' ----------------------------------------------------------------------------------------------------
' DATABASE ROUTINES - Retrieving Field Values 
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbMemoValueLen_Z Lib "CHEETAH2.DLL" Alias "XDBMEMOVALUELEN_Z" (ByVal DBFhandle&, FieldName As Asciiz, ByVal FieldCode&) As Long
     Declare Function xdbMemoValueAddr_Z Lib "CHEETAH2.DLL" Alias "XDBMEMOVALUEADDR_Z" (ByVal DBFhandle&, FieldName As Asciiz, ByVal FieldCode&) As Long
     Declare Function xdbFieldValue$ Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUE" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValue_Z Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUE_Z" (ByVal DBFhandle&, FieldName As Asciiz, ByVal FieldCode&) As Long
     Declare Function xdbFieldValueINT% Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUEINT" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueINT_Z% Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUEINT_Z" (ByVal DBFhandle&, FieldName As Asciiz, ByVal FieldCode&)
     Declare Function xdbFieldValueLNG& Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUELNG" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueLNG_Z& Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUELNG_Z" (ByVal DBFhandle&, FieldName As Asciiz, ByVal FieldCode&)
     Declare Function xdbFieldValueSNG! Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUESNG" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueSNG_Z! Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUESNG_Z" (ByVal DBFhandle&, FieldName As Asciiz, ByVal FieldCode&)
     Declare Function xdbFieldValueDBL# Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUEDBL" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueDBL_Z# Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUEDBL_Z" (ByVal DBFhandle&, FieldName As Asciiz, ByVal FieldCode&)
     Declare Function xdbFieldValueCUR@ Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUECUR" (ByVal DBFhandle&, FieldName$, ByVal FieldCode&)
     Declare Function xdbFieldValueCUR_Z@ Lib "CHEETAH2.DLL" Alias "XDBFIELDVALUECUR_Z" (ByVal DBFhandle&, FieldName As Asciiz, ByVal FieldCode&)
     Declare Sub xdbFieldPadding Lib "CHEETAH2.DLL" Alias "XDBFIELDPADDING" (ByVal DBFhandle&, ByVal TrueFalse&)
     Declare Sub xdbFieldPadding_Z Lib "CHEETAH2.DLL" Alias "XDBFIELDPADDING_Z" (ByVal DBFhandle&, ByVal TrueFalse&)

' ----------------------------------------------------------------------------------------------------
' INDEX ROUTINES - Creation/Opening/Closing 
' ----------------------------------------------------------------------------------------------------
     Declare Sub xdbCreateIndex Lib "CHEETAH2.DLL" Alias "XDBCREATEINDEX" (iFilename$, ByVal dbHandle&, IndexExpression$, ByVal Duplicates&)
     Declare Sub xdbCreateIndex_Z Lib "CHEETAH2.DLL" Alias "XDBCREATEINDEX_Z" (iFilename As Asciiz, ByVal dbHandle&, IndexExpression As Asciiz, ByVal Duplicates&)
     Declare Function xdbOpenIndex& Lib "CHEETAH2.DLL" Alias "XDBOPENINDEX" (iFilename$, ByVal dbHandle&)
     Declare Function xdbOpenIndex_Z& Lib "CHEETAH2.DLL" Alias "XDBOPENINDEX_Z" (iFilename As Asciiz, ByVal dbHandle&)
     Declare Sub xdbCloseIndex Lib "CHEETAH2.DLL" Alias "XDBCLOSEINDEX" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbCloseIndex_Z Lib "CHEETAH2.DLL" Alias "XDBCLOSEINDEX_Z" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Sub xdbReindex Lib "CHEETAH2.DLL" Alias "XDBREINDEX" (ByVal DBFhandle&, ByVal idxHandle&, Optional ByVal ContinueOrError&)
     Declare Sub xdbReindex_Z Lib "CHEETAH2.DLL" Alias "XDBREINDEX_Z" (ByVal DBFhandle&, ByVal idxHandle&, Optional ByVal ContinueOrError&)
     Declare Sub xdbReindexAll Lib "CHEETAH2.DLL" Alias "XDBREINDEXALL" (ByVal DBFhandle&, Optional ByVal ContinueOrError&) 
     Declare Sub xdbReindexAll_Z Lib "CHEETAH2.DLL" Alias "XDBREINDEXALL_Z" (ByVal DBFhandle&, Optional ByVal ContinueOrError&) 
     Declare Function xdbSeek& Lib "CHEETAH2.DLL" Alias "XDBSEEK" (ByVal DBFhandle&, ByVal idxHandle&, LookForKey$)
     Declare Function xdbSeek_Z& Lib "CHEETAH2.DLL" Alias "XDBSEEK_Z" (ByVal DBFhandle&, ByVal idxHandle&, LookForKey As Asciiz)
     Declare Function xdbSeekNext& Lib "CHEETAH2.DLL" Alias "XDBSEEKNEXT" (ByVal dbHandle&, ByVal idxHandle&, LookForKey$)
     Declare Function xdbSeekNext_Z& Lib "CHEETAH2.DLL" Alias "XDBSEEKNEXT_Z" (ByVal dbHandle&, ByVal idxHandle&, LookForKey As Asciiz)
     Declare Function xdbSeekPartial& Lib "CHEETAH2.DLL" Alias "XDBSEEKPARTIAL" (ByVal dbHandle&, ByVal idxHandle&, LookForKey$)
     Declare Function xdbSeekPartial_Z& Lib "CHEETAH2.DLL" Alias "XDBSEEKPARTIAL_Z" (ByVal dbHandle&, ByVal idxHandle&, LookForKey As Asciiz)
     Declare Function xdbSeekPartialNext& Lib "CHEETAH2.DLL" Alias "XDBSEEKPARTIALNEXT" (ByVal dbHandle&, ByVal idxHandle&, LookForKey$)
     Declare Function xdbSeekPartialNext_Z& Lib "CHEETAH2.DLL" Alias "XDBSEEKPARTIALNEXT_Z" (ByVal dbHandle&, ByVal idxHandle&, LookForKey As Asciiz)
     Declare Sub xdbSetCallback Lib "CHEETAH2.DLL" Alias "XDBSETCALLBACK" (ByVal hWnd&)
     Declare Sub xdbSetCallback_Z Lib "CHEETAH2.DLL" Alias "XDBSETCALLBACK_Z" (ByVal hWnd&)

' ----------------------------------------------------------------------------------------------------
' INDEX ROUTINES - Index information 
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbKeyLength& Lib "CHEETAH2.DLL" Alias "XDBKEYLENGTH" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyLength_Z& Lib "CHEETAH2.DLL" Alias "XDBKEYLENGTH_Z" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyCount& Lib "CHEETAH2.DLL" Alias "XDBKEYCOUNT" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyCount_Z& Lib "CHEETAH2.DLL" Alias "XDBKEYCOUNT_Z" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyUnique& Lib "CHEETAH2.DLL" Alias "XDBKEYUNIQUE" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyUnique_Z& Lib "CHEETAH2.DLL" Alias "XDBKEYUNIQUE_Z" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyExpression$ Lib "CHEETAH2.DLL" Alias "XDBKEYEXPRESSION" (ByVal DBFhandle&, ByVal idxHandle&)
     Declare Function xdbKeyExpression_Z Lib "CHEETAH2.DLL" Alias "XDBKEYEXPRESSION_Z" (ByVal DBFhandle&, ByVal idxHandle&) As Long
     Declare Function xdbMKL$ Lib "CHEETAH2.DLL" Alias "XDBMKL" (ByVal LongValue&)
     Declare Function xdbMKL_Z Lib "CHEETAH2.DLL" Alias "XDBMKL_Z" (ByVal LongValue&) As Long
     Declare Function xdbMKI$ Lib "CHEETAH2.DLL" Alias "XDBMKI" (ByVal IntegerValue%)
     Declare Function xdbMKI_Z Lib "CHEETAH2.DLL" Alias "XDBMKI_Z" (ByVal IntegerValue%) As Long

' ----------------------------------------------------------------------------------------------------
' QUERY ROUTINES 
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbCreateQuery& Lib "CHEETAH2.DLL" Alias "XDBCREATEQUERY" (ByVal DBFhandle&)
     Declare Function xdbCreateQuery_Z& Lib "CHEETAH2.DLL" Alias "XDBCREATEQUERY_Z" (ByVal DBFhandle&)
     Declare Sub xdbQueryCondition Lib "CHEETAH2.DLL" Alias "XDBQUERYCONDITION" (ByVal QueryHandle&, ByVal JoinPhrase&, FieldName$, ByVal Equality&, vParameter1$, vParameter2$)
     Declare Sub xdbQueryCondition_Z Lib "CHEETAH2.DLL" Alias "XDBQUERYCONDITION_Z" (ByVal QueryHandle&, ByVal JoinPhrase&, FieldName As Asciiz, ByVal Equality&, vParameter1 As Asciiz, vParameter2 As Asciiz)
     Declare Sub xdbQuerySort Lib "CHEETAH2.DLL" Alias "XDBQUERYSORT" (ByVal QueryHandle&, FieldName$, ByVal SortDirection&) 
     Declare Sub xdbQuerySort_Z Lib "CHEETAH2.DLL" Alias "XDBQUERYSORT_Z" (ByVal QueryHandle&, FieldName As Asciiz, ByVal SortDirection&) 
     Declare Sub xdbQueryExecute Lib "CHEETAH2.DLL" Alias "XDBQUERYEXECUTE" (ByVal QueryHandle&)
     Declare Sub xdbQueryExecute_Z Lib "CHEETAH2.DLL" Alias "XDBQUERYEXECUTE_Z" (ByVal QueryHandle&)
     Declare Function xdbQuerySUM# Lib "CHEETAH2.DLL" Alias "XDBQUERYSUM" (ByVal QueryHandle&, FieldName$)
     Declare Function xdbQuerySUM_Z# Lib "CHEETAH2.DLL" Alias "XDBQUERYSUM_Z" (ByVal QueryHandle&, FieldName As Asciiz)
     Declare Function xdbQueryMIN# Lib "CHEETAH2.DLL" Alias "XDBQUERYMIN" (ByVal QueryHandle&, FieldName$)
     Declare Function xdbQueryMIN_Z# Lib "CHEETAH2.DLL" Alias "XDBQUERYMIN_Z" (ByVal QueryHandle&, FieldName As Asciiz)
     Declare Function xdbQueryMAX# Lib "CHEETAH2.DLL" Alias "XDBQUERYMAX" (ByVal QueryHandle&, FieldName$)
     Declare Function xdbQueryMAX_Z# Lib "CHEETAH2.DLL" Alias "XDBQUERYMAX_Z" (ByVal QueryHandle&, FieldName As Asciiz)
     Declare Function xdbQueryAVG# Lib "CHEETAH2.DLL" Alias "XDBQUERYAVG" (ByVal QueryHandle&, FieldName$)
     Declare Function xdbQueryAVG_Z# Lib "CHEETAH2.DLL" Alias "XDBQUERYAVG_Z" (ByVal QueryHandle&, FieldName As Asciiz)
     Declare Sub xdbQueryDistinct Lib "CHEETAH2.DLL" Alias "XDBQUERYDISTINCT" (ByVal QueryHandle&, DistinctFieldName$) 
     Declare Sub xdbQueryDistinct_Z Lib "CHEETAH2.DLL" Alias "XDBQUERYDISTINCT_Z" (ByVal QueryHandle&, DistinctFieldName As Asciiz) 
     Declare Sub xdbHtmlStripTag Lib "CHEETAH2.DLL" Alias "XDBHTMLSTRIPTAG" (ByVal QueryHandle&, ByVal TrueFalse&) 
     Declare Sub xdbHtmlStripTag_Z Lib "CHEETAH2.DLL" Alias "XDBHTMLSTRIPTAG_Z" (ByVal QueryHandle&, ByVal TrueFalse&) 
     Declare Sub xdbDestroyQuery Lib "CHEETAH2.DLL" Alias "XDBDESTROYQUERY" (ByVal QueryHandle&)
     Declare Sub xdbDestroyQuery_Z Lib "CHEETAH2.DLL" Alias "XDBDESTROYQUERY_Z" (ByVal QueryHandle&)
     Declare Function xdbQueryIndex& Lib "CHEETAH2.DLL" Alias "XDBQUERYINDEX" (ByVal QueryHandle&)
     Declare Function xdbQueryIndex_Z& Lib "CHEETAH2.DLL" Alias "XDBQUERYINDEX_Z" (ByVal QueryHandle&)

' ----------------------------------------------------------------------------------------------------
' DATE ROUTINES  
' ----------------------------------------------------------------------------------------------------
     Declare Function xdbDaysApart& Lib "CHEETAH2.DLL" Alias "XDBDAYSAPART" (DateFrom$, DateTo$) 
     Declare Function xdbDaysApart_Z& Lib "CHEETAH2.DLL" Alias "XDBDAYSAPART_Z" (DateFrom As Asciiz, DateTo As Asciiz) 
     Declare Function xdbDaysInMonth& Lib "CHEETAH2.DLL" Alias "XDBDAYSINMONTH" (ByVal Year&, ByVal Month&) 
     Declare Function xdbDaysInMonth_Z& Lib "CHEETAH2.DLL" Alias "XDBDAYSINMONTH_Z" (ByVal Year&, ByVal Month&) 
     Declare Function xdbAddDate$ Lib "CHEETAH2.DLL" Alias "XDBADDDATE" (StartDate$, ByVal Days&) 
     Declare Function xdbAddDate_Z Lib "CHEETAH2.DLL" Alias "XDBADDDATE_Z" (StartDate As Asciiz, ByVal Days&) As Long