|
|
Post by (X) on Mar 30, 2024 18:23:58 GMT 1
This code seems to make or create database files for use in other database demonstration code.
I assume "MkDBF" stands for: "Make DataBase Files"
//
// Dieses Programm erstellt die für die exxx-Beispiele vorgesehenen Dateien:
// This program creates the files intended for the exxx examples:
//
// MkDBF.g32
//
Local dbf$, fi$, tag$, reccount%, fcount%, i%, j%, a$
Local Data4 db
ChDir App.Path
Code4Init
Code4.Safety = 0
Do
Try
Read dbf, fi, tag, reccount, fcount
Trace dbf
Catch
dbf = ""
EndCatch
Exit If dbf = ""
Try
Tron Trace_ON
Print dbf; reccount; fcount, fi, tag
Set db = Code4.Create(dbf, fi, tag)
For i = 1 To reccount
db.AppendStart 1
db.Blank
For j = 1 To fcount
Read a
db.FieldJ(j).Str = a
Next j
If dbf$ == "DBF" And i == 1 Then db.Delete
db.Append
'If dbf$ == "DBF" And i == 1 Then db.Delete
db.GoEof
Next i
db.Close
Catch
If !IsNothing(db) db.Close
Troff
Trace Err$
EndCatch
Loop
Trace "After Loop Code..."
Local Index4 i4
//
// Zwei DBFs bekommen Extra CDX
// Two DBFs get Extra CDX
// INFO-DBF --> INFO2.CDX
//
Set db = Code4.Open("info")
Set i4 = db.i4create("info2", "NAME_TAG,NAME")
db.Close
//STUDENT.DBF --> STUDENT2.CDX
Set db = Code4.Open("Student")
Set i4 = db.i4create("STUDENT2", "STUDENT2,L_NAME")
db.Close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' End of program
'
End
//Diese Data Zeilen legen die zu erzeugenden Datenbanken sowie die betreffenden
//Daten fest.
//Aufbau der Data
//Data Name der Datenbank
//Data "FieldInfo" //enthält "," deshalb in "
//Data "TagInfo" //Dito, gibt es kein Index File so steht ein leeres Data
//Data recCount,nFields //Hier stehen die Anzahl der Datensätze und die Anzahl der Fields
// //recCount gibt an wieviele Datensätze die Datei enthalten soll,
// //nFields gibt an, wieviele Fields ein Datensatz enthält. (Diese
// //Angabe könnte man auch aus der Anzahl der ; in FieldInfo
// //bestimmen, aber so geht das einfacher.
//Data f1,f2... //Zuletzt folgen recCount Zeilen mit je nFields DatenStrings
// //Die Daten werden einfach mit Read gelesen, und dann mit
// //db.FieldJ(j).Str = geschrieben.
Data BANK
Data "ACCT_NO,N5;BALANCE,N8,2"
Data "ACCT_TAG,ACCT_NO;BAL_TAG,BALANCE"
Data 2,2
Data 12345," 600.00"
Data 55555," 300.00"
Data BUILDING
Data "BUILD_NO,N10"
Data "BUILD_NO,build_no"
Data 3,1
Data " 6"
Data " 4"
Data " 2"
Data CLASSES
Data "CODE,C8;TITLE,C30;TIME,C8;MAX_ATTEND,N3"
Data "CODE_TAG,CODE"
Data 11,4
Data CMPT401,"Software Engineering","08:00:00",150
Data CMPT389,"Intro to Database Management","09:00:00",200
Data CMPT272,"Programming Concepts","15:00:00",030
Data CMPT411,"Computer Graphics","16:00:00",045
Data MATH114,"Intro to Calculus I","10:00:00",200
Data ECON101,"Intro to Micro Economics","12:00:00",150
Data MATH521,"Intro to Chaos","09:00:00",015
Data MATH115,"Intro to Calculus II","14:00:00",200
Data ECON102,"Intro to Macro Economics","13:00:00",100
Data MATH221,"Intro to Linear Algebra","11:00:00",200
Data CMPT201,"Computer Languages I","10:00:00",300
Data DATA
Data "FNAME,C17;LNAME,C17"
Data "LNAME_TAG,LNAME"
Data 5,2
Data Fred,Jones
Data Mary,Borgerson
Data Larry,Smith
Data Sara,Abbott
Data Fred,Jones
Data DATA1
Data "F_NAME,C10;L_NAME,C10;ADDRESS,C15;AGE,N2;BIRTH_DATE,D8;MARRIED,L1;AMOUNT,N7,2;COMMENT,M10"
Data "AGE_TAG,AGE,AGE > 40;AMT_TAG,AMOUNT,AMOUNT > 100,-;DATE_TAG,BIRTH_DATE;NAME_TAG,F_NAME + L_NAME,.NOT. DELETED(),C"
Data 2,8
Data Sarah,Webber,"132-32 St.",32,19610523,T,147.99,"New Customer"
Data John,Albridge,"1232-76 Ave.",55,19381212,F,98.99,
Data DATA2
Data "NAME,C20"
Data
Data 4,1
Data frank
Data minny
Data "New field value"
Data JAMES
Data DATA3
Data "NAME,C20;COMMENTS,M10"
Data
Data 3,2
Data lucy,"Good worker"
Data mortimer,"Needs motivation"
Data george,"Get rid of him soon"
Data DATEFILE
Data "DATE,D8"
Data
Data 2,1
Data 19950531
Data 19950531
Data DBF
Data "NAME,C10"
Data "NAME_TAG,NAME,.NOT.DELETED()"
Data 7,1
Data jane //Dieser Datensatz wird sogleich gelöscht
Data joy
Data mark
Data keith
Data lesley
Data ned
Data vinny
Data DB_NAME
Data "FIELD_NAME,C10;VALUE,N7,2"
Data
Data 0,2
Data EMPLOYEE
Data "OFFICE_NO,N10"
Data "OFFICE_NO,office_no"
Data 3,1
Data " 10"
Data " 23"
Data " 1"
Data ENROLL
Data "STU_ID_TAG,N6;C_CODE_TAG,C8;MARK,N6,2"
Data "C_CODE_TAG,C_CODE_TAG;MARK,MARK;STU_ID_TAG,STU_ID_TAG"
Data 51,3
Data 654321,CMPT401," 0.00"
Data 654321,CMPT389," 0.00"
Data 654321,MATH521," 0.00"
Data 654321,MATH221," 0.00"
Data 654321,ECON101," 0.00"
Data 123345,CMPT389," 0.00"
Data 123345,ECON102," 0.00"
Data 123345,MATH115," 0.00"
Data 873454,CMPT401," 0.00"
Data 873454,CMPT389," 0.00"
Data 873454,CMPT272," 0.00"
Data 873454,CMPT411," 0.00"
Data 873454,MATH521," 0.00"
Data 423232,MATH114," 0.00"
Data 423232,MATH221," 0.00"
Data 423232,ECON101," 0.00"
Data 423232,CMPT201," 0.00"
Data 463722,CMPT401," 0.00"
Data 463722,CMPT389," 0.00"
Data 463722,CMPT411," 0.00"
Data 463722,MATH521," 0.00"
Data 463722,ECON102," 0.00"
Data 234533,ECON101," 0.00"
Data 234533,MATH521," 0.00"
Data 234533,MATH115," 0.00"
Data 234533,MATH221," 0.00"
Data 234533,CMPT201," 0.00"
Data 534455,CMPT401," 0.00"
Data 534455,CMPT389," 0.00"
Data 534455,CMPT272," 0.00"
Data 534455,MATH521," 0.00"
Data 534455,MATH115," 0.00"
Data 835543,MATH114," 0.00"
Data 835543,MATH221," 0.00"
Data 835543,ECON101," 0.00"
Data 835543,CMPT201," 0.00"
Data 153543,CMPT401," 0.00"
Data 153543,CMPT389," 0.00"
Data 153543,CMPT411," 0.00"
Data 153543,MATH521," 0.00"
Data 153543,ECON102," 0.00"
Data 858343,CMPT401," 0.00"
Data 858343,CMPT389," 0.00"
Data 858343,CMPT411," 0.00"
Data 858343,MATH521," 0.00"
Data 858343,ECON102," 0.00"
Data 157932,CMPT401," 0.00"
Data 157932,CMPT389," 0.00"
Data 157932,CMPT411," 0.00"
Data 157932,MATH521," 0.00"
Data 157932,ECON102," 0.00"
Data FROM_DBF
Data "INFO,C10"
Data
Data 7,1
Data Engine
Data Window
Data "Door Panel"
Data Muffler
Data "Gas Tank"
Data Fender
Data Tire
Data INFO
Data "NAME,C20;AGE,N3;BIRTH_DATE,D8"
Data "AGE_TAG,AGE;BIRTH_TAG,BIRTH_DATE;NAME_TAG,NAME,,C"
Data 17,3
Data Jones," 49",19950612
Data Borgerson," 21",19950612
Data Smith," 23",19950612
Data Abbott," 25",19950612
Data Fred," 27",19950612
Data Ginger," 29",19950612
Data Fred," 31",19950612
Data Fred," 33",19950612
Data Fred," 35",19950612
Data Fred," 37",19950612
Data Fred," 39",19950612
Data Fred," 41",19950612
Data Fred," 43",19950612
Data Fred," 45",19950612
Data Fred," 47",19950612
Data Fred," 49",19950612
Data Fred," 51",19950612
Data INFO1
Data "NAME,C20;AGE,N3;BIRTHDATE,D8"
Data "NAME_TAG,NAME"
Data 2,3
Data jackie,99,19000811
Data jackie,99,19000811
Data INVENT
Data "MIN_ON_HND,N4;ON_HAND,N4;ITEM,C20"
Data
Data 4,3
Data " 10"," 15",widget
Data " 12"," 10",gadget
Data " 5"," 5",hammer
Data " 8"," 3",iron
Data NAMES
Data "NAME,C20;F_NAME,C12"
Data "NAME,NAME"
Data 59,2
Data Woody,Angela
Data Wood,Patricia
Data Right,Gary
Data Woodward,Edson
Data Zimmerman,Gary
Data Wool,Beryl
Data Young,Kevin
Data Yin,Pam
Data Page,Beven
Data Levsen,Allan
Data Quirt,April
Data Palmer,Brian
Data Randall,Linda
Data Worsterter,Dennis
Data Ipnof,Gregory
Data Aquero,Ralph
Data Pam,Jeffrey
Data Zinc,Philip
Data Olson,Timothy
Data Rex,Paul
Data Smith,Susan
Data Smith,Stephen
Data Abraham,Eric
Data Yee,Jeffrey
Data Lee,Suzy
Data Young,Cam
Data Pate,Ron
Data Trowley,Linda
Data Young,Kevin
Data Chow,Alison
Data Adams,Sam
Data Wyatt,Howard
Data Woodlin,Pamela
Data Van,Imp
Data Woodberry,Leona
Data Paglio,Andrea
Data Rigs,Steve
Data Washington,Lloyd
Data Washington,George
Data Woddsworth,Daniel
Data Right,Michael
Data Adam,Gary
Data York,Alisa
Data Pool,Scott
Data Page,Jennifer
Data Freebairn,Bruce
Data Hart,Lisa
Data Black,Linda
Data White,Jo
Data White,Greg
Data Adams,Steve
Data York,Glen
Data Yeager,Robert
Data Gale,Leslie
Data White,John
Data George,Pamela
Data Housely,John
Data Nee,Chris
Data Page,Nicholas
Data NEWDBF
Data "NAME_FIELD,C20;AGE_FIELD,N3;BIRTH_DATE,D8"
Data
Data 0,3
Data NO_FILE
Data "NAME_FLD,C20;AGE_FLD,N3"
Data
Data 0,2
Data OFFICE
Data "OFFICE_NO,N10;BUILD_NO,N10"
Data "BUILD_NO,build_no;OFFICE_NO,office_no"
Data 3,2
Data " 23"," 2"
Data " 10"," 4"
Data " 1"," 6"
Data PEOPLE
Data "NAME,C20;AGE,N3;BIRTH,D8"
Data "AGE_TAG,AGE;BIRTH_TAG,BIRTH;NAME_TAG,NAME"
Data 5,3
Data kelly, " 10",19850215
Data fred, " 12",19830110
Data mickey," 5",19901105
Data conrad," 8",19600415
Data mickey," 88",19011128
Data SHOWDATA
Data "NAME,C20;OCCUPATION,C20;COUNTRY,C20"
Data
Data 4,3
Data "AL SMITH",DEVELOPER,CANADA
Data "BRUCE JOHNSON",ENGINEER,USA
Data "DAVE WILSON",THERAPIST,"UNITED KINGDOM"
Data "DAN MARSHALL",ATHLETE,SWEDEN
Data STUDENT
Data "ID,N8;F_NAME,C15;L_NAME,C15;AGE,N2"
Data "AGE_TAG,AGE;ID_TAG,ID,,C;NAME,L_NAME + F_NAME"
Data 18,4
Data " 654321",Ken,Hirshfeld,30
Data " 123345",Sandra,Donaghey,32
Data " 873454",Barry,Webber,32
Data " 423232",Harvey,Tyler,23
Data " 463722",James,Miller,34
Data " 234533",David,Krammer,25
Data " 534455",Bernie,McFarland,22 //Hier war ein Fehler: ID=534452
Data " 835543",Douglas,Samoil,29
Data " 153543",Ron,Watson,22
Data " 858343",George,Dean,27
Data " 157932",Albert,Fraser,43
Data " 876097",Scott,Greig,23
Data " 345742",Brian,Perron,24
Data " 336544",Allan,Racine,29
Data " 865422",Cameron,Calvert,35
Data " 125753",Reginald,Page,24
Data " 874632",Eric,Lane,22
Data " 765343",Upali,Shivji,32
Data TO_DBF
Data "INFO,C10"
Data
Data 0,1
Proc Trace_ON // TRON DEBUG
Global tr$
If Err
Debug "Trace$: "; tr$
Debug "Error$: "; Err$
Else
tr$ = "Line#:" & TraceLnr & #9 & Trace$
EndIf
EndProc
|
|
