Mike Swanson
5359e7c49e
Recovered Darv's VB6 source for the Valley Wide Plastering Orders application from the D: backup drive (label "Backup", 8 TB, 5.3 TB used). This is the first time we've had the actual source — prior session only had a single frmPayroll.frm from the AD server. Three project variants identified across two snapshots: - Full-Project/ (2,129 files, 124 MB) — D:\Office-Estimates\Darv\Full\Project\ - Kingston-Project/ (2,189 files, 130 MB) — D:\Office-Estimates\Darv\Kingston\Project\ - Source/ (170 files, 559 MB) — D:\Office-Estimates\Darv\Source\ wholesale - SOURCE-HOLD/ (3 files, 1 MB) — D:\Office-Estimates\Darv\SOURCE HOLD\ Latest ORDERS_C.vbp date is 2020-06-09 (Kingston snapshot). Production Orders_10A.exe was live as of April 2024 — open question whether newer source exists on other backup drives Mike will scan next. Also includes per-category and per-keyword analysis CSVs from a WizTree file-list export, plus the analyzer script that produced them (re-runnable for the next drive's CSV). VMs (VWIN7-DW.vdi 8.3 GB + XP-for-ORDERS_copy.vdi 2.8 GB), the live VWP.mdb, and the 393 MB raw WizTree CSV stay on disk only — gitignored. Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
1342 lines
54 KiB
QBasic
1342 lines
54 KiB
QBasic
Attribute VB_Name = "CodeBase"
|
|
' codebase.bas (c)Copyright Sequiter Software Inc., 1988-2001. All rights reserved.
|
|
|
|
'Data Types Used by CodeBase
|
|
|
|
Type FIELD4INFOCB
|
|
fName As Long ' C string (which is different than a Basic String)
|
|
ftype As Integer
|
|
flength As Integer
|
|
fdecimals As Integer
|
|
fnulls As Integer
|
|
End Type
|
|
|
|
Type FIELD4INFO ' Corresponding Basic structure
|
|
fName As String
|
|
ftype As String * 1
|
|
flength As Integer
|
|
fdecimals As Integer
|
|
fnulls As Integer
|
|
End Type
|
|
|
|
Type TAG4INFOCB
|
|
name As Long ' C string
|
|
expression As Long ' C string
|
|
filter As Long ' C string
|
|
unique As Integer
|
|
descending As Integer
|
|
End Type
|
|
|
|
Type TAG4INFO
|
|
name As String
|
|
expression As String
|
|
filter As String
|
|
unique As Integer
|
|
descending As Integer
|
|
End Type
|
|
|
|
'===================================================================================
|
|
'
|
|
' CODE4 Access function prototypes
|
|
'
|
|
'===================================================================================
|
|
|
|
Declare Function code4actionCode% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4accessMode% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4autoOpen% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4calcCreate% Lib "c4dll.dll" (ByVal c4&, ByVal expr4&, ByVal fcnName$)
|
|
Declare Sub code4calcReset Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4codePage% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4collatingSequence% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4collate% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4compatibility% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4connect% Lib "c4dll.dll" (ByVal c4&, ByVal serverId$, ByVal processId$, ByVal userName$, ByVal password$, ByVal protocol$)
|
|
Declare Function code4close% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4createTemp% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4data& Lib "c4dll.dll" (ByVal c4&, ByVal AliasName$)
|
|
Declare Function code4dateFormatVB& Lib "c4dll.dll" Alias "code4dateFormat" (ByVal c4&)
|
|
Declare Function code4dateFormatSet% Lib "c4dll.dll" (ByVal c4&, ByVal fmt$)
|
|
Declare Function code4errCreate% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errDefaultUnique% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errorCode% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errExpr% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errFieldName% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errGo% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errSkip% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errTagName% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Sub code4exit Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4fileFlush% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4flush% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4hInst% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4indexBlockSize% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4indexBlockSizeSet% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4indexExtensionVB& Lib "c4dll.dll" Alias "code4indexExtension" (ByVal c4&)
|
|
Declare Function code4hWnd& Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4init& Lib "c4dll.dll" Alias "code4initVB" ()
|
|
Declare Function code4initUndo% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Sub code4largeOn Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4lock% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4lockAttempts% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4lockAttemptsSingle% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Sub code4lockClear Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4lockDelay& Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4lockEnforce% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4lockFileNameVB& Lib "c4dll.dll" Alias "code4lockFileName" (ByVal c4&)
|
|
Declare Function code4lockItem& Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4lockNetworkIdVB& Lib "c4dll.dll" Alias "code4lockNetworkId" (ByVal c4&)
|
|
Declare Function code4lockUserIdVB& Lib "c4dll.dll" Alias "code4lockUserId" (ByVal c4&)
|
|
Declare Function code4log% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4logCreate% Lib "c4dll.dll" (ByVal c4&, ByVal logName$, ByVal userId$)
|
|
Declare Function code4logFileNameVB& Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4logOpen% Lib "c4dll.dll" (ByVal c4&, ByVal logName$, ByVal userId$)
|
|
Declare Sub code4logOpenOff Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4memExpandBlock% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memExpandData% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memExpandIndex% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memExpandLock% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memExpandTag% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memSizeBlock& Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4memSizeBuffer& Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4memSizeMemo% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memSizeMemoExpr& Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4memSizeSortBuffer& Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4memSizeSortPool& Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4memStartBlock% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memStartData% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memStartIndex% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memStartLock% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4memStartMax& Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4memStartTag% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errOff% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errOpen% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4optAll% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4optimize% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4optStart% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4optSuspend% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4optimizeWrite% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4readLock% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4readOnly% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4errRelate% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4safety% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4singleOpen% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Function code4serverOS& Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4timeout& Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Sub code4timeoutSet Lib "c4dll.dll" (ByVal c4&, ByVal value&)
|
|
Declare Function code4tranStart% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4tranStatus% Lib "c4dll.dll" Alias "code4tranStatusCB" (ByVal c4&)
|
|
Declare Function code4tranCommit% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4tranRollback% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4unlock% Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function code4unlockAuto% Lib "c4dll.dll" Alias "code4unlockAutoCB" (ByVal c4&)
|
|
Declare Function code4useGeneralTagsInRelate% Lib "c4dll.dll" (ByVal c4&, ByVal value%)
|
|
Declare Sub code4unlockAutoSet Lib "c4dll.dll" Alias "code4unlockAutoSetCB" (ByVal c4&, ByVal value%)
|
|
Declare Sub code4verifySet Lib "c4dll.dll" (ByVal c4&, ByVal value$)
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Data File Functions' Prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
Declare Function d4aliasCB& Lib "c4dll.dll" Alias "d4alias" (ByVal d4&)
|
|
Declare Sub d4aliasSet Lib "c4dll.dll" (ByVal d4&, ByVal AliasValue$)
|
|
Declare Function d4append% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4appendBlank% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4appendStart% Lib "c4dll.dll" (ByVal d4&, ByVal UseMemoEntries%)
|
|
Declare Sub d4blank Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4bof% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4bottom% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4changed% Lib "c4dll.dll" (ByVal d4&, ByVal intFlag%)
|
|
Declare Function d4check% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4close% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4codePage% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4createCB& Lib "c4dll.dll" Alias "d4create" (ByVal c4&, ByVal DbfName$, ByVal fieldinfo&, ByVal tagInfo&)
|
|
Declare Function d4createLow& Lib "c4dll.dll" Alias "d4create" (ByVal c4&, ByVal DbfName$, fieldinfo As Any, tagInfo As Any)
|
|
Declare Sub d4delete Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4deleted% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4eof% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4field& Lib "c4dll.dll" (ByVal d4&, ByVal FieldName$)
|
|
Declare Function d4fieldInfo& Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4fieldJ& Lib "c4dll.dll" (ByVal d4&, ByVal JField%)
|
|
Declare Function d4fieldNumber% Lib "c4dll.dll" (ByVal d4&, ByVal FieldName$)
|
|
Declare Function d4fieldsAddCB& Lib "c4dll.dll" Alias "d4fieldsAdd" (ByVal d4&, ByVal nFields%, fieldinfo As Any)
|
|
Declare Function d4fieldsRemoveCB& Lib "c4dll.dll" Alias "d4fieldsRemove" (ByRef d4&, ByVal nFields%, fieldNames As Any)
|
|
Declare Function d4fileNameCB& Lib "c4dll.dll" Alias "d4fileName" (ByVal d4&)
|
|
Declare Function d4flush% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4freeBlocks% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4goLow% Lib "c4dll.dll" (ByVal d4&, ByVal RecNum&, ByVal goForWrite%)
|
|
Declare Function d4goBof% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4goEof% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4index& Lib "c4dll.dll" (ByVal d4&, ByVal IndexName$)
|
|
Declare Function d4log% Lib "c4dll.dll" Alias "d4logVB" (ByVal d4&, ByVal logging%)
|
|
Declare Function d4lock% Lib "c4dll.dll" Alias "d4lockVB" (ByVal d4&, ByVal recordNum&)
|
|
Declare Function d4lockAdd% Lib "c4dll.dll" (ByVal d4&, ByVal recordNum&)
|
|
Declare Function d4lockAddAll% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4lockAddAppend% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4lockAddFile% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4lockAll% Lib "c4dll.dll" Alias "d4lockAllVB" (ByVal d4&)
|
|
Declare Function d4lockAppend% Lib "c4dll.dll" Alias "d4lockAppendVB" (ByVal d4&)
|
|
Declare Function d4lockFile% Lib "c4dll.dll" Alias "d4lockFileVB" (ByVal d4&)
|
|
Declare Function d4logStatus% Lib "c4dll.dll" Alias "d4logStatusCB" (ByVal d4&)
|
|
Declare Function d4memoCompress% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4numFields% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4open& Lib "c4dll.dll" (ByVal c4&, ByVal DbfName$)
|
|
Declare Function d4openClone& Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4optimize% Lib "c4dll.dll" Alias "d4optimizeVB" (ByVal d4&, ByVal OptFlag%)
|
|
Declare Function d4optimizeWrite% Lib "c4dll.dll" Alias "d4optimizeWriteVB" (ByVal d4&, ByVal OptFlag%)
|
|
Declare Function d4pack% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4packData% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4position# Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4positionSet% Lib "c4dll.dll" (ByVal d4&, ByVal Percentage#)
|
|
Declare Sub d4recall Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4recCount& Lib "c4dll.dll" Alias "d4recCountDo" (ByVal d4&)
|
|
Declare Function d4recNo& Lib "c4dll.dll" Alias "d4recNoLow" (ByVal d4&)
|
|
Declare Function d4record& Lib "c4dll.dll" Alias "d4recordLow" (ByVal d4&)
|
|
Declare Function d4recWidth& Lib "c4dll.dll" Alias "d4recWidth_v" (ByVal d4&)
|
|
Declare Function d4remove% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4refresh% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4refreshRecord% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4reindex% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4reindexWithProgress% Lib "c4dll.dll" (ByVal d4&, ByVal callback&, ByVal milliseconds&)
|
|
Declare Function d4seek% Lib "c4dll.dll" (ByVal d4&, ByVal seekValue$)
|
|
Declare Function d4seekDouble% Lib "c4dll.dll" (ByVal d4&, ByVal value#)
|
|
Declare Function d4seekN% Lib "c4dll.dll" (ByVal d4&, ByVal seekValue$, ByVal seekLen%)
|
|
Declare Function d4seekNext% Lib "c4dll.dll" (ByVal d4&, ByVal seekValue$)
|
|
Declare Function d4seekNextDouble% Lib "c4dll.dll" (ByVal d4&, ByVal seekValue#)
|
|
Declare Function d4seekNextN% Lib "c4dll.dll" (ByVal d4&, ByVal seekValue$, ByVal seekLen%)
|
|
Declare Function d4skip% Lib "c4dll.dll" (ByVal d4&, ByVal NumberRecords&)
|
|
Declare Function d4tag& Lib "c4dll.dll" (ByVal d4&, ByVal TagName$)
|
|
Declare Function d4tagDefault& Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4tagNext& Lib "c4dll.dll" (ByVal d4&, ByVal TagOn&)
|
|
Declare Function d4tagPrev& Lib "c4dll.dll" (ByVal d4&, ByVal TagOn&)
|
|
Declare Sub d4tagSelect Lib "c4dll.dll" (ByVal d4&, ByVal tPtr&)
|
|
Declare Function d4tagSelected& Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4tagSync% Lib "c4dll.dll" (ByVal d4&, ByVal tPtr&)
|
|
Declare Function d4top% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4unlock% Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function d4unlockFiles% Lib "c4dll.dll" Alias "code4unlock" (ByVal d4&)
|
|
Declare Function d4write% Lib "c4dll.dll" Alias "d4writeVB" (ByVal d4&, ByVal RecNum&)
|
|
Declare Function d4zap% Lib "c4dll.dll" (ByVal d4&, ByVal StartRecord&, ByVal EndRecord&)
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Date Functions' Prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
Declare Sub date4assignLow Lib "c4dll.dll" (ByVal dateForm$, ByVal julianDay&, ByVal isOle%)
|
|
Declare Function date4cdowCB& Lib "c4dll.dll" Alias "date4cdow" (ByVal dateForm$)
|
|
Declare Function date4cmonthCB& Lib "c4dll.dll" Alias "date4cmonth" (ByVal dateForm$)
|
|
Declare Function date4day% Lib "c4dll.dll" Alias "date4day_v" (ByVal dateForm$)
|
|
Declare Function date4dow% Lib "c4dll.dll" (ByVal dateForm$)
|
|
Declare Sub date4formatCB Lib "c4dll.dll" Alias "date4format" (ByVal dateForm$, ByVal Result$, ByVal pic$)
|
|
Declare Sub date4initCB Lib "c4dll.dll" Alias "date4init" (ByVal dateForm$, ByVal value$, ByVal pic$)
|
|
Declare Function date4isLeap% Lib "c4dll.dll" (ByVal dateForm$)
|
|
Declare Function date4long& Lib "c4dll.dll" (ByVal dateForm$)
|
|
Declare Function date4month% Lib "c4dll.dll" Alias "date4month_v" (ByVal dateForm$)
|
|
Declare Sub date4timeNow Lib "c4dll.dll" (ByVal TimeForm$)
|
|
Declare Sub date4todayCB Lib "c4dll.dll" Alias "date4today" (ByVal dateForm$)
|
|
Declare Function date4year% Lib "c4dll.dll" Alias "date4year_v" (ByVal dateForm$)
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Error Functions' Prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
Declare Function error4% Lib "c4dll.dll" Alias "error4VB" (ByVal c4&, ByVal errCode%, ByVal extraInfo&)
|
|
Declare Sub error4exitTest Lib "c4dll.dll" (ByVal c4&)
|
|
Declare Function error4describe% Lib "c4dll.dll" Alias "error4describeVB" (ByVal c4&, ByVal errCode%, ByVal extraInfo&, ByVal desc1$, ByVal desc2$, ByVal desc3$)
|
|
Declare Function error4file% Lib "c4dll.dll" (ByVal c4&, ByVal fileName$, ByVal overwrite%)
|
|
Declare Function error4set% Lib "c4dll.dll" (ByVal c4&, ByVal errCode%)
|
|
Declare Function error4textCB& Lib "c4dll.dll" Alias "error4text" (ByVal c4&, ByVal errCode&)
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Expression Evaluation Functions' Prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
Declare Function expr4data& Lib "c4dll.dll" Alias "expr4dataCB" (ByVal exprPtr&)
|
|
Declare Function expr4double# Lib "c4dll.dll" (ByVal exprPtr&)
|
|
Declare Sub expr4free Lib "c4dll.dll" Alias "expr4freeCB" (ByVal exprPtr&)
|
|
Declare Function expr4len& Lib "c4dll.dll" Alias "expr4lenCB" (ByVal exprPtr&)
|
|
Declare Function expr4nullLow% Lib "c4dll.dll" (ByVal exprPtr&, ByVal forAdd%)
|
|
Declare Function expr4parse& Lib "c4dll.dll" Alias "expr4parseCB" (ByVal d4&, ByVal expression$)
|
|
Declare Function expr4sourceCB& Lib "c4dll.dll" Alias "expr4source" (ByVal exprPtr&)
|
|
Declare Function expr4strCB& Lib "c4dll.dll" Alias "expr4str" (ByVal exprPtr&)
|
|
Declare Function expr4true% Lib "c4dll.dll" (ByVal exprPtr&)
|
|
Declare Function expr4typeCB% Lib "c4dll.dll" (ByVal exprPtr&)
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Field Functions' Prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
Declare Sub f4assignBinaryVB Lib "c4dll.dll" Alias "f4assignN" (ByVal fPtr&, ByRef value As Any, ByVal length%)
|
|
Declare Sub f4assignChar Lib "c4dll.dll" Alias "f4assignCharVB" (ByVal fPtr&, ByVal Char%)
|
|
Declare Sub f4assignCurrency Lib "c4dll.dll" (ByVal fPtr&, ByVal value$)
|
|
Declare Sub f4assignDateTime Lib "c4dll.dll" (ByVal fPtr&, ByVal value$)
|
|
Declare Sub f4assignDouble Lib "c4dll.dll" (ByVal fPtr&, ByVal value#)
|
|
Declare Sub f4assignField Lib "c4dll.dll" (ByVal fPtrTo&, ByVal fPtrFrom&)
|
|
Declare Sub f4assignIntVB Lib "c4dll.dll" (ByVal fPtr&, ByVal value%)
|
|
Declare Sub f4assignLong Lib "c4dll.dll" (ByVal fPtr&, ByVal value&)
|
|
Declare Sub f4assignN Lib "c4dll.dll" Alias "f4assignNVB" (ByVal fPtr&, ByVal value$, ByVal length%)
|
|
Declare Sub f4assignNull Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Sub f4assignUnicodeVB Lib "c4dll.dll" Alias "f4assignUnicode" (ByVal fPtr&, ByRef value As Any)
|
|
Declare Sub f4blank Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4char% Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4currencyCB& Lib "c4dll.dll" Alias "f4currency" (ByVal fPtr&, ByVal numDec%)
|
|
Declare Function f4data& Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4dateTimeCB& Lib "c4dll.dll" Alias "f4dateTime" (ByVal fPtr&)
|
|
Declare Function f4decimals% Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4double# Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4int% Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4len% Lib "c4dll.dll" Alias "f4len_v" (ByVal fPtr&)
|
|
Declare Function f4long& Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4memoAssign% Lib "c4dll.dll" (ByVal fPtr&, ByVal value$)
|
|
Declare Function f4memoAssignBinaryVB% Lib "c4dll.dll" Alias "f4memoAssignNVB" (ByVal fPtr&, ByRef value As Any, ByVal length%)
|
|
#If Win32 Then
|
|
Declare Function f4memoAssignN% Lib "c4dll.dll" (ByVal fPtr&, ByVal value$, ByVal length&)
|
|
#Else
|
|
Declare Function f4memoAssignN% Lib "c4dll.dll" (ByVal fPtr&, ByVal value$, ByVal length%)
|
|
#End If
|
|
Declare Sub f4memoAssignUnicodeVB Lib "c4dll.dll" Alias "f4memoAssignUnicode" (ByVal fPtr&, ByRef value As Any)
|
|
Declare Sub f4memoFree Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4memoLen& Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4memoNcpy% Lib "c4dll.dll" (ByVal fPtr&, ByVal memPtr$, ByVal memLen%)
|
|
Declare Function f4memoNcpyBinary% Lib "c4dll.dll" Alias "f4memoNcpy" (ByVal fPtr&, ByRef memPtr As Any, ByVal memLen%)
|
|
Declare Function f4memoPtr& Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4nameCB& Lib "c4dll.dll" Alias "f4name" (ByVal fPtr&)
|
|
Declare Function f4ncpyBinary% Lib "c4dll.dll" Alias "f4ncpy" (ByVal fPtr&, ByRef memPtr As Any, ByVal memLength%)
|
|
Declare Function f4ncpyCB% Lib "c4dll.dll" Alias "f4ncpy" (ByVal fPtr&, ByVal memPtr$, ByVal memLength%)
|
|
Declare Function f4number% Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4null% Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4ptr& Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4strCB& Lib "c4dll.dll" Alias "f4str" (ByVal fPtr&)
|
|
Declare Function f4true% Lib "c4dll.dll" (ByVal fPtr&)
|
|
Declare Function f4type% Lib "c4dll.dll" (ByVal fPtr&)
|
|
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Index Functions' Prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
Declare Function i4close% Lib "c4dll.dll" (ByVal i4&)
|
|
Declare Function i4createCB& Lib "c4dll.dll" Alias "i4create" (ByVal d4&, ByVal fileName As Any, tagInfo As TAG4INFOCB)
|
|
Declare Function i4fileNameCB& Lib "c4dll.dll" Alias "i4fileName" (ByVal i4&)
|
|
Declare Function i4openCB& Lib "c4dll.dll" Alias "i4open" (ByVal d4&, ByVal fileName As Any)
|
|
Declare Function i4reindex% Lib "c4dll.dll" (ByVal i4&)
|
|
Declare Function i4tag& Lib "c4dll.dll" (ByVal i4&, ByVal fileName$)
|
|
Declare Function i4tagInfo& Lib "c4dll.dll" (ByVal i4&)
|
|
Declare Function i4tagAddCB% Lib "c4dll.dll" Alias "i4tagAdd" (ByVal i4&, tagInfo As TAG4INFOCB)
|
|
Declare Function i4tagRemove% Lib "c4dll.dll" (ByVal t4&)
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Relate Functions' Prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
|
|
Declare Function relate4bottom% Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Sub relate4changed Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4createSlave& Lib "c4dll.dll" (ByVal r4&, ByVal d4&, ByVal mExpr$, ByVal t4 As Any)
|
|
Declare Function relate4data& Lib "c4dll.dll" Alias "relate4dataCB" (ByVal r4&)
|
|
Declare Function relate4dataTag& Lib "c4dll.dll" Alias "relate4dataTagCB" (ByVal r4&)
|
|
Declare Function relate4doAll% Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4doOne% Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4eof% Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4errorAction% Lib "c4dll.dll" Alias "relate4errorActionVB" (ByVal r4&, ByVal ErrAction%)
|
|
Declare Function relate4free% Lib "c4dll.dll" Alias "relate4freeVB" (ByVal r4&, ByVal CloseFlag%)
|
|
Declare Function relate4init& Lib "c4dll.dll" (ByVal d4&)
|
|
Declare Function relate4lockAdd% Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4master& Lib "c4dll.dll" Alias "relate4masterCB" (ByVal r4&)
|
|
Declare Function relate4masterExprCB& Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4matchLen% Lib "c4dll.dll" Alias "relate4matchLenVB" (ByVal r4&, ByVal length%)
|
|
Declare Function relate4next% Lib "c4dll.dll" (r4&)
|
|
Declare Function relate4optimizeable% Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4querySet% Lib "c4dll.dll" (ByVal r4&, ByVal expr As String)
|
|
Declare Function relate4retrieve& Lib "c4dll.dll" (ByVal c4&, ByVal fileName$, ByVal openFiles%, ByVal dataPathName$)
|
|
Declare Function relate4save% Lib "c4dll.dll" (ByVal rel4&, ByVal fileName$, ByVal savePathNames%)
|
|
Declare Function relate4skip% Lib "c4dll.dll" (ByVal r4&, ByVal NumRecs&)
|
|
Declare Function relate4skipEnable% Lib "c4dll.dll" Alias "relate4skipEnableVB" (ByVal r4&, ByVal DoEnable%)
|
|
Declare Function relate4sortSet% Lib "c4dll.dll" (ByVal r4&, ByVal expr As String)
|
|
Declare Function relate4top% Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4topMaster& Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function relate4type% Lib "c4dll.dll" Alias "relate4typeVB" (ByVal r4&, ByVal rType%)
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Report function prototypes
|
|
'
|
|
'================================================================================================
|
|
Declare Function report4caption% Lib "c4dll.dll" (ByVal r4&, ByVal caption$)
|
|
Declare Function report4currency% Lib "c4dll.dll" (ByVal r4&, ByVal currncy$)
|
|
Declare Function report4dateFormat% Lib "c4dll.dll" (ByVal r4&, ByVal dateFmt$)
|
|
Declare Function report4decimal% Lib "c4dll.dll" Alias "report4decimal_v" (ByVal r4&, ByVal decChar$)
|
|
Declare Function report4do% Lib "c4dll.dll" Alias "report4doCB" (ByVal r4&)
|
|
Declare Sub report4freeLow Lib "c4dll.dll" (ByVal r4&, ByVal freeRelate%, ByVal closeFiles%, ByVal doPrinterFree%)
|
|
Declare Function report4margins% Lib "c4dll.dll" (ByVal r4&, ByVal mLeft&, ByVal mRight&, ByVal mTop&, ByVal mBottom&, ByVal uType%)
|
|
Declare Function report4pageSize% Lib "c4dll.dll" (ByVal r4&, ByVal pHeight&, ByVal pWidth&, ByVal uType%)
|
|
#If Win16 Then
|
|
Declare Function report4parent16% Lib "c4dll.dll" Alias "report4parent" (ByVal r4&, ByVal hWnd%)
|
|
#End If
|
|
#If Win32 Then
|
|
Declare Function report4parent32% Lib "c4dll.dll" Alias "report4parent" (ByVal r4&, ByVal hWnd&)
|
|
#End If
|
|
Declare Sub report4printerSelect Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function report4querySet% Lib "c4dll.dll" (ByVal r4&, ByVal queryExpr$)
|
|
Declare Function report4relate& Lib "c4dll.dll" (ByVal r4&)
|
|
Declare Function report4retrieve& Lib "c4dll.dll" (ByVal c4&, ByVal fileName$, ByVal openFiles%, ByVal dataPath$)
|
|
Declare Function report4save% Lib "c4dll.dll" (ByVal r4&, ByVal fileName$, ByVal savePaths%)
|
|
Declare Function report4screenBreaks% Lib "c4dll.dll" (ByVal r4&, ByVal value%)
|
|
Declare Function report4separator% Lib "c4dll.dll" Alias "report4separator_v" (ByVal r4&, ByVal separator$)
|
|
Declare Function report4sortSet% Lib "c4dll.dll" (ByVal r4&, ByVal sortExpr$)
|
|
Declare Function report4toScreen% Lib "c4dll.dll" (ByVal r4&, ByVal toScreen%)
|
|
|
|
|
|
'===============================================================================================
|
|
'
|
|
' Tag Functions' Prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
|
|
Declare Function t4aliasCB& Lib "c4dll.dll" Alias "t4alias" (ByVal t4&)
|
|
Declare Function t4close% Lib "c4dll.dll" (ByVal t4&)
|
|
Declare Function t4descending% Lib "c4dll.dll" Alias "tfile4isDescending" (ByVal t4&)
|
|
Declare Function t4exprCB& Lib "c4dll.dll" (ByVal t4&)
|
|
Declare Function t4filterCB& Lib "c4dll.dll" (ByVal t4&)
|
|
Declare Function t4open& Lib "c4dll.dll" Alias "t4openCB" (ByVal dbPtr&, ByVal IndexName$)
|
|
Declare Function t4unique% Lib "c4dll.dll" (ByVal t4&)
|
|
Declare Function t4uniqueSet% Lib "c4dll.dll" Alias "t4uniqueSetVB" (ByVal t4&, ByVal value%)
|
|
|
|
|
|
'=======================================================================================
|
|
'
|
|
' Utility function prototypes
|
|
'
|
|
'-----------------------------------------------------------------------------------------------
|
|
|
|
Declare Function u4alloc& Lib "c4dll.dll" Alias "u4allocDefault" (ByVal amt&)
|
|
Declare Function u4allocFree& Lib "c4dll.dll" Alias "u4allocFreeDefault" (ByVal c4&, ByVal amt&)
|
|
Declare Sub u4free Lib "c4dll.dll" Alias "u4freeDefault" (ByVal memPtr&)
|
|
|
|
'16-Bit versions
|
|
Declare Function u4ncpy% Lib "c4dll.dll" (ByVal MemPtr1$, ByVal memptr2&, ByVal memLength%)
|
|
Declare Function u4ncpy2% Lib "c4dll.dll" Alias "u4ncpy" (ByVal MemPtr1&, ByVal memptr2$, ByVal memLength%)
|
|
|
|
'32-Bit versions
|
|
'Declare Function u4ncpy& Lib "c4dll.dll" (ByVal MemPtr1$, ByVal memptr2&, ByVal memLength&)
|
|
'Declare Function u4ncpy2& Lib "c4dll.dll" Alias "u4ncpy" (ByVal MemPtr1&, ByVal memptr2$, ByVal memLength&)
|
|
|
|
Declare Sub u4memCpy Lib "c4dll.dll" (ByVal dest$, ByVal source&, ByVal numCopy&)
|
|
Declare Function u4switch& Lib "c4dll.dll" ()
|
|
|
|
'=======================================================================================
|
|
'
|
|
' Misc. function prototypes
|
|
'
|
|
'========================================================================================
|
|
|
|
Declare Function v4Cstring& Lib "c4dll.dll" (ByVal s$)
|
|
Declare Sub v4Cstringfree Lib "c4dll.dll" (ByVal s&)
|
|
|
|
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal dest As String, ByVal src As String) As Long
|
|
|
|
'CodeBase Return Code Constants
|
|
|
|
Global Const r4success% = 0
|
|
Global Const r4same = 0
|
|
Global Const r4found% = 1
|
|
Global Const r4down = 1
|
|
Global Const r4after = 2
|
|
Global Const r4complete = 2
|
|
Global Const r4eof = 3
|
|
Global Const r4bof = 4
|
|
Global Const r4entry = 5
|
|
Global Const r4descending = 10
|
|
Global Const r4unique = 20
|
|
Global Const r4uniqueContinue = 25
|
|
Global Const r4locked = 50
|
|
Global Const r4noCreate = 60
|
|
Global Const r4noOpen = 70
|
|
Global Const r4notag = 80
|
|
Global Const r4terminate = 90
|
|
Global Const r4inactive = 110
|
|
Global Const r4active = 120
|
|
Global Const r4authorize = 140
|
|
Global Const r4connected = 150
|
|
Global Const r4logOpen = 170
|
|
Global Const r4logOff = 180
|
|
Global Const r4null = 190
|
|
Global Const r4timeout = 225
|
|
|
|
Global Const relate4filterRecord = 101
|
|
Global Const relate4doRemove = 102
|
|
Global Const relate4skipped = 104
|
|
Global Const relate4blank = 105
|
|
Global Const relate4skipRec = 106
|
|
Global Const relate4terminate = 107
|
|
Global Const relate4exact = 108
|
|
Global Const relate4scan = 109
|
|
Global Const relate4approx = 110
|
|
Global Const relate4sortSkip = 120
|
|
Global Const relate4sortDone = 121
|
|
|
|
'CodeBasic Field Definition Constants
|
|
Global Const r4logLen = 1
|
|
Global Const r4dateLen = 8
|
|
Global Const r4memoLen = 10
|
|
Global Const r4bin = "B" ' Binary
|
|
Global Const r4str$ = "C" ' Character
|
|
Global Const r4charBin$ = "Z" ' Character (binary)
|
|
Global Const r4currency$ = "Y" ' Currency
|
|
Global Const r4date$ = "D" ' Date
|
|
Global Const r4dateTime$ = "T" ' DateTime
|
|
Global Const r4double$ = "B" ' Double
|
|
Global Const r4float$ = "F" ' Float
|
|
Global Const r4gen$ = "G" ' General
|
|
Global Const r4int$ = "I" ' Integer
|
|
Global Const r4log$ = "L" ' Logical
|
|
Global Const r4memo$ = "M" ' Memo
|
|
Global Const r4memoBin$ = "X" ' Memo (binary)
|
|
Global Const r4num$ = "N" ' Numeric
|
|
Global Const r4dateDoub$ = "d" ' Date as Double
|
|
Global Const r4numDoub$ = "n" ' Numeric as Double
|
|
Global Const r4unicode$ = "W" ' Unicode character (same as r5wstr)
|
|
|
|
Global Const r4system$ = "0" ' used by FoxPro for null field value field
|
|
Global Const r5wstrLen$ = "O"
|
|
Global Const r5ui4$ = "P"
|
|
Global Const r5i2$ = "Q"
|
|
Global Const r5ui2$ = "R"
|
|
Global Const r5guid$ = "V"
|
|
Global Const r5wstr$ = "W"
|
|
Global Const r5i8$ = "1" ' 8-byte long signed value (LONGLONG)
|
|
Global Const r5dbDate$ = "2" ' struct DBDATE (6 bytes)
|
|
Global Const r5dbTime$ = "3" ' struct DBTIME (6 bytes)
|
|
Global Const r5dbTimeStamp$ = "4" ' struct DBTIMESTAMP (16 bytes)
|
|
Global Const r5date$ = "5"
|
|
|
|
'Other CodeBase Constants
|
|
Global Const cp0 = 0 'code4.codePage constant
|
|
Global Const cp437 = 1
|
|
Global Const cp1252 = 3
|
|
Global Const LOCK4OFF = 0
|
|
Global Const LOCK4ALL = 1
|
|
Global Const LOCK4DATA = 2
|
|
Global Const LOG4TRANS = 0
|
|
Global Const LOG4ON = 1
|
|
Global Const LOG4ALWAYS = 2
|
|
Global Const OPEN4DENY_NONE = 0
|
|
Global Const OPEN4DENY_RW = 1
|
|
Global Const OPEN4DENY_WRITE = 2
|
|
Global Const OPT4EXCLUSIVE = -1
|
|
Global Const OPT4OFF = 0
|
|
Global Const OPT4ALL = 1
|
|
Global Const r4check = -5
|
|
Global Const r4maxVBStringLen = 65500
|
|
Global Const r4maxVBStrFunction = 32767
|
|
Global Const collate4machine = 1
|
|
Global Const collate4general = 1001
|
|
Global Const collate4special = 1002
|
|
Global Const sort4machine = 0 'code4.collatingSequence constant
|
|
Global Const sort4general = 1
|
|
Global Const WAIT4EVER = -1
|
|
|
|
' Constants for code4serverOS
|
|
Global Const OS4UNKNOWN = &H0
|
|
Global Const OS4WIN32 = &H1
|
|
Global Const OS4UNIX = &H2
|
|
|
|
|
|
'CodeBasic Error Code Constants
|
|
Global Const e4close = -10
|
|
Global Const e4create = -20
|
|
Global Const e4len = -30
|
|
Global Const e4lenSet = -40
|
|
Global Const e4lock = -50
|
|
Global Const e4open = -60
|
|
Global Const e4permiss = -61
|
|
Global Const e4access = -62
|
|
Global Const e4numFiles = -63
|
|
Global Const e4fileFind = -64
|
|
Global Const e4instance = -69
|
|
Global Const e4read = -70
|
|
Global Const e4remove = -80
|
|
Global Const e4rename = -90
|
|
Global Const e4seek = -250
|
|
Global Const e4unlock = -110
|
|
Global Const e4write = -120
|
|
Global Const e4data = -200
|
|
Global Const e4fieldName = -210
|
|
Global Const e4fieldType = -220
|
|
Global Const e4recordLen = -230
|
|
Global Const e4append = -240
|
|
Global Const e4entry = -300
|
|
Global Const e4index = -310
|
|
Global Const e4tagName = -330
|
|
Global Const e4unique = -340
|
|
Global Const e4tagInfo = -350
|
|
Global Const e4commaExpected = -400
|
|
Global Const e4complete = -410
|
|
Global Const e4dataName = -420
|
|
Global Const e4lengthErr = -422
|
|
Global Const e4notConstant = -425
|
|
Global Const e4numParms = -430
|
|
Global Const e4overflow = -440
|
|
Global Const e4rightMissing = -450
|
|
Global Const e4typeSub = -460
|
|
Global Const e4unrecFunction = -470
|
|
Global Const e4unrecOperator = -480
|
|
Global Const e4unrecValue = -490
|
|
Global Const e4undetermined = -500
|
|
Global Const e4tagExpr = -510
|
|
Global Const e4opt = -610
|
|
Global Const e4optSuspend = -620
|
|
Global Const e4optFlush = -630
|
|
Global Const e4relate = -710
|
|
Global Const e4lookupErr = -720
|
|
Global Const e4relateRefer = -730
|
|
Global Const e4info = -910
|
|
Global Const e4memory = -920
|
|
Global Const e4parm = -930
|
|
Global Const e4parmNull = -935
|
|
Global Const e4demo = -940
|
|
Global Const e4result = -950
|
|
Global Const e4verify = -960
|
|
Global Const e4struct = -970
|
|
Global Const e4notSupported = -1090
|
|
Global Const e4version = -1095
|
|
Global Const e4memoCorrupt = -1110
|
|
Global Const e4memoCreate = -1120
|
|
Global Const e4transViolation = -1200
|
|
Global Const e4trans = -1210
|
|
Global Const e4rollback = -1220
|
|
Global Const e4commit = -1230
|
|
Global Const e4transAppend = -1240
|
|
Global Const e4corrupt = -1300
|
|
Global Const e4connection = -1310
|
|
Global Const e4socket = -1320
|
|
Global Const e4net = -1330
|
|
Global Const e4loadlib = -1340
|
|
Global Const e4timeOut = -1350
|
|
Global Const e4message = -1360
|
|
Global Const e4packetLen = -1370
|
|
Global Const e4packet = -1380
|
|
Global Const e4max = -1400
|
|
Global Const e4codeBase = -1410
|
|
Global Const e4name = -1420
|
|
Global Const e4authorize = -1430
|
|
Global Const e4server = -2100
|
|
Global Const e4config = -2110
|
|
Global Const e4cat = -2120
|
|
|
|
Global Const ACTION4NONE = 0
|
|
Global Const ACTION4REINDEX = 1
|
|
Global Const ACTION4INITIALIZING = 32767
|
|
|
|
'ADO Constants
|
|
Global Const e5badBinding = 200
|
|
Global Const e5conversion = 210
|
|
Global Const e5delete = 220
|
|
Global Const e5property = 230
|
|
|
|
'CodeControls Constants
|
|
Global Const CB_TOP = 1
|
|
Global Const CB_PREV = 2
|
|
Global Const CB_SEARCH = 3
|
|
Global Const CB_NEXT = 4
|
|
Global Const CB_BOTTOM = 5
|
|
Global Const CB_APPEND = 6
|
|
Global Const CB_DEL = 7
|
|
Global Const CB_UNDO = 8
|
|
Global Const CB_FLUSH = 9
|
|
Global Const CB_GO = 10
|
|
|
|
'=======================================================================================
|
|
'
|
|
' CodeControls function prototypes
|
|
'
|
|
'========================================================================================
|
|
|
|
|
|
'CodeControls Constants
|
|
|
|
Global Const MASTER4NODATA% = 1
|
|
Global Const MASTER4NOTAG% = 2
|
|
Global Const MASTER4BADEXPR% = 3
|
|
Global Const CTRL4BADFIELD% = 4
|
|
Global Const CTRL4NOTAG% = 5
|
|
Global Const CTRL4BADEXPR% = 6
|
|
Function b4String$(p&)
|
|
'This is a utility function for copying a 'C' string to a VB string.
|
|
|
|
Dim s As String * 256
|
|
Dim rc As Integer
|
|
|
|
s$ = ""
|
|
|
|
If p& <> 0 Then
|
|
rc = u4ncpy(s, p, 256)
|
|
End If
|
|
|
|
b4String$ = Left$(s, rc)
|
|
End Function
|
|
|
|
Function code4dateFormat$(c4Ptr&)
|
|
'This function returns the CODE4.dateFormat member
|
|
code4dateFormat = b4String(code4dateFormatVB(c4Ptr&))
|
|
End Function
|
|
|
|
Function code4indexExtension$(c4Ptr&)
|
|
'This function returns the CodeBase DLL index format
|
|
code4indexExtension = b4String(code4indexExtensionVB(c4Ptr&))
|
|
End Function
|
|
|
|
Function code4lockFileName$(c4Ptr&)
|
|
'This function returns the locked file name
|
|
code4lockFileName = b4String(code4lockFileNameVB(c4Ptr&))
|
|
End Function
|
|
|
|
Function code4lockNetworkId$(c4Ptr&)
|
|
'This function returns the user's network id
|
|
'who has locked the current file
|
|
code4lockNetworkId = b4String(code4lockNetworkIdVB(c4Ptr&))
|
|
End Function
|
|
|
|
Function code4lockUserId$(c4Ptr&)
|
|
'This function returns the user's name
|
|
'who has locked the current file
|
|
code4lockUserId = b4String(code4lockUserIdVB(c4Ptr&))
|
|
End Function
|
|
|
|
Function code4logFileName$(c4Ptr&)
|
|
'This function returns the locked file name
|
|
code4logFileName = b4String(code4lockFileNameVB(c4Ptr&))
|
|
End Function
|
|
|
|
Function d4alias$(dbPtr&)
|
|
'This function returns the data file alias
|
|
d4alias = b4String(d4aliasCB(dbPtr))
|
|
End Function
|
|
|
|
Function d4create&(ByVal cb&, dbname$, D() As FIELD4INFO, n() As TAG4INFO)
|
|
|
|
' d4create calls d4createLow() to create a new database.
|
|
' This function is the same as d4createData() except that
|
|
' it requires an additional parameter which it uses to
|
|
' create tag information for a database.
|
|
'
|
|
' Variable n is an array of type TAG4INFO which corresponds
|
|
' to TAG4INFOCB, a structure that can be used by d4create.
|
|
' The difference once again is merely the difference in the
|
|
' representation of strings between C and Basic.
|
|
' d4create takes the contents from the TAG4INFO structure
|
|
' and builds a TAG4INFOCB structure which it passes to d4createLow().
|
|
' Note: the TAG4INFOCB array is one size larger than the TAG4INFO
|
|
' array. The extra empty (zero filled) array element is the
|
|
' way that d4createLow() detects the end of the array.
|
|
|
|
|
|
Dim i%
|
|
|
|
Dim flb%
|
|
Dim fub%
|
|
Dim fs%
|
|
|
|
Dim tlb%
|
|
Dim tub%
|
|
Dim ts%
|
|
|
|
|
|
flb = LBound(D)
|
|
fub = UBound(D)
|
|
fs = fub - flb + 1
|
|
|
|
|
|
ReDim f(1 To (fs + 1)) As FIELD4INFOCB
|
|
For i = 1 To fs
|
|
f(i).fName = v4Cstring(D((flb - 1) + i).fName) ' note: this function allocates memory
|
|
f(i).ftype = Asc(D((flb - 1) + i).ftype)
|
|
f(i).flength = D((flb - 1) + i).flength
|
|
f(i).fdecimals = D((flb - 1) + i).fdecimals
|
|
f(i).fnulls = D((flb - 1) + i).fnulls
|
|
Next i
|
|
|
|
tlb = LBound(n)
|
|
tub = UBound(n)
|
|
ts = tub - tlb + 1
|
|
ReDim t(1 To (ts + 1)) As TAG4INFOCB
|
|
For i = 1 To ts
|
|
t(i).name = v4Cstring(n((tlb - 1) + i).name)
|
|
t(i).expression = v4Cstring(n((tlb - 1) + i).expression)
|
|
t(i).filter = v4Cstring(n((tlb - 1) + i).filter)
|
|
t(i).unique = n((tlb - 1) + i).unique
|
|
t(i).descending = n((tlb - 1) + i).descending
|
|
Next i
|
|
d4create = d4createLow(cb&, ByVal (dbname$), f(1), t(1))
|
|
|
|
' Since v4Cstring allocates memory for the storage of
|
|
' C strings, we must free the memory after it has been
|
|
' used.
|
|
For i = 1 To fs
|
|
Call v4Cstringfree(f(i).fName)
|
|
Next i
|
|
|
|
For i = 1 To ts
|
|
Call v4Cstringfree(t(i).name)
|
|
Call v4Cstringfree(t(i).expression)
|
|
Call v4Cstringfree(t(i).filter)
|
|
Next i
|
|
|
|
End Function
|
|
|
|
Function d4createData&(ByVal cb&, dbname$, D() As FIELD4INFO)
|
|
|
|
' d4createData() calls d4createLow() to create a new database.
|
|
' d4create() builds the FIELD4INFOCB array which is
|
|
' the one recognized by d4create (note that the only difference
|
|
' is that the fname field is a string in type FIELD4INFO
|
|
' and type long in FIELD4INFOCB which is how strings are represented
|
|
' in C). Furthermore, the size of f (our FIELD4INFOCB array) is one
|
|
' larger than the size s of FIELD4INFO d. This is because
|
|
' d4create doesn't know the size of the array f and therefore it stops
|
|
' when it reaches an array element that is filled with zeros which
|
|
' the extra (s+1)'th element of f provides.
|
|
|
|
Dim i%
|
|
Dim lb%
|
|
Dim ub%
|
|
Dim s%
|
|
|
|
lb = LBound(D)
|
|
ub = UBound(D)
|
|
s = ub - lb + 1
|
|
|
|
|
|
ReDim f(1 To (s + 1)) As FIELD4INFOCB
|
|
For i = 1 To s
|
|
f(i).fName = v4Cstring(D((lb - 1) + i).fName) ' note: this function allocates memory
|
|
f(i).ftype = Asc(D((lb - 1) + i).ftype)
|
|
f(i).flength = D((lb - 1) + i).flength
|
|
f(i).fdecimals = D((lb - 1) + i).fdecimals
|
|
f(i).fnulls = D((lb - 1) + i).fnulls
|
|
Next i
|
|
|
|
d4createData = d4createLow(cb&, ByVal (dbname$), f(1), ByVal (0&))
|
|
|
|
' Since v4Cstring allocates memory for the storage of
|
|
' C strings, we must free the memory after it has been
|
|
' used.
|
|
For i = 1 To s
|
|
Call v4Cstringfree(f(i).fName)
|
|
Next i
|
|
|
|
End Function
|
|
|
|
Function d4encodeHandle(temp As Long)
|
|
Dim EncodedString As String
|
|
EncodedString = "#" + str$(temp)
|
|
d4encodeHandle = EncodedString
|
|
End Function
|
|
|
|
Function d4fieldsAdd&(DATA4&, fields() As FIELD4INFO)
|
|
Dim i%
|
|
|
|
ReDim f(LBound(fields) To UBound(fields)) As FIELD4INFOCB
|
|
For i = LBound(fields) To UBound(fields)
|
|
f(i).fName = v4Cstring(fields(i).fName) ' note: this function allocates memory
|
|
f(i).ftype = Asc(fields(i).ftype)
|
|
f(i).flength = fields(i).flength
|
|
f(i).fdecimals = fields(i).fdecimals
|
|
f(i).fnulls = fields(i).fnulls
|
|
Next i
|
|
|
|
d4fieldsAdd = d4fieldsAddCB(DATA4, UBound(f) - LBound(f) + 1, f(LBound(f)))
|
|
If d4fieldsAdd <> 0 Then
|
|
DATA4 = d4fieldsAdd
|
|
End If
|
|
|
|
' Since v4Cstring allocates memory for the storage of
|
|
' C strings, we must free the memory after it has been
|
|
' used.
|
|
For i = LBound(f) To UBound(f)
|
|
Call v4Cstringfree(f(i).fName)
|
|
Next i
|
|
End Function
|
|
|
|
Function d4fieldsRemove&(DATA4&, fieldNames() As String)
|
|
Dim addrs() As Long, i%
|
|
ReDim addrs(LBound(fieldNames) To UBound(fieldNames)) As Long
|
|
For i = LBound(fieldNames) To UBound(fieldNames)
|
|
addrs(i) = v4Cstring(fieldNames(i))
|
|
Next i
|
|
|
|
d4fieldsRemove = d4fieldsRemoveCB(DATA4, UBound(fieldNames) - LBound(fieldNames) + 1, addrs(LBound(addrs)))
|
|
|
|
For i = LBound(addrs) To UBound(addrs)
|
|
Call v4Cstring(addrs(i))
|
|
Next i
|
|
End Function
|
|
|
|
Function d4fileName$(dbfPtr&)
|
|
d4fileName$ = b4String(d4fileNameCB(dbfPtr))
|
|
End Function
|
|
|
|
Function d4go%(DATA4&, recordNumber&)
|
|
d4go = d4goLow(DATA4, recordNumber, 1)
|
|
End Function
|
|
|
|
Sub date4assign(dateString$, julianDay&)
|
|
'This functions converts the julian day into standard format
|
|
'and puts the result in dateString
|
|
|
|
'Size dateString$
|
|
dateString$ = Space$(8 + 1)
|
|
|
|
Call date4assignLow(dateString, julianDay, 0)
|
|
dateString$ = Left$(dateString$, 8)
|
|
End Sub
|
|
|
|
Function date4cdow$(dateString$)
|
|
|
|
'This function returns the day of the week in a character
|
|
'string based on the value in 'DateString'
|
|
|
|
'Validate "dateString"
|
|
If dateString = "" Or Len(dateString) < 8 Then Exit Function
|
|
|
|
Dim datePtr&
|
|
datePtr& = date4cdowCB(dateString) 'Get pointer to day
|
|
If datePtr = 0 Then Exit Function 'Illegal date
|
|
|
|
date4cdow = b4String(datePtr)
|
|
|
|
End Function
|
|
|
|
Function date4cmonth$(dateString$)
|
|
|
|
'This function returns the month in 'DateString' as a
|
|
'character string
|
|
|
|
'Validate "DateString"
|
|
If dateString = "" Or Len(dateString) < 8 Then Exit Function
|
|
|
|
Dim datePtr&
|
|
datePtr& = date4cmonthCB(dateString) 'Get pointer to month
|
|
If datePtr = 0 Then Exit Function 'Illegal date
|
|
|
|
date4cmonth = b4String(datePtr) 'Return month name
|
|
|
|
End Function
|
|
|
|
Sub date4format(dateString$, Result$, pic$)
|
|
'This function formats Result$ using the date value
|
|
' in 'dateString$' and the format info. in 'Pic$'
|
|
|
|
'Size Result$
|
|
Result$ = Space$(Len(pic$) + 1)
|
|
|
|
Call date4formatCB(dateString$, Result$, pic$)
|
|
Result$ = Left$(Result$, Len(pic$))
|
|
End Sub
|
|
|
|
Sub date4init(Result$, dateString$, pic$)
|
|
'This function copies the date, specified by dateString,
|
|
'and formatted according to pic, into Result. The date copied
|
|
'will be in standard dBASE format,
|
|
|
|
'Size Result$
|
|
Result$ = Space$(9)
|
|
|
|
Call date4initCB(Result$, dateString$, pic$)
|
|
Result$ = Left$(Result$, 8)
|
|
End Sub
|
|
|
|
Sub date4today(dateS As String)
|
|
If Len(dateS) < 8 Then dateS = Space$(8)
|
|
Call date4todayCB(dateS)
|
|
End Sub
|
|
|
|
Function error4text$(c4&, errCode&)
|
|
'This function returns the error message string
|
|
error4text = b4String(error4textCB(c4, errCode))
|
|
End Function
|
|
|
|
Function expr4null%(exPtr&)
|
|
expr4null = expr4nullLow(exPtr, 1)
|
|
End Function
|
|
|
|
Function expr4source$(exPtr&)
|
|
'This function returns a copy of the original
|
|
'dBASE expression string
|
|
expr4source = b4String(expr4sourceCB(exPtr))
|
|
End Function
|
|
|
|
Function expr4str$(exPtr&)
|
|
'This function returns the parsed string
|
|
|
|
Dim exprPtr&
|
|
Dim buf As String
|
|
|
|
'Get pointer to alias string
|
|
exprPtr& = expr4strCB(exPtr)
|
|
|
|
If exprPtr& = 0 Then Exit Function
|
|
|
|
expr4str = Left$(b4String(exprPtr), expr4len(exPtr))
|
|
End Function
|
|
|
|
Function expr4type$(exPtr&)
|
|
'This function returns the type of the parsed string
|
|
|
|
Dim exprType%
|
|
|
|
'Get ASCII value of type
|
|
exprType = expr4typeCB(exPtr)
|
|
|
|
If exprType = 0 Then Exit Function
|
|
|
|
expr4type = Chr$(exprType)
|
|
|
|
End Function
|
|
|
|
Sub f4assign(fPtr As Long, fStr As String)
|
|
Call f4assignN(fPtr, fStr, Len(fStr))
|
|
End Sub
|
|
|
|
Sub f4assignBinary(fPtr As Long, value() As Byte)
|
|
Call f4assignBinaryVB(fPtr, value(LBound(value)), UBound(value) - LBound(value) + 1)
|
|
End Sub
|
|
|
|
Sub f4assignUnicode(fPtr As Long, value As String)
|
|
Dim bArray() As Byte
|
|
bArray = value & vbNullChar
|
|
Call f4assignUnicodeVB(fPtr, bArray(0))
|
|
End Sub
|
|
|
|
Sub f4assignInt(fldPtr&, fldVal%)
|
|
Call f4assignIntVB(fldPtr, fldVal)
|
|
End Sub
|
|
|
|
Function f4binary(field&)
|
|
Dim fLen&
|
|
fLen = f4len(field)
|
|
Dim buffer() As Byte
|
|
If fLen > 0 Then
|
|
ReDim buffer(1 To (fLen + 1)) As Byte ' 1 greater because f4ncpy null-terminates the buffer
|
|
fLen = f4ncpyBinary(field, buffer(1), fLen + 1)
|
|
ReDim Preserve buffer(1 To fLen) As Byte
|
|
End If
|
|
f4binary = buffer
|
|
End Function
|
|
|
|
Function f4currency$(field&, numDec%)
|
|
'This function returns the contents of a field
|
|
f4currency = b4String(f4currencyCB(field, numDec))
|
|
End Function
|
|
|
|
Function f4dateTime$(field&)
|
|
'This function returns the contents of a field
|
|
f4dateTime = b4String(f4dateTimeCB(field))
|
|
End Function
|
|
|
|
Function f4memoAssignBinary%(fPtr As Long, value() As Byte)
|
|
f4memoAssignBinary = f4memoAssignBinaryVB(fPtr, value(LBound(value)), UBound(value) - LBound(value) + 1)
|
|
End Function
|
|
|
|
Sub f4memoAssignUnicode(fPtr As Long, value As String)
|
|
Dim bArray() As Byte
|
|
bArray = value & vbNullChar
|
|
Call f4memoAssignUnicodeVB(fPtr, bArray(0))
|
|
End Sub
|
|
|
|
Function f4memoBinary(field&)
|
|
Dim fLen&
|
|
fLen = f4memoLen(field)
|
|
Dim buffer() As Byte
|
|
If fLen > 0 Then
|
|
ReDim buffer(1 To (fLen + 1)) As Byte ' 1 greater because f4ncpy null-terminates the buffer
|
|
fLen = f4memoNcpyBinary(field, buffer(1), fLen + 1)
|
|
ReDim Preserve buffer(1 To fLen) As Byte
|
|
End If
|
|
f4memoBinary = buffer
|
|
End Function
|
|
|
|
Function f4memoStr$(fPtr&)
|
|
'This function returns a string corresponding to the memo
|
|
'field pointer argument.
|
|
Dim MemoLen&, MemoPtr&
|
|
|
|
MemoLen& = f4memoLen(fPtr) 'Get memo length
|
|
|
|
If MemoLen > &H7FFFFFFF Then
|
|
MsgBox "Error #: -910" & vbCrLf & "Unexpected Information" + r4line + "Memo entry too long to return in a Visual Basic string." + r4line + "Field Name:" + r4line + f4name(fPtr), 16, "CodeBase Error"
|
|
Exit Function
|
|
End If
|
|
|
|
MemoPtr& = f4memoPtr(fPtr)
|
|
If MemoPtr& = 0 Then Exit Function
|
|
|
|
Dim MemoString$
|
|
MemoString = String$(MemoLen&, " ")
|
|
|
|
'Copy 'MemoPtr' to VB string 'MemoString'
|
|
u4memCpy MemoString, MemoPtr, MemoLen
|
|
|
|
f4memoStr = MemoString
|
|
End Function
|
|
|
|
Sub f4memoStr64(fPtr As Long, src As String)
|
|
|
|
'This function copies a large memo entry (32K-64K)
|
|
'into a user supplied string
|
|
|
|
Dim r4line$
|
|
r4line = Chr$(10) + Chr$(13)
|
|
|
|
Dim MemoLen&, MemoPtr&
|
|
|
|
MemoLen& = f4memoLen(fPtr) 'Get memo length
|
|
|
|
' 'r4maxVBStringLen' defined in 'Constants' section of this file
|
|
If MemoLen > r4maxVBStringLen Then
|
|
MsgBox "Error #: -910" + r4line + "Unexpected Information" + r4line + "Memo entry too long to retrieve into VB string." + r4line + "Field Name:" + r4line + f4name(fPtr), 16, "CodeBasic Error"
|
|
Exit Sub
|
|
End If
|
|
|
|
MemoPtr& = f4memoPtr(fPtr)
|
|
If MemoPtr& = 0 Then Exit Sub
|
|
|
|
src = String$(MemoLen&, " ")
|
|
|
|
'Copy 'MemoPtr' to VB string 'src'
|
|
u4memCpy src, MemoPtr, MemoLen
|
|
|
|
End Sub
|
|
|
|
Function f4name$(fPtr&)
|
|
|
|
'This function returns the name of a field
|
|
|
|
Dim FldNamePtr& 'Pointer to field name
|
|
Dim FldName As String * 11 'String to hold info
|
|
FldNamePtr& = f4nameCB(fPtr) 'Get pointer
|
|
|
|
f4name = b4String(FldNamePtr)
|
|
|
|
End Function
|
|
|
|
Function f4nCpy(field&, s$, slen%)
|
|
'This function copies the fields contents into a string
|
|
s = Space$(slen) 'Make s$ one byte longer for null character that u4ncpy adds
|
|
Dim fPtr&
|
|
fPtr& = f4ptr(field)
|
|
|
|
If fPtr& = 0 Then Exit Function
|
|
|
|
u4memCpy s, fPtr, slen
|
|
|
|
f4nCpy = Len(s)
|
|
End Function
|
|
|
|
Function f4str$(field&)
|
|
'This function returns the contents of a field
|
|
Dim s$, fPtr&, fLen%
|
|
|
|
fPtr& = f4ptr(field)
|
|
If fPtr& = 0 Then Exit Function
|
|
|
|
fLen = f4len(field) 'Get field length
|
|
s = Space$(fLen) 'Make s$ one byte longer for null character that u4ncpy adds
|
|
|
|
u4memCpy s, fPtr, fLen
|
|
|
|
f4str = s
|
|
End Function
|
|
|
|
Function f4strUnicode$(field&)
|
|
'This function returns the contents of a Unicode field
|
|
Dim bArray() As Byte
|
|
bArray = f4binary(field)
|
|
f4strUnicode = RTrimNulls(Left(bArray, f4len(field)))
|
|
End Function
|
|
|
|
Function f4memoStrUnicode$(field&)
|
|
'This function returns the contents of a Unicode memo field
|
|
Dim bArray() As Byte
|
|
bArray = f4memoBinary(field)
|
|
f4memoStrUnicode = RTrimNulls(Left(bArray, f4memoLen(field)))
|
|
End Function
|
|
|
|
Function i4create&(ByVal dbPtr&, IndexName$, n() As TAG4INFO)
|
|
' i4create() calls i4createCB() to create a new
|
|
' index file. Variable n is an array of type TAG4INFO
|
|
' which corresponds to TAG4INFOCB, a structure that
|
|
' can be used by i4createCB(). The difference once
|
|
' again is merely the difference in the representation
|
|
' of strings between C and Basic.
|
|
'
|
|
' i4create() takes the contents from the TAG4INFO
|
|
' structure and builds a TAG4INFOCB structure which
|
|
' it passes to i4createCB(). Note: the TAG4INFOCB
|
|
' arrary is one size larger than the TAG4INFO array.
|
|
' The extra empty (zero filled) array element is the
|
|
' way that i4create detects the end of the array.
|
|
'
|
|
' Note also, that if 'IndexName' is an empty string,
|
|
' the index file that is created will become a
|
|
' "production" index file. i.e. it will be opened every
|
|
' time the corresponding data file is opened.
|
|
|
|
Dim i%
|
|
|
|
Dim tlb%
|
|
Dim tub%
|
|
Dim ts%
|
|
|
|
|
|
tlb = LBound(n)
|
|
tub = UBound(n)
|
|
ts = tub - tlb + 1
|
|
ReDim t(1 To (ts + 1)) As TAG4INFOCB
|
|
For i = 1 To ts
|
|
t(i).name = v4Cstring(n((tlb - 1) + i).name)
|
|
t(i).expression = v4Cstring(n((tlb - 1) + i).expression)
|
|
t(i).filter = v4Cstring(n((tlb - 1) + i).filter)
|
|
t(i).unique = n((tlb - 1) + i).unique
|
|
t(i).descending = n((tlb - 1) + i).descending
|
|
Next i
|
|
|
|
If IndexName$ = "" Then 'User wants production index file
|
|
i4create = i4createCB(dbPtr&, ByVal 0&, t(1))
|
|
Else
|
|
i4create = i4createCB(dbPtr&, IndexName$, t(1))
|
|
End If
|
|
|
|
' Since v4Cstring allocates memory for the storage of
|
|
' C strings, we must free the memory after it has been
|
|
' used.
|
|
|
|
For i = 1 To ts
|
|
Call v4Cstringfree(t(i).name)
|
|
Call v4Cstringfree(t(i).expression)
|
|
Call v4Cstringfree(t(i).filter)
|
|
Next i
|
|
End Function
|
|
|
|
Function i4fileName$(iPtr&)
|
|
'This function returns the file name of an index tag
|
|
i4fileName = b4String(i4fileNameCB(iPtr))
|
|
End Function
|
|
|
|
Function i4open&(d4&, fName$)
|
|
If fName = "" Then
|
|
i4open = i4openCB(d4&, ByVal 0&) 'Use data file name
|
|
Else
|
|
i4open = i4openCB(d4&, fName$) 'Use supplied name
|
|
End If
|
|
End Function
|
|
|
|
Function i4tagAdd%(ByVal i4Ptr&, n() As TAG4INFO)
|
|
' i4tagAdd adds additional tags to an existing
|
|
' index.
|
|
|
|
' i4tagAdd takes the contents from the TAG4INFO
|
|
' structure and builds a TAG4INFOCB structure which
|
|
' is passed to i4tagAddCB.
|
|
|
|
Dim i%
|
|
|
|
Dim tlb%
|
|
Dim tub%
|
|
Dim ts%
|
|
|
|
|
|
tlb = LBound(n)
|
|
tub = UBound(n)
|
|
ts = tub - tlb + 1
|
|
ReDim t(1 To (ts + 1)) As TAG4INFOCB
|
|
For i = 1 To ts
|
|
t(i).name = v4Cstring(n((tlb - 1) + i).name)
|
|
t(i).expression = v4Cstring(n((tlb - 1) + i).expression)
|
|
t(i).filter = v4Cstring(n((tlb - 1) + i).filter)
|
|
t(i).unique = n((tlb - 1) + i).unique
|
|
t(i).descending = n((tlb - 1) + i).descending
|
|
Next i
|
|
|
|
i4tagAdd = i4tagAddCB(i4Ptr&, t(1))
|
|
|
|
End Function
|
|
|
|
Function relate4masterExpr$(r4Ptr&)
|
|
'This function returns the Relations expression string
|
|
relate4masterExpr = b4String(relate4masterExprCB(r4Ptr&))
|
|
End Function
|
|
|
|
Function report4parent%(ByVal r4&, ByVal hWnd&)
|
|
#If Win16 Then
|
|
report4parent = report4parent16(r4, hWnd)
|
|
#End If
|
|
#If Win32 Then
|
|
report4parent = report4parent32(r4, hWnd)
|
|
#End If
|
|
End Function
|
|
|
|
Sub report4free(pReport&, freeRelate%, closeFiles%)
|
|
Call report4freeLow(pReport, freeRelate, closeFiles, 1)
|
|
End Sub
|
|
|
|
Function t4Alias$(tPtr&)
|
|
t4Alias = b4String(t4aliasCB(tPtr))
|
|
End Function
|
|
|
|
Function t4expr$(tPtr&)
|
|
'This function returns the original tag expression
|
|
t4expr = b4String(t4exprCB(tPtr))
|
|
End Function
|
|
|
|
Function t4filter$(tPtr&)
|
|
|
|
'This function returns the tag filter expression
|
|
|
|
Dim FilterPtr&
|
|
Dim filter As String * 255
|
|
|
|
'Get pointer to parsed filter expression
|
|
FilterPtr& = t4filterCB(tPtr&)
|
|
|
|
If FilterPtr& = 0 Then
|
|
t4filter = ""
|
|
Exit Function 'No filter
|
|
End If
|
|
|
|
t4filter = b4String(FilterPtr)
|
|
|
|
End Function
|
|
|
|
Function u4descend$(charString$)
|
|
Dim Result$, i%
|
|
|
|
For i = 1 To Len(charString)
|
|
Result = Result + Chr$(128 And Asc(Mid$(charString, i, 1)))
|
|
Next
|
|
|
|
u4descend = Result
|
|
End Function
|
|
|
|
Private Function RTrimNulls$(str$)
|
|
' Returns a String containing a copy
|
|
' of str without trailing nulls.
|
|
Dim curLength&, newLength&
|
|
curLength = Len(str)
|
|
If curLength = 0 Then Exit Function
|
|
|
|
For newLength = 1 To curLength
|
|
If Mid(str, newLength, 1) = vbNullChar Then
|
|
RTrimNulls = Left(str, newLength - 1)
|
|
Exit Function
|
|
End If
|
|
Next
|
|
|
|
RTrimNulls = str
|
|
End Function
|