' Created 7/24/2005 ' Modified 7/24/2005 ' Project ' Model ' Company ' Author ' Version ' Database Access 2000 '======================================================= '=== MS Access 2000 database creation method '=== '=== 1. Create a new database in the MS Access 2000 '=== 2. Create a new module '=== 3. Copy the CASE Studio 2 output SQL script into the new MS Access 2000 module '=== 4. Select from main menu "Tools" item "References..." and check the "Microsoft DAO 3.6 Object Library." '=== 5. Place your mouse cursor somewhere in the main procedure Main() '=== 6. Run the module code (Click the "Run Sub/UserForm" button or press F5) '======================================================= Public dbs As DAO.Database Public tdf As DAO.TableDef Public idx As DAO.Index Public rel As DAO.Relation Sub Main() Set dbs = CurrentDb() On Error GoTo ErrorHandler Call DropTables Call DropIndexes Call CreateTables Call CreatePrimaryKeys Call CreateIndexes MsgBox "Script successfully processed.", vbInformation Exit Sub ErrorHandler: Select Case Err.Number Case 3010 MsgBox "Table " & tdf.Name & " allready exist!", vbInformation Err.Clear Case 3284 MsgBox "Index " & idx.Name & " for table " & tdf.Name & " allready exist!", vbInformation Err.Clear Case Else MsgBox Err.Description, vbCritical End Select End Sub ' Drop indexes '============== Sub DropIndexes() 'Drop all non unique indexes End Sub ' Drop tables '=============== Public Sub DropTables() 'Drop relations Call DropRelation("FK_E01_Header") Call DropRelation("FK_E19_07_E19_01_0") Call DropRelation("FK_E18_08_E18") Call DropRelation("FK_E02_E01") Call DropRelation("FK_E02_06_E01") Call DropRelation("FK_E02_07_E01") Call DropRelation("FK_E02_08_E01") Call DropRelation("FK_E02_09_E01") Call DropRelation("FK_E02_10_E01") Call DropRelation("FK_E03_E01") Call DropRelation("FK_E04_E01") Call DropRelation("FK_E05_E01") Call DropRelation("FK_E06_E01") Call DropRelation("FK_E07_E01") Call DropRelation("FK_E07_03_0_E01") Call DropRelation("FK_E07_35_0_E01") Call DropRelation("FK_E07_37_E01") Call DropRelation("FK_E08_E01") Call DropRelation("FK_E08_01_E01") Call DropRelation("FK_E08_02_E01") Call DropRelation("FK_E09_E01") Call DropRelation("FK_E09_01_E01") Call DropRelation("FK_E09_02_E01") Call DropRelation("FK_E09_14_E01") Call DropRelation("FK_E10_E01") Call DropRelation("FK_E10_03_E01") Call DropRelation("FK_E10_04_E01") Call DropRelation("FK_E10_05_E01") Call DropRelation("FK_E10_08_E01") Call DropRelation("FK_E10_09_E01") Call DropRelation("FK_E11_E01") Call DropRelation("FK_E11_03_E01") Call DropRelation("FK_E11_11_E01") Call DropRelation("FK_E12_E01") Call DropRelation("FK_E12_01_E01") Call DropRelation("FK_E12_07_E01") Call DropRelation("FK_E12_08_E01") Call DropRelation("FK_E12_09_E01") Call DropRelation("FK_E12_10_E01") Call DropRelation("FK_E12_12_0_E01") Call DropRelation("FK_E12_14_0_E01") Call DropRelation("FK_E12_19_E01") Call DropRelation("FK_E13_E01") Call DropRelation("FK_E14_E01") Call DropRelation("FK_E14_03_E01") Call DropRelation("FK_E15_E01") Call DropRelation("FK_E16_E01") Call DropRelation("FK_E16_00_0_E01") Call DropRelation("FK_E17_E01") Call DropRelation("FK_E18_E01") Call DropRelation("FK_E19_01_0_E01") Call DropRelation("FK_E19_12_E01") Call DropRelation("FK_E19_13_E01") Call DropRelation("FK_E19_14_E01") Call DropRelation("FK_E20_E01") Call DropRelation("FK_E21_E01") Call DropRelation("FK_E22_E01") Call DropRelation("FK_E23_E01") Call DropRelation("FK_E23_02_E01") Call DropRelation("FK_E23_03_E01") Call DropRelation("FK_E23_04_E01") Call DropRelation("FK_E23_06_E01") Call DropRelation("FK_E23_07_E01") Call DropRelation("FK_E23_09_0_E01") 'Drop tables Call DropTable( "Header" ) Call DropTable( "E23_09_0" ) Call DropTable( "E23_07" ) Call DropTable( "E23_06" ) Call DropTable( "E23_04" ) Call DropTable( "E23_03" ) Call DropTable( "E23_02" ) Call DropTable( "E23" ) Call DropTable( "E22" ) Call DropTable( "E21" ) Call DropTable( "E20" ) Call DropTable( "E19_14" ) Call DropTable( "E19_13" ) Call DropTable( "E19_12" ) Call DropTable( "E19_07" ) Call DropTable( "E19_01_0" ) Call DropTable( "E18_08" ) Call DropTable( "E18" ) Call DropTable( "E17" ) Call DropTable( "E16_00_0" ) Call DropTable( "E16" ) Call DropTable( "E15" ) Call DropTable( "E14_03" ) Call DropTable( "E14" ) Call DropTable( "E13" ) Call DropTable( "E12_19" ) Call DropTable( "E12_14_0" ) Call DropTable( "E12_12_0" ) Call DropTable( "E12_10" ) Call DropTable( "E12_09" ) Call DropTable( "E12_08" ) Call DropTable( "E12_07" ) Call DropTable( "E12_01" ) Call DropTable( "E12" ) Call DropTable( "E11_11" ) Call DropTable( "E11_03" ) Call DropTable( "E11" ) Call DropTable( "E10_09" ) Call DropTable( "E10_08" ) Call DropTable( "E10_05" ) Call DropTable( "E10_04" ) Call DropTable( "E10_03" ) Call DropTable( "E10" ) Call DropTable( "E09_14" ) Call DropTable( "E09_02" ) Call DropTable( "E09_01" ) Call DropTable( "E09" ) Call DropTable( "E08_02" ) Call DropTable( "E08_01" ) Call DropTable( "E08" ) Call DropTable( "E07_37" ) Call DropTable( "E07_35_0" ) Call DropTable( "E07_03_0" ) Call DropTable( "E07" ) Call DropTable( "E06" ) Call DropTable( "E05" ) Call DropTable( "E04" ) Call DropTable( "E03" ) Call DropTable( "E02_10" ) Call DropTable( "E02_09" ) Call DropTable( "E02_08" ) Call DropTable( "E02_07" ) Call DropTable( "E02_06" ) Call DropTable( "E02" ) Call DropTable( "E01" ) End Sub ' Create tables '=============== Sub CreateTables() Call CreateTable1 'E01 Call CreateTable2 'E02 Call CreateTable3 'E02_06 Call CreateTable4 'E02_07 Call CreateTable5 'E02_08 Call CreateTable6 'E02_09 Call CreateTable7 'E02_10 Call CreateTable8 'E03 Call CreateTable9 'E04 Call CreateTable10 'E05 Call CreateTable11 'E06 Call CreateTable12 'E07 Call CreateTable13 'E07_03_0 Call CreateTable14 'E07_35_0 Call CreateTable15 'E07_37 Call CreateTable16 'E08 Call CreateTable17 'E08_01 Call CreateTable18 'E08_02 Call CreateTable19 'E09 Call CreateTable20 'E09_01 Call CreateTable21 'E09_02 Call CreateTable22 'E09_14 Call CreateTable23 'E10 Call CreateTable24 'E10_03 Call CreateTable25 'E10_04 Call CreateTable26 'E10_05 Call CreateTable27 'E10_08 Call CreateTable28 'E10_09 Call CreateTable29 'E11 Call CreateTable30 'E11_03 Call CreateTable31 'E11_11 Call CreateTable32 'E12 Call CreateTable33 'E12_01 Call CreateTable34 'E12_07 Call CreateTable35 'E12_08 Call CreateTable36 'E12_09 Call CreateTable37 'E12_10 Call CreateTable38 'E12_12_0 Call CreateTable39 'E12_14_0 Call CreateTable40 'E12_19 Call CreateTable41 'E13 Call CreateTable42 'E14 Call CreateTable43 'E14_03 Call CreateTable44 'E15 Call CreateTable45 'E16 Call CreateTable46 'E16_00_0 Call CreateTable47 'E17 Call CreateTable48 'E18 Call CreateTable49 'E18_08 Call CreateTable50 'E19_01_0 Call CreateTable51 'E19_07 Call CreateTable52 'E19_12 Call CreateTable53 'E19_13 Call CreateTable54 'E19_14 Call CreateTable55 'E20 Call CreateTable56 'E21 Call CreateTable57 'E22 Call CreateTable58 'E23 Call CreateTable59 'E23_02 Call CreateTable60 'E23_03 Call CreateTable61 'E23_04 Call CreateTable62 'E23_06 Call CreateTable63 'E23_07 Call CreateTable64 'E23_09_0 Call CreateTable65 'Header End Sub '=== Create table E01 ====== Sub CreateTable1() Set tdf = dbs.CreateTableDef( "E01" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_D01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E01_01", dbText, 30, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E01_02", dbText, 30, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E01_03", dbText, 30, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E01_04", dbText, 30, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E02 ====== Sub CreateTable2() Set tdf = dbs.CreateTableDef( "E02" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_01", dbText, 15, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_02", dbText, 15, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_03", dbText, 15, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_04", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_05", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_11", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_12", dbText, 15, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_13", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_14", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_15_Lat", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_15_Long", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_16", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_17", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_18", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_19", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E02_20", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E02_06 ====== Sub CreateTable3() Set tdf = dbs.CreateTableDef( "E02_06" ) Call AddFieldToTable("pk_E02_06", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_06", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E02_07 ====== Sub CreateTable4() Set tdf = dbs.CreateTableDef( "E02_07" ) Call AddFieldToTable("pk_E02_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E02_08 ====== Sub CreateTable5() Set tdf = dbs.CreateTableDef( "E02_08" ) Call AddFieldToTable("pk_E02_08", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_08", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E02_09 ====== Sub CreateTable6() Set tdf = dbs.CreateTableDef( "E02_09" ) Call AddFieldToTable("pk_E02_09", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_09", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E02_10 ====== Sub CreateTable7() Set tdf = dbs.CreateTableDef( "E02_10" ) Call AddFieldToTable("pk_E02_10", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E02_10", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E03 ====== Sub CreateTable8() Set tdf = dbs.CreateTableDef( "E03" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E03_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E03_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E03_03", dbText, 10, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E04 ====== Sub CreateTable9() Set tdf = dbs.CreateTableDef( "E04" ) Call AddFieldToTable("pk_E04", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E04_01", dbText, 15, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E04_02", dbText, 255, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E04_03", dbText, 100, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E05 ====== Sub CreateTable10() Set tdf = dbs.CreateTableDef( "E05" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E05_01", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_02", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_03", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_04", dbDate, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E05_05", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_06", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_07", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_08", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_09", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_10", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_11", dbDate, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E05_12", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E05_13", dbDate, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E06 ====== Sub CreateTable11() Set tdf = dbs.CreateTableDef( "E06" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E06_01", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_02", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_03", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_04", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_05", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_06", dbText, 5, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_07", dbText, 3, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_08", dbText, 10, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E06_09", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_10", dbText, 11, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_11", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E06_12", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E06_13", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E06_14", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_15", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E06_16", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_17", dbText, 10, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_18", dbText, 3, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E06_19", dbText, 30, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E07 ====== Sub CreateTable12() Set tdf = dbs.CreateTableDef( "E07" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E07_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E07_02", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_15", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_16", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_17", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_32", dbText, 10, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_33", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_34", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E07_03_0 ====== Sub CreateTable13() Set tdf = dbs.CreateTableDef( "E07_03_0" ) Call AddFieldToTable("pk_E07_03_0", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E07_03", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_04", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_05", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_06", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_07", dbText, 3, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_08", dbText, 10, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_09", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_10", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_11", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_12", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_13", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_14", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_18", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_19", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_20", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_21", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_22", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_23", dbText, 3, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_24", dbText, 10, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_25", dbText, 10, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_26", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_27", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_28", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_29", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_30", dbText, 3, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E07_31", dbText, 10, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E07_35_0 ====== Sub CreateTable14() Set tdf = dbs.CreateTableDef( "E07_35_0" ) Call AddFieldToTable("pk_E07_35_0", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E07_35", dbText, 30, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E07_36", dbText, 30, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E07_37 ====== Sub CreateTable15() Set tdf = dbs.CreateTableDef( "E07_37" ) Call AddFieldToTable("pk_E07_37", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E07_37", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E08 ====== Sub CreateTable16() Set tdf = dbs.CreateTableDef( "E08" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E08_03", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_04", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_05", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E08_06", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E08_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E08_08", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_09", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_10_Lat", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_10_Long", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_11", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_12", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_13", dbText, 5, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_14", dbText, 3, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E08_15", dbText, 10, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E08_01 ====== Sub CreateTable17() Set tdf = dbs.CreateTableDef( "E08_01" ) Call AddFieldToTable("pk_E08_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E08_01", dbText, 30, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E08_02 ====== Sub CreateTable18() Set tdf = dbs.CreateTableDef( "E08_02" ) Call AddFieldToTable("pk_E08_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E08_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E09 ====== Sub CreateTable19() Set tdf = dbs.CreateTableDef( "E09" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_03", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_04", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_05", dbText, 50, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E09_06", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E09_07", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E09_08", dbText, 50, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E09_09", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E09_10", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E09_11", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_12", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_13", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_15", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_16", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E09_01 ====== Sub CreateTable20() Set tdf = dbs.CreateTableDef( "E09_01" ) Call AddFieldToTable("pk_E09_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_01", dbText, 30, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E09_02 ====== Sub CreateTable21() Set tdf = dbs.CreateTableDef( "E09_02" ) Call AddFieldToTable("pk_E09_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E09_14 ====== Sub CreateTable22() Set tdf = dbs.CreateTableDef( "E09_14" ) Call AddFieldToTable("pk_E09_14", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E09_14", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E10 ====== Sub CreateTable23() Set tdf = dbs.CreateTableDef( "E10" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E10_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E10_02", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E10_06", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E10_07", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E10_10", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E10_03 ====== Sub CreateTable24() Set tdf = dbs.CreateTableDef( "E10_03" ) Call AddFieldToTable("pk_E10_03", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E10_03", dbText, 255, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E10_04 ====== Sub CreateTable25() Set tdf = dbs.CreateTableDef( "E10_04" ) Call AddFieldToTable("pk_E10_04", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E10_04", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E10_05 ====== Sub CreateTable26() Set tdf = dbs.CreateTableDef( "E10_05" ) Call AddFieldToTable("pk_E10_05", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E10_05", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E10_08 ====== Sub CreateTable27() Set tdf = dbs.CreateTableDef( "E10_08" ) Call AddFieldToTable("pk_E10_08", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E10_08", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E10_09 ====== Sub CreateTable28() Set tdf = dbs.CreateTableDef( "E10_09" ) Call AddFieldToTable("pk_E10_09", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E10_09", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E11 ====== Sub CreateTable29() Set tdf = dbs.CreateTableDef( "E11" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E11_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E11_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E11_04", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E11_05", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E11_06", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E11_07", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E11_08", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E11_09", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E11_10", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E11_03 ====== Sub CreateTable30() Set tdf = dbs.CreateTableDef( "E11_03" ) Call AddFieldToTable("pk_E11_03", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E11_03", dbText, 255, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E11_11 ====== Sub CreateTable31() Set tdf = dbs.CreateTableDef( "E11_11" ) Call AddFieldToTable("pk_E11_11", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E11_11", dbText, 255, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12 ====== Sub CreateTable32() Set tdf = dbs.CreateTableDef( "E12" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_02", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_03", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_04", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_05", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_06", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_11", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_18", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_20", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12_01 ====== Sub CreateTable33() Set tdf = dbs.CreateTableDef( "E12_01" ) Call AddFieldToTable("pk_E12_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12_07 ====== Sub CreateTable34() Set tdf = dbs.CreateTableDef( "E12_07" ) Call AddFieldToTable("pk_E12_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12_08 ====== Sub CreateTable35() Set tdf = dbs.CreateTableDef( "E12_08" ) Call AddFieldToTable("pk_E12_08", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_08", dbText, 30, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12_09 ====== Sub CreateTable36() Set tdf = dbs.CreateTableDef( "E12_09" ) Call AddFieldToTable("pk_E12_09", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_09", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12_10 ====== Sub CreateTable37() Set tdf = dbs.CreateTableDef( "E12_10" ) Call AddFieldToTable("pk_E12_10", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_10", dbText, 30, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12_12_0 ====== Sub CreateTable38() Set tdf = dbs.CreateTableDef( "E12_12_0" ) Call AddFieldToTable("pk_E12_0", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_12", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_13", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12_14_0 ====== Sub CreateTable39() Set tdf = dbs.CreateTableDef( "E12_14_0" ) Call AddFieldToTable("pk_E12_14_0", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_14", dbText, 30, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_15", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_16", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E12_17", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E12_19 ====== Sub CreateTable40() Set tdf = dbs.CreateTableDef( "E12_19" ) Call AddFieldToTable("pk_E12_19", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E12_19", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E13 ====== Sub CreateTable41() Set tdf = dbs.CreateTableDef( "E13" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E13_01", dbText, 255, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E14 ====== Sub CreateTable42() Set tdf = dbs.CreateTableDef( "E14" ) Call AddFieldToTable("pk_E14", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E14_01", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_02", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_04", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_05", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_06", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_07", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_08", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_09", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_10", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_11", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_12", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_13", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_14", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_15", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_16", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_17", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_18", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_19", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_20", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_21", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_22", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_23", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_24", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_25", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_26", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_27", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E14_28", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E14_03 ====== Sub CreateTable43() Set tdf = dbs.CreateTableDef( "E14_03" ) Call AddFieldToTable("pk_E14_03", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E14_03", dbText, 255, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E15 ====== Sub CreateTable44() Set tdf = dbs.CreateTableDef( "E15" ) Call AddFieldToTable("pk_E15", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E15_DE", dbText, 6, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E15_DE_VALUE", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E16 ====== Sub CreateTable45() Set tdf = dbs.CreateTableDef( "E16" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E16_01", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E16_02", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E16_00_0 ====== Sub CreateTable46() Set tdf = dbs.CreateTableDef( "E16_00_0" ) Call AddFieldToTable("pk_E16_00_0", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E16_03", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E16_DE", dbText, 6, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E16_DE_VALUE", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E17 ====== Sub CreateTable47() Set tdf = dbs.CreateTableDef( "E17" ) Call AddFieldToTable("pk_E17", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E17_01", dbText, 100, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E18 ====== Sub CreateTable48() Set tdf = dbs.CreateTableDef( "E18" ) Call AddFieldToTable("pk_E18", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E18_01", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E18_02", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E18_03", dbText, 30, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E18_04", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E18_05", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E18_06", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E18_07", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E18_09", dbText, 15, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E18_10", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E18_11", dbText, 20, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E18_08 ====== Sub CreateTable49() Set tdf = dbs.CreateTableDef( "E18_08" ) Call AddFieldToTable("pk_E18_08", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E18", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E18_08", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E19_01_0 ====== Sub CreateTable50() Set tdf = dbs.CreateTableDef( "E19_01_0" ) Call AddFieldToTable("pk_E19_01_0", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E19_01", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E19_02", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E19_03", dbText, 255, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E19_04", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E19_05", dbText, 255, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E19_06", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E19_08", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E19_09", dbText, 15, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E19_10", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E19_11", dbText, 20, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E19_07 ====== Sub CreateTable51() Set tdf = dbs.CreateTableDef( "E19_07" ) Call AddFieldToTable("pk_E19_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E19_01_0", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E19_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E19_12 ====== Sub CreateTable52() Set tdf = dbs.CreateTableDef( "E19_12" ) Call AddFieldToTable("pk_E19_12", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E19_12", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E19_13 ====== Sub CreateTable53() Set tdf = dbs.CreateTableDef( "E19_13" ) Call AddFieldToTable("pk_E19_13", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E19_13", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E19_14 ====== Sub CreateTable54() Set tdf = dbs.CreateTableDef( "E19_14" ) Call AddFieldToTable("pk_E19_14", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E19_14", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E20 ====== Sub CreateTable55() Set tdf = dbs.CreateTableDef( "E20" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E20_01", dbText, 50, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_02", dbText, 50, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_03", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_04", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_05", dbText, 3, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_06", dbText, 5, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_07", dbText, 10, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E20_08_Lat", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_08_Long", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_09", dbText, 30, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_10", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E20_11", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_12", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_13", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_14", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E20_15", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E20_16", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E20_17", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E21 ====== Sub CreateTable56() Set tdf = dbs.CreateTableDef( "E21" ) Call AddFieldToTable("pk_E21_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E21_01", dbDate, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_02", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_03", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_04", dbLongBinary, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_05", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_06", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_07", dbText, 255, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_08", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_09", dbSingle, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_10", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_11", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_12", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_13", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_14", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_15", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_16", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_17", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_18", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_19", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E21_20", dbLong, 0, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E22 ====== Sub CreateTable57() Set tdf = dbs.CreateTableDef( "E22" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E22_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E22_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E22_03", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E22_04", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E22_05", dbText, 20, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E22_06", dbText, 20, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E23 ====== Sub CreateTable58() Set tdf = dbs.CreateTableDef( "E23" ) Call AddFieldToTable("pk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E23_01", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E23_05", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E23_08", dbLong, 0, 0, "", "", "", FALSE, FALSE ) Call AddFieldToTable("E23_10", dbText, 15, 0, "", "", "", FALSE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E23_02 ====== Sub CreateTable59() Set tdf = dbs.CreateTableDef( "E23_02" ) Call AddFieldToTable("pk_E23_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E23_02", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E23_03 ====== Sub CreateTable60() Set tdf = dbs.CreateTableDef( "E23_03" ) Call AddFieldToTable("pk_E23_03", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E23_03", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E23_04 ====== Sub CreateTable61() Set tdf = dbs.CreateTableDef( "E23_04" ) Call AddFieldToTable("pk_E23_04", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E23_04", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E23_06 ====== Sub CreateTable62() Set tdf = dbs.CreateTableDef( "E23_06" ) Call AddFieldToTable("pk_E23_06", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E23_06", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E23_07 ====== Sub CreateTable63() Set tdf = dbs.CreateTableDef( "E23_07" ) Call AddFieldToTable("pk_E23_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E23_07", dbLong, 0, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table E23_09_0 ====== Sub CreateTable64() Set tdf = dbs.CreateTableDef( "E23_09_0" ) Call AddFieldToTable("pk_E23_09_0", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("fk_E01_01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E23_09", dbText, 50, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("E23_11", dbText, 30, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub '=== Create table Header ====== Sub CreateTable65() Set tdf = dbs.CreateTableDef( "Header" ) Call AddFieldToTable("pk_D01", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("D01_01", dbText, 15, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("D01_03", dbText, 3, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("D01_04", dbText, 5, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("D01_07", dbText, 100, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("D01_08", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("D01_09", dbLong, 0, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("D01_21", dbText, 10, 0, "", "", "", TRUE, FALSE ) Call AddFieldToTable("D02_07", dbText, 255, 0, "", "", "", TRUE, FALSE ) dbs.TableDefs.Append tdf End Sub ' Create primary keys '===================== Sub CreatePrimaryKeys() '=== Create primary key for table E01 ====== Set tdf = dbs.TableDefs( "E01" ) Set idx = tdf.CreateIndex( "PK_E01" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E02 ====== Set tdf = dbs.TableDefs( "E02" ) Set idx = tdf.CreateIndex( "PK_E02" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E02_06 ====== Set tdf = dbs.TableDefs( "E02_06" ) Set idx = tdf.CreateIndex( "PK_E02_06" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E02_06", False ) tdf.Indexes.Append idx '=== Create primary key for table E02_07 ====== Set tdf = dbs.TableDefs( "E02_07" ) Set idx = tdf.CreateIndex( "PK_E02_07" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E02_07", False ) tdf.Indexes.Append idx '=== Create primary key for table E02_08 ====== Set tdf = dbs.TableDefs( "E02_08" ) Set idx = tdf.CreateIndex( "PK_E02_08" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E02_08", False ) tdf.Indexes.Append idx '=== Create primary key for table E02_09 ====== Set tdf = dbs.TableDefs( "E02_09" ) Set idx = tdf.CreateIndex( "PK_E02_09" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E02_09", False ) tdf.Indexes.Append idx '=== Create primary key for table E02_10 ====== Set tdf = dbs.TableDefs( "E02_10" ) Set idx = tdf.CreateIndex( "PK_E02_10" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E02_10", False ) tdf.Indexes.Append idx '=== Create primary key for table E03 ====== Set tdf = dbs.TableDefs( "E03" ) Set idx = tdf.CreateIndex( "PK_E03" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E04 ====== Set tdf = dbs.TableDefs( "E04" ) Set idx = tdf.CreateIndex( "PK_E04" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E04", False ) tdf.Indexes.Append idx '=== Create primary key for table E05 ====== Set tdf = dbs.TableDefs( "E05" ) Set idx = tdf.CreateIndex( "PK_E05" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E06 ====== Set tdf = dbs.TableDefs( "E06" ) Set idx = tdf.CreateIndex( "PK_E06" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E07 ====== Set tdf = dbs.TableDefs( "E07" ) Set idx = tdf.CreateIndex( "PK_E07" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E07_03_0 ====== Set tdf = dbs.TableDefs( "E07_03_0" ) Set idx = tdf.CreateIndex( "PK_E07_03_0" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E07_03_0", False ) tdf.Indexes.Append idx '=== Create primary key for table E07_35_0 ====== Set tdf = dbs.TableDefs( "E07_35_0" ) Set idx = tdf.CreateIndex( "PK_E07_35_0" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E07_35_0", False ) tdf.Indexes.Append idx '=== Create primary key for table E07_37 ====== Set tdf = dbs.TableDefs( "E07_37" ) Set idx = tdf.CreateIndex( "PK_E07_37" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E07_37", False ) tdf.Indexes.Append idx '=== Create primary key for table E08 ====== Set tdf = dbs.TableDefs( "E08" ) Set idx = tdf.CreateIndex( "PK_E08" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E08_01 ====== Set tdf = dbs.TableDefs( "E08_01" ) Set idx = tdf.CreateIndex( "PK_E08_01" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E08_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E08_02 ====== Set tdf = dbs.TableDefs( "E08_02" ) Set idx = tdf.CreateIndex( "PK_E08_02" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E08_02", False ) tdf.Indexes.Append idx '=== Create primary key for table E09 ====== Set tdf = dbs.TableDefs( "E09" ) Set idx = tdf.CreateIndex( "PK_E09" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E09_01 ====== Set tdf = dbs.TableDefs( "E09_01" ) Set idx = tdf.CreateIndex( "PK_E09_01" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E09_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E09_02 ====== Set tdf = dbs.TableDefs( "E09_02" ) Set idx = tdf.CreateIndex( "PK_E09_02" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E09_02", False ) tdf.Indexes.Append idx '=== Create primary key for table E09_14 ====== Set tdf = dbs.TableDefs( "E09_14" ) Set idx = tdf.CreateIndex( "PK_E09_14" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E09_14", False ) tdf.Indexes.Append idx '=== Create primary key for table E10 ====== Set tdf = dbs.TableDefs( "E10" ) Set idx = tdf.CreateIndex( "PK_E10" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E10_03 ====== Set tdf = dbs.TableDefs( "E10_03" ) Set idx = tdf.CreateIndex( "PK_E10_03" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E10_03", False ) tdf.Indexes.Append idx '=== Create primary key for table E10_04 ====== Set tdf = dbs.TableDefs( "E10_04" ) Set idx = tdf.CreateIndex( "PK_E10_04" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E10_04", False ) tdf.Indexes.Append idx '=== Create primary key for table E10_05 ====== Set tdf = dbs.TableDefs( "E10_05" ) Set idx = tdf.CreateIndex( "PK_E10_05" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E10_05", False ) tdf.Indexes.Append idx '=== Create primary key for table E10_08 ====== Set tdf = dbs.TableDefs( "E10_08" ) Set idx = tdf.CreateIndex( "PK_E10_08" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E10_08", False ) tdf.Indexes.Append idx '=== Create primary key for table E10_09 ====== Set tdf = dbs.TableDefs( "E10_09" ) Set idx = tdf.CreateIndex( "PK_E10_09" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E10_09", False ) tdf.Indexes.Append idx '=== Create primary key for table E11 ====== Set tdf = dbs.TableDefs( "E11" ) Set idx = tdf.CreateIndex( "PK_E11" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E11_03 ====== Set tdf = dbs.TableDefs( "E11_03" ) Set idx = tdf.CreateIndex( "PK_E11_03" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E11_03", False ) tdf.Indexes.Append idx '=== Create primary key for table E11_11 ====== Set tdf = dbs.TableDefs( "E11_11" ) Set idx = tdf.CreateIndex( "PK_E11_11" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E11_11", False ) tdf.Indexes.Append idx '=== Create primary key for table E12 ====== Set tdf = dbs.TableDefs( "E12" ) Set idx = tdf.CreateIndex( "PK_E12" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E12_01 ====== Set tdf = dbs.TableDefs( "E12_01" ) Set idx = tdf.CreateIndex( "PK_E12_01" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E12_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E12_07 ====== Set tdf = dbs.TableDefs( "E12_07" ) Set idx = tdf.CreateIndex( "PK_E12_07" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E12_07", False ) tdf.Indexes.Append idx '=== Create primary key for table E12_08 ====== Set tdf = dbs.TableDefs( "E12_08" ) Set idx = tdf.CreateIndex( "PK_E12_08" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E12_08", False ) tdf.Indexes.Append idx '=== Create primary key for table E12_09 ====== Set tdf = dbs.TableDefs( "E12_09" ) Set idx = tdf.CreateIndex( "PK_E12_09" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E12_09", False ) tdf.Indexes.Append idx '=== Create primary key for table E12_10 ====== Set tdf = dbs.TableDefs( "E12_10" ) Set idx = tdf.CreateIndex( "PK_E12_10" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E12_10", False ) tdf.Indexes.Append idx '=== Create primary key for table E12_12_0 ====== Set tdf = dbs.TableDefs( "E12_12_0" ) Set idx = tdf.CreateIndex( "PK_E12_12_0" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E12_0", False ) tdf.Indexes.Append idx '=== Create primary key for table E12_14_0 ====== Set tdf = dbs.TableDefs( "E12_14_0" ) Set idx = tdf.CreateIndex( "PK_E12_14_0" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E12_14_0", False ) tdf.Indexes.Append idx '=== Create primary key for table E12_19 ====== Set tdf = dbs.TableDefs( "E12_19" ) Set idx = tdf.CreateIndex( "PK_E12_19" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E12_19", False ) tdf.Indexes.Append idx '=== Create primary key for table E13 ====== Set tdf = dbs.TableDefs( "E13" ) Set idx = tdf.CreateIndex( "PK_E13" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E14 ====== Set tdf = dbs.TableDefs( "E14" ) Set idx = tdf.CreateIndex( "PK_E14" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E14", False ) tdf.Indexes.Append idx '=== Create primary key for table E14_03 ====== Set tdf = dbs.TableDefs( "E14_03" ) Set idx = tdf.CreateIndex( "PK_E14_03" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E14_03", False ) tdf.Indexes.Append idx '=== Create primary key for table E15 ====== Set tdf = dbs.TableDefs( "E15" ) Set idx = tdf.CreateIndex( "PK_E15" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E15", False ) tdf.Indexes.Append idx '=== Create primary key for table E16 ====== Set tdf = dbs.TableDefs( "E16" ) Set idx = tdf.CreateIndex( "PK_E16" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E16_00_0 ====== Set tdf = dbs.TableDefs( "E16_00_0" ) Set idx = tdf.CreateIndex( "PK_E16_00_0" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E16_00_0", False ) tdf.Indexes.Append idx '=== Create primary key for table E17 ====== Set tdf = dbs.TableDefs( "E17" ) Set idx = tdf.CreateIndex( "PK_E17" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E17", False ) tdf.Indexes.Append idx '=== Create primary key for table E18 ====== Set tdf = dbs.TableDefs( "E18" ) Set idx = tdf.CreateIndex( "PK_E18" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E18", False ) tdf.Indexes.Append idx '=== Create primary key for table E18_08 ====== Set tdf = dbs.TableDefs( "E18_08" ) Set idx = tdf.CreateIndex( "PK_E18_08" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E18_08", False ) tdf.Indexes.Append idx '=== Create primary key for table E19_01_0 ====== Set tdf = dbs.TableDefs( "E19_01_0" ) Set idx = tdf.CreateIndex( "PK_E19_01_0" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E19_01_0", False ) tdf.Indexes.Append idx '=== Create primary key for table E19_07 ====== Set tdf = dbs.TableDefs( "E19_07" ) Set idx = tdf.CreateIndex( "PK_E19_07" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E19_07", False ) tdf.Indexes.Append idx '=== Create primary key for table E19_12 ====== Set tdf = dbs.TableDefs( "E19_12" ) Set idx = tdf.CreateIndex( "PK_E19_12" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E19_12", False ) tdf.Indexes.Append idx '=== Create primary key for table E19_13 ====== Set tdf = dbs.TableDefs( "E19_13" ) Set idx = tdf.CreateIndex( "PK_E19_13" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E19_13", False ) tdf.Indexes.Append idx '=== Create primary key for table E19_14 ====== Set tdf = dbs.TableDefs( "E19_14" ) Set idx = tdf.CreateIndex( "PK_E19_14" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E19_14", False ) tdf.Indexes.Append idx '=== Create primary key for table E20 ====== Set tdf = dbs.TableDefs( "E20" ) Set idx = tdf.CreateIndex( "PK_E20" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E21 ====== Set tdf = dbs.TableDefs( "E21" ) Set idx = tdf.CreateIndex( "PK_E21" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E21_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E22 ====== Set tdf = dbs.TableDefs( "E22" ) Set idx = tdf.CreateIndex( "PK_E22" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E23 ====== Set tdf = dbs.TableDefs( "E23" ) Set idx = tdf.CreateIndex( "PK_E23" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E01_01", False ) tdf.Indexes.Append idx '=== Create primary key for table E23_02 ====== Set tdf = dbs.TableDefs( "E23_02" ) Set idx = tdf.CreateIndex( "PK_E23_02" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E23_02", False ) tdf.Indexes.Append idx '=== Create primary key for table E23_03 ====== Set tdf = dbs.TableDefs( "E23_03" ) Set idx = tdf.CreateIndex( "PK_E23_03" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E23_03", False ) tdf.Indexes.Append idx '=== Create primary key for table E23_04 ====== Set tdf = dbs.TableDefs( "E23_04" ) Set idx = tdf.CreateIndex( "PK_E23_04" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E23_04", False ) tdf.Indexes.Append idx '=== Create primary key for table E23_06 ====== Set tdf = dbs.TableDefs( "E23_06" ) Set idx = tdf.CreateIndex( "PK_E23_06" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E23_06", False ) tdf.Indexes.Append idx '=== Create primary key for table E23_07 ====== Set tdf = dbs.TableDefs( "E23_07" ) Set idx = tdf.CreateIndex( "PK_E23_07" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E23_07", False ) tdf.Indexes.Append idx '=== Create primary key for table E23_09_0 ====== Set tdf = dbs.TableDefs( "E23_09_0" ) Set idx = tdf.CreateIndex( "PK_E23_09_0" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_E23_09_0", False ) tdf.Indexes.Append idx '=== Create primary key for table Header ====== Set tdf = dbs.TableDefs( "Header" ) Set idx = tdf.CreateIndex( "PK_Header" ) idx.Primary = True idx.Unique = True idx.IgnoreNulls = False Call AddFieldToIndex( "pk_D01", False ) tdf.Indexes.Append idx End Sub ' Create indexes '================ Sub CreateIndexes() End Sub ' Drop relation '=============== Sub DropRelation(RelName As String) Set rel = Nothing On Error Resume Next Set rel = dbs.Relations(RelName) On Error GoTo 0 If Not rel Is Nothing Then dbs.Relations.Delete ( RelName ) End Sub ' Drop table '============ Sub DropTable(TableName As String) Set tdf = Nothing On Error Resume Next Set tdf = dbs.TableDefs(TableName) On Error GoTo 0 If Not tdf Is Nothing Then dbs.TableDefs.Delete ( TableName ) End Sub ' Drop index '============ Sub DropIndex(TableName As String, IndexName As String) Set tdf = Nothing Set idx = Nothing On Error Resume Next Set tdf = dbs.TableDefs(TableName) Set idx = tdf.Indexes(IndexName) On Error GoTo 0 If (Not tdf Is Nothing) And (Not idx Is Nothing) Then tdf.Indexes.Delete ( IndexName ) End Sub ' Add fields to table '===================== Sub AddFieldToTable(FieldName As String, DataType As String, SizeCol As Integer, Attributes As Long, DefaultValue As Variant, ValText As String, ValRule As String, NotN As Boolean, ZeroLength As Boolean) Dim fld As DAO.Field Set fld = tdf.CreateField( FieldName, DataType ) If SizeCol <> 0 Then fld.Size = SizeCol If Attributes <> 0 Then fld.Attributes = Attributes fld.Required = NotN If DataType = dbText or DataType = dbMemo Then fld.AllowZeroLength = ZeroLength fld.DefaultValue = DefaultValue fld.ValidationRule = ValRule fld.ValidationText = ValText tdf.Fields.Append fld End Sub ' Add properties to table '========================= Sub AddPropertyToTable( PropertyName As String, Value As Variant, DataType As String) Dim prp As DAO.Property Set prp = tdf.CreateProperty(PropertyName, DataType, Value) tdf.Properties.Append prp End Sub ' Add properties to field '========================= Sub AddPropertyToField( FieldName As String, PropertyName As String, Value As Variant, DataType As String) Dim prp As DAO.Property Dim fld As DAO.Field Set fld = tdf.Fields( FieldName ) Set prp = fld.CreateProperty(PropertyName, DataType, Value) fld.Properties.Append prp End Sub ' Add fields to index '===================== Sub AddFieldToIndex( FieldName As String, Descending As Boolean ) Dim fld As DAO.Field Set fld = idx.CreateField( FieldName ) If Descending = True Then fld.Attributes = dbDescending idx.Fields.Append fld End Sub