[bb] Cheetah DB by Knotz [ 1+ years ago ]

[BlitzBot]

Title : Cheetah DB
Author : Knotz
Posted : 1+ years ago

Description : Cheetah DB is a free DBase III compatible databse engine. It's robust, fast and has multi-user capabilities.

Look at Paul Squires' website to get Cheetah:
<a href="http://www.planetsquires.com/" target="_blank">http://www.planetsquires.com</a>

Code :

Code (blitzbasic) Select Expand

.lib "Cheetah2.dll"

; ----------------------------------------------------------------------------------------------------
; DATABASE ROUTINES - Creation/Opening/Closing
; ----------------------------------------------------------------------------------------------------
xdbCreate(dbFile$, AllFields$):"XDBCREATE_Z"
xdbCreateExtended (tFileName$, AllFields$, MemoBlockSize%, Algorithm%, EncryptionKey$):"XDBCREATEEXTENDED_Z"
xdbOpen% (dbFile$, EncryptionKey$):"XDBOPEN_Z"
xdbOpenEX%(dbFile$, AccessMode%, ShareMode%, EncryptionKey$):"XDBOPENEX_Z"
xdbAlias%(dbHandle%):"XDBALIAS_Z"
xdbSetAlias(dbHandle%, AliasName$):"XDBSETALIAS_Z"
xdbCreateFields(mFileName$):"XDBCREATEFIELDS_Z"
xdbCreateFieldsExtended(mFileName$, MemoBlockSize%, Algorithm%, EncryptionKey$):"XDBCREATEFIELDSEXTENDED_Z"
xdbAddField(FieldInfoString$):"XDBADDFIELD_Z"
xdbClose(dbHandle%):"XDBCLOSE_Z"
xdbCloseAllIndexes(dbHandle%):"XDBCLOSEALLINDEXES_Z"

; ----------------------------------------------------------------------------------------------------
; DATABASE ROUTINES - MultiUser % Locking  
; ----------------------------------------------------------------------------------------------------
xdbMultiUser(TrueFalse%, NumRetries%, WaitTime%):"XDBMULTIUSER_Z"  
xdbFailedLockInfo(DBFhandle%, zReason%, zUsername%, zWorkstation%, zLockDate%, zLockTime%):"XDBFAILEDLOCKINFO_Z"
xdbSetExclusiveLock%(DBFhandle%):"XDBSETEXCLUSIVELOCK_Z"  
xdbRemoveExclusiveLock(DBFhandle%, LOCK_NUM%):"XDBREMOVEEXCLUSIVELOCK_Z"  
xdbSetEditLock%(DBFhandle%, RecordNumber%) :"XDBSETEDITLOCK_Z"
xdbRemoveEditLock(DBFhandle%, LOCK_NUM%):"XDBREMOVEEDITLOCK_Z"  
xdbIsEditLock%(DBFhandle%, RecordNumber%):"XDBISEDITLOCK_Z"  

; ----------------------------------------------------------------------------------------------------
; DATABASE ROUTINES - Adding/Deleting Records
; ----------------------------------------------------------------------------------------------------
xdbAddRecord(dbHandle%):"XDBADDRECORD_Z"
xdbAppendRecord(DBFhandle%):"XDBAPPENDRECORD_Z"
xdbClearBuffer(dbHandle%):"XDBCLEARBUFFER_Z"
xdbPutRecord(dbHandle%, RN%):"XDBPUTRECORD_Z"
xdbGetRecord(dbHandle%, RN%):"XDBGETRECORD_Z"
xdbDeleteRecord(DBFhandle%, RecordNumber%):"XDBDELETERECORD_Z"
xdbRecallRecord(DBFhandle%, RecordNumber%):"XDBRECALLRECORD_Z"
xdbDeleted%(DBFhandle%, RecordNumber%):"XDBDELETED_Z"
xdbFlushDatabase(dbHandle%):"XDBFLUSHDATABASE_Z"
xdbPack( DBFhandle%):"XDBPACK_Z"
xdbZap( DBFhandle%):"XDBZAP_Z"
xdbRecordBuffer%(DBFhandle%):"XDBRECORDBUFFER_Z"
xdbSpeedAppend(DBFhandle%, TrueFalse%):"XDBSPEEDAPPEND_Z"

