object Form1: TForm1
  Left = 322
  Top = 140
  Width = 358
  Height = 643
  Caption = #1056#1077#1076#1072#1082#1090#1086#1088' '#1073#1072#1079#1099' '#1076#1072#1085#1085#1099#1093' '#1091#1095#1077#1073#1085#1080#1082#1072' '#1087#1086' '#1076#1080#1092#1092#1077#1088#1077#1085#1094#1080#1072#1083#1100#1085#1086#1081' '#1075#1077#1086#1084#1077#1090#1088#1080#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  DesignSize = (
    350
    609)
  PixelsPerInch = 96
  TextHeight = 13
  object grp2: TGroupBox
    Left = 8
    Top = 8
    Width = 334
    Height = 593
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #1054#1090#1074#1077#1090#1099' '#1085#1072' '#1090#1077#1089#1090#1080#1088#1086#1074#1072#1085#1080#1077
    TabOrder = 0
    DesignSize = (
      334
      593)
    object dbnvgr2: TDBNavigator
      Left = 9
      Top = 16
      Width = 240
      Height = 25
      DataSource = dsTest
      TabOrder = 0
    end
    object dbg2: TDBGrid
      Left = 8
      Top = 48
      Width = 318
      Height = 537
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = dsTest
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      Columns = <
        item
          DropDownRows = 100
          Expanded = False
          FieldName = 'Nomer'
          PickList.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12'
            '13'
            '14'
            '15'
            '16'
            '17'
            '18'
            '19'
            '20')
          Title.Caption = #1053#1086#1084#1077#1088' '#1074#1086#1087#1088#1086#1089#1072
          Width = 154
          Visible = True
        end
        item
          DropDownRows = 100
          Expanded = False
          FieldName = 'Otvet'
          PickList.Strings = (
            'A'
            'B'
            'C'
            'D'
            'E')
          Title.Caption = #1054#1090#1074#1077#1090
          Width = 127
          Visible = True
        end>
    end
  end
  object con1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=BookD' +
      'G.mdb;Mode=Share Deny None;Extended Properties="";Persist Securi' +
      'ty Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Pa' +
      'th="";Jet OLEDB:Database Password=admin;Jet OLEDB:Engine Type=5;' +
      'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk ' +
      'Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Databas' +
      'e Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:E' +
      'ncrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=Fal' +
      'se;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=' +
      'False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 208
  end
  object dsTest: TDataSource
    DataSet = tblTest
    Left = 24
    Top = 272
  end
  object tblTest: TADOTable
    Active = True
    Connection = con1
    CursorType = ctStatic
    OnNewRecord = tblTestNewRecord
    IndexFieldNames = 'Nomer'
    TableName = 'Test'
    Left = 52
    Top = 272
  end
end
