object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 445
  Top = 265
  Height = 540
  Width = 817
  object DataSource2: TDataSource
    DataSet = mtTable1
    Left = 44
    Top = 180
  end
  object DataSource3: TDataSource
    DataSet = mtTable2
    Left = 134
    Top = 180
  end
  object ImageList2: TImageList
    Left = 370
    Top = 438
    Bitmap = {
      [encoded data, 17216 characters]
      000000000000}
  end
  object ilArrows: TImageList
    Width = 12
    Left = 424
    Top = 422
    Bitmap = {
      [encoded data, 6720 characters]
      000000000000}
  end
  object ImageList1: TImageList
    Height = 10
    Width = 10
    Left = 470
    Top = 438
    Bitmap = {
      494C01010100050018000A000A00FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000280000000A00000001002000000000004006
      0000000000000000000000000000000000000000000084000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000084000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000084000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000084000000000000000000
      000000000000000000000000FF000000FF000000FF0000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000084000000848484000000
      000000848400008484000000FF0000FFFF000000FF0000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000840000000000FF000000
      FF000000FF000000FF000000FF0000FFFF000000FF0000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000840000000000FF0000FF
      FF0000FFFF000000FF000000FF0000FFFF000000FF0000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000840000000000FF0000FF
      FF0000FFFF000000FF000000FF0000FFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000840000000000FF0000FF
      FF0000FFFF000000FF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000840000000000FF0000FF
      FF0000FFFF000000FF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      28000000280000000A0000000100010000000000500000000000000000000000
      000000000000000000000000FFFFFF00BFC0000000000000BFC0000000000000
      BFC0000000000000BC4000000000000090400000000000008040000000000000
      804000000000000080C000000000000083C000000000000083C0000000000000
      00000000000000000000000000000000000000000000}
  end
  object DataSource1: TDataSource
    DataSet = mtQuery1
    Left = 114
    Top = 332
  end
  object dsVendors: TDataSource
    DataSet = qrVendors
    Left = 96
    Top = 390
  end
  object dstCustomer: TDataSource
    DataSet = tCustomer
    Left = 456
    Top = 368
  end
  object dsCustomer2: TDataSource
    DataSet = mtqCustomer2
    Left = 384
    Top = 200
  end
  object dsCustomer: TDataSource
    DataSet = mtqCustomer
    Left = 284
    Top = 194
  end
  object dsEmployee: TDataSource
    DataSet = mttEmployee
    Left = 212
    Top = 202
  end
  object dsPartsDescriprion: TDataSource
    DataSet = qrPartsDescriprion
    Left = 296
    Top = 36
  end
  object ilYesNo: TImageList
    Left = 518
    Top = 422
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object mtQuery1: TMemTableEh
    CachedUpdates = True
    Filtered = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = dsdQuery1
    Left = 46
    Top = 332
    object mtQuery1VNo: TFloatField
      ConstraintErrorMessage = 'Vendor No has to be between 1000 and 9999'
      DisplayLabel = 'Vendor of parts|Vendor Number|1'
      DisplayWidth = 17
      FieldName = 'VNo'
      Origin = '"Vendors.DB".VendorNo'
      DisplayFormat = 'VN 0000'
    end
    object mtQuery1VName: TStringField
      DisplayLabel = 'Vendor of parts|Vendor Name|2'
      DisplayWidth = 24
      FieldName = 'VName'
      Origin = '"Vendors.DB".VendorName'
      Size = 30
    end
    object mtQuery1PNo: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = 'Parts|PN|3'
      DisplayWidth = 15
      FieldName = 'PNo'
      Origin = '"PARTS.DB".PartNo'
      DisplayFormat = 'PN-00000'
    end
    object mtQuery1PDescription: TStringField
      DisplayLabel = 'Parts|Description|4'
      DisplayWidth = 18
      FieldName = 'PDescription'
      Origin = '"PARTS.DB".Description'
      Size = 30
    end
    object mtQuery1PCost: TCurrencyField
      DisplayLabel = 'Parts|Cost|5'
      DisplayWidth = 9
      FieldName = 'PCost'
      Origin = '"PARTS.DB".Cost'
      DisplayFormat = '#,##0.0000'
    end
    object mtQuery1IQty: TIntegerField
      DisplayLabel = 'Items|Qry|6'
      DisplayWidth = 21
      FieldName = 'IQty'
      Origin = '"ITEMS.DB".Qty'
    end
    object mtQuery1VName1: TStringField
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'VName1'
      LookupDataSet = qrVendors
      LookupKeyFields = 'VendorNo'
      LookupResultField = 'VendorName'
      KeyFields = 'VNo'
      Lookup = True
    end
    object mtQuery1VPreferred: TBooleanField
      DisplayWidth = 5
      FieldName = 'VPreferred'
      Origin = '"vendors.DB".Preferred'
    end
  end
  object mtTable1: TMemTableEh
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = dsdTable1
    Left = 42
    Top = 130
  end
  object mtTable2: TMemTableEh
    CachedUpdates = True
    DetailFields = 'OrderNo'
    FetchAllOnOpen = True
    MasterFields = 'OrderNo'
    MasterSource = DataSource2
    Params = <>
    DataDriver = dsdTable2
    Left = 134
    Top = 130
  end
  object mttEmployee: TMemTableEh
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = dsdtEmployee
    OnCalcFields = mttEmployeeCalcFields
    Left = 212
    Top = 158
    object mttEmployeeEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object mttEmployeeLastName: TStringField
      FieldName = 'LastName'
    end
    object mttEmployeeFirstName: TStringField
      FieldName = 'FirstName'
      Size = 15
    end
    object mttEmployeePhoneExt: TStringField
      FieldName = 'PhoneExt'
      Size = 4
    end
    object mttEmployeeHireDate: TDateTimeField
      FieldName = 'HireDate'
    end
    object mttEmployeeSalary: TFloatField
      FieldName = 'Salary'
    end
    object mttEmployeeSalaryType: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'SalaryType'
      Calculated = True
    end
  end
  object mtqCustomer: TMemTableEh
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = dsdqCustomer
    Left = 286
    Top = 148
  end
  object mtqCustomer2: TMemTableEh
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = dsdqCustomer2
    Left = 386
    Top = 146
  end
  object dsdTable1: TDataSetDriverEh
    ProviderDataSet = Table1
    ResolveToDataSet = False
    Left = 40
    Top = 72
  end
  object dsdTable2: TDataSetDriverEh
    ProviderDataSet = Table2
    ResolveToDataSet = False
    Left = 132
    Top = 72
  end
  object dsdtEmployee: TDataSetDriverEh
    ProviderDataSet = tEmployee
    ResolveToDataSet = False
    Left = 212
    Top = 110
  end
  object dsdqCustomer: TDataSetDriverEh
    ProviderDataSet = qCustomer
    ResolveToDataSet = False
    Left = 286
    Top = 102
  end
  object dsdqCustomer2: TDataSetDriverEh
    ProviderDataSet = qCustomer2
    ResolveToDataSet = False
    Left = 386
    Top = 98
  end
  object mtFish: TMemTableEh
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = ddFish
    Left = 456
    Top = 152
    object mtFishSpeciesNo: TFloatField
      FieldName = 'Species No'
    end
    object mtFishCategory: TStringField
      FieldName = 'Category'
      Size = 15
    end
    object mtFishCommon_Name: TStringField
      FieldName = 'Common_Name'
      Size = 30
    end
    object mtFishSpeciesName: TStringField
      FieldName = 'Species Name'
      Size = 40
    end
    object mtFishLengthcm: TFloatField
      FieldName = 'Length (cm)'
    end
    object mtFishLength_In: TFloatField
      FieldName = 'Length_In'
    end
    object mtFishNotes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
    end
    object mtFishGraphic: TGraphicField
      FieldName = 'Graphic'
      BlobType = ftGraphic
    end
  end
  object ddFish: TDataSetDriverEh
    ProviderDataSet = tFish
    Left = 456
    Top = 208
  end
  object dsFish: TDataSource
    DataSet = mtFish
    Left = 456
    Top = 96
  end
  object ilPaymentType: TImageList
    Left = 312
    Top = 416
    Bitmap = {
      [encoded data, 17216 characters]
      000000000000}
  end
  object dsCustomersRDP: TDataSource
    DataSet = mtCustomersRDP
    Left = 542
    Top = 118
  end
  object ddrCustomersRDP: TDataSetDriverEh
    ProviderDataSet = tCustomersRDP
    ResolveToDataSet = False
    Left = 539
    Top = 215
  end
  object mtCustomersRDP: TMemTableEh
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = ddrCustomersRDP
    Left = 546
    Top = 167
  end
  object mtOrdersRDP: TMemTableEh
    CachedUpdates = True
    DetailFields = 'CustNo'
    FetchAllOnOpen = True
    MasterFields = 'CustNo'
    MasterSource = dsCustomersRDP
    Params = <>
    DataDriver = ddOrdersRDP
    Left = 628
    Top = 207
  end
  object ddOrdersRDP: TDataSetDriverEh
    ProviderDataSet = tOrdersRDP
    ResolveToDataSet = False
    Left = 627
    Top = 159
  end
  object dsOrdersRDP: TDataSource
    DataSet = mtOrdersRDP
    Left = 630
    Top = 110
  end
  object mtTreeView: TMemTableEh
    Active = True
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ID_PARENT'
        DataType = ftInteger
      end
      item
        Name = 'NAME'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Expanded'
        DataType = ftInteger
      end
      item
        Name = 'Visible'
        DataType = ftInteger
      end>
    FetchAllOnOpen = True
    IndexDefs = <
      item
        Name = 'MemTableEh1Index1'
        Fields = 'ID'
        Options = [ixPrimary]
      end>
    Params = <>
    StoreDefs = True
    TreeList.Active = True
    TreeList.KeyFieldName = 'ID'
    TreeList.RefParentFieldName = 'ID_PARENT'
    TreeList.DefaultNodeExpanded = True
    Left = 704
    Top = 160
    object mtTreeViewExpCount: TAggregateField
      FieldName = 'ExpCount'
      Active = True
      Expression = 'SUM(Expanded)'
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object ID: TMTNumericDataFieldEh
          FieldName = 'ID'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          DisplayLabel = 'ID'
          DisplayWidth = 10
          currency = False
          Precision = 0
        end
        object ID_PARENT: TMTNumericDataFieldEh
          FieldName = 'ID_PARENT'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          DisplayLabel = 'ID_PARENT'
          DisplayWidth = 10
          currency = False
          Precision = 0
        end
        object NAME: TMTStringDataFieldEh
          FieldName = 'NAME'
          StringDataType = fdtStringEh
          DisplayLabel = 'NAME'
          DisplayWidth = 30
          Size = 30
        end
        object Expanded: TMTNumericDataFieldEh
          FieldName = 'Expanded'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          DisplayLabel = 'Expanded'
          DisplayWidth = 10
          currency = False
          Precision = 0
        end
        object Visible: TMTNumericDataFieldEh
          FieldName = 'Visible'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          DisplayLabel = 'Visible'
          DisplayWidth = 10
          currency = False
          Precision = 0
        end
      end
      object RecordsList: TRecordsListEh
        Data = (
          (
            1
            0
            'ROOT1'
            1
            1)
          (
            2
            0
            'ROOT2'
            1
            1)
          (
            3
            0
            'ROOT3'
            1
            1)
          (
            4
            1
            'CHILD1'
            1
            1)
          (
            5
            1
            'CHILD2'
            1
            1)
          (
            6
            1
            'CHILD3'
            1
            1)
          (
            7
            2
            'CHILD4'
            1
            1)
          (
            8
            2
            'CHILD5'
            1
            1)
          (
            9
            2
            'CHILD6'
            1
            1)
          (
            10
            3
            'CHILD7'
            1
            1)
          (
            11
            3
            'CHILD8'
            1
            1)
          (
            12
            3
            'CHILD9'
            1
            1)
          (
            13
            1
            'CHILD10'
            1
            1)
          (
            14
            1
            'CHILD11'
            1
            1)
          (
            15
            1
            'CHILD12'
            1
            1)
          (
            16
            2
            'CHILD13'
            1
            1)
          (
            17
            2
            'CHILD14'
            1
            1)
          (
            18
            2
            'CHILD15'
            1
            1)
          (
            19
            3
            'CHILD16'
            1
            1)
          (
            20
            3
            'CHILD17'
            1
            1)
          (
            21
            5
            'SUBCH1'
            1
            1)
          (
            22
            5
            'SUBCH2'
            1
            1)
          (
            23
            5
            'SUBCH3'
            1
            1)
          (
            24
            5
            'SUBCH4'
            1
            1)
          (
            25
            22
            'SUBSUB1'
            1
            1))
      end
    end
  end
  object dsTreeView: TDataSource
    DataSet = mtTreeView
    Left = 704
    Top = 112
  end
  object dsdQuery1: TDataSetDriverEh
    ProviderDataSet = Query1
    ResolveToDataSet = False
    Left = 184
    Top = 332
  end
  object Table1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'orders'
    Left = 40
    Top = 24
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.dbdemos.mdb;Persis' +
      't Security Info=False;'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    BeforeConnect = ADOConnection1BeforeConnect
    Left = 576
    Top = 24
  end
  object Table2: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'OrderNo'
    TableName = 'items'
    Left = 132
    Top = 24
  end
  object qrPartsDescriprion: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  DISTINCT Description'
      'FROM parts'
      'ORDER BY'
      ' Description')
    Left = 392
    Top = 32
  end
  object tOrdersRDP: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'orders'
    Left = 632
    Top = 264
  end
  object tCustomersRDP: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'customer'
    Left = 544
    Top = 264
  end
  object tFish: TADOTable
    Connection = ADOBioConnection
    CursorType = ctStatic
    TableName = 'biolife'
    Left = 456
    Top = 264
  end
  object qCustomer2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from customer where 1=2')
    Left = 384
    Top = 248
  end
  object qCustomer: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from customer '
      ''
      '')
    Left = 288
    Top = 248
  end
  object tEmployee: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexName = 'ByName'
    TableName = 'employee'
    Left = 216
    Top = 256
    object tEmployeeEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object tEmployeeLastName: TStringField
      FieldName = 'LastName'
    end
    object tEmployeeFirstName: TStringField
      FieldName = 'FirstName'
      Size = 15
    end
    object tEmployeePhoneExt: TStringField
      FieldName = 'PhoneExt'
      Size = 4
    end
    object tEmployeeHireDate: TDateTimeField
      FieldName = 'HireDate'
    end
    object tEmployeeSalary: TFloatField
      FieldName = 'Salary'
      DisplayFormat = '#,##0.00'
    end
    object tEmployeeSalaryType: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'SalaryType'
      Calculated = True
    end
  end
  object tCustomer: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'customer'
    Left = 384
    Top = 368
  end
  object Query1: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection1
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'SELECT'
      '       Vendors.VendorNo as VNo,'
      '       Vendors.VendorName as VName,'
      '       Vendors.Preferred as VPreferred,'
      '       Parts.PartNo as PNo,'
      '       Parts.Description as PDescription,'
      '       Parts.Cost as PCost,'
      '       Items.Qty as IQty'
      ''
      'FROM Vendors, Parts, Items'
      'WHERE Vendors.VendorNo = Parts.VendorNo AND'
      '       Parts.PartNo = Items.PartNo'
      'ORDER BY Items.Qty, Parts.Cost'
      ' ')
    Left = 184
    Top = 384
    object Query1VNo: TAutoIncField
      ConstraintErrorMessage = 'Vendor No has to be between 1000 and 9999'
      DisplayLabel = 'Vendor of parts|Vendor Number|1'
      DisplayWidth = 17
      FieldName = 'VNo'
      Origin = 'Vendors.VendorName'
      DisplayFormat = 'VN 0000'
      MaxValue = 9999
      MinValue = 1000
    end
    object Query1VName: TStringField
      DisplayLabel = 'Vendor of parts|Vendor Name|2'
      DisplayWidth = 24
      FieldName = 'VName'
      Origin = 'Vendors.VendorName'
      Size = 30
    end
    object Query1PNo: TAutoIncField
      DisplayLabel = 'Parts|PN|3'
      DisplayWidth = 15
      FieldName = 'PNo'
      Origin = 'PARTS.PartNo'
      DisplayFormat = 'PN-00000'
    end
    object Query1PDescription: TStringField
      DisplayLabel = 'Parts|Description|4'
      DisplayWidth = 18
      FieldName = 'PDescription'
      Origin = 'PARTS.Description'
      Size = 30
    end
    object Query1PCost: TCurrencyField
      DisplayLabel = 'Parts|Cost|5'
      DisplayWidth = 9
      FieldName = 'PCost'
      Origin = 'PARTS.Cost'
      DisplayFormat = '#,##0.0000'
    end
    object Query1IQty: TIntegerField
      DisplayLabel = 'Items|Qry|6'
      DisplayWidth = 21
      FieldName = 'IQty'
      Origin = 'ITEMS.Qty'
    end
    object Query1VName1: TStringField
      FieldKind = fkLookup
      FieldName = 'VName1'
      LookupDataSet = qrVendors
      LookupKeyFields = 'VendorNo'
      LookupResultField = 'VendorName'
      KeyFields = 'VNo'
      Lookup = True
    end
    object Query1VPreferred: TBooleanField
      FieldName = 'VPreferred'
      Origin = 'vendors.Preferred'
    end
  end
  object qrVendors: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Vendors'
      'order by VendorName')
    Left = 40
    Top = 392
    object qrVendorsVendorNo: TAutoIncField
      CustomConstraint = '(VendorNo > 1000) and (VendorNo < 9999)'
      ConstraintErrorMessage = 'Vendor No has to be between 1000 and 9999'
      FieldName = 'VendorNo'
      Origin = 'Vendors.VendorName'
      DisplayFormat = 'VN 0000'
      MaxValue = 9999
      MinValue = 1000
    end
    object qrVendorsVendorName: TStringField
      DisplayLabel = 'Vendor Name'
      FieldName = 'VendorName'
      Origin = '"Vendors.DB".VendorName'
      Size = 30
    end
    object qrVendorsAddress1: TStringField
      FieldName = 'Address1'
      Origin = '"Vendors.DB".Address1'
      Size = 30
    end
    object qrVendorsAddress2: TStringField
      FieldName = 'Address2'
      Origin = '"Vendors.DB".Address2'
      Size = 30
    end
    object qrVendorsCity: TStringField
      FieldName = 'City'
      Origin = '"Vendors.DB".City'
    end
    object qrVendorsState: TStringField
      DisplayWidth = 12
      FieldName = 'State'
      Origin = '"Vendors.DB".State'
    end
    object qrVendorsZip: TStringField
      FieldName = 'Zip'
      Origin = '"Vendors.DB".Zip'
      Size = 10
    end
    object qrVendorsCountry: TStringField
      FieldName = 'Country'
      Origin = '"Vendors.DB".Country'
      Size = 15
    end
    object qrVendorsPhone: TStringField
      FieldName = 'Phone'
      Origin = '"Vendors.DB".Phone'
      Size = 15
    end
    object qrVendorsFAX: TStringField
      FieldName = 'FAX'
      Origin = '"Vendors.DB".FAX'
      Size = 15
    end
    object qrVendorsPreferred: TBooleanField
      FieldName = 'Preferred'
      Origin = '"Vendors.DB".Preferred'
    end
  end
  object ADOBioConnection: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.Biolife.mdb;Persis' +
      't Security Info=False;'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    BeforeConnect = ADOBioConnectionBeforeConnect
    Left = 672
    Top = 24
  end
end