; ----------------------------------------------------------------------------------------------------
; DATABASE ROUTINES - Database Information
; ----------------------------------------------------------------------------------------------------
xdbRecordCount%(dbHandle%):"XDBRECORDCOUNT_Z"
xdbFieldCount%(dbHandle%):"XDBFIELDCOUNT_Z"
xdbFieldNumber%(dbHandle%, FieldName$):"XDBFIELDNUMBER_Z"
xdbRecordNumber%(DBFhandle%):"XDBRECORDNUMBER_Z"
xdbLastUpdated(dbHandle%, YearNr%, MonthNr%, DayNr%):"XDBLASTUPDATED_Z"
xdbFieldInfo(DBFhandle%, FieldNumber%, zFieldName%, zFieldType%, FieldLength%, FieldDecimals%):"XDBFIELDINFO_Z"
xdbFieldName%(DBFhandle%, FieldNumber%):"XDBFIELDNAME_Z"
xdbFieldType%(DBFhandle%, FieldNumber%):"XDBFIELDTYPE_Z"
xdbFieldLength%(DBFhandle%, FieldNumber%):"XDBFIELDLENGTH_Z"
xdbFieldDecimals%(DBFhandle%, FieldNumber%):"XDBFIELDDECIMALS_Z"
xdbDatabaseHandles(DBFfilename$, CheetahHandle%, WindowsHandle%):"XDBDATABASEHANDLES_Z"
xdbIndexHandles(IDXfilename$, CheetahHandle%, WindowsHandle%):"XDBINDEXHANDLES_Z"

; ----------------------------------------------------------------------------------------------------
; DATABASE ROUTINES - Navigating the Database
; ----------------------------------------------------------------------------------------------------
xdbEOF%(DBFhandle%):"XDBEOF_Z"
xdbBOF%(DBFhandle%):"XDBBOF_Z"
xdbMoveFirst(DBFhandle%, idxHandle%):"XDBMOVEFIRST_Z"
xdbMoveNext(DBFhandle%, idxHandle%):"XDBMOVENEXT_Z"
xdbMoveLast(DBFhandle%, idxHandle%):"XDBMOVELAST_Z"
xdbMovePrev(DBFhandle%, idxHandle%):"XDBMOVEPREV_Z"
xdbSkipDeleted(DBFhandle%, TrueFalse%):"XDBSKIPDELETED_Z"
xdbKeyPosition%(IDXhandle%, KeyPosition%):"XDBKEYPOSITION_Z"  

