Asymetrix Demo/Asymetrix.iso/prg/mtb30/samples/dbexchng.tbk

Asymetrix ToolBook File | 1994-07-11 | 332.9 KB | 6,676 lines

exchangeHelp
.&+    +E
Hotword
gjumpPage
buttonClick
.&+    +E
helptext
enterPage
.&+    +E
.&+    +E
previous
buttonClick
(jumpPage
"helptext"
FALSE
HelpText
subtitle
PreviousBtn
.&+    +E
buttonUp
FALSE
Previous
nextbtn
.&+    +E
buttonUp
FALSE
.&+    +E
.&+    +E
folder
svReturnPage
buttonUp
4svReturnPage
sysSuspendMessages
xwant
[out information \
-- on
    sendNotifyBefore
"folder"
1 -- needed because
Return
Paradox Browser
8v;d@
WdXfUF$F$F$F$U
    {\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The page script handles initalization and cleanup for the frontend, links the DLLs and contains all handlers that actually communicate with the database DLL.  All of the database functions are in the page script for easy maintainence, only the page
script needs to be changed to change database DLLs.
\par     When a frontend is built, recordFields whose name are the same as the fields in the database file are created.  These recordFields all have the same script with 3 notify handlers:  \b0 \i \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDisplay\b0
\i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 , \b0 \i \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDB\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 , and \b0 \i \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 clearFields\b0 \i0 \strike0 \f0 \fs20 \ulnone
\up0 \dn0 \cf1 .  These notify handlers call get and set handlers on the page to get and set data in the current record of the database file.
\par
    This technique of using notify handlers is used for maintainability.  To add a field from the database to the frontend, just copy one of the existing recordFields and set its name to the name of the database field.  To delete a field from the frontend,
just delete the recordField, no scripts must be changed.
\par \par This page contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  enterApplication, leaveApplication, author, mouseEnter, linkPX,
\par     deleteRecord, updateDB, newRecord, packDatabase,
\par     helpForThisBook, searchForKey.
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to get\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  currentRecord, totalRecords, fieldValue, isPositiveInteger, nameOnly,
\par     removeExtension.
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to set\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  fieldValue, currentRecord.}
helpMessage
first record
first
WcurrentRecord
PupdateDisplay
buttonClick
buttonClick
currentRecord
updateDisplay
go to first record
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The First button navigates to the first record in the database by setting the currentRecord of the page.  In the page script there is a to set currentRecord handler that does the actual navigation in the database.  It then sends the updateDisplay
notification message that notifies the recordFields to read their field from the current record in the database and update their text.
\par \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  buttonClick
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDisplay
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sets\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 : currentRecord of the page}
helpMessage
Previous
buttondown
previous
WcurrentRecord
PupdateDisplay
buttonStillDown
currentRecord
updateDisplay
go to previous record
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The Previous button navigates to the previous record in the database by setting the currentRecord of the page.  In the page script there is a to set currentRecord handler that does the actual navigation in the database.  It then sends the updateDisplay
notification message that notifies the recordFields to read their field from the current record in the database and update their text.  Holding down the Previous button "flips" through the records by handling the buttonStillDown message.
\par \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  buttonDown, buttonStillDown
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDisplay, buttonStillDown
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sets\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 : currentRecord of the page}
helpMessage
buttonDown
WcurrentRecord
PupdateDisplay
buttonStillDown
currentRecord
updateDisplay
go to next record
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The Next button navigates to the next record in the database by setting the currentRecord of the page.  In the page script there is a to set currentRecord handler that does the actual navigation in the database.  It then sends the updateDisplay
notification message that notifies the recordFields to read their field from the current record in the database and update their text.  Holding down the Next button "flips" through the records by handling the buttonStillDown message.
\par \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  buttonDown, buttonStillDown
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDisplay, buttonStillDown
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sets\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 : currentRecord of the page}
helpMessage
LastRecord
WcurrentRecord
PupdateDisplay
buttonClick
buttonClick
currentRecord
"Last"
updateDisplay
@"0'H
go to last record
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The Last button navigates to the last record in the database by setting the currentRecord of the page.  In the page script there is a to set currentRecord handler that does the actual navigation in the database.  It then sends the updateDisplay
notification message that notifies the recordFields to read their field from the current record in the database and update their text.
\par \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  buttonClick
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDisplay
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sets\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 : currentRecord of the page}
helpMessage
sortbylabel
Choose fields to Sort by:
chooseIndex
getPXErrorString
closePXTable
WcurrentRecord
FindKey
indexArray
openPXTable
database
PupdateDisplay
pParadoxfilename
WcurrentRecord
selectChange
selectChange
4indexArray[]
ZINT vRecordNumber
 = currentRecord
