object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 485
  Top = 297
  Height = 170
  Width = 341
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persis' +
      't Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = BookTable
    Left = 120
    Top = 16
  end
  object BookTable: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082
    Left = 120
    Top = 80
    object BookTableKey1: TAutoIncField
      FieldName = 'Key1'
      ReadOnly = True
      Visible = False
    end
    object BookTableDSDesigner: TWideStringField
      DisplayWidth = 15
      FieldName = #1060#1072#1084#1080#1083#1080#1103
      Size = 50
    end
    object BookTableDSDesigner2: TWideStringField
      DisplayWidth = 15
      FieldName = #1048#1084#1103
      Size = 50
    end
    object BookTableDSDesigner3: TWideStringField
      FieldName = #1058#1077#1083#1077#1092#1086#1085
      Size = 10
    end
    object BookTableemail: TWideStringField
      DisplayWidth = 15
      FieldName = 'e-mail'
    end
    object BookTableDSDesigner4: TIntegerField
      FieldName = #1043#1086#1088#1086#1076
    end
    object BookTableDSDesigner5: TDateTimeField
      DisplayLabel = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
      FieldName = #1044#1072#1090#1072
      DisplayFormat = 'dddddd'
      EditMask = '99/99/9999'
    end
    object BookTableDSDesigner6: TBooleanField
      FieldName = #1052#1086#1073#1080#1083#1100#1085#1080#1082
      DisplayValues = #1044#1072';'#1053#1077#1090
    end
  end
  object TownSource: TDataSource
    DataSet = TownTable
    Left = 216
    Top = 16
  end
  object TownTable: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1075#1086#1088#1086#1076#1086#1074
    Left = 216
    Top = 80
    object TownTableKey1: TAutoIncField
      FieldName = 'Key1'
      ReadOnly = True
      Visible = False
    end
    object TownTableDSDesigner: TWideStringField
      FieldName = #1053#1072#1079#1074#1072#1085#1080#1077' '#1075#1086#1088#1086#1076#1072
      Size = 30
    end
  end
end