; ----------------------------------------------------------------------------------------------------
; DATABASE ROUTINES - Assigning Field Values
; ----------------------------------------------------------------------------------------------------
xdbAssignField(dbHandle%, FieldName$, FieldNumber%, FieldString$):"XDBASSIGNFIELD_Z"
xdbAssignFieldINT(dbHandle%, FieldName$, FieldNumber%, FieldInteger%):"XDBASSIGNFIELDINT_Z"
xdbAssignFieldLNG(dbHandle%, FieldName$, FieldNumber%, FieldLong%):"XDBASSIGNFIELDLNG_Z"
xdbAssignFieldSNG(dbHandle%, FieldName$, FieldNumber%, FieldSingle#):"XDBASSIGNFIELDSNG_Z"
;xdbAssignFieldDBL(dbHandle%, FieldName$, FieldNumber%, FieldDouble#):"XDBASSIGNFIELDDBL_Z"

; ----------------------------------------------------------------------------------------------------
; DATABASE ROUTINES - Retrieving Field Values
; ----------------------------------------------------------------------------------------------------
xdbFieldValue$(DBFhandle%, FieldName$, FieldCode%):"XDBFIELDVALUE_Z"
xdbFieldValueINT%(DBFhandle%, FieldName$, FieldCode%):"XDBFIELDVALUEINT_Z"
xdbFieldValueLNG%(DBFhandle%, FieldName$, FieldCode%):"XDBFIELDVALUELNG_Z"
xdbFieldValueSNG#(DBFhandle%, FieldName$, FieldCode%):"XDBFIELDVALUESNG_Z"
;xdbFieldValueDBL_Z#(DBFhandle%, FieldName$, FieldCode%):"XDBFIELDVALUEDBL_Z" )
xdbFieldPadding(DBFhandle%, TrueFalse%):"XDBFIELDPADDING_Z"

; ----------------------------------------------------------------------------------------------------
; INDEX ROUTINES - Creation/Opening/Closing
; ----------------------------------------------------------------------------------------------------
xdbCreateIndex(iFilename$, dbHandle%, IndexExpression$, Duplicates%):"XDBCREATEINDEX_Z"
xdbOpenIndex%(iFilename$, dbHandle%):"XDBOPENINDEX_Z"
xdbCloseIndex(DBFhandle%, idxHandle%):"XDBCLOSEINDEX_Z"
xdbReindex(DBFhandle%, idxHandle%, ContinueOrError%):"XDBREINDEX_Z"
xdbReindexAll(DBFhandle%, ContinueOrError%):"XDBREINDEXALL_Z"  
xdbSeek%(DBFhandle%, idxHandle%, LookForKey$):"XDBSEEK_Z"
xdbSeekNext%(dbHandle%, idxHandle%, LookForKey$):"XDBSEEKNEXT_Z"
xdbSeekPartial%(dbHandle%, idxHandle%, LookForKey$):"XDBSEEKPARTIAL_Z"
xdbSeekPartialNext%(dbHandle%, idxHandle%, LookForKey$):"XDBSEEKPARTIALNEXT_Z"
xdbSetCallback(hWnd%):"XDBSETCALLBACK_Z"

; ----------------------------------------------------------------------------------------------------
; INDEX ROUTINES - Index information
; ----------------------------------------------------------------------------------------------------
xdbKeyLength%(DBFhandle%, idxHandle%):"XDBKEYLENGTH_Z"
xdbKeyCount%(DBFhandle%, idxHandle%):"XDBKEYCOUNT_Z"
xdbKeyUnique%(DBFhandle%, idxHandle%):"XDBKEYUNIQUE_Z"
xdbKeyExpression%(DBFhandle%, idxHandle%):"XDBKEYEXPRESSION_Z"
xdbMKL(LongValue%):"XDBMKL_Z"
xdbMKI(IntegerValue%):"XDBMKI_Z"

; ----------------------------------------------------------------------------------------------------
; QUERY ROUTINES
; ----------------------------------------------------------------------------------------------------
xdbCreateQuery%(DBFhandle%):"XDBCREATEQUERY_Z"
xdbQueryCondition(QueryHandle%, JoinPhrase%, FieldName$, Equality%, vParameter1$, vParameter2$):"XDBQUERYCONDITION_Z"
xdbQuerySort(QueryHandle%, FieldName$, SortDirection%):"XDBQUERYSORT_Z"  
xdbQueryExecute(QueryHandle%):"XDBQUERYEXECUTE_Z"
xdbQuerySUM_Z#(QueryHandle%, FieldName$):"XDBQUERYSUM_Z"
xdbQueryMIN_Z#(QueryHandle%, FieldName$):"XDBQUERYMIN_Z"
xdbQueryMAX_Z#(QueryHandle%, FieldName$):"XDBQUERYMAX_Z"
xdbQueryAVG_Z#(QueryHandle%, FieldName$):"XDBQUERYAVG_Z"
xdbQueryDistinct(QueryHandle%, DistinctFieldName$):"XDBQUERYDISTINCT_Z"
xdbHtmlStripTag(QueryHandle%, TrueFalse%):"XDBHTMLSTRIPTAG_Z"  
xdbDestroyQuery(QueryHandle%):"XDBDESTROYQUERY_Z"
xdbQueryIndex%(QueryHandle%):"XDBQUERYINDEX_Z"

; ----------------------------------------------------------------------------------------------------
; DATE ROUTINES  
; ----------------------------------------------------------------------------------------------------
xdbDaysApart%(DateFrom$, DateTo$):"XDBDAYSAPART_Z"  
xdbDaysInMonth%(Year%, Month%):"XDBDAYSINMONTH_Z"
xdbAddDate(StartDate$, Days%):"XDBADDDATE_Z"  
xdbNameOfDay%(DateCheck$):"XDBNAMEOFDAY_Z"  
xdbTodaysDate%():"XDBTODAYSDATE_Z"  
xdbValidDate%(DateCheck$):"XDBVALIDDATE_Z"  
xdbDateToJulian%(DateString$):"XDBDATETOJULIAN_Z"  
xdbJulianToDate%(JulianNumber%):"XDBJULIANTODATE_Z"
CTOD%(PBDate$):"CTOD_Z"  
DTOS%(xDate$):"DTOS_Z"

; ----------------------------------------------------------------------------------------------------
; MISCELLANEOUS ROUTINES
; ----------------------------------------------------------------------------------------------------
xdbResetError():"XDBRESETERROR_Z"
xdbError%():"XDBERROR_Z"
xdbVersion%():"XDBVERSION_Z"  
xdbRegisteredTo%():"XDBREGISTEREDTO_Z"  
xdbDebugMode(UserMode%):"XDBDEBUGMODE_Z"
xdbAppPath%():"XDBAPPPATH_Z"
xdbActivate(ActivateNumber%):"XDBACTIVATE_Z"
xdbFreeDLL():"XDBFREEDLL_Z"  
xdbIsEncrypted%(DBFhandle%):"XDBISENCRYPTED_Z"
xdbEncryptionMethod%(DBFhandle%):"XDBENCRYPTIONMETHOD_Z"  
xdbTempFileName%():"XDBTEMPFILENAME_Z"

Comments : none...