closePXTable("database")
getPXErrorString(
openPXTable("
C, pParadoxfilename
oselectedItem], 0)
enabled
B"FindKey"
updateDisplay
select an index file
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The Choose Index combobx opens the database sorted in the order specified by the selected item.  It uses a system variable to map the selected text line in the combobox to the correct index file.  The system variable, \b0 \i \strike0 \f0 \fs20 \ulnone
\up0 \dn0 \cf1 indexArray[]\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 , is initalized in the enterApplication handler.
\par \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  selectChange
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends:  \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDisplay (notification message)}
helpMessage
IMARY
$1f87
findKey
Cancel
Paradox Browser
SUCCESS
vQstrEnterField
WcurrentRecord
searchTable
strEnterKey
fieldName
PupdateDisplay
WcurrentRecord
buttonClick
buttonClick
(strEnterField()
"Cancel"
fieldName
(strEnterKey()
searchTable (
<> "SUCCESS"
    currentRecord() =
-- force update
updateDisplay
"Paradox Browser"
^4V8H
go to a record by key value
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1     The Find Key button searches the database for a record matching the specified text, sets it as the currentRecord and updates the display.\b0
\i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \par \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  buttonClick
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  searchForKey, \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDisplay (notification message)}
helpMessage
Search...
goToRecord
w,    #?
Cancel
WcurrentRecord
*totalRecords
fstrOutOfRange
strEnterRec
PupdateDisplay
buttonClick
buttonClick
(strEnterRec()
<> NULL
r<> "Cancel"
(isType(INT,
> 0)
<= totalRecords()
currentRecord
updateDisplay
&& strOutOfRange()
go to a record by record number
helpText
Go to Record...
WriteRecord
G[updateDB
buttonClick
buttonClick
updateDB
save the contents of the fields to the file
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The Save Record button sends the updateDB message that notifies all of the recordFields to write their text to the current record.  The updateDB message is handled  by the page where the currentRecord is written to the database.
\par \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  buttonClick
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends:  \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 updateDB}
helpMessage
Jve Record
NewRecord
newRecord
PupdateDisplay
buttonClick
buttonClick
newRecord
updateDisplay
clear the fields and insert a blank record into the file
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The New Record button sends the newRecord message that is handled on the page.  The newRecord handler on the page sends the clearField notification message which is handled by all of the recordFields, then it appends the blank record to the database.
\par \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  buttonClick
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 : newRecord and updateDisplay
\par }
helpMessage
&New Record
DeleteRecord
deleteRecord
PupdateDisplay
buttonClick
buttonClick
deleteRecord
updateDisplay
delete the current record from the file
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The Delete Record button sends the deleteRecord message that is handled on the paged followed by the updateDisplay notify message.  The DLL function that actually deletes the record is placed in the page script for easy matainence.
\par \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to handle\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  buttonClick
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 sends\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 : deleteRecord and updateDisplay
\par }
helpMessage
lete Record
titlefield
Front End to
status
currRecord
totRecords
currRecord
totRecords
totRecords
currRecord
*totalRecords
WcurrentRecord
updateDisplay
currRecord
totRecords
value
 & " "
notifyBefore updateDisplay
currentRecord()
totalRecords()
displays the current record number and number of total records
helpText
{\rtf1 \ansi \deff0 {\fonttbl {\f0 \fswiss MS Sans Serif;}}{\colortbl \red255 \green255 \blue255 ;\red0 \green0 \blue0 ;\red255 \green0 \blue0 ;}{\stylesheet {\s0 \ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \cb0
\sbasedon0 \snext0 field text;}}\ql \fi0 \li0 \ri0 \sl0 \tx720 \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
    The Stauts Field reprots the current record number and the number of total records in the Database.  It is updated by the updateDisplay notification message.  It uses \b0 \i \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 TO SET\b0 \i0 \strike0 \f0 \fs20
\ulnone \up0 \dn0 \cf1  and \b0 \i \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 TO GET\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1
 handlers to set and get the values of currentRecord and totalRecords so that if the message in the status field changed to "You are on record number 3 out of 5" so that currentRecord was word 6 instead of word 2 in the field, only the set handlers woul have to be changed, you would not have to track down every script on the page or background that set
currentRecord.\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \par \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 \par This button contains the following handlers:
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 notifyBefore\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  updateDisplay
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to get\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  currentRecord, totalRecords
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 to set\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 : currentReocrd, totalRecords
\par \b \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf2 gets\b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 :  \b0 \i0 \strike0 \f0 \fs20 \ulnone \up0 \dn0 \cf1 currentRecord and totalRecords of the page (see the page script)}
helpMessage
Record:  1 of 17777777777777
not set yet
helpText
updateDisplay
&Save Record
&Delete Record
Progress
Progress
fullBar
currentBar
currentPercent
 80%6969696969697%
RecordCounter
Record 4 of 57703773
partitions
splash
dBIII  -><-ToolBook-><- Paradoxdoxxxxxx
DBase Exchange ver. 3.0
 1994 Asymetrix Corp.
Importing dBase to ToolBook
Use the "Import dBase to ToolBook" page or the "Import Paradox to ToolBook" page to access dBase or Paradox data in ToolBook.  After you choose a database file, the field names appear in the "Select dBase (Paradox) Fields" listbox.  Click the names of only the dBase or Paradox fields you want to import.  Use the Select All Fields button if you want to import all the fields listed.  You must have at least one field selected in order to import.
By clicking Import to Record Fields, you create a new  book with the same name as the original database, with all records imported as ToolBook record fields.  The new book has one page for every record in the dBase file.
By clicking Import to Front End, you create a new, untitled book that uses OpenScript for viewing and editing the database file.
Importing dBase or Paradox to ToolBookk
Import to Record Fields
jumpPage
Import to Front End
jumpPage
Import to Front End
Import to Record Fields
Import to Record Fields creates a new book in a second instance of ToolBook.
The new book contains one background field and one record field for each dBase or Paradox field that was selected.  The background field contains the name of the dBase or Paradox field, and the record field contains the data from the field.
The new book has one page for each record in the dBase or Paradox file.  To view each page, use the navigation buttons provided or the commands on the Page menu.
ge menu.
Import to Record Fields
Import to Front End
Import to Front End creates a new, untitled book in a second instance of ToolBook.
The front end book contains 2 pages.  The first page is for viewing dBase data.  The second page is help for the front end.   The front end page consists of controls for selecting records in the dBase file and ToolBook fields for both the dBase field names and the data.
For help using the front end, see the help page that comes with that book.g
Import to Front End
Exporting ToolBook to dBase
Use the "Export ToolBook to dBase" page to create a dBase file.  Use the "Export ToolBook to Paradox" page to create a Paradox file.  One record is created for each page of the background you are importing from.
Choose a book to export. Because books often have title pages, ToolBook looks at the last page of the book first to verify that valid record fields exist on the background. Then it begins searching the book, starting on the first page of the background with record fields. To be valid, record fields must have unique names and must not be grouped.
If your book does not have the data you want on the last page, edit the book by renumbering one of the background pages so that it becomes the last page of the book.
If a book can be exported, its valid record fields are listed in the field labeled Select ToolBook Fields.
Selecting ToolBook Fields Export
jumpPage
Exporting ToolBook to dBase or Paradox
Selecting ToolBook Fields Export
Click  a field name in Select ToolBook Fields, then click the Add button to export the ToolBook field to a dBase or Paradox file..
When you select a ToolBook field, its name and text appear in View ToolBook Information.  ToolBook tries to determine the dBase or Paradox field type from the text of the field.
If you want to change the characteristics of a dBase or Paradox field, use the controls in Change dBase Field Characteristics or Paradox Field Characteristics.istics..
Selecting ToolBook Fields
jumpPage
jumpPage
Paradox Field Char - Export
Change dBase Field - Export
Paradox Field Char - Export
Change dBase Field - Export
The controls in the Change dBase Field Characteristics section reflect the currently selected field in the dBase Fields listbox.  If a dBase field is not selected, the controls are unavailable.
Name:  A dBase field name  up to 10 characters long.  The first character cannot be a number.  Acceptible characters are:
                                   A...Z  _  0 1 2 3 4 5 6 7 8 9
Type:  The dBase data type. Click one of the five radio buttons to change the data type.
Width:  The number of characters in the dBase field. The maximum width for fields of type Character is 254 and Numeric is 19.  For  other types, the width is predefined and cannot be changed.
Decimal: For fields of  type Numeric, the number of characters after the decimal point.  The maximum value is 15. Decimal must be at least 2 less than the width of the field.  For example, if Width is 8, the maximum decimal value you can set is 6.
Date Format: The format used in the ToolBook record field.  If no date format is set,  sysDateFormat  is used.  If the text of the record field is a date but ToolBook guesses that it is a different format, change the data type to Date and choose the Date Format button to specify the correct format.
If your book has many record fields containing dates that ToolBook does not recognize as dates, change sysDateFormat to match the format of the dates in the record fields.
Change dBase Field Characteristics
splash
jumpPage
jumpPage
Paradox Field Char - Export
Change dBase Field - Export
Paradox Field Char - Export
Change dBase Field - Export
Import dBase
Import Paradox
Import Paradox
DatabaseFields
06cleanUp
enterPage
closePXTable
DBExchng
DatabaseFields
06cleanUp
leavePage
button "selectAllFields", button "unselectAllFields",
field "ParadoxFileName", field "DatabaseFields"
button "ImportToRecordFields", button "ImportToFrontEnd"
cleanUP
--handlers
functions
}only on
    --If there
some old stuff on
, delete
"DatabaseFields" <>
cleanUp
    --Delete
4leaving
closePXTable("DBExchng")
reset
 fields
buttons
their initial state
cleanUP
ZvFieldList, vButtonList
""ParadoxFileName"",
4 = "
B""selectAllFields"",
B""unselectAllFields"","& \
B""ImportToRecordFields"",
B""ImportToFrontEnd"""
enabled
FALSE
select a Paradox file to import
helpText
Choose Paradox File...
paradoxFileName
Paradox file to import
helpText
Select Paradox Fields:
DatabaseFields
fieldButtons
unselectAllFields
buttonClick
keyUp
buttonClick
selectedTextlines
        -- only
enable them
they are
xalready enabled
        -- buttons grouped
simplify
B"unselectAllFields"
"fieldButtons"
FALSE
KeySpace
fields available to import
helpText
selectallFields
Databasefields
DatabaseFields
buttonClick
buttonClick
ZLONG i
ZSTACK vSelectedLines
textlineCount(
"DatabaseFields")
selectedTextlines
"Databasefields"
select all of the listed fields to import
helpText
Select All Fields
directions
helpText
Data in a Paradox file can be exchanged in two ways:
1.  Import the Paradox database into record fields in a new book.
2.  View and edit the Paradox database directly in a ToolBook front end.
fieldButtons
unselectallFields
DatabaseFields
buttonClick
buttonClick
selectedTextlines
"DatabaseFields"
unselect all of the listed fields to import
helpText
Unselect All Fields
ImportToFrontEnd
import the selected fields to a ToolBook front end
helpText
Import to Front End
ImportToRecordFields
import the selected fields to a ToolBook flat file database
helpText
Import to RecordFields
script
author
reader
author
enterPage
notifyBefore
script for recordfields in front end
helpText
--notify handlers are used here to allow changing of the fields without
--changing script anywhere else.  Because the text of a recordfield lives
--on the page and not the background we use words 1 to 3 of the unique name (self)
--to refrence the text to set or get.
notifyBefore updateDisplay
    set text of words 1 to 3 of self to fieldValue(my name) of this page
notifyBefore updateDB
    set fieldValue(my name) of this page to text of words 1 to 3 of self
notifyBefore clearFields
    clear text of words 1 to 3 of self
    set fieldValue(my name) of this page to null
notifyBefore queryDBFields
    system databaseFieldList
    push self onto databaseFieldList
author
reader
enterPage
Export dBase
)f-B0b2b4
14,23
selectChars
TypeLabel
 Type:
w,    #b
.&+    +
ToolBook file (*.TBK), *.TBK
npnameOnly
9listToolBookFields
svLine
toolbookfilename
toolbookfields
OpenFileDlg
dbfields
svTbName
strPLChoosedBook
buttonClick
buttonClick
4STRING svTbName
4INT svLine
!vName
OpenFileDlg (strPLChoosedBook(),"", ".", "ToolBook file (*.TBK), *.
", 1)
"toolbookfilename"
[(nameOnly(
listToolBookFields
"dbfields"
"toolbookfields" <>
y-- will be
error
selectedTextlines
enabled
select a ToolBook book to export to a dBase file
helpText
Choose Book...
ToolBookFileName
ToolBook book to export to a dBase file
helpText
Build dBase File
save the specified recordFields to a dBase file
helpText
Save As dBase...
Select ToolBook Fields:
ToolBookFields
buttonClick
buttonClick
selectedTextlines
recordFields on last background of the selected book
helpText
add_remove
include recordField in export list
helpText
Add >>
remove
remove recordField from export list
helpText
Remove <<
Clear
.&+    +
pPresetDataView
dateFormat
dateFormat
9listToolBookFields
svLine
toolbookfields
dbfields
remove
resetCharacteristics
buttonClick
buttonClick
4INT svLine
= TRUE
enabled
FALSE
listToolBookFields
"dbfields"
l = 0
selectedtextlines
"toolbookfields"
resetCharacteristics
resetDataView
dateFormat
clear export list
helpText
Clear
dBase Fields:
Type'
dbfields
synch
svLine
buttonDown
synch
svLine
field
keyUp
textScrolled
+",H4
+",H4
+",H4
+",H4
w,    />
+",H3
saveTBName
svLine
svBkName
dWidth
setCharacteristicsState
dName
dType
setDataView
dDecimal
synch
4INT svLine
 <> selectedTextlines
synch
Z <>
textScrolled
{targetField
4STRING svBkName
ZvName
selectedTextLines
= TRUE
setCharacteristicsState
"dType",\
"dWidth",\
"dDecimal",\
"dName"
setDataView
saveTBName
= FALSE
dName
THREE
VLOCALNUM
VEXTENSION
BILLINGCD
NOTES
saveTBName
name for field in dBase file
helpText
dType
dBase field type for recordField data
helpText
dWidth
dBase field width for recordField data
helpText
dDecimal
number of decimal digts if numeric field
helpText
b!T!\s
viewLabel
FALSE
disabled
View ToolBook Field Information
+",H4
svLine
2DisAlNum
dbFields
dName
keyChar
strNameToLarge
strNameNull
strChar1Num
isNum
leaveField
4INT svLine
) > 9
(selectedTextState =
isAlNum(
a = 95
-- backspace
"dName"
selectedTextlines
"dbFields"
Key <>
ZSTRING vError
) > 10
 = strNameToLarge()
> = strNameNull()
isNum(
f = strChar1Num()
FALSE
disabled
name of field in dBase file
helpText
nameLabel
FALSE
disabled
Name:
l' (0(
widthLabel
FALSE
disabled
Width:
width
foo(FALSE)
FALSE
disabled
disabled(FALSE)
Width of selected dBase field
helpText
J#<#\s
Character
set field type to character
helpText
Character
set field type to date
helpText
Logical
set field type to logical
helpText
Logical
)X,b,
set field type to memo
helpText
Memo
Numeric
set field type to numeric
helpText
Numeric
DateFormat
w,    />
+",H3
w,    />
+",H3
dateFormat
saveTBName
strAskDateFormat
svLine
dateFormat
dName
strOK
buttonClick
buttonClick
4INT svLine
(strAskDateFormat(
Bsvline
saveTBName
dName) \
r= strOK()
dateFormat
        -- Probably want
use that
every
set the date format for the dBase file
helpText
Date Format...
tbNamelabel
darkGray
strokeGraued
FALSE
disabled
Name:
TBRecordFieldName
disabled
name of ToolBook recordField
helpText
tbTextLabel
FALSE
disabled
Text:
TBRecordFieldText
disabled
contents of ToolBook recordField
helpText
DecimalLabel
FALSE
disabled
Decimal:
Decimal
foo(FALSE)
FALSE
disabled
disabled(FALSE)
decimal precision of selected dBase field
helpText
changeLabel
FALSE
disabled
Change dBase Field CharacteristicsText
FrontEnd
dBase browser
X&H&{
X&H&{
first record
first
WcurrentRecord
Failed
PupdateDisplay
buttonClick
buttonClick
currentRecord
r<> "Failed" --
updateDisplay
go to first record
helpText
Previous
buttondown
previous
WcurrentRecord
Failed
PupdateDisplay
buttonStillDown
currentRecord
r<> "Failed" --
updateDisplay
go to previous record
helpText
buttonDown
WcurrentRecord
Failed
PupdateDisplay
buttonStillDown
currentRecord
r<> "Failed" --
updateDisplay
go to next record
helpText
LastRecord
WcurrentRecord
Failed
PupdateDisplay
buttonClick
buttonClick
currentRecord
"Last"
r<> "Failed" --
updateDisplay
go to last record
helpText
OpenIndexFile
openIndex
buttonClick
buttonClick
openIndex
open an index file
helpText
Open Index File...
goToRecord
w,    #?
cancel
WcurrentRecord
*totalRecords
fstrOutOfRange
strEnterRec
PupdateDisplay
buttonClick
buttonClick
(strEnterRec()
<> NULL
r<> "
(isType(INT,
> 0)
<= totalRecords())
currentRecord
updateDisplay
&& strOutOfRange()
go to a record by record number
helpText
Go to Record...
findKey
strEnterKey
searchForKey
PupdateDisplay
buttonClick
buttonClick
(strEnterKey()
searchForKey
updateDisplay
go to a record by key value
helpText
Find Key...
WriteRecord
G[updateDB
buttonClick
buttonClick
updateDB
save the contents of the fields to the file
helpText
Save Record
NewRecord
newRecord
PupdateDisplay
buttonClick
buttonClick
newRecord
updateDisplay
clear the fields and insert a blank record into the file
helpText
New Record
DeleteRecord
deleteRecord
buttonClick
buttonClick
deleteRecord
delete the current record from the file
helpText
Delete Record
titlefield
Front End to
status
currRecord
totRecords
currRecord
totRecords
totRecords
currRecord
*totalRecords
WcurrentRecord
updateDisplay
currRecord
totRecords
value
 & " "
notifyBefore updateDisplay
currentRecord()
totalRecords()
displays the current record number and number of total records
helpText
Record:  0 of 07777777777777
SortCheck
chooseIndex
enableFields
FALSE
sortExpressionLabel
currentKeyValue
findKey
svKey
sortExpression
1deselectDBIndexfile
currentKeyValueLabel
buttonClick
chooseIndex
enableFields
FALSE
sortExpressionLabel
currentKeyValue
findKey
svKey
sortExpression
currentKeyValueLabel
vFieldList
updateDisplay
buttonClick
4svKey
ZvFieldList
combobox "chooseIndex"
dropDownItems
selectChange
deselectDBIndexfile()
enabled
BfindKey
 = "sortExpressionLabel", "currentKeyValueLabel",\
0", "
enableFields(
, FALSE, TRUE)
notifyBefore updateDisplay
l", "
el",\
toggle the index on/off
helpText
Sort by Index
sortExpressionLabel
Sort Expression:Y
sortExpression
sortCheck
kereadIndexExpression
updateDisplay
notifyBefore updateDisplay
B"sortCheck"
readIndexExpression()
expression used to create current index file
helpText
CurrentKeyValueLabel
Current Key Value:##
"&#.$
currentKeyValue
sortCheck
readKeyValue
updateDisplay
notifyBefore updateDisplay
B"sortCheck"
readKeyValue()
the value of the sort expression for the current record.
helpText
not set yet
helpText
sortbylabel
Choose Index to Sort by:G&$
4%J&B)
chooseIndex
PupdateDisplay
enableFields
sortExpressionLabel
SortCheck
gotodbRecord
FindKey
getDBRecordNumber
svKey
CurrentKeyValueLabel
selectdbIndexFile
selectChange
selectChange
4svKey
ZINT vRecordNumber
ZvFieldList
 = getDBRecordNumber()
selectdbIndexFile(
gotodbRecord(
S = "sortExpressionLabel", "CurrentKeyValueLabel"
enableFields(
, TRUE)
B"SortCheck"
enabled
B"FindKey"
updateDisplay
select an index file
helpText
updateDisplay
Paradox FrontendHelp
HelpText
You can view the records in the Paradox file by clicking the navigation buttons (
<<, <<, >>, and >>
) , clicking the Go To Record button, or clicking the Search button.
To edit a Paradox field, change the text of the field and click Save Record. If you do not save the record, the next time you view it, the data for the field will be unchanged.
Whenever you save, delete, or add a new record, only the primary index and any indexes created as "secondary maintained" are updated.  Any non-maintained indexes are not updated.
When a Table is opened all of the indexes for it are opened and the fields in the key are put in the combobox.  Corrupted indexes are rebuilt. To select an index to sort by, choose the corresponding fields from the combobox.
When you delete a record, the space it takes is not physically removed from the database until you  choose Pack Database from the file menu. You should do this every once in a while to prevent the database files from becoming huge.
subtitle
Using the Front End
.&+    +E
default
buttonClick
buttonClick
    sysSuspendMessages =
o= default
FrontEnd
exchangeHelp
dBase FrontEndHelp
HelpText
You can view the records in the dBase file by clicking the navigation buttons (
<<, <<, >>, and >>
) , clicking the Go ToRecord button, or clicking the Find Key button.
To edit a dBase field, change the text of the field and click Save Record. If you do not save the record, the next time you view it, the data for the field will be unchanged.
Whenever you save, delete, or add a new record, you are warned that your index files can get out of date if they have not been opened.  To stop the warning from appearing, choose Stop Index Warning from the dBase menu.
Records can be sorted by index files if an index file is open.  To open an index file, choose Open Index File button.  If the sort options are grayed out, an index file has not been opened yet.
When you delete a record, it is not physically removed from the file until you  choose Pack Database from the dBase menu.
        nu.
subtitle
Using the Front End
.&+    +E
default
buttonClick
buttonClick
    sysSuspendMessages =
o= default
Selecting ToolBook Fields Export
Progress
Export dBase
Export Paradox
CDBFIL&File
&Open Index File...    Ctrl+O
OpenIndex
Open an Index file for the current database.
&Close Index File...    Ctrl+I
CloseIndexFile
Select an Index file to close.
&Run...
Run another application.
E&xit
Exit Database Frontend.
&Edit
Cu&t    Ctrl+X
Cut selected text from field.
&Copy    Ctrl+C
Copy selected text to clipboard
&Paste    Ctrl+V
Paste text from clipboard.
Clear    Del
Clear field
&Size to Page    F11
SizeToPage
Adjusts the application window to the current page size.
Author    F3
&dBase
&Pack Database    Ctrl+P
Remove deleted records from database file.
&Stop Index Warning
&Help...
helpForThisBook
Get help for dBIII front end.
&Save    Ct&File
Create, open, and manage files
&Open...    Ctrl+O
&Save    Ctrl+S
Save &As...
&Run...
E&xit    Alt+F4
&Edit
 Change pages, size the book, switch to author mode
C&ut    Ctrl+X
&Copy    Ctrl+C
&Paste    Ctrl+V
C&lear    Del
&Next    Alt+Right
&Previous    Alt+Left
&Size to Page    F11
&Author    F3
&Help
&dBase Exchange Help
DbaseHelp
&About dBase Exchange...
AboutDbase
&File
&Pack Database    Ctrl+P
Remove deleted records from database file.
&Run...
Run another application.
E&xit
Exit Database Frontend.
&Edit
Cu&t    Ctrl+X
Cut selected text from field.
&Copy    Ctrl+C
Copy selected text to clipboard
&Paste    Ctrl+V
Paste text from clipboard.
C&lear    Del
Clear field
&Size to Page    F11
SizeToPage
Adjusts the application window to the current page size.
&Author    F3
&Help...
helpForThisBook
Get help for Paradox front end.
 will be pros
Export Paradox
+x2P4
30,34
selectChars
TypeLabel
Type:
w,    #b
.&+    +
ToolBook file (*.TBK), *.TBK
npnameOnly
9listToolBookFields
svLine
toolbookfilename
toolbookfields
OpenFileDlg
dbfields
svTbName
strPLChoosedBook
buttonClick
buttonClick
4STRING svTbName
4INT svLine
!vName
OpenFileDlg (strPLChoosedBook(),"", ".", "ToolBook file (*.TBK), *.
", 1)
"toolbookfilename"
[(nameOnly(
listToolBookFields
"dbfields"
"toolbookfields" <>
y-- will be
error
selectedTextlines
enabled
select a ToolBook book to export to a Paradox file
helpText
Choose Book...
ToolBookFileName
ToolBook book to export to a Paradox file
helpText
Build Paradox File
save the specified recordFields to a Paradox file
helpText
Save As Paradox...
Select ToolBook Fields:
ToolBookFields
recordFields on last background of the selected book
helpText
include recordField in export list
helpText
Add >>
remove
w,    />
w,    />
pPresetDataView
saveTBName
saveTBName
clear
toolbookFields
dbFields
dWidth
resetCharacteristics
dName
dType
svLine
buttonClick
buttonClick
4svLine
ZvTBFieldName, vNextTextline
= TRUE
saveTBName
"toolbookFields")+1
] = 1
enabled
selectedTextLines
"dType"
"dWidth"
lines have been removed
resetCharacteristics
resetDataView
FALSE
Uhas
o, change
selectedtextlines
"dbFields"
" -- sync fields
remove recordField from export list
helpText
Remove <<
Clear
.&+    +
pPresetDataView
9listToolBookFields
svLine
toolbookfields
dbfields
remove
resetCharacteristics
buttonClick
buttonClick
4INT svLine
= TRUE
enabled
FALSE
listToolBookFields
"dbfields"
l = 0
selectedtextlines
"toolbookfields"
resetCharacteristics
resetDataView
clear export list
helpText
Clear
Paradox Fields:
Name1
viewLabel
FALSE
disabled
View ToolBook Field Information
tbNamelabel
darkGray
strokeGraued
FALSE
disabled
Name:
TBRecordFieldName
disabled
name of ToolBook recordField
helpText
dbFields
synch
svLine
buttonDown
synch
svLine
keyUp
textScrolled
+",H4
+",H4
+",H4
w,    />
+",H3
saveTBName
svLine
svBkName
dWidth
setCharacteristicsState
dName
dType
setDataView
synch
4INT svLine
 <> selectedTextlines
synch
M <>
textScrolled
htargetField
4STRING svBkName
ZvName
1 <>
 = selectedTextLines
= TRUE
setCharacteristicsState
"dType",\
"dWidth",\
"dName"
setDataView
saveTBName
= FALSE
dName
THREE
saveTBName
name for field in Paradox file
helpText
dType
Paradox field type for recordField data
helpText
dWidth
Paradox field width for certain types of recordField data
helpText
"h#$(
+",H4
svLine
2DisAlNum
dbFields
dName
keyChar
strNameToLarge
strNameNull
strChar1Num
isNum
leaveField
4INT svLine
) > 24
(selectedTextState =
isAlNum(
e = 95 -- dash, no
y constant!
-- backspace
"dName"
selectedTextlines
"dbFields"
Key <>
tabkey
ZSTRING vError
) > 10
 = strNameToLarge()
> = strNameNull()
isNum(
f = strChar1Num()
FALSE
disabled
name of field in Paradox file
helpText
nameLabel
FALSE
disabled
Name:
widthLabel
FALSE
disabled
Width:
width
foo(FALSE)
FALSE
disabled
disabled(FALSE)
width of selected Paradox field
helpText
+",H4
+",H4
TBRecordFieldtext
TBRecordFieldText
vWidth
svLine
Alpha-Numeric
dWidth
setCharacteristicsState
numeric
dType
svChecked
buttonClick
buttonClick
4INT svLine
4svChecked
 keeps me
having
figure out what
there
no change
"Alpha-Numeric"
"TBRecordFieldtext"
vWidth
Charcount (
"TBRecordFieldText")
"numeric"
"Memo"
setCharacteristicsState
"dWidth"
"dType"
+ 020
Alpha-Numeric
set field type to character
helpText
Alpha-numeric
set field type to date
helpText
+j1v1
Numeric
set field type to numeric
helpText
Numeric
set field type to memo
helpText
Memo
tbTextLabel
FALSE
disabled
Text:
TBRecordFieldText
disabled
contents of ToolBook recordField
helpText
changeLabel
FALSE
disabled
Change Paradox Field Characteristics
Change dBase Field - Export
Import to Front End
dBase FrontEndHelp
Paradox FrontendHelp
Paradox Field Char - Export
Change dBase Field - Export
Import to Front End
Exporting ToolBook to dBase
Import to Record Fields
Importing dBase to ToolBook
Exchange
folder
mytabheight
myNumTabs
myTabMode
myTabSpace
Folder
tbk_wid_Name
tabHeight
numTabs
tabMode
tabSpace
tbk_wid_props
list,1,2,3,4,5,6
tbk_wid_values
tabNode(FALSE)
obtype
tabHighlight
tabLabel
obtype
tabHighlight
tabLabel
Intro
goPage
obtype
tabHighlight
tabLabel
Export Paradox
goPage
Export to Paradox
obtype
tabHighlight
tabLabel
Export dBase
goPage
Export to dBase
obtype
tabHighlight
tabLabel
Import Paradox
goPage
Import Paradox
obtype
tabHighlight
tabLabel
Import dBase
goPage
Import dBase
highlight
import
author
reader
import
author
enterPage
notifyAfter
notifyBefore
CopyField
templet for database fields
helpText
labelField
templet for field labels
helpText
Label Field
import
author
reader
import
author
enterPage
notifyAfter
notifyBefore
Cancel
Indicate the key (recordField) on which you want to sort.
buttonClick
buttonClick
sysRuntime
("Indicate the key (
J) on which you want
r<> "Cancel"
S&ort
Search
Cancel
T"searchString
field
U"searchString
s_dbExLastFocus
Enter a string to search for
buttonClick
buttonClick
4s_dbExLastFocus
("Enter a
osearchString
r<> "Cancel"
-- the rest
allow
             -- even though
getting thrown around
caretLocation =
= NULL
r& ":" &&
&Search
autoPageNumber
enterPage
What record do you want to go to?
buttonClick
notifyBefore
buttonClick
("What record
zyou want
isType(INT,
autoPageNumber
tbk_wid_name
tbk_wid_values
AutoButtons
import
author
reader
import
author
enterPage
notifyAfter
notifyBefore
AutoButtons
tbk_wid_name
First
autoDisable Navigation button
tbk_wid_name
level
direction
disablePage
tbk_wid_props
list,background,book
list,Next,Previous,First,Last
tbk_wid_values
background
prop_level
direction
First
prop_disablePage
F&irst
Previous
:%b%OO
autoDisable Navigation button
tbk_wid_name
level
direction
disablePage
tbk_wid_props
list,background,book
list,Next,Previous,First,Last
tbk_wid_values
background
prop_level
direction
First
prop_disablePage
P&revious
< r&|&
&&'OO
8'|'qp
autoDisable Navigation button
tbk_wid_name
level
direction
disablePage
tbk_wid_props
list,background,book
list,Next,Previous,First,Last
tbk_wid_values
background
prop_level
direction
prop_disablePage
&Next
< 2(<(
(<)qp
P)f)\
autoDisable Navigation button
tbk_wid_name
level
direction
disablePage
tbk_wid_props
list,background,book
list,First,Previous,Next,Last
tbk_wid_values
background
prop_level
direction
prop_disablePage
&Last
enterPage
reader
author
Exchange
Import dBase
12,16
selectChars
Record Field
select a dBase file to import
helpText
Choose dBase File...
dBaseFileName
dBase file to import
helpText
Select dBase Fields:U
DatabaseFields
fieldButtons
unselectAllFields
buttonClick
keyUp
buttonClick
selectedTextlines
        -- only
enable them
they are
xalready enabled
        -- buttons grouped
simplify
B"unselectAllFields"
"fieldButtons"
FALSE
KeySpace
fields available to import
helpText
selectallFields
databasefields
databaseFields
buttonClick
buttonClick
ZLONG i
ZSTACK vSelectedLines
textlineCount(
"databaseFields")
selectedTextlines
"databasefields"
select all of the listed fields to import
helpText
Select All Fields
directions
helpText
Data in a dBase file can be exchanged in two ways:
1.  Import the dBase data into record fields in a new book.
2.  View and edit the dBase data directly in a ToolBook front end.
fieldButtons
unselectallFields
dataBaseFields
buttonClick
buttonClick
selectedTextlines
"dataBaseFields"
unselect all of the listed fields to import
helpText
Unselect All Fields
ImportToFrontEnd
import the selected fields to a ToolBook front end
helpText
Import to Front End
ImportToRecordFields
import the selected fields to a ToolBook flat file database
helpText
Import to RecordFields
script
author
reader
author
enterPage
notifyBefore
script for recordfields in front end
helpText
--notify handlers are used here to allow changing of the field's without
--changing script anywhere else.  Because the text of a recordfield lives
--on the page and not the background we use words 1 to 3 of the unique name (self)
--to reference the text to set or get.
notifyBefore updateDisplay
    set text of words 1 to 3 of self to fieldValue(my name) of this page
notifyBefore updateDB
    set fieldValue(my name) of this page to text of words 1 to 3 of self
notifyBefore clearFields
    clear text of words 1 to 3 of self
    set fieldValue(my name) of this page to null
notifyBefore queryDBFields
    system databaseFieldList
    push self onto databaseFieldList
author
reader
enterPage
dBase browser
Paradox Browser
Paradox Field Characteristics
Value(my name) of this page to null
notifyBefore queryDBFields
    system databaseFieldList
    push self onto databaseFieldList
author
reader
enterPage
dBase browser
BasefileName
System
Times New Roman
System
Arial
Arial
Arial
Arial
Arial
MS Sans Serif
System
Times New Roman
System
MS Serif
 Sans Serif
\wfonedex.dbf
MS Sans Serif
radox\windows\wfonedex.dbf
Arial
Arial
 Serif
ansferring Data
Progress
DBEXCHANGE
ields
page id 21
iting Data to File
page "Progress"
page id 0 of book "C:\jx\dbexchng\courses.tbk"
Transferring Data
ields
splash
Page "splash"
closeAllDBFiles
toolbookfields
dName
06cleanUp
enterPage
toolbookfields
dName
06cleanUp
leavePage
pPresetDataView
toolbookfileName
toolbookFields
dbFields
resetCharacteristics
add_remove
cleanUp
Decimal
enableFields
FALSE
decimalLabel
widthLabel
nameLabel
TypeLabel
changeLabel
dateFormat
Width
resetCharacteristics
field "changeLabel", field "nameLabel", field "TypeLabel",
svLine
FALSE
dbFieldName
dbFieldType
svChecked
dbFieldDecimal
dbFieldWidth
vInactiveList
vActiveList
enableFields
FALSE
field "Width", field "DecimalLabel", field "Decimal"
decimal
Character
vActiveList
field "WidthLabel", field "name"
Width
field "DecimalLabel", field "Decimal"
Numeric
vInactiveList
width
DateFormat
svChecked
setCharacteristicsState
ccutClear
Clear
ccutClear
+",H4
dwidth
decimal
svline
dbFields
dname
width
dDecimal
cutClear
\Validate
aMoveData
p]BuildTag
CreateFile
buttonClick
svInvalidCounter
closeAllDBfiles
strSelTBFields
dName
Validate
createDBFieldTag
/setDBFieldTag
strTagErr
wTinitProgressViewer
Field
Creating Record Definition
Progress
dWidth
svdbName
Numeric
dName
dType
svTag
currentItem
strErrTag
dDecimal
BuildTag
+    ,    "j
+    ,    /
+    ,    #
+    ,    !
+    ,    !
strdBnameExist
npnameOnly
JfreeDBfieldtag
createDBfile
strSavedBaseFile
mm/dd/ccyy
strNo
setdBDateFormat
svdbName
strDBFileExists
/strYes
svTbName
svTag
49strDBFileOpenError
strOK
openDBfile
strDBFileCreationError
CreateFile
.&+    +E
+    ,    #
+",!Y
+",!Y
,%H.%
stopDB
DateFormat
saveTBName
-strErrSetDBF
strTBrecordError
svInvalidCounter
vToolBookFieldName
Record
HwriteDBrecord
wTinitProgressViewer
strErrRefdbField
currentItem
Progress
strErrDBFWrite
strNoNameOrType
dWidth
mm/dd/y
svTbName
hstrTBErrorRef
setDBFieldValue
dName
dType
Numeric
strErrNoDBF
Writing Data to File
dateFormat
dDecimal
MoveData
svInvalidCounter
qstrExportDone
svdbName
closeDBfile
default
stopDB
toolbookfields
dName
06cleanUp
enterPage
toolbookfields
dName
06cleanUp
leavePage
pPresetDataView
clear
toolbookfileName
toolbookFields
dbFields
remove
resetCharacteristics
cleanUp
author
strNotPage
enableFields
FALSE
widthLabel
nameLabel
TypeLabel
changeLabel
Width
resetCharacteristics
enableFields
FALSE
Alpha-Numeric
WidthLabel
nameLabel
TypeLabel
Width
changeLabel
width
svChecked
setCharacteristicsState
ccutClear
Clear
ccutClear
+",H4
dwidth
svline
dbFields
dname
width
cutClear
(exitPX
strdBnameExist
getPXErrorString
npnameOnly
?createPXTable
dstrSavePXFile
strSelTBFields
amoveData
strNo
svdbName
wTinitProgressViewer
Field
Creating Record Definition
/strYes
Progress
Alpha-Numeric
dWidth
svTBName
Numeric
dName
dType
currentItem
-initializePX
strOK
Setting extension to ".db"
buttonClick
.&+    +E
+    ,    #
+",!Y
,%H.%
hBlob
dWidth
GlobalAlloc
stopDB
pBlobData
saveTBName
-strErrSetDBF
strTBrecordError
strErrNoDBF
GlobalLock
strNoNameOrType
setPXBlob
vToolBookFieldName
svInvalidCounter
svdbName
Record
wTinitProgressViewer
strErrRefdbField
GlobalFree
currentItem
Progress
openPXTable
getPXErrorString
svTbName
hstrTBErrorRef
GlobalUnlock
dName
dType
yAppendPXrecord
hBlobData
Writing Data to File
closePXBlob
setPXFieldValue
openPXBlobWrite
moveData
closePXTable
svInvalidCounter
qstrExportDone
svdbName
default
stopDB
    `NV    o
OpenIndexFile
StopIndexWarning
PackDatabase
HelpForThisBook
Cannot open dBase file
strCantOpenDbaseFile
There are no records in this file.  Please click New Record to enter data.
strNoRecords
then open this book again.
Can't find tb30db3.dll.  Please copy this file to a directory
that's in your path, or change your path to include tb30db3.dll's directory,
strNoDLL
Please change the file position to a valid dBase record.  You must be positioned on a record before it can be deleted.
strInvalidRecord
Are you sure you want to delete this record?
strDeleteQuery
strOK
Cancel
strCancel
You have just deleted the last record in this file.
 A new blank record will be created.
strDeleteLast
modifying record
strModifyRecord
&dBase
strdBase
&Open Index File
strOpenIndexFile
&Pack Database
strPackDataBase
&Stop Index Warning
strStopIndexWarning
&Help For This Book
strHelpForThisBook
moving to
strMoveTo
getting next key value
strGetNextKey
deleting record
strDelRec
setting field value of field
strSetFldValue
getting field value of field
strGetFldValue
modifying record
strModRec
writing new record
strWriteRec
getting record count
strGetRec
getting record number
strGetRecNum
That record has been marked for deletion.
strMarkDelete
All records in Database are marked as deleted
strAllMarked
Unable to set record
as the current record.  Keeping current record.
strKeepRecord
navigating in dBase file
strNavigate
Only seven index files can be opened at once.
strOnly7
Please choose the index file to open.
strChooseIndex
Open Index File
strOpenIndex
is already open
strAlreadyOpen
Index file
cannot be opened.
strCantOpen
WARNING:  ToolBook has detected corruption of your dBase file.
strCorruptWarn
Author
strAuthor
strExit
w,    #?
Error encountered while
getDBerrorString
Error accessing dBase file
strGeneralError
Warning: If you alter a dBase file without opening
its corresponding index files, the index files will not be updated.
strWarning
You are already on the first key.
strFirstKey
You are already on the first record.
strFirstRec
You are already on the last key.
strLastKey
You are already on the last record.
strLastRec
Enter record number to go to.
strEnterRec
positioning by record number
strPosRec
is not a valid record number.
strNotValidRecNum
Enter field to search in, or a number "x" to search the first "x" fields.
strEnterField
Enter data to search for.
strEnterKey
is out of range.
strOutOfRange
xstrCantOpendBaseFile
linkdBase
tb30dlg.dll
+!openFileDlg
Frontend
=QpDBasefileName
openDBFile
enterApplication
first
false
currentRecord
svKey
setDBNavigateToDeleted
PupdateDisplay
checkError
@noIndex
enterPage
exitDB
leaveApplication
checkDBIndex
closeAllDBFiles
closeDBFile
closeDBIndexFile
createDBFieldTag
createDBFile
createDBIndexFile
deleteDBFile
deselectDBIndexFile
findDBKey
firstDBKey
firstDBRecord
freeDBFieldTag
getDBDateFormat
getDBErrorString
getDBFieldCount
getDBFieldName
getDBFieldPrecision
getDBFieldType
getDBFieldValue
getDBFieldWidth
getDBFileName
getDBIndexExpression
getDBIndexFileName
getDBKeyType
getDBKeyValue
getDBNavigateToDeleted
getDBRecordCount
getDBRecordDeleted
getDBRecordNumber
gotoDBRecord
lastDBKey
lastDBRecord
nextDBKey
nextDBRecord
openDBFile
openDBIndexFile
packDBFile
previousDBKey
previousDBRecord
reindexDBFile
removeDBRecords
selectDBFile
selectDBIndexFile
setDBDateFormat
setDBFieldTag
setDBFieldValue
setDBNavigateToDeleted
setDBRecordDeleted
writeDBRecord
|strNoDLL
tb30DB3.DLL
linkdBase
author
yhelpText
statusBar
mouseEnter
getDBRecordNumber
currentRecord
getDBRecordCount
totalRecords
getDBFieldValue
checkError
fieldValue
KustrDataInvalid
setDBFieldValue
fieldValue
9FgetDBKeyValue
checkError
readKeyValue
reading index Expression
checkError
getDBIndexExpression
readIndexExpression
strDelRec
newRecord
setDBrecordDeleted
PupdateDisplay
PupdateWarning
checkError
lastDBRecord
CVstrDeleteLast
getDBrecordDeleted
strCancel
strOK
strDeleteQuery
deleteRecord
PupdateWarning
strInvalidRecord
HwriteDBrecord
checkError
strModRec
getDBRecordDeleted
updateDB
clearFields
strGetRec
HwriteDBrecord
strWriteRec
getDBRecordCount
svTotalRecords
checkError
newRecord
,%H.%
chooseIndex
sortCheck
vIndexFile
No index file is currently selected
1deselectDBIndexFile
vIndexFiles
No index files are open
closeDBIndexFile
@noIndex
closeIndexFile
chooseIndex
sortCheck
enableFields
FALSE
sortExpressionLabel
currentKeyValue
findKey
sortbylabel
SortExpression
enableComboboxes
currentKeyValueLabel
vFieldList
noIndex
closeAllDBFiles
exitDB
w,    #?
chooseIndex
npnameOnly
lstrOnly7
enableFields
Index file (*.NDX),*.NDX
vFileName
sortExpressionLabel
sortCheck
strAlreadyOpen
strChooseIndex
currentKeyValueLabel
getBDErrorString
getDBRecordNumber
sortbylabel
OpenFileDlg
openDBIndexFile
1reindexDBFile
gotoDBRecord
enableComboboxes
strCantOpen
closeDBIndexFile
FindKey
vFieldList
openIndex
.&+    +E
packdBFile
first
WcurrentRecord
getDBErrorString
PupdateDisplay
default
packDatabase
stopIndexWarning
checked
stopIndexWarning
dBase FrontEndHelp
helpForThisBook
strNavigate
findDBKey
checkError
searchForKey
strWarning
stopIndexWarning
strCancel
strOK
checked
updateWarning
nextDBrecord
strFirstRec
first
DSstrKeepRecord
svKey
strLastRec
nextDBkey
WcurrentRecord
firstDBkey
currentRecord
previous
lastDBrecord
isPositiveInteger
"FfirstDBrecord
`previousDBkey
gotoDBRecord
lastDBkey
Failed
previousDBrecord
strAllMarked
currentRecord
strGeneralError
strAuthor
ZstrExit
strauthor
strCorruptWarn
checkError
false
isPositiveInteger
nameOnly
R@TRUE
Label
I@enableFields
I@enableComboboxes
default
enterPage
Label
enableFields
changeExtension
totalItems
|itemType
Progress
currentItem
initProgressViewer
yhelpText
statusBar
mouseEnter
.&+    +E
FALSE
mtb30.exe
forward
system s_dbExLastFocus
ToolBook
center
rsstrNoDBFFields
Choose name for new book
if s_dbExLastFocus <> focus
s_dbExLastFocus = focus
ToolBook (*.TBK), *.TBK)
save as
end idle
changeExtension
, TRUE
end if
dataBaseFields
saveAsDLG
default
to handle idle
7strErrTbkExe
CreateDBBook
,%H.%
First
script
Building DatabaseFields
CopyField
Previous
wTinitProgressViewer
Field
FALSE
currentItem
Progress
autoPageNumber
;lstrToManyFlds
frontEnd
Search
Database Records
labelField
addDatabaseFields
enableFields
FALSE
field "TBRecordFieldName", field "TBRecordFieldText"
field "viewLabel", field "TBNameLabel", field "TBTextLabel",
resetDataView
TBRecordFieldName
TBRecordFieldText
enableFields
field "viewLabel", field "TBNameLabel", field "TBTextLabel"
vControlList
setDataView
.&+    +E
0\dupStrs
strNoNameRecFfl
vbuildRecordFieldList
toolbookfilename
toolbookFields
svTbName
strSelTBKFileName
strTwoShareName
default
listToolBookFields
+    ,    #
recordfield
group
svBkName
svTbName
buildRecordFieldList
FALSE
dupStrs
Ko*DL
,49(-
7pG'8
linkPX
splash
linkdBase
s_firstFlag
DBEXCHNG.TBK will now exit.
DBEXCHNG.TBK needs SHARE.EXE to work correctly. Please leave Windows and from the DOS prompt type "share" followed by the enter key. You can then re-enter Windows and start DBEXCHNG.TBK
DBExchange
-initializePX
]linkFile
strRuntime
enterApplication
(exitPX
leaveApplication
s_firstFlag
author
reader
reader
Export
export DBase
ImportFromDbaseFile
ExportToDbase
export Paradox
ExportToParadox
import Paradox
import Dbase
ImportFromParadox
menuItemSelected
.&+    +E
export
importing dBase to Toolbook
exchangeHelp
exporting ToolBook to dBase
svReturnPage
default
dBaseHelp
splash
aboutdBase
tb30dos.dll
fileExists
getFileList
tb30dlg.dll
OpenFileDlg
saveAsDlg
TB30DOS.DLL
|strNoDll
kernel
TB30DLG.DLL
GlobalAlloc
GlobalFree
GlobalLock
GlobalUnlock
linkFile
checkDBIndex
closeAllDBFiles
closeDBFile
closeDBIndexFile
createDBFieldTag
createDBFile
createDBIndexFile
deleteDBFile
deselectDBIndexFile
findDBKey
firstDBKey
firstDBRecord
freeDBFieldTag
getDBDateFormat
getDBErrorString
getDBFieldCount
getDBFieldName
getDBFieldPrecision
getDBFieldType
getDBFieldValue
getDBFieldWidth
getDBFileName
getDBIndexExpression
getDBIndexFileName
getDBKeyType
getDBKeyValue
getDBNavigateToDeleted
getDBRecordCount
getDBRecordDeleted
getDBRecordNumber
gotoDBRecord
lastDBKey
lastDBRecord
nextDBKey
nextDBRecord
openDBFile
openDBIndexFile
packDBFile
previousDBKey
previousDBRecord
reindexDBFile
removeDBRecords
selectDBFile
selectDBIndexFile
setDBDateFormat
setDBFieldTag
,#T|
setDBFieldValue
setDBNavigateToDeleted
setDBRecordDeleted
writeDBRecord
|strNoDLL
tb30DB3.DLL
Could not link to TB30db3.dll
TB30DB3.DLL
linkdBase
addPXKey
addPXPassword
addPXTable
appendPXRecord
clonePXBlob
?g@-"
closePXBitmapWindow
@g@-"
closePXBlob
,"TZ@g@-"
closePXTable
copyPXTable
createPXTable
decryptPXTable
deletePXPassword
deletePXRecord
deletePXTable
doesPXTableExist
dropPXBlob
@g@-"
dropPXKey
,#T(    g@-"
emptyPXField
emptyPXRecord
emptyPXTable
encryptPXTable
exitPX
freePXGraphicBlob
Bg@-"
freePXGraphicBlobPalette
Bg@-"
firstPXRecord
getPXBitmapSize
Eg@.%
getPXBlob
Eg@.%
getPXBlobQuick
Fg@.%
getPXBlobSize
Gg@.%
getPXErrorString
getPXFieldCount
getPXFieldNames
getPXFieldType
getPXFieldValue
getPXFileSize
,    U(Hg@.%
getPXGraphicBlob
Hg@.%
getPXGraphicBlobPalette
,"U$Jg@.%
getPXKeyFieldCount
getPXMaxFiles
getPXMaxLocks
getPXMaxTables
getPXSwapSizeFromINI
getPXMaxTablesFromINI
getPXMaxFilesFromINI
getPXMaxLocksFromINI
getPXMemoBlob
,"UlKg@g
getPXNetErrorUser
getPXNetUserName
getPXRaw
getPXRawDataSize
getPXRecordCount
getPXRecordNumber
getPXSortOrder
getPXSwapSize
getPXUserInfo
gotoPXNetRecordLock
gotoPXRecord
initializePX
insertPXRecord
isPXNetRecordLocked
,    T,"g@-"
isPXNetTableChanged
"g@-"
isPXTableProtected
"g@-"
lastPXRecord
,    Tp#g@-"
lockPXNetFile
$g@-"
lockPXNetRecord
,    U@$g@.%
lockPXNetTable
$g@-"
mapPXKey
$g@.%
nextPXRecord
,    Tx&g@-"
openPXBitmapWindow
Kg@.%
openPXBlobRead
Mg@.%
openPXBlobWrite
Ng@.%
openPXTable
&g@-"
packPXTable
(g@-"
previousPXRecord
,    Tx)g@-"
queryPXKey
)g@g
refreshPXNetTable
,    T6,g@-"
renamePXTable
,g@-"
savePX
,g@-"
searchPXField
-g@-"
searchPXKey
-g@-"
setPXBitmapWindowInfo
Pg@-"
setPXBlob
Qg@-"
setPXBlobFromFile
Rg@-"
setPXFieldValue
1g@-"
setPXGraphicBlob
Sg@-"
setPXGraphicBlobFromFile
Rg@-"
setPXINIMaxFiles
2g@-"
setPXINIMaxLocks
2g@-"
setPXINIMaxTables
2g@-"
setPXMemoBlob
Wg@-"
setPXRaw
,"Tf3g@-"
setPXSortOrder
3g@-"
setPXINISwapSize
4g@-"
setPXTableCreateMode
4g@-"
setPXTableMaxSize
4g@-"
setPXUserInfo
4g@-"
unlockPXNetFile
6g@-"
unlockPXNetRecord
,"TF6g@-"
unlockPXNetTable
6g@-"
updatePXRecord
6g@-"
upgradePXTable
,    T:7g@-"
writePXBlobToFile
Xg@.%
writePXGraphicBlobToFile
Xg@.%
tb30PDX.DLL
linkPX
1,    "L
,!J/"
,!J`"
,!J@"
FALSE
isAlNum
1,    "L
,!J@"
,!J`"
FALSE
isAlpha
isNum
isPosInt
nameOnly
strHelp
Copyright (c) 1991 - 1994 -- Asymetrix Corporation
dBaseIII (tm) - Paradox (tm) - ToolBook (tm) Exchange
strAboutDbase
Please close all other instances of ToolBook.
strCloseInstances
This application will only work with the full authoring ToolBook system. It will now close, please restart it using mtb30.EXE
strRuntime
&dBase
strdbf
There was an error creating dBase file:
strDBFileCreationError
There was an error opening dBase file:
strDBFileOpenError
There is no current dBase file. Please select one.
strErrNoDBF
Error referencing dBase field:
strErrRefdbField
Error writing dBase record.
strErrDBFWrite
There was an error setting value of dBase field:
strErrSetDBF
Error creating dBase field tag.
strErrTag
FALSE
There was an error running mtb30.exe.
strErrTbkExe
field(s) with
invalid data.
Export completed:  There were
Export completed.
strExportDone
No dBase fields have been selected yet.
strNoDBFFields
. Please copy this file to a directory that's in your path, or change your path to include
Can't find
's directory, then open this book again.
strNoDLL
Please select ToolBook fields for export.
strSelTBFields
Please enter a dBase file name.
strSetDBName
Error setting field tag for field
strTagErr
There was an error referencing book:
strTBErrorRef
Error referencing record field:
strTBrecordError
Please enter a valid dBase file name.
strEnterDBfile
File cannot be opened.  Please enter a valid dBase file name.
strNoOpenDBfile
There is no name or type for one of the fields. Please set the values.
strNoNameOrType
Please select a dBase file name.
strSeldBFileName
Error listing fields for this dBase file.
strErrListdBFile
Please select a ToolBook file name.
strSelTBKFileName
No named, ungrouped record fields were found on the last page of this ToolBook file.
strNoNameRecFfl
Two or more record fields share the same name in this book.  Please give all recordfields unique names.
strTwoShareName
There are no records in this dBase file.
strNoRecIndBase
Error getting the first record in this dBase file.
strErrorFirstdBRec
in record number
Error getting value for field
strErrorGetdBValue
in record number
Error setting value for record field
strErrSetdBValue
You are importing more fields than can be displayed on the page.
You will have to arrange the fields after the book is built.
strToManyFlds
strOK
Cancel
strCancel
Please choose the book to export.
strPlChooseBook
Choose Book
strChooseBook
Please choose the dBase file to import.
strPlChooseDbase
Choose dBase File
strChoosedBase
.dbf field.
You have exceeded the size limits of a
strFieldOverrun
Decimal precision must be either zero or at least two less than the field width.
strPrecisionError
Enter the ToolBook date format of the text in record field
strAskDateFormat
Filename
already exists. Replace it?
strdBnameExist
Save dBase file as:
strSavedBaseFile
Save Paradox file as:
strSavePXFile
Character width must be between 1 and 255.
strCharWidth
Numeric width must be between 1 and 19.
strNumWidth
Width cannot be blank.
strWidthNull
Decimal cannot be blank.
strDecimalNull
Decimal cannot be greater than 15.
strDecimal15
A dBase field name can only be up to 10 characters.
strNameToLarge
A dBase field name cannot have a blank name.
strNameNull
A dBase field name cannot start with a number.
strChar1Num
This is not a functioning page for this book.  It is used to build the front end.
strNotPage
strYes
fields if you
You can only build the new application with
don't include label fields. Do you want to eliminate the label fields?
strTooTooManyFields
Please try again with less fields.
You have selected more fields than this application can handle.
strWayTooManyFields
No label fields
strNoLabels
strNo
FrontEnd
DBExchange
frontEnd
PXFrontEnd
RecordCounter
totalItems
RecordCounter
vProgress
percentage
currentItem
,!JdY
currentPercent
currentBar
fullBar
percentage
RecordCounter
ItemType
RecordCounter
totalItems
RecordCounter
currentItem
currentPercent
percentage
.&+    +E
sysSuspendMessages = TRUE;go to first page; send selectpage; send clear
DBase FrontEndHelp
npnameOnly
DBase Browser
databaseFields
06cleanUp
FALSE
ToolBook
createDBBook
FrontEnd
databasefields
activeWindow = windowHandle of viewer id 0
send enterApplication;send enterPage;send save
strWayTooManyFields
addDatabaseFields
svdbName
closeAlldBFiles
strTooToomanyFields
dataBaseFields
>QpDBasefileName
titleField
Databasefields
strCancel
strNoLabels
buttonClick
getPXErrorString
npnameOnly
selectAllFields
closePXTable
Paradox database (*.db), *.db
listDatabaseFields
OpenFileDlg
DBexchng
openPXTable
svdbName
Paradoxfilename
Choose a Paradox database to import.
DatabaseFields
buttonClick
.&+    +E
.&+    +E
strSeldBFileName
buildParadoxFieldList
svdbName
Paradoxfilename
databasefields
error checking for field names in Paradox File
listDatabaseFields
DBEXCHNG
getPXFieldNames
buildParadoxFieldList
.&+    +E
Paradox browser
npnameOnly
frontEnd
DatabaseFields
06cleanUp
FALSE
ToolBook
createDBBook
PXFrontEnd
sysSuspendMessages = TRUE;go to first page; send selectpage; send clear
activeWindow = windowhandle of viewer id 0
send enterApplication;send enterPage;send save
strWayTooManyFields
addDatabaseFields
svdbName
strTooToomanyFields
pParadoxFileName
titleField
Databasefields
strCancel
strNoLabels
Paradox FrontEndHelp
buttonClick
w,    />
+",H3
+    ,    #
V,    #>
V,    #>
+",H4
+",H4
+",H4
+",H4
vSourceBackground
saveTBName
saveTBName
clear
svLine
vDecimal
Field
vWidth
ToolBookFields
setDataView
dbFields
dWidth
remove
svTbName
dbfields
^qguessFieldInfo
dName
dType
ucheckName
dDecimal
setCharacteristicsState
buttonClick
,%H.%
vName
2DisAlNum
isNum
checkName
-",    #>
-",    #>
-",    #>
Character,
Logical,1,
Numeric,
memo,10,
mm/dd/yy
isNum
Date,8,
guessFieldInfo
w,    />
w,    />
pPresetDataView
saveTBName
saveTBName
clear
dDecimal
toolbookFields
dbFields
dWidth
resetCharacteristics
dName
dType
svLine
buttonClick
+",H4
+",H4
+",H4
dwidth
N+strCharWidth
Decimal
Z&strPrecisionError
svLine
Character
dbFields
dWidth
Numeric
0123456789
strNumWidth
svChecked
keyChar
w,    #?
N+strCharWidth
decimal
CstrWidthNull
Character
Numeric
Decimal
strNumWidth
svChecked
leaveField
w,    />
+",H3
w,    />
+",H3
1,    "Q
+",H4
+",H4
+",H4
TBRecordFieldtext
DateFormat
dDecimal
TBRecordFieldText
vDecimal
DateFormat
vWidth
svLine
character
dWidth
setCharacteristicsState
numeric
dType
logical
svChecked
buttonClick
+",H4
+",H4
Z&strPrecisionError
dDecimal
svLine
dbFields
0123456789
width
strDecimal15
keyChar
{strDecimalNull
Z&strPrecisionError
width
strDecimal15
leaveField
w,    />
+",H3
+    ,    #
V,    #>
V,    #>
+",H4
+",H4
+",H4
vSourceBackground
saveTBName
saveTBName
clear
svLine
vDecimal
Field
vWidth
ToolBookFields
setDataView
dbFields
dWidth
remove
svTbName
dbfields
^qguessFieldInfo
dName
dType
ucheckName
setCharacteristicsState
buttonClick
,%H.%
vName
2DisAlNum
isNum
checkName
-",    #>
Numeric,,
Alpha-Numeric,
memo,10,
mm/dd/yy
isNum
Date,,
guessFieldInfo
+",H4
+",H4
+",H4
N+strCharWidth
Decimal
Z&strPrecisionError
svLine
Alpha-Numeric
dbFields
dWidth
Numeric
0123456789
strNumWidth
svChecked
keyChar
w,    #?
N+strCharWidth
decimal
CstrWidthNull
Alpha-Numeric
Numeric
Decimal
strNumWidth
svChecked
leaveField
set syschangesdb to FALSE; send exit
FALSE
ToolBook
createDBBook
addDatabaseFields
svdbName
send save;send sizeToPage;activeWindow = windowhandle of viewer id 0;send reader
ObtransferDatabaseData
DatabaseFields
buttonClick
globallock
hBlob
XgetPXBlobSize
getPXErrorString
hPrivateBlob
getPXFieldType
bfirstPXRecord
ToolBook
getPXBlob
Record
set focus to null; select this page; send clear
wTinitProgressViewer
B F O G
Progress
DBexchng
vCurrentField
popenPXBlobRead
Transferring Data
globalUnlock
getPXfieldvalue
BLOB Field Ignored
send newPage
currentItem
getPXRecordCount
closePXBlob
    8nextPXRecord
progress
transferDatabaseData
)npd*J
queryPXKey
getPXErrorString
tb30dos.dll
removeExtension
getFileList
database
linkPX
- PRIMARY
<getPXKeyFieldCount
getFileList
filePath
Paradox FrontEnd
keyFields
-initializePX
indexArray
openPXTable
textlineToList
GlobalLock
GlobalUnlock
GlobalFree
frontEnd
fieldNamesFromHandles
chooseIndex
kernel
keyFieldCount
PupdateDisplay
OpenFileDlg
textLineToList
tb30DLG.DLL
pParadoxfileName
getPXFieldNames
enterApplication
(exitPX
leaveApplication
author
yhelpText
statusBar
mouseEnter
addPXKey
addPXPassword
addPXTable
appendPXRecord
clonePXBlob
closePXBitmapWindow
closePXBlob
closePXTable
copyPXTable
createPXTable
decryptPXTable
deletePXPassword
deletePXRecord
deletePXTable
doesPXTableExist
dropPXBlob
dropPXKey
emptyPXField
emptyPXRecord
emptyPXTable
encryptPXTable
exitPX
freePXGraphicBlob
freePXGraphicBlobPalette
firstPXRecord
getPXBitmapSize
getPXBlob
getPXBlobQuick
getPXBlobSize
,"UdexA.%
getPXErrorString
getPXFieldCount
getPXFieldNames
,    Uer
getPXFieldType
,    U+!M
getPXFieldValue
,    U,
getPXFileSize
,    ULine.%
getPXGraphicBlob
,"Utb30.%
getPXGraphicBlobPalette
getPXKeyFieldCount
getPXMaxFiles
getPXMaxLocks
tb3-"
getPXMaxTables
T.dll-"
getPXSwapSizeFromINI
getPXMaxTablesFromINI
getPXMaxFilesFromINI
getPXMaxLocksFromINI
,#T-"
getPXMemoBlob
getPXNetErrorUser
getPXNetUserName
getPXRaw
getPXRawDataSize
getPXRecordCount
Par.%
getPXRecordNumber
,    Uront.%
getPXSortOrder
getPXSwapSize
getPXUserInfo
gotoPXNetRecordLock
gotoPXRecord
,%Tarad-"
initializePX
insertPXRecord
,    Tdata-"
isPXNetRecordLocked
,    Tbase-"
isPXNetTableChanged
,    Topen-"
isPXTableProtected
lastPXRecord
lockPXNetFile
lockPXNetRecord
lockPXNetTable
mapPXKey
nextPXRecord
openPXBitmapWindow
,    U.X??.%
openPXBlobRead
,    UgetF.%
openPXBlobWrite
,"UineT.%
openPXTable
packPXTable
previousPXRecord
,    Tabas-"
queryPXKey
refreshPXNetTable
renamePXTable
,    TldCo-"
savePX
searchPXField
searchPXKey
setPXBitmapWindowInfo
setPXBlob
setPXBlobFromFile
setPXFieldValue
setPXGraphicBlob
dat-"
setPXGraphicBlobFromFile
setPXINIMaxFiles
,"Tield-"
setPXINIMaxLocks
setPXINIMaxTables
setPXMemoBlob
,    Tchoo-"
setPXRaw
setPXSortOrder
setPXINISwapSize
,"TeInd-"
setPXTableCreateMode
setPXTableMaxSize
setPXUserInfo
unlockPXNetFile
unlockPXNetRecord
unlockPXNetTable
updatePXRecord
upgradePXTable
writePXBlobToFile
writePXGraphicBlobToFile
,"Undex.%
tb30PDX.DLL
linkPX
getPXRecordNumber
database
currentRecord
database
getPXRecordCount
totalRecords
getPXErrorString
hPrivateBlob
retVal
getPXfieldvalue
B F O G
getPXFieldType
popenPXBlobRead
LgetPXMemoBlob
database
closePXBlob
fieldValue
hBlob
setPXFieldValue
openPXBlobWrite
VsetPXMemoBlob
B F O G
getPXFieldType
getPXErrorString
database
closePXBlob
fieldValue
tdeletePXRecord
database
strCancel
strOK
strDeleteQuery
deleteRecord
getPXErrorString
updatePXRecord
database
updateDB
getPXErrorString
clearFields
yappendPXRecord
database
newRecord
.&+    +E
getPXErrorString
packPXTable
Please close other applications using this database try packing it again.
database
PupdateDisplay
default
packDatabase
Paradox FrontendHelp
HelpForThisBook
Record not found, navigating to closest record.
getPXErrorString
SUCCESS
iemptyPXRecord
setPXFieldValue
<searchPXField
retVal
searchPXKey
database
Record not found.
searchTable
getPXErrorString
first
previousPXRecord
previous
.lastPXRecord
bfirstPXRecord
isPositiveInteger
_2gotoPXRecord
database
    8nextPXRecord
currentRecord
false
isPositiveInteger
nameOnly
removeExtension
database
getPXFieldNames
fieldNamesFromhandles
dataBaseFields
06cleanUp
enterPage
svdbName
closeDBFile
dataBaseFields
06cleanUp
leavePage
previous
button "selectAllFields", button "unselectAllFields",
field "DBaseFileName", field "dataBaseFields"
button "ImportToRecordFields", button "ImportToFrontEnd"
cleanUP
npnameOnly
closeAllDBFiles
selectAllFields
listDatabaseFields
dBIII file (*.dbf), *.dbf
databaseFields
getDBErrorString
OpenFileDlg
svdbName
DBaseFilename
DatabaseFields
oRstrPLChooseDB
openDBFile
buttonClick
.&+    +E
.&+    +E
strSeldBFileName
strErrListdBFile
DBfilename
svdbName
buildDBFieldList
databasefields
listDatabaseFields
,%H.%
getDBFieldCount
LgetDBFieldName
buildDBFieldList
%-tabNode
FALSE
J,tabMode
enterPage
}dBaseHelp
goPage
tablabel
tabPressed
tabname
J,tabMode
obtype
tabNum
buttonClick
FALSE
etabLimit
Cannot set tab
tabPressed
myTabMode
tabMode
tabLimit
myTabMode
tabMode
mytabheight
tabHeight
myTabHeight
tabHeight
arrangeTabs
myTabSpace
tabSpace
myTabSpace
tabSpace
w,    #?
manual
FALSE
myNumTabs
etabLimit
Can only have
Must have at least 1 tab
arrangeTabs
numTabs
mynumtabs
numTabs
manual
tabRef
mynumTabs
tabLabel
tabHighlight
tabHeight
arrangeTabs
myNumTabs
obtype
highlight
mytabheight
sized
w,    #>
myTabMode
tname
myNumTabs
mytabspace
anchor
arrangeTabs
w,    #?
disablePage
level
page of this
enterPage
w,    #?
go to
level
page of this
buttonClick
prop_level
invalid level for widget:
background, book
must be "background" or "book"
level
prop_level
level
First
must be "Next", "Previous", "First", or "Last"
invalid direction for widget:
Next,Previous,First,Last
disablePage
direction
direction
prop_disablePage
invalid disablePage:
First, last
must be "First" or "Last"
disablePage
prop_disablePage
disablePage
w,    #?
disablePage
level
page of this
enterPage
w,    #?
go to
level
page of this
buttonClick
prop_level
invalid level for widget:
background, book
must be "background" or "book"
level
prop_level
level
First
must be "Next", "Previous", "First", or "Last"
invalid direction for widget:
Next,Previous,First,Last
disablePage
direction
direction
prop_disablePage
invalid disablePage:
First, last
must be "First" or "Last"
disablePage
prop_disablePage
disablePage
w,    #?
disablePage
level
page of this
enterPage
w,    #?
go to
level
page of this
buttonClick
prop_level
invalid level for widget:
background, book
must be "background" or "book"
level
prop_level
level
First
must be "Next", "Previous", "First", or "Last"
invalid direction for widget:
Next,Previous,First,Last
disablePage
direction
direction
prop_disablePage
invalid disablePage:
First, last
must be "First" or "Last"
disablePage
prop_disablePage
disablePage
w,    #?
disablePage
level
page of this
enterPage
w,    #?
go to
level
page of this
buttonClick
prop_level
invalid level for widget:
background, book
must be "background" or "book"
level
prop_level
level
First
must be "Next", "Previous", "First", or "Last"
invalid direction for widget:
Next,Previous,First,Last
disablePage
direction
direction
prop_disablePage
invalid disablePage:
First, last
must be "First" or "Last"
disablePage
prop_disablePage
disablePage
FALSE
send save;send sizeToPage;activeWindow = windowhandle of viewer id 0;send reader;send sizeToPage
ToolBook
createDBBook
set sysChangesDB to FALSE; send exit
addDatabaseFields
svdbName
ObtransferDatabaseData
dataBaseFields
buttonClick
>strNoRecInPX
curFld
ToolBook
Record
set focus to null; select this page; send clear
wTinitProgressViewer
Progress
getDBRecordCount
nextDBRecord
vCurrentField
"FfirstDBRecord
Transferring Data
send newPage
pGstrErrorFirstdBRec
getDBfieldvalue
currentItem
getdbRecordDeleted
CstrErrorGetdBValue
transferDatabaseData
-- Set the
thermometer bar
-- Note that
uses
" property.
totalItems
pNumberItems
isType(real,
  > 0)
"RecordCounter"
currentPage
currentItem
pItemNumber
ZvNumberItems
> >= 0
N <=
vProgress
v)*100
percentage
pPercentage
    -- errror checking:
+ > 100
I < 0
%"##0"
"currentPercent"
lWide
"fullBar"
"currentBar"
 / 100)
ItemType
pItemType
buttonClick
4STRING svdbName
vName
OpenFileDlg ("Choose a Paradox database
.","", ".", "
(*.db), *.db", 1)
closePXTable("DBexchng")
openPXTable("
, 0, 0)
getPXErrorString(
"Paradoxfilename"
nameOnly(
listDatabaseFields "
selectedTextLines
enabled
B"selectAllFields"
--builds
displays a
names
 fieldName
vdbFieldList
strSeldBFileName()
 the
O = buildParadoxFieldList()
no fields found,
error
 checking
"databasefields"
a given
vPXFieldList
 = getPXFieldNames("DBEXCHNG")
~(",",
~(",",
buttonClick
4INT svLine
4STRING bkName, svTbName
ZvSelectedLine, vToolBookFieldName, vName, vType, vFieldData
= TRUE
textlineCount(
selected
toolbook record
 = selectedTextLines
"ToolBookFields"
saveTBName
    vSourceBackground =
enabled
FALSE
selectedtextlines
    -- Guess dBase
type
guessFieldInfo(
    vWidth =
    vDecimal =
    -- fill
fields
 = checkName(
pwere numbers
"&"_"&(
")+1)
-- can't have duplicat names
        --So we will
aup our own that should be unique
) < 10
")+1)
"dType"
"dWidth"
"dDecimal"
textoverFlow
" <> 0
"dbFields"
")+1)
selectedTextlines
"dbfields"
    --Update panels
display information about the currently
setDataView
setCharacteristicsState
 nameString
ZvNewName
    --strip begining
cisNum(
i = " "
xisAlNum(
i = 10
, width,
tbased on
vFieldWidth,
    --Check
: <>
%"mm/dd/yy"
"Date,8, "
logical
 = 1
 = 0
 = "t"
 = "f"
"Logical,1, "
numeric
 < 18
        --look
point
~(".",
"Numeric,"&
&","&
memo,
more than 32
V, gruess
^length
 > 32
C10, "
    -- default ot
&", "
buttonClick
4svLine
ZvTBFieldName, vNextTextline
= TRUE
saveTBName
"toolbookFields")+1
] = 1
enabled
selectedTextLines
"dType"
"dWidth"
"dDecimal"
lines have been removed
resetCharacteristics
resetDataView
FALSE
Uhas
p, change
selectedtextlines
"dbFields"
" -- sync fields
4svChecked
4INT svLine
"0123456789"
 -- backSpace
Key = keyEnter -- enter
zerrorChecking
they tabbed
Bsvline
"dwidth"
"Character"
<= 255
"dWidth"
selectedtextlines
"dbFields"
strCharWidth()
"Numeric"
<= 19
"Decimal") < 2
 <> 0
strPrecisionError()
selectedTextlines
strNumWidth(
ZvError
    -- need
deleting
pasting
&&strWidthNull()
 > 255
 < 1
t" <> 0
) - (
buttonClick
4INT svLine
4svChecked
 keeps me
having
figure out what
there
no change
vDecimal
"TBRecordFieldtext"
vWidth
Charcount (
"TBRecordFieldText")
"numeric"
"Memo"
"logical"
DateFormat
 setCharacteristicsState
"dWidth"
"dDecimal"
"dType"
4INT svLine
(key)
"0123456789"
C = keyEnter -- enter
zerrorChecking
z <>
they tabbed
backspaced
"width")-(
) < 2
strPrecisionError()
strDecimal15()
"dDecimal"
selectedTextlines
"dbFields"
ZSTRING vError
    -- need
deleting
pasting
9 = strDecimalNull()
) < 2
--handlers used
}only on
    -- cleaning up
slows
flipping so
necessary
    -- you have
8was saved
"toolbookfields" <>
"dName" <>
cleanUp
    --Just
be sure.
--This
 initializes the
qsession.
= TRUE
0two panels
resetCharacteristics
resetDataView
    --initalize
rest
controls on
enabled
FALSE
"toolbookFields"
"toolbookfileName"
"dbFields"
keep
navigating
frontend template
progress
sysSuspendMessages
strNotPage()
labels
characteristics
ZvControlList
"TypeLabel",
"changeLabel",\
"nameLabel",
"widthLabel",
"Width"
enableFields(
"type"
 sets
state
 so that
valid
selected.
--Parameters:
--    dbFieldType:
--    dbFieldWidth:
qvalue
--    dbFieldDecimal:
--    dbFieldName:
setCharacteristicsState
4svLine, svChecked
ZSTRING vActiveList, vInactiveList
 <> NULL
"WidthLabel",
 = "Alpha-Numeric"
--These
updated
being edited
? messages handled here
Clear
cutClear
4INT svline
("d"&
selectedtextlines
"dname" <>
"dwidth" <>
buttonClick
4INT svLine
4STRING bkName, svTbName
ZvSelectedLine, vToolBookFieldName, vName, vType, vFieldData
= TRUE
textlineCount(
selected
toolbook record
 = selectedTextLines
"ToolBookFields"
saveTBName
    vSourceBackground =
enabled
FALSE
selectedtextlines
    -- Guess Paradox
type
guessFieldInfo(
    vWidth =
    vDecimal =
    -- fill
fields
^ dBase
 = checkName(
pwere numbers
"&"_"&(
")+1)
-- can't have duplicat names
    --So we will
aup our own that should be unique
) < 10
")+1)
"dType"
"dWidth"
textoverFlow
" <> 0
"dbFields"
")+1)
selectedTextlines
"dbfields"
    --Update panels
display information about the currently
setDataView
setCharacteristicsState
 nameString
ZvNewName
    --strip begining
cisNum(
i = " "
xisAlNum(
i = 25
, width,
tbased on
vFieldWidth,
    --Check
: <>
%"mm/dd/yy"
"Date,, "
numeric
"Numeric,,"
memo,
more than 32
^length
 > 255
A10, "
    -- default
"Alpha-
&", "
4svChecked
4INT svLine
"0123456789"
 -- backSpace
Key = keyEnter -- enter
zerrorChecking
they tabbed
Bsvline
"dWidth"
"Alpha-Numeric"
<= 255
selectedtextlines
"dbFields"
strCharWidth()
    -- This will never happen, leaving
user wants
modify
    -- See
"type"
"Export dBase"
<= 19
"Decimal") < 2
 <> 0
strPrecisionError()
selectedTextlines
strNumWidth(
ZvError
    -- need
deleting
pasting
&&strWidthNull()
 > 255
 < 1
    -- These
t" <> 0
) - (
buttonClick
4STRING svdbName
ZvNewBookName, vTotalRecords
--Create the
+ = createDBBook(
 will
FALSE
there are no fields selected,
    -- returns NULL
`user backs out
error
    --Add
addDatabaseFields 30, 135, 5430, "
--Do
transfer
 = transferDatabaseData("
 ToolBook
\;activeWindow = windowhandle
handler
fParadox record data. Assumes that
8context
already
ta sourceField, newBookName
, vSourceDBFields, vSelectedDBFields, vTotalFields, vCurrentRecord
selectedTextLines
zlead
firstPXRecord("DBexchng")
getPXErrorString(
initProgressViewer "Transferring
", getPXRecordCount("
--loop thru
file filling
cTRUE
currentItem
within
value
vCurrentField =
            --Check
a blob
getPXFieldType("
"B F O G"
--If
a memo
xignore
hPrivateBlob = openPXBlobRead("
close
"progress"
hBlob = getPXBlob(
t, getPXBlobSize(
), 0)
globallock(
temp =
1(0,
globalUnlock(hblob)
closePXBlob(
getPXfieldvalue("
"BLOB
Ignored"
            --
nextPXRecord("
--Kill
since
has no
recordFields
--Dummy handlers
intercepting
cmessages
xon Front End
OpenIndexFile
StopIndexWarning
PackDatabase
HelpForThisBook
--Functions
strings
easy Internationalization
strCantOpenDbaseFile fFileName
"Cannot
dBase file" &&
# & "."
strNoRecords
"There are no
Please click New
enter data."
strNoDLL
't find tb30db3.dll.
Kopy
a directory" && \
        "that's
your path,
change
include
>," && \
 strInvalidRecord
Mthe
record.
You must be positioned on a
can be deleted."
strDeleteQuery
"Are
 sure
 want
strOK
strCancel
strDeleteLast
have just
." && \
        " A
qblank
 will be created."
strModifyRecord
"modifying
strdBase
strOpenIndexFile
strPackDataBase
strStopIndexWarning
strHelpForThisBook
strMoveTo
"moving
strGetNextKey
"getting
tkey value"
strDelRec
"deleting
strSetFldValue
"setting
strGetFldValue
strModRec
strWriteRec
"writing
strGetRec
 count"
strGetRecNum
strMarkDelete
"That
 has been marked
deletion."
strAllMarked
strKeepRecord
"Unable
" &&
 && "
current
Keeping
strNavigate
"navigating
strOnly7
 seven index files
opened
)once."
strChooseIndex
strAlreadyOpen
already
 vName
 && "cannot be
strCorruptWarn
"WARNING:
ToolBook
detected corruption
strAuthor
strExit
strGeneralError fErrorValue, fErrorText
temp
$accessing
0 <> NULL
":" && getDBerrorString(
X <>
CRLF & "
encountered
c" &&
 & "."
strWarning
    : If you alter a
 without opening" && \
        "its corresponding
xbe updated."
strFirstKey
key."
strFirstRec
strLastKey
strLastRec
strEnterRec
strPosRec
"positioning
strNotValidRecNum
strEnterField
z""x""
""x"" fields."
strEnterKey
strOutOfRange
f range."
Copyright (c) 1991-1994, Asymetrix Corp.
Allows user
interactively browse a dBase file.
Inquiry, update,
delete are supported.
(Delete actually does a
K"mark
--handlers
initialize the front
clean up
enterApplication
"Frontend"
Link
cDLLs
XsysToolBookDirectory & "tb30dlg.dll"
        STRING openFileDlg(WORD,
,INT)
linkdBase
openDBFile(pDBasefileName
strCantOpendBaseFile(
        sysSuspendMessages =
4svKey
ZvFieldList
 names
database
navigation flag
setDBNavigateToDeleted(0)
checkError
xsorting
Ha key, no indexes
noIndex
currentRecord
updateDisplay
leaveApplication
exitDB()
y & "tb30DB3.DLL"
        INT checkDBIndex(
loseAllDBFiles()
*loseDBFile(
>loseDBIndexFile(
 createDBFieldTag(
sreateDBFile(
reateDBIndexFile(
deleteDBFile(
deselectDBIndexFile()
findDBKey(
firstDBKey()
firstDBRecord()
freeDBFieldTag(
getDBDateFormat()
getDBErrorString(
getDBFieldCount()
getDBFieldName(
getDBFieldPrecision(
getDBFieldType(
getDBFieldValue(
getDBFieldWidth(
getDBFileName()
getDBIndexExpression()
getDBIndexFileName()
getDBKeyType()
getDBKeyValue()
getDBNavigateToDeleted()
        LONG getDBRecordCount()
getDBRecordDeleted()
1Number()
gotoDBRecord(DWORD)
lastDBKey()
lastDBRecord()
nextDBKey()
nextDBRecord()
openDBIndexFile(
packDBFile()
previousDBKey()
previousDBRecord()
reindexDBFile(
removeDBRecords(
selectDBFile(
setDBDateFormat(
setDBFieldTag(
setDBFieldValue(
setDBRecordDeleted(
writeDBRecord(
strNoDLL()
statusBar
helpText
--        DATABASE FUNCTIONS
getDBRecordNumber()
totalRecords
fieldValue fieldName
= -60
= -62
= -73
strDataInvalid()
readKeyValue
readIndexExpression
r, "reading
manipulate
--    deleteRecord
--    updateDB
--    newRecord
--    packDatabase
updateWarning
strDeleteQuery()
fstrOK()
strCancel()
    setDBrecordDeleted(1), strDelRec()
This
special code
(getDBrecordDeleted() = 1)
 = -10)
@ so
 a blank one
strDeleteLast()
) = 1
strInvalidRecord()
writeDBrecord(0)
, strModRec()
clearFields
    svTotalRecords =
, strGetRec()
, strWriteRec()
cmessages
closeIndexFile
xenabled
B"sortCheck"
 files
currently selected"
            vIndexFile =
combobox "chooseIndex"
    closeDBIndexFile(
            vIndexFiles = dropDownItems
lineCount
selectChange
enableComboboxes("
, FALSE, TRUE)
 = "SortExpression", "currentKeyValue", "sortbylabel",\
"sortExpressionLabel", "currentKeyValueLabel"
enableFields(
BfindKey
closeAllDBFiles()
openIndex
ZvCount, vSaveNumber, vName, vFileNameList, i
? > 6
strOnly7()
OpenFileDlg(sysWindowhandle, strChooseIndex(),"", ".", "
 (*.NDX),*.
", 1)
 = nameOnly(
        --
asure
xalready
&&strAlreadyOpen()
>openIndexFile
= -10
= -12
getBDErrorString(
&CRLF
B"FindKey"
-- keep
 routine generic
Mform
-- created
a different databases
packdBFile()
o= default
stopIndexWarning
Menustate(
helpForThisBook
FrontEndHelp"
searchForKey value
, strNavigate
strWarning()
e    function
--The passed parameters will be:
4LOGICAL
nextDBkey()
nextDBrecord()
= -10
= -70 -- no such
strLastRec()
r= "Failed"
lastDBkey()
lastDBrecord()
= -10
= - 15
-- no
empty
strAllMarked()
previousDBkey()
previousDBrecord()
= -10
= -71 -- no
strFirstRec()
firstDBkey()
firstDBrecord()
= -10
= -15 -- no
isPositiveInteger(
strKeepRecord(
= -87 -- marked
%deleted
= -10 -- no
--Utility
DLL functions
take
--appropriate action.
ErrorValue, ErrorText
, = 1
= = -8
G = -26
R = -25
strCorruptWarn() \
fstrAuthor()
strExit()
strauthor()
strGeneralError(
Functions
(isType(REAL,
just
a fully qualified path
ZvOffset
~("\",
~("\",
--To
"disable" fields
Makes
 like there
a disabled
--property
 fieldList,
, clearText
) > 0
0,0,0
0, 50.1875, 0
0, 75.3125, 0
 boxList, enableBox,
) > 0
0,0,0
0, 50.1875, 0
[dropdownItems
comboBox
Script
Paradox browser
Copyright (c) 1994, Asymetrix Corp.
Allows user
interactively
lfile.
Inquiry, update,
delete are supported.
--handlers
initialize the front
clean up
enterApplication
4ARRAY indexArray[]
ZSTRING fileName, indexFileList
"frontEnd"
Link
XsysToolBookDirectory & "tb30DLG.
OpenFileDlg(WORD,
, INT)
textLineToList(
    linkDLL
ory & "tb30dos.dll"
getFileList(
5"kernel"
        POINTER GlobalLock(
 GlobalUnlock(
 GlobalFree(
linkPX
initializePX("
FrontEnd")
openPXTable("database", pParadoxfileName
8, 0, 0)
getPXErrorString(
        sysSuspendMessages =
    filePath = removeExtension(
 = textlineToList(
9&".X??"))
1] = 0
    keyFieldCount = getPXKeyFieldCount("
+< 0 -- error
keyFields)
updateDisplay
h0 -- no
ahead
getPXFieldNames("
dropDownItems
combobox "chooseIndex"
&& "- PRIMARY"
<> "\"
) + 1
queryPXKey(
i] =
fieldNamesFromHandles(
) - 1)
leaveApplication
exitPX()
statusBar
helpText
linked,
y & "tb30PDX.DLL"
        INT addPXKey(
--PXKeyAdd()
'Password(
--PXPswAdd()
--PXTblAdd()
gppendPXRecord(
--PXRecAppend()
clonePXBlob(
--PXBlobClone()
closePXBitmapWindow(
closePXBlob(
--PXBlobClose()
closePXTable(
--PXTblClose()
copyPXTable(
--PXTblCopy()
createPXTable(
)        --PXTblCreate()
decryptPXTable(
--PXTblDecrypt()
deletePXPassword(
--PXPswDel()
deletePXRecord(
--PXRecDelete()
deletePXTable(
--PXTblDelete()
doesPXTableExist(
--PXTblExist()
dropPXBlob(
--PXBlobDrop()
dropPXKey(
)            --PXKeyDrop()
emptyPXField(
emptyPXRecord(
--PXRecBufEmpty()
emptyPXTable(
--PXTblEmpty()
encryptPXTable(
)            --PXTblEncrypt()
--PXExit()
freePXGraphicBlob(
freePXGraphicBlobPalette(
firstPXRecord(
--PXRecFirst()
        LONG getPXBitmapSize(
rINT,DWORD,
--PXBlobGet()
=lobQuick(
        --PXBlobQuickGet()
jlobSize(
--PXBlobGetSize()
getPXFieldCount(
--PXRecNFlds()
    getPXFieldType(
    )        --PXFldType()
    getPXFieldValue(
FileSize(
--PXKeyNFlds()
getPXMaxFiles()
getPXMaxLocks()
getPXMaxTables()
        INT    getPXSwapSizeFromINI()
MaxTablesFromINI()
1MaxFilesFromINI()
GMaxLocksFromINI()
getPXMemoBlob(
getPXNetErrorUser()
--PXNetErrUser()
getPXNetUserName()
--PXRawGet()
getPXRawDataSize(
RecordCount(
--PXTblNRecs()
RecordNumber(
--PXRecNum()
getPXSortOrder()
getPXUserInfo()
gotoPXNetRecordLock(
            --PXNetRecGotoLock()
gotoPXRecord(
--PXRecGoto()
--PXWinInit()
insertPXRecord(
--PXRecInsert()
isPXNetRecordLocked(
--PXNetRecLocked()
isPXNetTableChanged(
--PXNetTblChanged()
isPXTableProtected(
--PXTblProtected()
lastPXRecord(
--PXRecLast()
lockPXNetFile(
--PXNetFileLock()
lockPXNetRecord(
lockPXNetTable(
--PXNetTblLock()
mapPXKey(
        --PXKeyMap()
    nextPXRecord(
--PXRecNext()
openPXBitmapWindow(
openPXBlobRead(
)            --PXBlobOpenRead()
openPXBlobWrite(
--PXBlobOpenWrite()
        --PXTblOpen()
packPXTable(
previousPXRecord(
--PXRecPrev()
--PXKeyQuery()
refreshPXNetTable(
--PXNetTblRefresh()
renamePXTable(
)            --PXTblRename()
savePX()
--PXSave()
searchPXField(
searchPXKey(
        --PXSrchKey()
setPXBitmapWindowInfo(
setPXBlob(
)            --PXBlobPut()
setPXBlobFromFile(
setPXFieldValue(
)    --PXPutAlpha(), PXPutDate(), PXPutDouble(), PXPutLong(), PXPutShort()
setPXGraphicBlob(
)            --
setPXGraphicBlobFromFile(
setPXINIMaxFiles(
--PXSetDefaults()
setPXINIMaxLocks(
setPXINIMaxTables(
setPXMemoBlob(
setPXRaw(
--PXRawPut()
setPXSortOrder(
setPXINISwapSize(
setPXTableCreateMode(
--PXTblCreateMode()
setPXTableMaxSize(
--PXTblMaxSize()
setPXUserInfo(
unlockPXNetFile(
--PXNetFileUnlock()
unlockPXNetRecord(
            --PXNetRecUnlock()
unlockPXNetTable(
            --PXNetTblUnlock()
updatePXRecord(
--PXRecUpdate()
upgradePXTable(
--PXTblUpgrade()
writePXBlobToFile(
writePXGraphicBlobToFile(
--        DATABASE FUNCTIONS
currentRecord
getPXRecordNumber("
totalRecords
getPXRecordCount("
fieldValue
"B F O G"
        -- If
a memo blob read
xignore
        -- See "whowhere.tbk"
dealing
fgraphic types
            hPrivateBlob =
            retVal =
W, 0)
getPXfieldvalue("
"B F O G"
        -- If
        --
            hBlob =
)+1, 0)
u, 1)
            --
manipulate
--    deleteRecord
--    updateDB
--    newRecord
--    packDatabase
strDeleteQuery()
fstrOK()
strCancel()
clearFields
appendPXRecord("
cmessages
-- keep
 routine generic
Mform
-- created
a different databases
= -118 -- table busy
) & CRLF & \
"Please
 other applications
 try packing
<> -33
        --
now, -33
invalid
$, yet everything appears
be working
o= default
HelpForThisBook
FrontendHelp"
 Searching
--- (
-- "mode"
-- 0 = "SEARCHFIRST", that
 record
-- 1 = "SEARCHNEXT",
-- 2 = "CLOSESTRECORD",
beginning
--     If there
no exact match
 greater than "
--
equal
--
 becomes
 only works on indexed tables, no problem,
-- "Whowhere" always uses
-- Modes 0
 alone
they fail.
-- Passing a
 forces a keyed
determine
fields (
order)
primary
J. E.g.
sorted on 7
-- passing 2
 will cause
be on
. Got
parameter
%indexID allows searches on complex
Minsensitive indexes. In these cases,
 needs
-- Therefore,
three main
calling
function:
searchTable (2,"foo") --
named
N,,256) --
on a compound
+    "SUCCESS"
must be a
 = NULL
 searchKey? Uses
isType(REAL,
            --
) --
[buffer
< 0 --
xfound
0, navigating
closest
!actual navigation
5!dBase
--The passed parameters
isPositiveInteger(
--Utility Functions
--    nameOnly()
--    enableFields()
--    enableComboboxes()
just
"ile
a fully qualified path
 myFile
ZvOffset
~("\",
~("\",
x"."
fieldNamesFromhandles handleList
ZSTACK
4) > 0
a&","
--handlers
functions
}only on
    --If there
some old stuff on
, delete
"dataBaseFields" <>
cleanUp
4STRING svdbName
    --Delete
4leaving
closeDBFile(
-- why isn't skipNavigation taking care
reset the fields
buttons
their initial state
cleanUP
ZvFieldList, vButtonList
""DBaseFileName"",
2 = "
B""selectAllFields"",
B""unselectAllFields"","& \
B""ImportToRecordFields"",
B""ImportToFrontEnd"""
enabled
FALSE
buttonClick
4STRING svdbName
vName
OpenFileDlg (strPLChooseDB(),"", ".", "dBIII file (*.dbf), *.
", 1)
closeAllDBFiles()
openDBFile(
getDBErrorString(
"DBaseFilename"
nameOnly(
listDatabaseFields "
selectedTextLines
"databaseFields"
enabled
B"selectAllFields"
--builds
displays a
names
a DB
 fieldName
vdbFieldList
strSeldBFileName()
 the
R = buildDBFieldList()
no fields found,
error
strErrListdBFile()
"DBfilename"
"databasefields"
a given DB
ZINT vdbFieldCount, vCharsInList
,vdbFieldName
0 = getDBFieldCount()
--determine
Z <= 0
 occured
--loop thru
 = getDBFieldName(i)
 & CRLF
)    --
[off extra
 <> 0
 - 1)
 - 1)
notifyBefore
otabMode(FALSE)
otabNode(
-- This message
sent
clicked
changed
Hsetting
Put code
handler,
-- on
tabPressed tabNum
    --special
help
B"tablabel"
dBaseHelp
goPage
currentPage
-- handles clicking on
buttonClick
    -- test
9was
Hchecking "obtype" userProperty
        -- each
named "
", N being
tabname
-- Changes which
9folder
front.
It does
Hmoving
U"mask"
-- Value
zbetween 1
tabs
 navigate
value
 < 1
 > tabLimit()
"Cannot
9" &&
    -- moves
visually
    -- appear
 See sized
 below
adiagram
v + xpix(),
    -- stores
a userproperty
myTabMode
    -- sends
notification
-- The handlers
resizing
,mode. --
-- Used
%a constant.
Returns
-- Note:
you wish
more
, follow
procedure:
-- Go
duplicate one
-- Rename that
9appropriately. (
instance would
-- be
Tab7",
thirteenth
# be "Tab13").
-- Set its
behind
function
reflect
pageUnits given n
pixels.
sysPageUnitsPerPixel * n
ypix n
Uel * n
-- returns
currently selected
-- sets up
height
units.
tabHeight
mytabheight
handled
myTabHeight
tabSpace
myTabSpace
arrangeTabs
numTabs
valid parameter
"Must have
)least 1
"Can only
/" &&
 && "
        -- cache
{reference
optimization.
9"&i)
i <=
            --
hidden
%they've
xbeen
            -- receiving them
# are
"manual"
myNumTabs
mynumtabs
resized
Notice
-- methodSent:
used
differentiate
=messages
ToolBook
explicitly
sysSuspendMessages
 off toolbooks
messaging,
%we will be changing
stuff.
Without
recursively
    -- calls itself over
        --
thing
        --
has a
 called
            --
            --
5,6 _________ 7,8
            --
            --
3,4 |
| 9,10
            --
            --
            --
            --
1,2 |____________| 11,12
            --
            -- Here
amap
            --
goal here
maintain
shape
            --
. (Otherwise
gets
stretchy.) Also,
            --
should be
            --
            -- find
how tall
supposed
            --
tabRef
            --
tsection
makes
" corners
            --
Need
be sure
            --
 wide
4doing
m"tabHighlight"
B"tabLabel"
K    ()
editor.
        --
rectangular
        -- body
            --
        --
following condition
triggered
%a whole
        --
        --
        --
, even though their sizes
So we must
        --
 can
themselves.
        --
        --
xarranged
            --
9"&i)
            -- don't bother arranging
            --
mynumTabs
-- assures
aligned
spaced evenly.
syssuspendmessages
anchor
"tab1"
mytabspace
where
order
xpos
bp -
b(ts,0)
through remaining
place
        --
9"&i)
        --
        -- now
tbit
masking
others.
bchecks
x(e.g.,
just
moved
tname
above
notifyBefore
odisablePage && "
" &&
olevel)
oenabled
FALSE
buttonClick
" &&
p&& "
" &&
value
oprop_level
"invalid
widget:" &&
I & CRLF & \
            "must be ""
direction
"Next,Previous,First,Last"
"", ""
"", ""
oprop_disablePage
:" &&
 & CLRF & \
notifyBefore
odisablePage && "
" &&
olevel)
oenabled
FALSE
buttonClick
" &&
value
oprop_level
"invalid
widget:" &&
I &CRLF&\
            "must be ""
direction
"Next,Previous,First,Last"
"", ""
"", ""
oprop_disablePage
:" &&
 & CLRF & \
notifyBefore
odisablePage && "
" &&
olevel)
oenabled
FALSE
buttonClick
" &&
value
oprop_level
"invalid
widget:"&&
G &CRLF&\
            "must be ""
direction
"Next,Previous,First,Last"
"", ""
"", ""
oprop_disablePage
:" &&
 & CLRF & \
notifyBefore
odisablePage && "
" &&
olevel)
oenabled
FALSE
buttonClick
" &&
value
oprop_level
"invalid
widget:"&&
G &CRLF&\
            "must be ""
direction
"Next,Previous,First,Last"
"", ""
"", ""
oprop_disablePage
:" &&
 & CLRF & \
--handlers common
backgound
that share
    --reset cursor here because
might
xbe done on
o= default
-- A
"disable" fields.
-- Makes scripts read like there
a custom enabled/disabled
-- property
--Parameters:
--    fieldList: a list
--    enableField: a boolean flag
determine whether
--    clearText: a
disabling
-- This function works
recordFields
enableFields
) > 0
c"Label"
BLACK
WHITE
FALSE
LIGHTGRAY
Qthe three
Sextension
a file
specified
--    fileName: filename
change, may include path
--    newExtension:
changeExtension
k <> "."
JCharacter
 opens
progress
initializes
--values.
8displays
named "
--    newCaption:
--    newTotalItems:
be "counted"
--    newItemType:
`label
kind
being
initProgressViewer
itemType
currentItem
totalItems
statusBar
helpText
--Function
create a
accept data
called
;"Import
RecordFields"
FrontEnd"
--    dbFileName:
CreateDBBook
ZvNewBookName, vStartup, vStartupSysBooks
 sure
selectedTextlines
"dataBaseFields"
strNoDBFFields()
base
 = saveAsDLG("Choose
F"), ".", "ToolBook (*.
^), *.
e)", 1)
-- Save
L.ini,
finstance
-- will be blank,
sysToolBookDirectory & "mtb30.exe" minimized
strErrTbkExe()
same
database
%" && QUOTE &
    defaultPosition
feature
" & CRLF \
    & TAB & "
4s_dbExLastFocus" &
    importing
--    startColumn:    sepcifies
Sside
created
pageUnits
--    startRow:        specifies
--    endRow:
<limit
--    dbFieldList:
where
dbFields
imported are
:        a
    used
    ither
buttons.
addDatabaseFields
, Labels
ZSTACK vSelectedText
ZINT vTotalFields,vColumnCounter, vRowCoords, vColumnCoords
ZSTRING vFieldName, vLabelField, vRecordField
ZLAYER vDestinationLayer, vDestinationBackground
"Building
--preset coordinates, incrementors
color/
%build frontend
 Records"
/"frontEnd"
--loop thru
building
names
order
those
    -- defaults
]labels,
a very large
z(>47)
 per
insert
 = copyObject(
"labelField"
J"CopyField"
+1350,
v     =
adjust
drawing
-- "285", "105",
"3930"
*happen
look good.
H285
I'm about
~below
lowest bound
 how many times I
--begin
a column
k2 = 1
--alternate between these cases
3930 + (
*105)
 + ((
-1)*105)
strToManyFlds()
 -- placed
h    correct
B"Sort"
B"Search"
"autoPageNumber"
B"First"
B"Previous"
B"Next"
close
state
view
panel
resetDataView
ZvControlList
""viewLabel"",
""TBNameLabel"",
""TBTextLabel"","&&\
""TBRecordFieldName"",
""TBRecordFieldText"""
 sets
--controls
--    toolBookFieldName:
--    toolBookBackgroundRef:
/(includes
8ref)
    we can find
Jpassed
parameter
 builds
listToolBookFields
svTbName
RecordFieldNames
strSelTBKFileName()
vRecordFieldNames = buildRecordFieldList()
found
strNoNameRecFfl()
"toolbookfilename"
"toolbookFields"
duplicate
dupStrs(
strTwoShareName()
actual
, svBkName
bgObjects
CharsInList
vbgObjects =
*) > 0
--test
recordfields WITH NAMES
vRecordFieldList
vCharsInList =
Q)    -- stop
&<> 0
2- 1)
M- 1)
checks
strings
multiple
 strs
ZLONG i, j
i <> j
buttonClick
4STRING svdbName
ZvNewBookName, vTotalRecords
-- Create the
, = createDBBook(
 will
FALSE
there are no fields selected,
    -- returns NULL
`user backs out
error
    -- Add
d. The numbers initialize
positions
limits
addDatabaseFields 30, 135, 5175, "dataBaseFields",
-- Do
transfer
 = transferDatabaseData("
 ToolBook
\;activeWindow = windowhandle
handler
fdBase record
. Assumes that
8context
already
ta sourceField, newBookName
, vSourceDBFields, vSelectedDBFields, vTotalFields, vCurrentRecord
selectedTextLines
zlead
firstDBRecord()
= -10
strNoRecInPX()
strErrorFirstdBRec()
initProgressViewer "Transferring
", getDBRecordCount(), "
--loop thru
PX file filling
cTRUE
getdbRecordDeleted() = 0
--bypass deleted
currentItem
within
value
vCurrentField
getDBfieldvalue(
strErrorGetdBValue(curFld,
nextDBRecord()
--Kill
since
has no
recordFields
    close
fffo~
buttonClick
4STRING svdbName
ZvNewBookName, vSelectedFields, vdbFieldList, vLayerNumber, includeLabels
-- Magic
z, more than 47 takes
memory
TB can
-- If you just have
<fields, consider eliminating the
-- label
"addDatabaseFields" handler (That's 65
 = TRUE
(selectedTextlines
"Databasefields")
> 47
strWayTooManyFields()
strTooToomanyFields(
fstrNoLabels()
strCancel()
IncludeLabels = FALSE
 = createDBBook(
 will
there are no
    -- returns NULL
user backs out
error
copyObject(
"DBase Browser",
skipNavigation
BFrontEndHelp",
"sysSuspendMessages =
selectpage;
 ToolBook
    -- Add
. The numbers initialize
positions
limits
 0, 390, 4100, "databaseFields",
--build
plist
browser
8property
"databasefields"
vselectedFields)
"dataBaseFields"
nameOnly(
"titleField"
defined
file
pDBasefileName
layering
qbooks
--since DB
closed also need
cleanUp
closeAlldBFiles()
"activeWindow = windowHandle
enterApplication;
buttonClick
4STRING svdbName
ZvNewBookName, vSelectedFields, vdbFieldList, vLayerNumber, includeLabels
-- Magic
z, more than 47 takes
memory
TB can
-- If you just have
<fields, consider eliminating the
-- label
"addDatabaseFields" handler (That's 65
 = TRUE
(selectedTextlines
"Databasefields")
> 47
strWayTooManyFields()
strTooToomanyFields(
fstrNoLabels()
strCancel()
IncludeLabels = FALSE
 = createDBBook(
 will
there are no
    -- returns NULL
user backs out
error
copyObject(
"Paradox browser",
skipNavigation
EFrontEndHelp",
"PXFrontEnd"
"frontEnd"
"sysSuspendMessages =
selectpage;
 ToolBook
-- Add
initialize positions
limits
 0, 390, 4100, "
-- build
plist
8property
vselectedFields)
nameOnly(
"titleField"
defined
file
pParadoxFileName
layering
qbooks
cleanUp
"activeWindow = windowhandle
enterApplication;
--handlers used
}only on
    -- cleaning up
slows
flipping so
necessary
    -- you have
8was saved
"toolbookfields" <>
"dName" <>
cleanUp
    --Just
be sure.
closeAllDBFiles()
--This
 initializes the
qsession.
= TRUE
0two panels
resetCharacteristics
resetDataView
    --initalize
rest
controls on
enabled
"add_remove"
FALSE
"toolbookFields"
"toolbookfileName"
"dbFields"
labels
characteristics
ZvControlList
"TypeLabel",
"decimalLabel",
"changeLabel",
"nameLabel",
"widthLabel",
"Width",
"Decimal"
enableFields(
B"dateFormat"
"type"
 sets
state
 so that
valid
selected.
--Parameters:
--    dbFieldType:
dBase
--    dbFieldWidth:
qvalue
--    dbFieldDecimal:
--    dbFieldName:
setCharacteristicsState
4svLine, svChecked
a <> NULL
    vActiveList = "
","&&\
""WidthLabel"",
        vInactiveList = "
""DecimalLabel"",
 = "Numeric"
B"DateFormat"
--These
updated
being edited
? messages handled here
Clear
cutClear
4INT svline
("d"&
selectedtextlines
"dname" <>
"dwidth" <>
" <>
buttonClick
Validate         --veryify that everything
4building dBase file
BuildTag        --setup
& database schema
CreateFile
MoveData        --
ntoolbook
--validate entry
4STRING svdbName
4INT svInvalidCounter
asure they defined
)least 1
textlineCount (
"dName")
strSelTBFields()
--eliminate
existing
dbase files
closeAllDBfiles()
--initialize counters
, truncation
invalid
--create
Tag,
ZLONG i
vDecimal, vFieldCount
vName, vType, vWidth
initProgressViewer "Creating Record Definition",
svTag = createDBFieldTag(
strErrTag()
--loop thru
 setting their tags
currentItem
= FALSE
"dType"
"dWidth"
"Numeric"
"dDecimal"
setDBFieldTag(
, i,
= TRUE
strTagErr(
, svTbName
 = nameOnly(
~(".",
+ 1)
+ 3)
(strSavedBaseFile()
r= strOK()
 exists
strdBnameExist(
fstrYes()
strNo()
createDBfile(
= -27
strDBFileExists (
strDBFileCreationError (
freeDBfieldtag(
openDBfile(
strDBFileOpenError (
4 digit year gets loaded correctly.
setdBDateFormat("mm/dd/ccyy")
update displayed
Zi, j, vExportBackground, vPage,vToolBookFiledName, vFieldName, vFieldType, vFieldWidth
ZvFieldDecimal, vFieldDateFormat, vFieldData, vRecordCounter
Zreferences
strTBErrorRef (
stopDB
"Writing
chosen recordfields
--localize
, info
vToolBookFieldName =
saveTBName
dateFormat
strNoNameOrType()
strTBrecordError(
Conditions
    --convert
%"mm/dd/y"
-- only
errors
wrong
readable
-- must always have leading
front
value
setDBFieldValue(
= -62
strErrRefdbField(
= -12
strErrNoDBF()
strErrSetDBF(
--write
writeDBrecord(i)
strErrDBFWrite()
closeDBfile(
= default
strExportDone(0)
buttonClick
4svdbName, svTBName
ZLONG i
ZINT vFieldCount
ZSTRING vType, vWidth
ZSTACK vFieldList, vFieldType
asure they defined
)least 1 PX
textlineCount (
"dName")
strSelTBFields()
--eliminate
existing
PX files
exitPX()
initializePX()
getPXErrorString(
7 counters
, truncation
invalid data
svInvalidCounter = 0
initProgressViewer "Creating Record Definition",
--loop thru
PX fields setting their tags
currentItem
 + 1) - i
vfieldList
"dWidth"
 = "Alpha-Numeric"
"A" &
vfieldType
 = "Date"
 = "Memo"
"M" &
    close
 = nameOnly(svTbName)
~(".",
(strSavePXFile()
r= strOK()
~(".",
"Setting extension
"".db"""
 exists
 & ".DB"
strdBnameExist(
fstrYes()
strNo()
--create the PX
createPXTable(
moveData
Zi, j, vExportBackground, vPage,vToolBookFiledName, vFieldName,
, vFieldWidth
ZvFieldDecimal, vFieldDateFormat, vFieldData, vRecordCounter
Zreferences
= FALSE
= TRUE
strTBErrorRef (
stopDB
openPXTable("
0, 1)
"Writing
chosen recordfields
--localize PX
vToolBookFieldName =
saveTBName
strNoNameOrType()
strTBrecordError(
    hBlobData = GlobalAlloc(68,
    pBlobData = GlobalLock(
1(0,
GlobalUnlock(
g = openPXBlobWrite("
)+1, 0)
setPXBlob(
), 0,
closePXBlob(
GlobalFree(
value
setPXFieldValue("
= -62
strErrRefdbField(
= -12
strErrNoDBF()
strErrSetDBF(
--write
AppendPXrecord("
closePXTable("
= default
strExportDone(0)
Asymetrix dBase - Paradox - ToolBook Exchange
1991 - 1994
BCorporation
--Copyright
 1991-1994
--This version authored
HJeff Ayars
Charles Hiestand
gives you permission
e, revise
reuse the individual
scripts
your own applications.
--You may
x, however,
Sentire
a substantial part
redistribution
jproduct.
retains
copyright on
original elements
 . Include
notice "Portions
 are
they contain
copied
--A note on language independence:
For ease
translating
strings
readers that come
functions located
--The names
these
letters: "
handlers
prompt
enterApplication
housekeeping
leaveApplication
clean up
 per
ImportdBase
option
ExportdBase
dBaseHelp
help
linkFile
 tb30DOS.dll
linkdBase
( tb30db3.
User defined
isAlNum
test
alphaNumeric
isNum
numeric
isAlpha
alphabetic
isPosInt
positive integer
--         nameOnly
prefix
file
ponly.
4s_firstFlag
sysChangesdb
FALSE
sysRuntime
strRuntime()
"splash"
linkPX
initializePX("DBExchange")
< 0 --
SHARE.EXE
xrunning,
error will occur here
getPXErrorString(
"DBEXCHNG.TBK needs
work correctly. Please
 Windows
type ""share"" followed
 key.
\ --
eon screen
    close
exitPX()
asure
centered
        --(sometimes
640 X 480 there
a problem)
saveChanges
have switched
,mode.
custom
calias messages
menuItemSelected
, menuAlias
"ImportFromDbaseFile"
"ExportToDbase"
DBase"
"ImportFromParadox"
"ExportToParadox"
4STRING svReturnPage
    -- Do
xwant
because user
    sysSuspendMessages =
    -- Do
xmodify
already
/<> "exchangeHelp"
"exporting
"importing
Toolbook"
o= default
-- needed
syssuspendmessages
aboutdBase
strAboutDbase()
 DLL
used
linkDLL sysToolBookDirectory & "tb30dos.
fileExists(
getFileList(
strNoDll ("TB30DOS.
OpenFileDlg(
aveAsDlg(
"kernel"
    WORD GlobalAlloc(
,DWORD)
Free(
    POINTER GlobalLock(
;Unlock(
y & "tb30DB3.DLL"
_ checkDBIndex(
v closeAllDBFiles()
 closeDBFile(
 closeDBIndexFile(
createDBFieldTag(
 createDBFile(
 createDBIndexFile(
        INT deleteDBFile(
selectDBIndexFile()
-findDBKey(
@firstDBKey()
QfirstDBRecord()
efreeDBFieldTag(
getDBDateFormat()
getDBErrorString(
getDBFieldCount()
getDBFieldName(
getDBFieldPrecision(
getDBFieldType(
getDBFieldValue(
getDBFieldWidth(
getDBFileName()
getDBIndexExpression()
getDBIndexFileName()
getDBKeyType()
getDBKeyValue()
getDBNavigateToDeleted()
        LONG getDBRecordCount()
getDBRecordDeleted()
1Number()
gotoDBRecord(
lastDBKey()
lastDBRecord()
nextDBKey()
nextDBRecord()
openDBFile(
openDBIndexFile(
packDBFile()
previousDBKey()
previousDBRecord()
reindexDBFile(
removeDBRecords(
selectDBFile(
setDBDateFormat(
setDBFieldTag(
setDBFieldValue(
setDBNavigateToDeleted(INT)
setDBRecordDeleted(
writeDBRecord(
"Could
TB30db3.dll"
strNoDLL("TB30DB3.
linked,
addPXKey(
--PXKeyAdd()
addPXPassword(
--PXPswAdd()
addPXTable(
--PXTblAdd()
appendPXRecord(
--PXRecAppend()
clonePXBlob(
--PXBlobClone()
closePXBitmapWindow(
closePXBlob(INT,
--PXBlobClose()
closePXTable(
--PXTblClose()
copyPXTable(
--PXTblCopy()
createPXTable(
)        --PXTblCreate()
cryptPXTable(
--PXTblDecrypt()
--PXPswDel()
--PXRecDelete()
--PXTblDelete()
oesPXTableExist(
--PXTblExist()
ropPXBlob(
--PXBlobDrop()
ropPXKey(
            --PXKeyDrop()
emptyPXField(
emptyPXRecord(
--PXRecBufEmpty()
emptyPXTable(
--PXTblEmpty()
encryptPXTable(
)            --PXTblEncrypt()
--PXExit()
freePXGraphicBlob(
freePXGraphicBlobPalette(
firstPXRecord(
--PXRecFirst()
PXBitmapSize(
--PXBlobGet()
PXBlobQuick(
        --PXBlobQuickGet()
PXBlobSize(
--PXBlobGetSize()
getPXFieldCount(
--PXRecNFlds()
getPXFieldNames(
getPXFieldType(
)        --PXFldType()
getPXFieldValue(
PXFileSize(
    getPXKeyFieldCount(
--PXKeyNFlds()
    getPXMaxFiles()
    getPXMaxLocks()
getPXMaxTables()
        INT    getPXSwapSizeFromINI()
MaxTablesFromINI()
1MaxFilesFromINI()
GMaxLocksFromINI()
getPXMemoBlob(
getPXNetErrorUser()
--PXNetErrUser()
getPXNetUserName()
    PXRaw(
--PXRawGet()
getPXRawDataSize(
J    PXRecordCount(
--PXTblNRecs()
s    PXRecordNumber(
--PXRecNum()
getPXSortOrder()
getPXUserInfo()
gotoPXNetRecordLock(
            --PXNetRecGotoLock()
gotoPXRecord(
--PXRecGoto()
--PXWinInit()
insertPXRecord(
--PXRecInsert()
isPXNetRecordLocked(
--PXNetRecLocked()
isPXNetTableChanged(
--PXNetTblChanged()
isPXTableProtected(
--PXTblProtected()
lastPXRecord(
--PXRecLast()
lockPXNetFile(
--PXNetFileLock()
lockPXNetRecord(
lockPXNetTable(
--PXNetTblLock()
mapPXKey(
            --PXKeyMap()
nextPXRecord(
--PXRecNext()
openPXBitmapWindow(
openPXBlobRead(
)            --PXBlobOpenRead()
openPXBlobWrite(
--PXBlobOpenWrite()
openPXTable(
        --PXTblOpen()
packPXTable(
previousPXRecord(
--PXRecPrev()
queryPXKey(
--PXKeyQuery()
refreshPXNetTable(
--PXNetTblRefresh()
renamePXTable(
)            --PXTblRename()
savePX()
--PXSave()
searchPXField(
searchPXKey(
        --PXSrchKey()
setPXBitmapWindowInfo(
setPXBlob(
            --PXBlobPut()
setPXBlobFromFile(
setPXFieldValue(
)    --PXPutAlpha(), PXPutDate(), PXPutDouble(), PXPutLong(), PXPutShort()
setPXGraphicBlob(
            --
setPXGraphicBlobFromFile(
setPXINIMaxFiles(
--PXSetDefaults()
setPXINIMaxLocks(
setPXINIMaxTables(
setPXMemoBlob(
setPXRaw(
--PXRawPut()
setPXSortOrder(
setPXINISwapSize(
setPXTableCreateMode(
--PXTblCreateMode()
setPXTableMaxSize(
--PXTblMaxSize()
setPXUserInfo(
unlockPXNetFile(
--PXNetFileUnlock()
unlockPXNetRecord(
            --PXNetRecUnlock()
unlockPXNetTable(
            --PXNetTblUnlock()
updatePXRecord(
--PXRecUpdate()
upgradePXTable(
--PXTblUpgrade()
writePXBlobToFile(
writePXGraphicBlobToFile(
--Functions
support data validation
checking
-- We
I ANSI
each
-- See
C-4 (appendix C)
Manual.
<= 47)
>= 91
<= 96)
>= 58
<= 64)
<= 64)
>= 91
<= 96)
> 127)
-- Instead
replacing
_! call
{"1.5
been rewritten
q3.0 functionality.
isType(REAL,
--boolean
J >= 0)
just
a fully qualified path
 fFile
vOffset
~("\",
~("\",
strHelp
    -- debug: better
"dBaseIII (tm) -
$(tm) -
$(tm)
#(c) 1991 - 1994 --
strCloseInstances
other instances
 authoring
4. It
, please restart
]mtb30.EXE"
strdbf
strDBFileCreationError fName
"There was
creating
 :" &&
strDBFileOpenError
 opening
!:" &&
strErrNoDBF
no current
one."
strErrRefdbField fField
referencing
strErrDBFWrite
writing
;&record."
strErrSetDBF
 setting value
: " &
strErrTag
tag."
strErrTbkExe
exe."
strExportDone errCount
 completed."
ere" &&
> && "
f" && \
"invalid
strNoDBFFields
'fields
selected yet."
"Can't
" &&
 & ".
a directory
include"&&fname&"'s
strSelTBFields
strSetDBName
strTagErr
" &&
 & "."
strTBErrorRef
strTBrecordError
:" &&
strEnterDBfile
P& a
strNoOpenDBfile
% cannot be opened.
strNoNameOrType
)values."
strSeldBFileName
strErrListdBFile
listing
strSelTBKFileName
strNoNameRecFfl
"No named, ungrouped
were found on
strTwoShareName
more
:*same
recordfields unique
strNoRecIndBase
strErrorFirstdBRec
getting
strErrorGetdBValue curFld, totrecs
" && \
$ && "
z" &&
/ & "."
strErrSetdBValue curfld,
" && \
! && "
z" &&
 & "."
strToManyFlds
than
z&be displayed on
." && \
arrange
built."
strOK
strCancel
strPlChooseBook
Z'choose
strChooseBook
strPlChooseDbase
strChoosedBase
strFieldOverrun fType
&exceeded
limits
a " &
) && ".dbf
strPrecisionError
"Decimal precision must be either zero
)least two less
width."
strAskDateFormat fldName
" && \
- & "."
strdBnameExist dbName
"Filename" &&
 && "
%exists. Replace
strSavedBaseFile
strSavePXFile
strCharWidth
"Character
between 1
255."
strNumWidth
strWidthNull
blank."
strDecimalNull
strDecimal15
greater
strNameToLarge
+ be up
strNameNull
strChar1Num
strNotPage
xa functioning
build
Z0front
strYes
strTooTooManyFields num
f" &&
 && "
you" \
            && "don't
     label
. Do
eliminate
strWayTooManyFields
N,try
strNoLabels
Paradox Field Char - Export
The controls in the Change Paradox Field Characteristics section reflect the currently selected field in the Paradox Fields listbox.  If a Paradox field is not selected, the controls are unavailable.
Name:  A Paradox field name  up to 25 characters long.  The first character cannot be a number.  Acceptible characters are:
                                   A...Z  _  0 1 2 3 4 5 6 7 8 9
Type:  The Paradox data type. Click one of the four radio buttons to change the data type.
Width:  The number of characters in the Paradox field. The maximum width for fields of type Alpha-numeric is 255 and Memo is 240.  The width of the memo field is not related to the size of the memo field. Instead it specifies how much of the memo is actually stored in the table. The complete memo is stored outside of the table; Paradox creates a pointer to the memo that it stores in the table. For other types, the width is predefined and cannot be changed.
If your book has many record fields containing dates that ToolBook does not recognize as dates, change sysDateFormat to match the format of the dates in the record fields.
Change Paradox Field Characteristics
N,try
strNoLabels
Paradox Field Char - Export
The controls in the Change Paradox Field Characteristi
ee##6
ee##ee
##ee#
e6##6
#e##ee
##e##
66#e#6
#e##ee
e##e#
e##e#
##e##e#
#e##e#
e##e##e#
e##e#
e##e##e#
e##e##e
Tk#$k
##e##e#
#e##e
#e##e##e#
#e##e##
##e##e
$kfkkff
e##6#
##6#6
##6#6
##6#6
##6#6
e#ee##
#TTOO
TOTOTOO!
OTOTTOT
#OTTOTOTO
TOOTO
kTTOTTOT
OOTTOOTOTT
kOTOTTOOTT
kOTOTOT
kOOTOTO
#fOTOTOTOO
TOOTOTT
#TOOTOTOTT
OOTOOTO
TOTTOTO
TOOTTOTOTO
OTOOT
OTOOTOTOO
TTOTOTTO
TTOTOTO
TOOTTO
TTOOTOOTOO
TOTTOOTOTO
TTOOTOO
TOOTOTOTOO
TOTOTO
TOTOTOOTOT
OOTOTTOOTT
TOTTOTOOTO
OTOOTOOTOO
OTTOTTO
TOOTOTTOTT
OTTOTOTTO
OOTTOOT
TOTOTTOT
TOTOTTOTTO
TOTTOTOTT
TOTTO
##kkf
TTOOT
OOTOT
OTTOTO
ff$kT
TOOTO
TOTOO
TOTOOTTOOT
OTOOTOTOO
TOOTOTOT
TOTTOTOTOT
TTOTOO
TOTOTOTOT
TOOTOTOOTO
TOTOO
TOTOTO
TOTOOT
TOOTOT
TOTOOTOOTO
TOTOTOOTOT
OOTOT
TOOTOOTOTO
TOTOTOTTOO
TOTOT
TOT,O
TOTOTT
TOTOTTOOTO
TOTOTO
TOOTOT
TTOTOTOTOO
TOOTOTOOTO
TOTOOTOT
TOOTOO
TTOOTTOTOk
e#TOO
TTOOTT
#OTTOOT
TOTOTOOT
OTOTOOTTO
TOTOT
OOTOOT
OTOOTOO
TOOTOT
TOTOT
OOTOT
TOTOTOOT
#6#TOO(
#kOOT
TOOTOOTOOT
TOTOT
OOTOTTOTOT
OTOTOTOOTO
TOTTO
TTOTOOT
TOOT\O
TOTTOTOTOT
TOTOTOOT
TOOTOT
kOOTOT
#kkfOT
TOOTOT
TOOTOTOT
TOTOOT
TOTOTOT
TTOOTOTOTT
OTTOT
TTOTOTOOTO
TTOTOTTOOT
TOTOTT
TOOTOT
TOTOT
TOTOOTOOT
TOOTOOT
TTOTOOTOTO
OTOOTOO
TOTOOT
TOOTOTOOT
TOT    O
TOOTeO
TOTOTTOTOT
OOTOTTOTTO
TOTOTOTOOT
TOTOOTOTOT
TOTOTTOOTT
TOOTOTOT
TOTOOTOOT
TOOTOTOOTO
TOTOTOOT
OTOOT
TOTOOTOTOO
TOTOOTOTOT
TOOTOOTOTO
TOTOOTOOTO
$OOTTOTOT
TOOT{O
TOTOOTOTOT
TOOTOOTOOT
OTOOTOOTOT
OTOOTOTOOT
TOTOT
TOTOTOTOT
TOTOT
TOTOOT
TOTOTOOTOO
TOOTOOTOTO
TOTOOTT
TOTOOTOOT
TOTOOTOTOO
TOTOTOTOTO
OTOTOOTOOT
TOOTOT
TOOTOTOT
TOOTOT
TOTOT
TOOTOT
TOOT*O