home *** CD-ROM | disk | FTP | other *** search
exchangeHelp .&+ +E Hotword gjumpPage buttonClick .&+ +E helptext enterPage .&+ +E .&+ +E previous buttonClick (jumpPage "helptext" = TRUE = FALSE HelpText subtitle PreviousBtn .&+ +E buttonUp = TRUE = FALSE chster nextbtn .&+ +E buttonUp = TRUE = FALSE .&+ +E .&+ +E folder svReturnPage buttonUp 4svReturnPage sysSuspendMessages = TRUE xwant [out information \ -- on sendNotifyBefore "folder" o= 1 -- needed because < L J strChecked strChecked strChecked strChecked strChecked strChecked Vorhergehender ckkehren strChecked Paradox Browser *2+fUF$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 strChecked strChecked first record first WcurrentRecord PupdateDisplay buttonClick buttonClick currentRecord updateDisplay zum ersten Datensatz wechseln helpText strChecked Previous buttondown previous WcurrentRecord PupdateDisplay buttonStillDown currentRecord updateDisplay zum vorhergehenden Datensatz wechseln helpText strChecked buttonDown WcurrentRecord PupdateDisplay buttonStillDown currentRecord updateDisplay zum n chsten Datensatz wechseln helpText strChecked LastRecord WcurrentRecord PupdateDisplay buttonClick buttonClick currentRecord "Last" updateDisplay zum letzten Datensatz wechseln helpText strChecked strChecked sortbylabel strChecked hlen Sie die Felder, nach denen sortiert werden soll: 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 Indexdatei ausw helpText strChecked 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" zu einem Datensatz anhand des Schl sselwerts wechseln helpText strChecked Suchen... goToRecord w, #? Cancel WcurrentRecord *totalRecords fstrOutOfRange strEnterRec PupdateDisplay buttonClick buttonClick (strEnterRec() <> NULL r<> "Cancel" (isType(INT, > 0) <= totalRecords() currentRecord updateDisplay && strOutOfRange() zu einem Datensatz anhand der Datensatznummer wechseln helpText strChecked Datensatz anzeigen... WriteRecord G[updateDB buttonClick buttonClick updateDB T!d!J Feldinhalt in Datei speichern helpText strChecked Datensatz &speichern NewRecord newRecord PupdateDisplay buttonClick buttonClick newRecord updateDisplay Felder l schen und leeren Datensatz in Datei einf helpText strChecked &Neuer Datensatz DeleteRecord deleteRecord PupdateDisplay buttonClick buttonClick deleteRecord updateDisplay aktuellen Datensatz aus der Datei l schen helpText strChecked Datensatz &l schen titlefield T%d%J strChecked Datenbankoberfl che f status currRecord totRecords currRecord totRecords totRecords currRecord *totalRecords WcurrentRecord updateDisplay currRecord totRecords value & " " notifyBefore updateDisplay currentRecord() totalRecords() 6*F*J aktuelle Datensatznummer und Gesamtanzahl der Datens tze anzeigen helpText strChecked Datensatz: 1 von 1777777777 och nicht festgeleg helpText strChecked strChecked updateDisplay Progress Progress fullBar currentBar currentPercent 80%6969696969697% RecordCounter Datensatz 4 von 5773 partitions strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked ( 8 J strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked splash strChecked strChecked strChecked dBIII -><-ToolBook-><- Paradoxxxxxxxxxx strChecked DBase-Austausch Ver. 3.0 1994 Asymetrix Corp. Importing dBase to ToolBook strChecked Verwenden Sie die Seite "dBase nach ToolBook importieren" bzw. "Paradox nach ToolBook importieren", um von ToolBook aus auf dBase- bzw. Paradox-Daten zuzugreifen. Nachdem Sie eine Datenbankdatei gew hlt haben, erscheinen die Feldnamen im Listenfeld "dBase- bzw. Paradox-Felder ausw hlen". Klicken Sie nur auf die Namen der dBase- bzw. Paradox-Felder, die importiert werden sollen. Um den Importvorgang durchf hren zu k nnen, mu mindestens ein Feld ausgew hlt sein. Durch Klicken auf In Datensatzfelder importieren wird ein neues Buch erstellt, das denselben Namen wie die urspr ngliche Datenbank aufweist. S mtliche in der Datenbank enthaltenen Datens tze werden als ToolBook-Datens tze importiert. Das neue Buch hat eine Seite f r jeden Datensatz in der dBase-Datei. Durch Klicken auf In Datenbankoberfl che importieren wird ein neues, unbenanntes Buch erstellt, das OpenScript zum Anzeigen und Bearbeiten der Datenbankdatei verwendet. Importieren von dBase- oder Paradox-Daten nach ToolBook jumpPage jumpPage Import to Record Fields Import to Front End Import to Record Fields strChecked Die Option "In Datensatzfelder importieren" erstellt ein neues Buch in einer zweiten ToolBook-Instanz. Das neue Buch enth lt ein Hintergrundfeld und ein Datensatzfeld f r jedes ausgew hlte dBase- bzw. Paradox-Feld. Das Hintergrundfeld enth t den Namen des dBase- bzw. Paradox-Felds und das Datensatzfeld enth lt die Daten aus dem Feld. Das neue Buch hat eine Seite f r jeden Datensatz in der dBase- bzw. Paradox-Datei. Verwenden Sie die Seitenwechsel-Schaltfl chen oder die Befehle des Men s Seite, um zwischen Seiten zu wechseln. In Datensatzfelder importieren Import to Front End strChecked Die Option "In Datenbankoberfl che importieren" erstellt ein neues, unbenanntes Buch in einer zweiten ToolBook-Instanz. Das Oberfl chen-Buch enth lt zwei Seiten. Die erste Seite dient zur Anzeige von dBase-Daten. Die zweite Seite enth lt Online-Hilfe f r die Oberfl che. Die Oberfl chen-Seite enth lt Steuerungen zum Ausw hlen von Datens tzen in der dBase-Datei und ToolBook-Felder sowohl f r die dBase-Feldnamen als auch f r die Daten. Hilfsinformationen zur Verwendung der Datenbankoberfl che finden Sie auf der Hilfe-Seite des Oberfl chen-Buchs. In Datenbankoberfl che importieren Exporting ToolBook to dBase strChecked Verwenden Sie die Seite "ToolBook nach dBase exportieren", um eine dBase-Datei zu erstellen. Verwenden Sie die Seite "ToolBook nach Paradox exportieren", um eine Paradox-Datei zu erstellen. ToolBook legt einen neuen Datensatz f r jede Seite des Hintergrunds an, aus dem importiert wird. hlen Sie ein Buch zum Exportieren aus. Da B cher oft mit Titelseiten versehen sind, wertet ToolBook zuerst die letzte Seite des Buchs aus, um zu pr fen, ob ihr Hintergrund g ltige Datensatzfelder enth lt. Danach sucht es das Buch durch, beginnend auf der ersten Seite des Hintergrunds, das die Datensatzfelder enth lt. Datensatzfelder sind nur g ltig, wenn sie eindeutige Namen haben und nicht gruppiert sind. Wenn die letzte Seite des Buchs keine zu exportierenden Daten enth ndern Sie die Seitennummer einer der Seiten, so da sie zur letzten Seite des Buchs wird. Wenn ein Buch exportiert werden kann, werden die f r den Export verf gbaren Datensatzfelder im Feld ToolBook-Felder ausw hlen aufgelistet. Exportieren von ToolBook nach dBase oder Paradox Selecting ToolBook Fields Export jumpPage Selecting ToolBook Fields Export strChecked Klicken Sie auf einen Feldnamen im Feld "ToolBook-Felder ausw hlen", und klicken Sie dann auf die Schaltfl che "Hinzuf gen", um das ToolBook-Feld in eine dBase- bzw. Paradox-Datei zu exportieren. Beim Ausw hlen eines ToolBook-Felds erscheint sein Name und sein Text im Feld "ToolBook-Informationen anzeigen". ToolBook versucht, anhand des Feldtexts den dBase- bzw. Paradox-Feldtyp zu ermitteln. ndern der Eigenschaften eines dBase- bzw. Paradox-Felds verwenden Sie die Steuerelemente unter dBase-Feldeigenschaften ndern bzw. Paradox-Feldeigenschaften ndern..... ToolBook-Felder ausw Change dBase Field - Export jumpPage Paradox Field Char - Export jumpPage Change dBase Field - Export strChecked Die Steuerelemente des Abschnitts "dBase-Feldeigenschaften ndern" entsprechen dem gegenw rtig ausgew hlten Feld im Listenfeld "dBase-Felder". Wenn ein dBase-Feld nicht ausgew hlt ist, stehen die Steuerelemente nicht zur Verf gung. Name: Ein dBase-Feldname von bis zu 10 Zeichen L nge. Das erste Zeichen darf keine Zahl sein. Zul ssige Zeichen sind: A...Z _ 0 1 2 3 4 5 6 7 8 9 Typ: Der dBase-Datentyp. Klicken Sie auf eine der f nf Optionsfelder, um den Datentyp zu ndern. Breite: Die Anzahl der Zeichen im dBase-Feld. Die maximale Breite f r Felder des Typs Character ist 254 und f r Felder des Typs Numeric ist 19. F r andere Datentypen ist die Breite vordefiniert und kann nicht ge ndert werden. Dezimal: F r Felder des Typs "Numeric" wird hier die Anzahl der Zeichen rechts des Dezimalkommas angegeben. Der maximale Wert ist 15. Der Wert von Decimal mu mindestens 2 kleiner als die Feldbreite sein. Wenn "Breite" z.B. den Wert 8 hat, ist 6 der maximale Wert f r "Decimal". Datumsformat: Das im ToolBook-Datensatzfeld verwendete Format. Ist kein Datumsformat festgelegt, wird sysDateFormat verwendet. Wenn der Text des Datensatzfelds ein Datum ist, ToolBook das Format jedoch nicht erkennt, ndern Sie den Datentyp auf "Datum" und klicken Sie auf die Schaltfl che "Datumsformat", um das richtige Format anzugeben. Wenn Ihr Buch viele Datensatzfelder mit Datumsangaben, die ToolBook nicht als Datumsangaben erkennt, ndert Sie sysDateFormat auf das in den Datensatzfeldern enthaltenen Datumsformat. dBase-Feldeigenschaften ndernticsY splash 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 strChecked strChecked strChecked Paradox-Datei f r den Import ausw helpText strChecked Paradox-Datei ausw hlen... paradoxFileName aradox-Datei zum Importiere helpText strChecked $ 4 J strChecked strChecked Paradox-Felder ausw hlen: DatabaseFields fieldButtons unselectAllFields buttonClick keyUp buttonClick selectedTextlines -- only enable them they are xalready enabled -- buttons grouped simplify B"unselectAllFields" "fieldButtons" FALSE KeySpace gbare Felder f r den Import helpText strChecked selectallFields Databasefields DatabaseFields buttonClick buttonClick ZLONG i ZSTACK vSelectedLines textlineCount( "DatabaseFields") selectedTextlines "Databasefields" Alle aufgelisteten Felder fur den Import ausw helpText strChecked Alle Felder ausw Richtunge helpText strChecked Daten in einer Paradox-Datei k nnen auf zwei Arten ausgetauscht werden: 1. Durch Importieren der Paradox-Datenbank in Daten-satzfelder eines neuen Buchs. 2. Durch direktes Anzeigen und Bearbeiten der Paradox-Datenbank in einer ToolBookDaten-bankoberfl fieldButtons strChecked unselectallFields DatabaseFields buttonClick buttonClick selectedTextlines "DatabaseFields" Auswahl aller aufgelisteten Felder f r den Import abbrechen helpText strChecked Auswahl aller Felder abbrechen ImportToFrontEnd Ausgew hlte Felder in ein ToolBook-Front-End importieren helpText strChecked In Datenbank-Oberfl che importieren ImportToRecordFields Ausgew hlte Felder in eine ToolBook-Datenbank importieren helpText strChecked In Datensatzfelder importieren script author reader author enterPage notifyBefore kript f r Datensatzfelder im Front-En helpText strChecked --Benachrichtigungs-Behandlungsroutinen werden hier verwendet, so da das Feld ge ndert --werden kann, ohne das Skript an anderen Stellen zu ndern. Da der Text eines --Datensatzfelds Teil der jeweiligen Seite (nicht des Datensatzfelds selbst) --ist, verwenden wir W rter 1 bis 3 des eindeutigen Namens (self), um den festzulegenden --bzw. zu ermittelnden Text zu referenzieren. 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 Paradox-Datei zum Importiere hA^A^A Export dBase $t&x'T.&1 14,23 selectChars strChecked strChecked strChecked strChecked strChecked TypeLabel strChecked Typ:: strChecked strChecked strChecked strChecked strChecked strChecked w, #b .&+ + npnameOnly 9listToolBookFields svLine ToolBook-Datei (*.TBK), *.TBK toolbookfilename toolbookfields OpenFileDlg dbfields svTbName strPLChoosedBook buttonClick buttonClick 4STRING svTbName 4INT svLine !vName OpenFileDlg (strPLChoosedBook(),"", ".", "ToolBook-Datei (*.TBK), *. ", 1) "toolbookfilename" [(nameOnly( listToolBookFields "dbfields" "toolbookfields" <> y-- will be error selectedTextlines enabled ToolBook-Buch zum Exportieren in eine dBase-Datei ausw helpText strChecked Buch ausw hlen... ToolBookFileName ToolBook-Buch f r den Export in eine dBase-Datei ausw helpText strChecked Build dBase File Angegebene Datensatzfelder in einer dBase-Datei speichern helpText strChecked In dBase-Datei speichern... strChecked ToolBook-Felder ausw hlen: ToolBookFields buttonClick buttonClick selectedTextlines Datensatzfelder auf dem letzten Hintergrund des ausgew hlten Buchs helpText strChecked add_remove strChecked Datensatzfelder in Exportliste aufnehmen helpText strChecked Hinzuf gen >> remove Datensatzfeld aus Exportliste entfernen helpText strChecked Entfernen << 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 Exportliste l schen helpText strChecked schen strChecked dBase-Felder: strChecked Name- strChecked strChecked strChecked 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 strChecked dName THREE VLOCALNUM VEXTENSION BILLINGCD NOTES saveTBName Name f r das Feld in der dBase-Datei helpText strChecked dType dBase-Feldtyp f r Datensatzfeld-Datei helpText strChecked dWidth dBase-Feldbreite f r Datensatzfeld-Datei helpText strChecked dDecimal Anzahl der Dezimalstellen, falls das Feld numerisch ist helpText strChecked <%L%J strChecked strChecked T&d&J strChecked viewLabel FALSE disabled strChecked ToolBook-Feldinformationen anzeigen strChecked +",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() b-r-J FALSE disabled Name of field in dBase file helpText strChecked nameLabel FALSE disabled strChecked Name: strChecked T.(/8/ widthLabel FALSE disabled strChecked Breite: width `0p0.l foo(FALSE) FALSE disabled disabled(FALSE) Breite des ausgew hlten dBase-Felds helpText strChecked strChecked Character Feldtyp auf "character" festlegen helpText strChecked Zeichen P3`3J Feldtyp auf "date" festlegen helpText strChecked Datum Logical Feldtyp auf "logisch" festlegen helpText strChecked Logisch &1n4x4 Feldtyp auf "memo" festlegen helpText strChecked &1.5:5 Numeric Feldtyp auf "numeric" festlegen helpText strChecked Numerisch 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 Legt das Datumsformat der dBase-Datei fest helpText strChecked Datumsformat... $949J strChecked tbNamelabel darkGray strokeGraued FALSE disabled strChecked Name: TBRecordFieldName $;4;J disabled Name des ToolBook-Datensatzfelds helpText strChecked strChecked L; <0< tbTextLabel FALSE disabled strChecked Text: TBRecordFieldText disabled Inhalt des ToolBook-Datensatzfelds helpText strChecked strChecked DecimalLabel FALSE disabled strChecked Dezimal:O? =R?^? Decimal R@b@J foo(FALSE) FALSE disabled disabled(FALSE) Dezimale Genauigkeit des ausgew hlten dBase-Felds helpText strChecked changeLabel FALSE disabled strChecked dBase-Feldeigenschaften nderntics FrontEnd strChecked dBase browser %(&t) * X&H&{ strChecked first record first WcurrentRecord Failed PupdateDisplay buttonClick buttonClick currentRecord r<> "Failed" -- updateDisplay zum ersten Datensatz wechseln helpText strChecked Previous buttondown previous WcurrentRecord Failed PupdateDisplay buttonStillDown currentRecord r<> "Failed" -- updateDisplay zum vorhergehenden Datensatz wechseln helpText strChecked buttonDown WcurrentRecord Failed PupdateDisplay buttonStillDown currentRecord r<> "Failed" -- updateDisplay zum n chsten Datensatz wechseln helpText strChecked LastRecord WcurrentRecord Failed PupdateDisplay buttonClick buttonClick currentRecord "Last" r<> "Failed" -- updateDisplay zum letzten Datensatz wechseln helpText strChecked strChecked OpenIndexFile openIndex buttonClick buttonClick openIndex Indexdatei ffnen helpText strChecked Indexdatei ffnen... goToRecord w, #? cancel WcurrentRecord *totalRecords fstrOutOfRange strEnterRec PupdateDisplay buttonClick buttonClick (strEnterRec() <> NULL r<> " (isType(INT, > 0) <= totalRecords()) currentRecord updateDisplay && strOutOfRange() zu einem Datensatz nach Nummer wechseln helpText strChecked Datensatz anzeigen... findKey strEnterKey searchForKey PupdateDisplay buttonClick buttonClick (strEnterKey() searchForKey updateDisplay zu einem Datensatz nach Schl sselwert wechseln helpText strChecked ssel suchen... WriteRecord G[updateDB buttonClick buttonClick updateDB Feldinhalt in Datei speichern helpText strChecked Datensatz speichern NewRecord newRecord PupdateDisplay buttonClick buttonClick newRecord updateDisplay Felder l schen und leeren Datensatz in die Datei einf helpText strChecked Neuer Datensatz DeleteRecord deleteRecord buttonClick buttonClick deleteRecord aktuellen Datensatz aus der Datei l schen helpText strChecked Datensatz l schen strChecked titlefield strChecked Datenbankoberfl che f status currRecord totRecords currRecord totRecords totRecords currRecord *totalRecords WcurrentRecord updateDisplay currRecord totRecords value & " " notifyBefore updateDisplay currentRecord() totalRecords() aktuelle Datensatznummer und Gesamtanzahl der Datens tze anzeigen helpText strChecked Datensatz: 0 von 0777777777 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",\ Index ein-/ausschalten helpText strChecked Nach Index sortieren strChecked P"$#<# sortExpressionLabel d#t#J strChecked Sortierausdruck: sortExpression sortCheck kereadIndexExpression updateDisplay notifyBefore updateDisplay B"sortCheck" readIndexExpression() Ausdr cke, die zum Erstellen der aktuellen Indexdatei verwendet werden helpText strChecked strChecked strChecked CurrentKeyValueLabel >'N'J strChecked Aktueller Schl sselwert: currentKeyValue sortCheck readKeyValue updateDisplay notifyBefore updateDisplay B"sortCheck" readKeyValue() L)\)J Wert des Sortierausdrucks f r den aktuellen Datensatz helpText strChecked och nicht festgeleg helpText strChecked strChecked sortbylabel ,+<+J strChecked Aktueller Sortierindex:: 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 Indexdatei ausw helpText strChecked updateDisplay Paradox FrontendHelp strChecked HelpText strChecked Sie k nnen die Datens tze in der Paradox-Datei anzeigen, indem Sie auf die Seitenwechsel-Schaltfl chen ( <<, <<, >>, and >> ), auf die Schaltfl che "Datensatz anzeigen" oder auf die Schaltfl che "Suchen" klicken. Zum Bearbeiten eines dBase-Felds ndern Sie den Text des Felds und klicken auf "Datensatz speichern". Wenn Sie den Datensatz nicht speichern, erscheinen die Felddaten beim n chsten Anzeigen unver ndert. Beim Speichern, L schen oder Hinzuf gen eines neuen Datensatzes wird nur der prim re Index und die als "sekund r aktualisierte" Indizes aktualisiert. Nicht aktualisierte Indizes bleiben unver ndert. Beim ffnen einer Tabelle werden alle zugeh rigen Indizes ge ffnet und die Felder im Schl ssel werden in das Kombinationsfeld bertragen. Besch digte Indizes werden neu erstellt. Um einen Sortierindex auszuw hlen, w hlen Sie die entsprechenden Felder aus dem Kombinationsfeld. Wenn Sie einen Datensatz l schen, wird der von ihm beanspruchte Speicherplatz erst dann aus der Datei entfernt, wenn Sie aus dem Men Datei den Befehl Datenbank packen w hlen. Sie sollten die Datenbank regelm ig packen, so da sie nicht ig gro wird. subtitle strChecked Verwenden der Datenbankoberfl .&+ +E default buttonClick buttonClick sysSuspendMessages = o= default strChecked FrontEnd exchangeHelp dBase FrontEndHelp strChecked HelpText strChecked Sie k nnen die Datens tze in der dBase-Datei anzeigen, indem Sie auf die Seitenwechsel-Schaltfl chen ( <<, <<, >>, and >> ), auf die Schaltfl che "Datensatz anzeigen" oder die Schaltfl che "Schl ssel suchen" klicken. Zum Bearbeiten eines dBase-Felds ndern Sie den Text des Felds und klicken auf "Datensatz speichern". Wenn Sie den Datensatz nicht speichern, erscheinen die Felddaten beim n chsten Anzeigen unver ndert. Beim Speichern, L schen oder Hinzuf gen eines neuen Datensatzes erscheint eine Warnmeldung, die Ihnen mitteilt, da unge ffnete Indexdateien evtl. veraltet sind. Sie k nnen die Anzeige dieser Warmmeldung verhindern, indem Sie aus dem dBase-Men den Befehl ''Indexwarnung unterdr cken'' w hlen. Datens tze k nnen nach Indexdateien sortiert werden, solange eine Indexdatei ge ffnet ist. Zum ffnen einer Indexdatei klicken Sie auf die Schaltfl che "Indexdatei ffnen". Wenn die Sortieroptionen grau abgeblendet erscheinen, wurde noch keine Indexdatei ge ffnet. Wenn Sie einen Datensatz l schen, werden die entsprechenden Daten erst dann aus der Datei entfernt, wenn Sie aus dem dBase-Men den Befehl Datenbank packen w hlen. subtitle strChecked Verwenden der Datenbankoberfl .&+ +E default buttonClick buttonClick sysSuspendMessages = o= default strChecked r*'"'"' (exitPX strdBnameExist getPXErrorString npnameOnly Datensatz-Definition wird erstellt ?createPXTable dstrSavePXFile strSelTBFields amoveData strNo svdbName wTinitProgressViewer Field /strYes Progress Alpha-Numeric dWidth Erweiterung wird auf ".db" festgelegt svTBName Numeric dName dType currentItem -initializePX strOK buttonClick .&+ +E + , # +",!Y ,%H.% hBlob dWidth GlobalAlloc stopDB pBlobData saveTBName -strErrSetDBF strTBrecordError strErrNoDBF GlobalLock strNoNameOrType vToolBookFieldName svInvalidCounter svdbName Record Daten werden in Datei geschrieben wTinitProgressViewer strErrRefdbField GlobalFree setPXBlob Progress openPXTable getPXErrorString svTbName hstrTBErrorRef GlobalUnlock dName dType yAppendPXrecord hBlobData currentItem closePXBlob setPXFieldValue openPXBlobWrite moveData closePXTable svInvalidCounter qstrExportDone svdbName default stopDB OpenIndexFile StopIndexWarning PackDatabase HelpForThisBook dBase-Datei kann nicht ge ffnet werden strCantOpenDbaseFile Diese Datei enth lt keine Datens tze. Bitte klicken Sie auf Neuer Datensatz, um Daten einzugeben. strNoRecords aufgef hrt ist, oder f gen Sie das Verzeichnis mit tb30db3.dll zu Ihrem Pfad hinzu ffnen Sie das Buch erneut. tb30db3.dll nicht gefunden. Bitte kopieren Sie diese Datei in ein Verzeichnis, das in Ihrem Pfad strNoDLL Bitte legen Sie die Dateiposition auf einen g ltigen dBase-Datensatz fest. Sie m ssen sich in einem Datensatz befinden, um diesen l schen zu k nnen. strInvalidRecord Sind Sie sicher, da Sie diesen Datensatz l schen wollen? strDeleteQuery strOK Abbrechen strCancel Sie haben soeben den letzten Datensatz in dieser Datei gel scht. Ein neuer, leerer Datensatz wird erstellt. strDeleteLast Datensatz wird modifiziert strModifyRecord &dBase strdBase &Indexdatei ffnen strOpenIndexFile &Datenbank packen strPackDataBase &Indexwarnung unterbinden strStopIndexWarning &Hilfe f r dieses Buch strHelpForThisBook wechseln zu strMoveTo chster Schl sselwert wird ermittelt strGetNextKey Datensatz wird gel strDelRec Feldwert des Felds wird festgelegt strSetFldValue Feldwert des Felds wird ermittelt strGetFldValue Datensatz wird modifiziert strModRec neuer Datensatz wird geschrieben strWriteRec Datensatzanzahl wird ermittelt strGetRec Datensatznummer wird ermittelt strGetRecNum Dieser Datetnsatz wurde zum L schen markiert. strMarkDelete Alle Datens tze in der Datenbank wurden zum L schen markiert strAllMarked Datensatz konnte nicht als aktuellen Datensatz festgelegt werden. Aktueller Datensatz wird beibehalten. strKeepRecord in der dBase-Datei wird gesucht strNavigate nnen nur sieben Indexdateien gleichzeitig ge ffnet werden. strOnly7 Bitte w hlen Sie die Indexdatei aus, die ge ffnet werden soll. strChooseIndex Indexdatei ffnen strOpenIndex ist bereits ge ffnet strAlreadyOpen Indexdatei kann nicht ge ffnet werden. strCantOpen WARNUNG: ToolBook hat festgestellt, da Ihre dBase-Datei besch digt ist. strCorruptWarn Autor strAuthor Beenden strExit w, #? Fehler beim Zugriff auf die dBase-Datei getDBerrorString Fehler beim strGeneralError entsprechenden Indexdateien zu ffnen, werden die Indexdateien nicht aktualisiert. Warnung: Wenn Sie eine dBase-Datei ndern, ohne zuerst seine strWarning Sie befinden sich bereits im ersten Schl ssel. strFirstKey Sie befinden sich bereits im ersten Datensatz. strFirstRec Sie befinden sich bereits im letzten Schl ssel. strLastKey Sie befinden sich bereits im letzten Datensatz. strLastRec Geben Sie die Nummer des Datensatzes ein, der angezeigt werden soll. strEnterRec Positionieren bei Datensatznummer strPosRec ist keine g ltige Datensatznummer. strNotValidRecNum Geben Sie das Feld an, in dem gesucht werden soll, oder eine Nummer "x" zum Durchsuchen der ersten "x" Felder. strEnterField Geben Sie die Daten ein, nach denen gesucht werden soll. strEnterKey liegt au erhalb des zul ssigen Bereichs. strOutOfRange Selecting ToolBook Fields Export Progress Export dBase Export Paradox B~ v v 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. ed's 30000&Datei Erstellen, ffnen und Verwalten von Dateien. &ffnen... Strg+O &Speichern Strg+S Speichern &unter... saveas &Ausf hren... &Beenden Alt+F4 &Bearbeiten Seiten ndern, Buchgr ndern, zur Autorenebene wechseln. &Ausschneiden Strg+X &Kopieren Strg+C &Einf gen Strg+V paste s&chen Entf clear chste Alt+Nach-Rechts &Vorhergehende Alt+Nach-Links previous &Fenster der Seitengr e anpassen F11 sizetopage A&utor F3 author &Hilfe Hilfe zu &dBase-Austausch F1 DbaseHelp In&fo ber dBase-Austausch... 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 2*@"@"@k Export Paradox 30,34 selectChars strChecked strChecked strChecked strChecked strChecked TypeLabel strChecked Typ:: strChecked strChecked strChecked strChecked strChecked strChecked w, #b .&+ + npnameOnly 9listToolBookFields svLine ToolBook-Datei (*.TBK), *.TBK toolbookfilename toolbookfields OpenFileDlg dbfields svTbName strPLChoosedBook buttonClick buttonClick 4STRING svTbName 4INT svLine !vName OpenFileDlg (strPLChoosedBook(),"", ".", "ToolBook-Datei (*.TBK), *. ", 1) "toolbookfilename" [(nameOnly( listToolBookFields "dbfields" "toolbookfields" <> y-- will be error selectedTextlines enabled ToolBook-Buch f r den Export in eine Paradox-Datei ausw helpText strChecked Buch ausw hlen... ToolBookFileName ToolBook-Buch f r den Export in eine Paradox-Datei festlegen helpText strChecked Build Paradox File Angegebene Datensatzfelder in einer Paradox-Datei speichern helpText strChecked In Paradox-Datei speichern... strChecked ToolBook-Felder ausw hlen: ToolBookFields Datensatzfelder auf dem letzten Hintergrund des ausgew hlten Buchs helpText strChecked Datensatzfeld in Exportliste aufnehmen helpText strChecked Hinzuf gen >> 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 Datensatzfeld aus Exportliste entfernen helpText strChecked Entfernen << Clear .&+ + pPresetDataView 9listToolBookFields svLine toolbookfields dbfields remove resetCharacteristics buttonClick buttonClick 4INT svLine = TRUE enabled FALSE listToolBookFields "dbfields" l = 0 selectedtextlines "toolbookfields" resetCharacteristics resetDataView Alle Elemente aus Exportliste entfernen helpText strChecked schen strChecked Paradox-Felder: strChecked strChecked Type' strChecked strChecked strChecked strChecked viewLabel FALSE disabled strChecked ToolBook-Feldinformationen anzeigen strChecked tbNamelabel l!|!J darkGray strokeGraued FALSE disabled strChecked Name: TBRecordFieldName disabled Name des ToolBook-Datensatzfelds helpText strChecked 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 strChecked dName $)4)J THREE saveTBName Name des Felds in der Paradox-Datei helpText strChecked dType Paradox-Feldtyp f r Datensatzfeld-Daten helpText strChecked "f*r* dWidth Paradox-Feldbreite f r bestimmte Datensatzfeld-Datentypen helpText strChecked strChecked +",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 Feldname in Paradox-Datei helpText strChecked nameLabel FALSE disabled strChecked Name: strChecked widthLabel R3b3J FALSE disabled strChecked Breite: width 44D4.l foo(FALSE) FALSE disabled disabled(FALSE) Breite des ausgew hlten Paradox-Felds helpText strChecked :5b9x +",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 = 8 Charcount ( "TBRecordFieldText") "numeric" "Memo" setCharacteristicsState "dWidth" "dType" B9R9J strChecked Alpha-Numeric >:N:J Feldtyp auf "character" festlegen helpText strChecked Alphanumerisch Feldtyp auf "date" festlegen helpText strChecked Datum 4`;l; Numeric Feldtyp auf "numerisch" festlegen helpText strChecked Numerisch 4,<6< Feldtyp auf "memo" festlegen helpText strChecked Memo strChecked tbTextLabel FALSE disabled strChecked Text: <`>v> TBRecordFieldText disabled Enhalt des ToolBook-Datensatzfelds helpText strChecked changeLabel FALSE disabled strChecked Paradox-Feldeigenschaften nderntics Change dBase Field - Export strChecked Import to Front End dBase FrontEndHelp Paradox FrontendHelp Paradox Field Char - Export Exporting ToolBook to dBase Import to Record Fields Importing dBase to ToolBook Exchange strChecked 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) strChecked obtype strChecked strChecked tabHighlight strChecked tabLabel strChecked obtype strChecked strChecked tabHighlight strChecked tabLabel Intro goPage strChecked Hilfe obtype strChecked strChecked tabHighlight strChecked tabLabel Export Paradox goPage strChecked Paradox exportieren obtype strChecked strChecked tabHighlight strChecked tabLabel Export dBase goPage strChecked dBase exportieren obtype strChecked strChecked tabHighlight strChecked tabLabel Import Paradox goPage strChecked Paradox importieren obtype strChecked strChecked tabHighlight strChecked tabLabel Import dBase goPage strChecked dBase importieren strChecked strChecked highlight strChecked strChecked import author reader import author enterPage notifyAfter notifyBefore strChecked strChecked CopyField emplet for database field helpText strChecked labelField emplet for field label helpText strChecked Label-Feldd import author reader import author enterPage notifyAfter notifyBefore strChecked Cancel Geben Sie den Sortierschl ssel (recordField) an. buttonClick buttonClick sysRuntime ("Geben Sie den Sortierschl ssel ( r<> "Cancel" $4d!J strChecked S&ortieren Search Cancel T"searchString field U"searchString Geben Sie eine Suchzeichenfolge ein s_dbExLastFocus buttonClick buttonClick 4s_dbExLastFocus ("Geben Sie eine Suchzeichenfolge osearchString r<> "Cancel" -- the rest allow -- even though getting thrown around caretLocation = = NULL r& ":" && strChecked &Suchen autoPageNumber enterPage Welcher Datensatz soll angezeigt werden? buttonClick notifyBefore buttonClick ("Welcher Datensatz soll angezeigt werden?" num = isType(INT, \(j(qp autoPageNumber tbk_wid_name tbk_wid_values strChecked AutoButtons import author reader import author enterPage notifyAfter notifyBefore +0+J AutoButtons tbk_wid_name strChecked First &,N,OO "-2-J 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 strChecked &Erster Previous .4.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 strChecked &Vorhergehender (j/t/ 00t0qp 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 strChecked chster (N1X1 2X2qp 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 strChecked &Letzter enterPage reader author Exchange Import dBase 12,16 selectChars strChecked Datensatzfeld strChecked strChecked dBase-Datei f r den Import ausw helpText strChecked dBase-Datei ausw hlen... dBaseFileName Zu importierende dBase-Daten helpText strChecked strChecked strChecked dBase-Felder ausw hlen: DatabaseFields fieldButtons unselectAllFields buttonClick keyUp buttonClick selectedTextlines -- only enable them they are xalready enabled -- buttons grouped simplify B"unselectAllFields" "fieldButtons" FALSE KeySpace gbare Felder zum Importieren helpText strChecked selectallFields databasefields databaseFields buttonClick buttonClick ZLONG i ZSTACK vSelectedLines textlineCount( "databaseFields") selectedTextlines "databasefields" Alle aufgelisteten Felder f r den Import ausw helpText strChecked Alle Felder ausw Richtunge helpText strChecked Daten in einer dBase-Datei k nnen auf zwei Arten ausgetauscht werden: 1. Durch Importieren der dBase-Daten in Daten-satzfelder eines neuen Buchs. 2. Durch direktes Anzeigen und Be-arbeiten der Daten in der ToolBook-Datenbankoberfl fieldButtons strChecked unselectallFields dataBaseFields buttonClick buttonClick selectedTextlines "dataBaseFields" Auswahl aller aufgelisteten Felder f r den Import abbrechen helpText strChecked Auswahl aller Felder abbrechen ImportToFrontEnd Ausgew hlte Felder in ein ToolBook-Front-End importieren helpText strChecked In Datenbank-Oberfl che importieren ImportToRecordFields Ausgew hlte Felder in eine ToolBook-Datenbank importieren helpText strChecked In Datensatzfelder importieren script author reader author enterPage notifyBefore kript fur Datensatzfelder im Front-En helpText strChecked --Benachrichtigungs-Behandlungsroutinen werden hier verwendet, um das Feld zu ndern, --ohne das Skript an anderen Stellen zu ndern. Da der Text eines Datensatzfelds --Teil der jeweiligen Seite (nicht des Datensatzfelds selbst) ist, verwenden --wir W rter 1 bis 3 des eindeutigen Namens (self), um den festzulegenden --bzw. zu ermittelnden Text zu referenzieren. 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 BasefileName System Arial Times New Roman System Arial Arial Arial Arial Arial MS Sans Serif Times New Roman MS Sans Serif System MS Serif strChecked \wfonedex.dbf MS Sans Serif radox\windows\wfonedex.dbf Arial Arial ansferring Data Progress DBEXCHANGE ields page id 21 iting Data to File page "Progress" page id 0 of book "C:\jx\dbexchng\courses.tbk" Datenaustausch 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 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 %-tabNode FALSE J,tabMode enterPage }dBaseHelp goPage tablabel Hilfe tabPressed tabname J,tabMode obtype tabNum buttonClick FALSE etabLimit tabPressed myTabMode Tabulator kann nicht gesetzt werden tabMode tabLimit myTabMode tabMode mytabheight tabHeight myTabHeight tabHeight arrangeTabs myTabSpace tabSpace myTabSpace tabSpace w, #? Tabulatoren sind zul manual FALSE myNumTabs etabLimit arrangeTabs Es mu mindestens ein Tabulator vorhanden sein Maximal 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 entweder "background" oder "book" sein ltige Schichtangabe f r Widget: background, book level prop_level level First ltige Richtung f r Widget: Next,Previous,First,Last chster", "Vorhergehender", "Erster", oder "Letzter" sein disablePage direction direction "Erster" oder "Letzter" sein prop_disablePage First, last ltige disablePage: 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 Daten werden bertragen ToolBook Record set focus to null; select this page; send clear wTinitProgressViewer Progress getDBRecordCount nextDBRecord vCurrentField "FfirstDBRecord send newPage pGstrErrorFirstdBRec getDBfieldvalue currentItem getdbRecordDeleted CstrErrorGetdBValue transferDatabaseData 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 Daten werden bertragen getPXFieldType bfirstPXRecord ToolBook getPXBlob Record set focus to null; select this page; send clear wTinitProgressViewer B F O G Progress DBexchng vCurrentField popenPXBlobRead globalUnlock getPXfieldvalue send newPage currentItem robjekt-Feld wurde ignoriert getPXRecordCount closePXBlob 8nextPXRecord progress transferDatabaseData \Validate aMoveData p]BuildTag CreateFile buttonClick svInvalidCounter closeAllDBfiles strSelTBFields dName Validate Datensatz-Definition wird erstellt createDBFieldTag /setDBFieldTag strTagErr wTinitProgressViewer Field 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 strErrNoDBF saveTBName -strErrSetDBF strTBrecordError svInvalidCounter vToolBookFieldName Record HwriteDBrecord wTinitProgressViewer strErrRefdbField currentItem Progress strErrDBFWrite strNoNameOrType dWidth svTbName hstrTBErrorRef setDBFieldValue dName dType mm/tt/jj Numeric Writing Data to File dateFormat dDecimal MoveData svInvalidCounter qstrExportDone svdbName closeDBfile default stopDB 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/tt/jj isNum Date,8, guessFieldInfo queryPXKey getPXErrorString tb30dos.dll removeExtension getFileList database linkPX - PRIMARY <getPXKeyFieldCount getFileList filePath Paradox FrontEnd keyFields -initializePX OpenFileDlg textLineToList indexArray openPXTable textlineToList GlobalLock GlobalUnlock GlobalFree frontEnd fieldNamesFromHandles chooseIndex kernel keyFieldCount PupdateDisplay tb30DLG.DLL pParadoxfileName getPXFieldNames enterApplication (exitPX leaveApplication author yhelpText statusBar mouseEnter tb30PDX.DLL addPXKey addPXPassword rea-" addPXTable appendPXRecord clonePXBlob closePXBitmapWindow closePXBlob closePXTable copyPXTable createPXTable decryptPXTable deletePXPassword deletePXRecord , T6gL deletePXTable doesPXTableExist , TgL dropPXBlob dropPXKey emptyPXField emptyPXRecord emptyPXTable encryptPXTable exitPX freePXGraphicBlob freePXGraphicBlobPalette firstPXRecord getPXBitmapSize getPXBlob ,%UexAr.% getPXBlobQuick ,"U7gL getPXBlobSize getPXErrorString getPXFieldCount getPXFieldNames getPXFieldType , UOpeng getPXFieldValue getPXFileSize , U U getPXGraphicBlob getPXGraphicBlobPalette getPXKeyFieldCount getPXMaxFiles getPXMaxLocks getPXMaxTables getPXSwapSizeFromINI getPXMaxTablesFromINI getPXMaxFilesFromINI Glo-" getPXMaxLocksFromINI Tobal-" getPXMemoBlob getPXNetErrorUser getPXNetUserName getPXRaw getPXRawDataSize getPXRecordCount getPXRecordNumber , Uarad.% getPXSortOrder Uadoxg getPXSwapSize getPXUserInfo UizePg gotoPXNetRecordLock ,"TgL gotoPXRecord initializePX , Tatab-" insertPXRecord , Tdata-" isPXNetRecordLocked isPXNetTableChanged isPXTableProtected lastPXRecord lockPXNetFile lockPXNetRecord lockPXNetTable ,"TeNam-" mapPXKey ,"UoveE.% nextPXRecord , TgL openPXBitmapWindow openPXBlobRead openPXBlobWrite openPXTable ,"TArra-" packPXTable previousPXRecord , Tatab-" queryPXKey refreshPXNetTable renamePXTable savePX searchPXField searchPXKey setPXBitmapWindowInfo setPXBlob setPXBlobFromFile , Tspla-" setPXFieldValue , Tz? setPXGraphicBlob dat-" setPXGraphicBlobFromFile setPXINIMaxFiles setPXINIMaxLocks ,"ToLis-" setPXINIMaxTables cho-" setPXMemoBlob setPXRaw setPXSortOrder @gL-" setPXINISwapSize ,"Thoos-" setPXTableCreateMode setPXTableMaxSize setPXUserInfo unlockPXNetFile unlockPXNetRecord ,"TgL unlockPXNetTable updatePXRecord upgradePXTable writePXBlobToFile writePXGraphicBlobToFile ,"UoseI.% 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 Bitte schlie en Sie andere Anwendungen, die diese Datenbank verwenden, und packen Sie die Datenbank erneut. database PupdateDisplay default packDatabase Paradox FrontendHelp HelpForThisBook getPXErrorString SUCCESS iemptyPXRecord setPXFieldValue <searchPXField Datensatz nicht gefunden. retVal searchPXKey database Datensatz nicht gefunden, wechselt zum Datensatz, der ihm am n chsten ist. searchTable getPXErrorString first previousPXRecord previous .lastPXRecord bfirstPXRecord isPositiveInteger _2gotoPXRecord database 8nextPXRecord currentRecord false isPositiveInteger nameOnly removeExtension database getPXFieldNames fieldNamesFromhandles KK*DL ,49Y- 0rsh1 @N+-Af w, #> w, "@ getPXErrorString hstrShareError linkPX splash linkdBase s_firstFlag strContinue ZstrExit 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 OpenFileDlg saveAsDlg tb30dlg.dll GlobalAlloc GlobalFree GlobalLock GlobalUnlock TB30DOS.DLL |strNoDll kernel fileExists getFileList TB30DLG.DLL 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 Verkn pfung mit TB30db3.dll konnte nicht hergestellt werden tb30DB3.DLL TB30DB3.DLL linkdBase addPXKey addPXPassword addPXTable appendPXRecord clonePXBlob closePXBitmapWindow closePXBlob ,"TZ@ closePXTable copyPXTable createPXTable decryptPXTable deletePXPassword deletePXRecord deletePXTable doesPXTableExist dropPXBlob dropPXKey ,#T( emptyPXField emptyPXRecord emptyPXTable encryptPXTable exitPX freePXGraphicBlob freePXGraphicBlobPalette firstPXRecord getPXBitmapSize getPXBlob getPXBlobQuick getPXBlobSize getPXErrorString getPXFieldCount getPXFieldNames getPXFieldType getPXFieldValue getPXFileSize , U(H getPXGraphicBlob getPXGraphicBlobPalette ,"U$J getPXKeyFieldCount getPXMaxFiles getPXMaxLocks getPXMaxTables getPXSwapSizeFromINI getPXMaxTablesFromINI getPXMaxFilesFromINI getPXMaxLocksFromINI getPXMemoBlob ,"UlK getPXNetErrorUser getPXNetUserName getPXRaw getPXRawDataSize getPXRecordCount getPXRecordNumber getPXSortOrder getPXSwapSize getPXUserInfo gotoPXNetRecordLock gotoPXRecord initializePX insertPXRecord isPXNetRecordLocked , T," isPXNetTableChanged isPXTableProtected lastPXRecord , Tp# lockPXNetFile lockPXNetRecord , U@$ lockPXNetTable mapPXKey nextPXRecord , Tx& openPXBitmapWindow openPXBlobRead openPXBlobWrite openPXTable packPXTable previousPXRecord , Tx) queryPXKey refreshPXNetTable , T6, renamePXTable savePX searchPXField searchPXKey setPXBitmapWindowInfo setPXBlob setPXBlobFromFile setPXFieldValue setPXGraphicBlob setPXGraphicBlobFromFile setPXINIMaxFiles setPXINIMaxLocks setPXINIMaxTables setPXMemoBlob setPXRaw ,"Tf3 setPXSortOrder setPXINISwapSize setPXTableCreateMode setPXTableMaxSize setPXUserInfo unlockPXNetFile unlockPXNetRecord ,"TF6 unlockPXNetTable updatePXRecord upgradePXTable , T:7 writePXBlobToFile writePXGraphicBlobToFile tb30PDX.DLL linkPX 1, "L ,!J/" ,!J`" ,!J@" FALSE isAlNum 1, "L ,!J@" ,!J`" FALSE isAlpha isNum isPosInt nameOnly Hilfe strHelp dBaseIII (tm) - Paradox (tm) - ToolBook (tm)-Datenaustausch Copyright (c) 1991 - 1994 -- Asymetrix Corporation strAboutDbase Bitte schlie en Sie alle anderen ToolBook-Instanzen. strCloseInstances Diese Anwendung funktioniert nur mit der vollst ndigen Version des ToolBook-Autorensystems. Diese Version wird jetzt geschlossen; bitte starten Sie ToolBook mit MTB30.EXE erneut strRuntime &dBase strdbf Beim Erstellen der dBase-Datei ist ein Fehler aufgetreten: strDBFileCreationError Beim ffnen der dBase-Datei ist ein Fehler aufgetreten: strDBFileOpenError Es ist keine aktuelle dBase-Datei vorhanden. Bitte w hlen Sie eine aus. strErrNoDBF Fehler beim Referenzieren des dBase-Felds: strErrRefdbField Fehler beim Schreiben des dBase-Datensatzes. strErrDBFWrite Fehler beim Festlegen des Werts eines dBase-Felds: strErrSetDBF Fehler beim Erstellen des dBase-Feldkennzeichens. strErrTag Fehler beim Ausf hren von MTB30.exe. FALSE strErrTbkExe Felder mit ltigen Daten. Exportvorgang abgeschlossen. Exportvorgang abgeschlossen: Es waren strExportDone Es wurden noch keine dBase-Felder ausgew strNoDBFFields . Bitte kopieren Sie diese Datei in ein Verzeichnis, das in Ihrem Pfad aufgef hrt ist, oder f gen Sie das Verzeichnis, in dem sich 'befindet, zu Ihrem Pfad hinzu. Nicht gefunden: strNoDLL Bitte w hlen Sie die Toolbook-Felder f r den Export aus. strSelTBFields Bitte geben Sie einen dBase-Dateinamen ein. strSetDBName Fehler beim Festlegen des Feldkennzeichens f r das Feld strTagErr Fehler beim Referenzieren des Buchs: strTBErrorRef Fehler beim Referenzieren des Datensatzfelds: strTBrecordError Bitte geben Sie einen g ltigen dBase-Dateinamen ein. strEnterDBfile Die Datei kann nicht ge ffnet werden. Bitte geben Sie einen g ltigen dBase-Dateinamen ein. strNoOpenDBfile r eines der Felder ist kein Name oder kein Typ vorhanden. Bitte legen Sie diese Werte fest. strNoNameOrType Bitte w hlen Sie einen dBase-Dateinamen aus. strSeldBFileName Fehler beim Auflisten der Felder f r diese dBase-Datei. strErrListdBFile Bitte w hlen Sie einen ToolBook-Dateinamen aus. strSelTBKFileName Auf der letzten Seite dieser ToolBook-Datei wurden keine benannten, nicht gruppierten Datensatzfelder gefunden. strNoNameRecFfl In diesem Buch sind zwei oder mehrere Datensatzfelder mit demselben Namen vorhanden. Bitte weisen Sie allen Datensatzfeldern eindeutige Namen zu. strTwoShareName Diese dBase-Datei enth lt keine Datens strNoRecIndBase Fehler beim Abrufen des ersten Datensatzes in dieser dBase-Datei. strErrorFirstdBRec In Datensatznummer Fehler beim Abrufen des Werts des Felds strErrorGetdBValue In Datensatznummer Fehler beim Festlegen des Werts von Datensatzfeld strErrSetdBValue Sie importieren mehr Felder als auf der Seite angezeigt werden k nnen. Sie werden die Felder organisieren, nachdem das Buch erstellt ist. strToManyFlds strOK Abbrechen strCancel Bitte w hlen Sie das zu exportierende Buch aus. strPlChooseBook Buch ausw strChooseBook Bitte w hlen Sie die zu importierende dBase-Datei aus. strPlChooseDbase dBase-Datei ausw strChoosedBase .dbf-Datei wurde berschritten. Die maximale Dateigr e einer strFieldOverrun Dezimale Genauigkeit mu entweder Null oder zwei Stellen weniger als die Feldbreite haben. strPrecisionError Geben Sie das ToolBook-Datumsformat des Datensatzfeldtexts ein strAskDateFormat Dateiname existiert bereits. Ersetzen? strdBnameExist dBase-Datei speichern unter: strSavedBaseFile Paradox-Datei speichern unter: strSavePXFile Die Zeichenbreite mu zwischen 1 und 255 liegen. strCharWidth Numerische Breite mu zwischen 1 und 19 liegen. strNumWidth Die Breite kann nicht leer sein. strWidthNull Dezimal kann nicht leer sein. strDecimalNull Dezimal kann nicht gr er als 15 sein. strDecimal15 Ein dBase-Feldname darf maximal 10 Zeichen enthalten. strNameToLarge Ein dBase-Feld mu einen Namen haben. strNameNull Ein dBase-Feldname darf nicht mit einer Zahl beginnen. strChar1Num Diese Seite des Buchs ist nicht funktionsf hig, sondern dient nur zum Einrichten der Benutzeroberfl strNotPage strYes keine Label-Felder mit einbeziehen. Wollen Sie die Label-Felder bergehen? Sie k nnen die neue Anwendung mit Feldern erstellen, wenn Sie strTooTooManyFields Bitte versuchen Sie es erneut mit weniger Feldern. Die Anzahl der ausgew hlten Felder ist zu gro r diese Anwendung. strWayTooManyFields Keine Label-Felder strNoLabels strNo Anwendung f r dBase einsetzen, oder Sie k nnen jetzt diese Die Verwendung der Paradox-Elemente dieser Anwendung "share" eingeben, und dann Windows und DBEXCHNG.TBK erneut starten Paradox erfordert SHARE, um richtig funktionieren zu k nnen. Anwendung und Windows beenden, an der DOS-Eingabeaufforderung ohne SHARE wird Fehler verursachen. Sie k nnen diese strShareError Fortfahren strContinue Beenden strExit FrontEnd DBExchange frontEnd PXFrontEnd RecordCounter totalItems RecordCounter vProgress percentage currentItem ,!JdY currentPercent currentBar fullBar percentage RecordCounter ItemType RecordCounter totalItems RecordCounter currentItem currentPercent percentage dataBaseFields 06cleanUp enterPage svdbName closeDBFile dataBaseFields 06cleanUp leavePage previous button "selectAllFields", button "unselectAllFields", field "DBaseFileName", field "dataBaseFields" button "ImportToRecordFields", button "ImportToFrontEnd" cleanUP 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 +",H4 +",H4 Z&strPrecisionError dDecimal svLine dbFields 0123456789 width strDecimal15 keyChar {strDecimalNull Z&strPrecisionError width strDecimal15 leaveField +",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 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 .&+ +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 .&+ +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 w, /> +",H3 1, "Q +",H4 +",H4 +",H4 TBRecordFieldtext DateFormat dDecimal TBRecordFieldText vDecimal DateFormat vWidth svLine character dWidth setCharacteristicsState numeric dType logical svChecked buttonClick w, #? disablePage level page of this enterPage w, #? go to level page of this buttonClick prop_level entweder "background" oder "book" sein ltige Schichtangabe f r Widget: background, book level prop_level level First ltige Richtung f r Widget: Next,Previous,First,Last chster", "Vorhergehender", "Erster", oder "Letzter" sein disablePage direction direction "Erster" oder "Letzter" sein prop_disablePage invalid disablePage: First, last disablePage prop_disablePage disablePage w, #? disablePage level page of this enterPage w, #? go to level page of this buttonClick prop_level entweder "background" oder "book" sein invalid level for widget: background, book level prop_level level First ltige Richtung f r Widget: Next,Previous,First,Last chster", "Vorhergehender", "Erster", oder "Letzter" sein disablePage direction direction "Erster" oder "Letzter" sein prop_disablePage invalid disablePage: First, last disablePage prop_disablePage disablePage w, #? disablePage level page of this enterPage w, #? go to level page of this buttonClick prop_level entweder "background" oder "book" sein invalid level for widget: background, book level prop_level level First ltige Richtung f r Widget: Next,Previous,First,Last chster", "Vorhergehender", "Erster", oder "Letzter" sein disablePage direction direction "Erster" oder "Letzter" sein prop_disablePage First, last ltige disablePage: disablePage prop_disablePage disablePage getPXErrorString npnameOnly selectAllFields closePXTable Paradox-Datenbank (*.db), *.db listDatabaseFields OpenFileDlg DBexchng openPXTable svdbName Paradoxfilename hlen Sie eine Paradox-Datenbank f r den Import aus. DatabaseFields buttonClick .&+ +E .&+ +E strSeldBFileName buildParadoxFieldList svdbName Paradoxfilename Fehlerpr fung f r Feldnamen in Paradox-Datei databasefields listDatabaseFields DBEXCHNG getPXFieldNames buildParadoxFieldList 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/tt/jj isNum Date,, guessFieldInfo xstrCantOpendBaseFile linkdBase tb30dlg.dll Frontend openFileDlg =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 Indexausdruck wird gelesen 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 Es sind keine Indexdateien ge ffnet sortCheck Es ist momentan keine Indexdatei ausgew vIndexFile 1deselectDBIndexFile vIndexFiles closeDBIndexFile @noIndex closeIndexFile chooseIndex sortCheck enableFields FALSE sortExpressionLabel currentKeyValue findKey sortbylabel SortExpression enableComboboxes currentKeyValueLabel vFieldList noIndex closeAllDBFiles exitDB w, #? chooseIndex npnameOnly lstrOnly7 enableFields Indexdatei (*.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 if s_dbExLastFocus <> focus hlen Sie einen Namen f r das neue Buch aus 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 FALSE CopyField Previous wTinitProgressViewer currentItem Progress autoPageNumber ;lstrToManyFlds Datenbankfelder werden erstellt 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 -- 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 --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 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 ) - ( 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 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 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) 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; buttonClick 4INT svLine 4svChecked keeps me having figure out what there no change vDecimal = " " "TBRecordFieldtext" vWidth = 8 Charcount ( "TBRecordFieldText") "numeric" "Memo" "logical" DateFormat setCharacteristicsState "dWidth" "dDecimal" "dType" notifyBefore otabMode(FALSE) otabNode( -- This message sent clicked changed Hsetting Put code handler, -- on tabPressed tabNum --special help B"tablabel" "Hilfe" 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() "Tabulator kann nicht gesetzt werden" && v = -- 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. n = 1 sysPageUnitsPerPixel * n ypix n n = 1 Uel * n -- returns currently selected -- sets up height units. tabHeight mytabheight handled myTabHeight tabSpace myTabSpace arrangeTabs numTabs sls = = TRUE valid parameter "Es mu mindestens ein vorhanden sein" "Maximal " && && "Tabulatoren sind zul ssig" -- cache {reference optimization. 9"&i) i <= -- hidden %they've xbeen -- receiving them # are "manual" myNumTabs '= sls mynumtabs resized Notice -- methodSent: used differentiate =messages ToolBook explicitly ssm = 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 -- )least 6 wide 4doing m"tabHighlight" B"tabLabel" t () -- only editor. -- rectangular -- body b = = ssm -- -- following condition triggered %a whole -- -- -- , even though their sizes So we must -- can themselves. -- -- xarranged -- ref = 9"&i) -- don't bother arranging -- mynumTabs = ssm = sls -- assures aligned spaced evenly. suspendmessages syssuspendmessages = anchor = "tab1" ts = mytabspace bp = where order xpos = bp - b(ts,0) through remaining place -- 9"&i) -- -- now tbit masking others. bchecks x(e.g., just moved tname = " v = above = ssm notifyBefore odisablePage && " " && olevel) oenabled FALSE buttonClick " && p&& " " && value oprop_level ltige Schichtangabe f r Widget:" && ] & CRLF & \ "mu entweder "" /"" oder "" 8"" sein" direction "Next,Previous,First,Last" Richtung f "mu chster"", ""Vorhergehender"", ""Erster"", Letzter"" oprop_disablePage "invalid :" && & CLRF & \ "mu notifyBefore odisablePage && " " && olevel) oenabled FALSE buttonClick " && value oprop_level "invalid widget:" && I &CRLF&\ "mu entweder "" /"" oder "" 8"" sein" direction "Next,Previous,First,Last" ltige Richtung f r Widget:" && "mu chster"", ""Vorhergehender"", ""Erster"", Letzter"" oprop_disablePage :" && & CLRF & \ "mu notifyBefore odisablePage && " " && olevel) oenabled FALSE buttonClick " && value oprop_level "invalid widget:"&& G &CRLF&\ "mu entweder "" /"" oder "" 8"" sein" direction "Next,Previous,First,Last" ltige Richtung f r Widget:" && "mu chster"", ""Vorhergehender"", ""Erster"", Letzter"" oprop_disablePage :" && & CLRF & \ "mu notifyBefore odisablePage && " " && olevel) oenabled FALSE buttonClick " && value oprop_level ltige Schichtangabe f r Widget:"&& [ &CRLF&\ "mu entweder "" /"" oder "" 8"" sein" direction "Next,Previous,First,Last" Richtung f "mu chster"", ""Vorhergehender"", ""Erster"", Letzter"" oprop_disablePage :" && & CLRF & \ "mu 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 B = selectedTextLines zlead firstDBRecord() = -10 strNoRecInPX() strErrorFirstdBRec() initProgressViewer "Daten werden bertragen", 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 buttonClick 4STRING svdbName vName OpenFileDlg ("W hlen Sie eine Paradox-Datenbank f r den Import aus.","", ".", " 0(*.db), *.db", 1) closePXTable("DBexchng") openPXTable(" , 0, 0) getPXErrorString( "Paradoxfilename" nameOnly( listDatabaseFields " selectedTextLines enabled B"selectAllFields" --builds displays a names fieldName vdbFieldList strSeldBFileName() the P = buildParadoxFieldList() no fields found, error "Fehlerpr fung f r Feldnamen "databasefields" a given vPXFieldList = getPXFieldNames("DBEXCHNG") ~(",", ~(",", 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 B = selectedTextLines zlead firstPXRecord("DBexchng") getPXErrorString( initProgressViewer "Daten werden bertragen", 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(" = "Bin robjekt-Feld wurde ignoriert" -- nextPXRecord(" --Kill since has no recordFields 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 "Datensatz-Definition wird erstellt", 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/tt/jj" -- 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 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/tt/jj" "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 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 "Datensatz-Definition wird erstellt", --loop thru PX fields setting their tags currentItem + 1) - i vfieldList "dWidth" = "Alpha-Numeric" "A" & vfieldType = "Memo" "M" & close = nameOnly(svTbName) ~(".", (strSavePXFile() r= strOK() ~(".", "Erweiterung auf "".db"" festgelegt" 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) werden Datei geschrieben", 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) 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/tt/jj" "Date,, " numeric "Numeric,," memo, more than 32 ^length > 255 A10, " -- default "Alpha- &", " 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( ,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( WORD 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, "Indexausdruck wird gelesen" 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" "Es sind keine Indexdateien ge ffnet" "Es ist momentan D ausgew 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(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 --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("W hlen Sie einen Namen f r das neue Buch aus", g"), ".", "ToolBook (*. ), *. )", 1) -- Save L.ini, finstance -- will be blank, sysToolBookDirectory & "mtb30.exe" minimized -- Modified HHirokaM. 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 "Datenbankfelder werden erstellt", "Feld" --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, 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 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) 0 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 fffo~ --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" <> " <> --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" <> --Dummy handlers intercepting cmessages xon Front End OpenIndexFile StopIndexWarning PackDatabase HelpForThisBook --Functions strings easy Internationalization strCantOpenDbaseFile fFileName "dBase-Datei kann nicht ge ffnet werden" && 8 & "." strNoRecords "Diese Nenth lt keine Datens tze. Bitte klicken Sie auf Neuer Datensatz, um 5 einzugeben." strNoDLL "tb30db3.dll funden. bopieren ^diese Verzeichnis, das Ihrem Pfad " && \ "aufgef hrt ist, oder f H mit Ahinzu" && \ ffnen fBuch erneut." strInvalidRecord legen Dateiposition einen g ltigen fest. ssen sich einem befinden, um diesen l schen zu k nnen." strDeleteQuery "Sind sicher, da Owollen?" strOK strCancel "Abbrechen" strDeleteLast haben soeben letzten dieser scht." && \ " Ein neuer, leerer wird erstellt." strModifyRecord -modifiziert" strdBase strOpenIndexFile "&Indexdatei strPackDataBase "&Datenbank packen" strStopIndexWarning "&Indexwarnung unterbinden" strHelpForThisBook "&Hilfe f r dieses strMoveTo "wechseln zu" strGetNextKey chster Schl sselwert mittelt" strDelRec strSetFldValue "Feldwert des Felds festgelegt" strGetFldValue strModRec strWriteRec geschrieben" strGetRec "Datensatzanzahl strGetRecNum "Datensatznummer strMarkDelete "Dieser Datetnsatz wurde zum L markiert." strAllMarked "Alle wurden strKeepRecord value konnte " && && "als aktuellen . Aktueller beibehalten." strNavigate gesucht" strOnly7 "Es k nur sieben Indexdateien gleichzeitig ge strChooseIndex hlen aus, soll." strAlreadyOpen "ist bereits ge vName " && && " strCorruptWarn "WARNUNG: ToolBook hat festgestellt, da besch digt strAuthor "Autor" strExit "Beenden" strGeneralError fErrorValue, fErrorText temp = "Fehler beim Zugriff ? <> NULL ":" && getDBerrorString( g <> CRLF & " g" && & "." strWarning "Warnung: Wenn ndern, ohne zuerst seine " && \ "entsprechenden aktualisiert." strFirstKey im ersten strFirstRec strLastKey strLastRec strEnterRec "Geben Nummer Datensatzes ein, angezeigt strPosRec "Positionieren bei strNotValidRecNum strEnterField ""x"" Durchsuchen ""x"" Felder." strEnterKey nach denen strOutOfRange "liegt au erhalb ssigen Bereichs." 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( ,INT) textLineToList( linkDLL iry & "tb30dos.dll" getFileList( 5"kernel" POINTER GlobalLock(WORD) 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( oINT,DWORD, --PXBlobGet() <lobQuick( --PXBlobQuickGet() ilobSize( --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 & \ "Bitte schlie en Sie andere Anwendungen, die diese Datenbank verwenden, und packen !erneut." <> -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 W "SUCCESS" must be a = NULL searchKey? Uses isType(REAL, -- ) -- [buffer < 0 -- xfound "Datensatz nicht gefunden, wechselt zum $, der ihm am n chsten ist." \!actual navigation s!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&"," 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( ) & CRLF & strShareError() \ fstrContinue() strExit() \ -- 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( "Verkn pfung mit TB30db3. konnte nicht hergestellt werden" 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() 2 PXRaw( --PXRawGet() getPXRawDataSize( o PXRecordCount( --PXTblNRecs() 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 $ ANSI each -- See C-4 (appendix C) Manual. <= 47) >= 91 <= 96) >= 58 <= 64) <= 64) >= 91 <= 96) > 127) -- Instead replacing :! call V"1.5 been rewritten q3.0 functionality. isType(REAL, --boolean J >= 0) just a fully qualified path fFile vOffset ~("\", ~("\", strHelp "Hilfe" -- debug: better "dBaseIII (tm) - #(tm) - #(tm)-Datenaustausch" & #(c) 1991 - 1994 -- strCloseInstances "Bitte schlie en Sie alle anderen g$-Instanzen." !following Uwas modified HHirokaM. "Diese Anwendung funktioniert nur r vollst ndigen Version des $-Autorensystems. wird jetzt geschlossen; bitte starten MTB30. erneut" strdbf strDBFileCreationError fName "Beim Erstellen der %-Datei ist ein Fehler aufgetreten:" && strDBFileOpenError ffnen strErrNoDBF {keine aktuelle vorhanden. hlen +us." strErrRefdbField fField beim Referenzieren &-Felds: strErrDBFWrite CSchreiben &-Datensatzes." strErrSetDBF Festlegen Werts eines " & strErrTag h'-Feldkennzeichens." strErrTbkExe hren von exe." -- Modified strExportDone errCount "Exportvorgang abgeschlossen." : Es waren" && N && "Felder " && \ ltigen strNoDBFFields "Es wurden noch causgew hlt." "Nicht gefunden:" && & ". kopieren diese Verzeichnis, das Ihrem Pfad aufgef hrt ist, oder f dem sich"&&fname&"'befindet, zu Nhinzu." strSelTBFields G& aus." strSetDBName geben einen )-Dateinamen strTagErr " && & "." strTBErrorRef Buchs: strTBrecordError Datensatzfelds:" && strEnterDBfile strNoOpenDBfile "Die kann ffnet ein." strNoNameOrType Werte fest." strSeldBFileName strErrListdBFile Auflisten strSelTBKFileName strNoNameRecFfl letzten Seite dieser benannten, gruppierten Datensatzfelder strTwoShareName "In diesem sind zwei mehrere demselben Namen weisen n Datensatzfeldern eindeutige 1zu." strNoRecIndBase tze." strErrorFirstdBRec Abrufen ersten strErrorGetdBValue curFld, totrecs " && \ , && "In Datensatznummer" && B & "." strErrSetdBValue curfld, " && \ ) && "In & "." strToManyFlds importieren als auf angezeigt nnen." && \ die organisieren, nachdem erstellt ist." strOK strCancel "Abbrechen" strPlChooseBook zu exportierende strChooseBook ausw strPlChooseDbase zu importierende strChoosedBase strFieldOverrun fType maximale Dateigr e einer " & , && ".dbf- berschritten." strPrecisionError "Dezimale Genauigkeit mu entweder Null Stellen weniger Feldbreite haben." strAskDateFormat fldName "Geben \1-Datumsformat Datensatzfeldtexts " && \ G & "." strdBnameExist dbName " && && "existiert bereits. Ersetzen?" strSavedBaseFile speichern unter:" strSavePXFile strCharWidth Zeichenbreite mu zwischen 1 und 255 liegen." strNumWidth "Numerische Breite mu strWidthNull 2"leer sein." strDecimalNull strDecimal15 strNameToLarge "Ein 3-Feldname darf enthalten." strNameNull strChar1Num Zahl beginnen." strNotPage {#funktionsf hig, sondern dient zum Einrichten Benutzeroberfl che." strYes strTooTooManyFields num neue 0$" && " && "Feldern erstellen, wenn && " Label- q$einbeziehen. Wollen bergehen?" strWayTooManyFields Anzahl hlten zu gro versuchen strNoLabels "Keine "Nein" 6erfordert 0, um richtig funktionieren zu k Verwendung e6-Elemente "ohne verursachen. " && \ 6einsetzen, Windows beenden, DOS-Eingabeaufforderung" """share"" eingeben, dann DBEXCHNG.TBK "Fortfahren" "Beenden" Paradox Field Char - Export strChecked Die Steuerelemente im Abschnitt "Paradox-Feldeigenschaften ndern" entsprechen dem gegenw rtig ausgew hlten Feld im Listenfeld "Paradox-Felder". Ist kein Paradox-Feld ausgew hlt, stehen die Steuerelemente nicht zur Verf gung. Name: Ein Paradox-Feldname darf bis zu 25 Zeichen enthalten. Das erste Zeichen darf keine Zahl sein. Die zul ssigen Zeichen sind: A...Z _ 0 1 2 3 4 5 6 7 8 9 Typ: Der Paradox-Datentyp. Klicken Sie auf eines der vier Optionsfelder, um den Datentyp zu ndern. Breite: Die Anzahl der Zeichen im Paradox-Feld. Die maximale Breite f r Felder des Typs "Alphanumerisch" ist 255 und f r Felder des Typs "Memo" 240. Die Breite des Memo-Felds ist nicht mit der Gr e des Memo-Felds verbunden. Die Breite gibt nur an, wie viele Memo-Informationen in der Tabelle gespeichert werden. Das vollst ndige Memo wird au erhalb der Tabelle gespeichert; Paradox erstellt einen Zeiger auf das Memo, der in der Tabelle gespeichert wird. F r andere Datentypen ist die Breite vordefiniert und kann nicht ge ndert werden. Wenn Ihr Buch viele Datensatzfelder mit Datumsangaben, die ToolBook nicht als Datumsangaben erkennt, ndern Sie sysDateFormat auf das in den Datensatzfeldern enthaltenen Datumsformat. Paradox-Feldeigenschaften nderntics 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 A*-}A Export dBase $t&x'T.&1 14,23 selectChars strChecked strChecked strChecked strChecked strChecked TypeLabel strChecked Typ:: strChecked strChecked strChecked strChecked strChecked strChecked w, #b .&+ + npnameOnly 9listToolBookFields svLine ToolBook-Datei (*.TBK), *.TBK toolbookfilename toolbookfields OpenFileDlg dbfields svTbName strPLChoosedBook buttonClick buttonClick 4STRING svTbName 4INT svLine !vName OpenFileDlg (strPLChoosedBook(),"", ".", "ToolBook-Datei (*.TBK), *. ", 1) "toolbookfilename" [(nameOnly( listToolBookFields "dbfields" "toolbookfields" <> y-- will be error selectedTextlines enabled ToolBook-Buch zum Exportieren in eine dBase-Datei ausw helpText strChecked Buch ausw hlen... ToolBookFileName ToolBook-Buch f r den Export in eine dBase-Datei ausw helpText strChecked Build dBase File Angegebene Datensatzfelder in einer dBase-Datei speichern helpText strChecked In dBase-Datei speichern... strChecked ToolBook-Felder ausw hlen: ToolBookFields buttonClick buttonClick selectedTextlines Datensatzfelder auf dem letzten Hintergrund des ausgew hlten Buchs helpText strChecked add_remove strChecked Datensatzfelder in Exportliste aufnehmen helpText strChecked Hinzuf gen >> remove Datensatzfeld aus Exportliste entfernen helpText strChecked Entfernen << 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 Exportliste l schen helpText strChecked schen strChecked dBase-Felder: strChecked Name- strChecked strChecked strChecked 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 strChecked dName THREE VLOCALNUM VEXTENSION BILLINGCD NOTES saveTBName Name f r das Feld in der dBase-Datei helpText strChecked dType dBase-Feldtyp f r Datensatzfeld-Datei helpText strChecked dWidth dBase-Feldbreite f r Datensatzfeld-Datei helpText strChecked dDecimal Anzahl der Dezimalstellen, falls das Feld numerisch ist helpText strChecked <%L%J strChecked strChecked T&d&J strChecked viewLabel FALSE disabled strChecked ToolBook-Feldinformationen anzeigen strChecked +",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() b-r-J FALSE disabled FALSE -d in dBase file helpText strChecked nameLabel FALSE disabled strChecked Name: strChecked T.(/8/ widthLabel FALSE disabled strChecked Breite: width `0p0.l foo(FALSE) FALSE disabled disabled(FALSE) Breite des ausgew hlten dBase-Felds helpText strChecked strChecked Character Feldtyp auf "character" festlegen helpText strChecked Zeichen P3`3J Feldtyp auf "date" festlegen helpText strChecked Datum Logical Feldtyp auf "logisch" festlegen helpText strChecked Logisch &1n4x4 Feldtyp auf "memo" festlegen helpText strChecked &1.5:5 Numeric Feldtyp auf "numeric" festlegen helpText strChecked Numerisch 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 Legt das Datumsformat der dBase-Datei fest helpText strChecked Datumsformat... $949J strChecked tbNamelabel darkGray strokeGraued FALSE disabled strChecked Name: TBRecordFieldName $;4;J disabled Name des ToolBook-Datensatzfelds helpText strChecked strChecked L; <0< tbTextLabel FALSE disabled strChecked Text: TBRecordFieldText disabled Inhalt des ToolBook-Datensatzfelds helpText strChecked strChecked DecimalLabel FALSE disabled strChecked Dezimal:O? =R?^? Decimal R@b@J foo(FALSE) FALSE disabled disabled(FALSE) Dezimale Genauigkeit des ausgew hlten dBase-Felds helpText strChecked changeLabel FALSE disabled strChecked dBase-Feldeigenschaften ndernticsoA FALSE -*-se feld Name des dBase-feld 
(.txt)