object F_vcdgl: TF_vcdgl
  Left = 50
  Top = 152
  Width = 784
  Height = 571
  Caption = #22270#20070#24433#30879#36164#26009#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 16
    Top = 40
    Width = 57
    Height = 25
    Action = DataSetInsert1
    Caption = #26032#24314
    TabOrder = 0
  end
  object BitBtn2: TBitBtn
    Left = 88
    Top = 40
    Width = 65
    Height = 25
    Action = DataSetEdit1
    Caption = #32534#36753
    TabOrder = 1
  end
  object BitBtn3: TBitBtn
    Left = 168
    Top = 40
    Width = 65
    Height = 25
    Action = DataSetDelete1
    Caption = #21024#38500
    TabOrder = 2
  end
  object BitBtn4: TBitBtn
    Left = 248
    Top = 40
    Width = 65
    Height = 25
    Action = DataSetFirst1
    Caption = #39318#32426#24405
    TabOrder = 3
  end
  object BitBtn5: TBitBtn
    Left = 328
    Top = 40
    Width = 65
    Height = 25
    Action = DataSetPrior1
    Caption = #19978#19968#26465
    TabOrder = 4
  end
  object BitBtn6: TBitBtn
    Left = 408
    Top = 40
    Width = 65
    Height = 25
    Action = DataSetNext1
    Caption = #19979#19968#26465
    TabOrder = 5
  end
  object BitBtn7: TBitBtn
    Left = 488
    Top = 40
    Width = 65
    Height = 25
    Action = DataSetLast1
    Caption = #23614#32426#24405
    TabOrder = 6
  end
  object BitBtn8: TBitBtn
    Left = 648
    Top = 40
    Width = 65
    Height = 25
    Caption = #25171#21360
    TabOrder = 7
    OnClick = BitBtn8Click
  end
  object DBGrid: TDBGrid
    Left = 16
    Top = 80
    Width = 745
    Height = 449
    Ctl3D = True
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnTitleClick = DBGridTitleClick
    Columns = <
      item
        Expanded = False
        FieldName = #32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22823#31867
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23567#31867
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21517#31216
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36141#20837#26085#26399
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20316#32773#23548#28436
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20027#28436
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20215#26684
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24180#35777#31199#37329
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26376#35777#31199#37329
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #38646#31199#31199#37329
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#20301#21495
        Width = 64
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #29366#24577
        Visible = True
      end>
  end
  object b_locate: TBitBtn
    Left = 568
    Top = 40
    Width = 65
    Height = 25
    Caption = #23450#20301
    TabOrder = 9
    OnClick = b_locateClick
  end
  object DataSource1: TDataSource
    DataSet = dm.ADO_vcd
    Left = 664
    Top = 376
  end
  object ActionList1: TActionList
    Left = 704
    Top = 360
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = '&First'
      Hint = 'First'
      ImageIndex = 0
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = '&Prior'
      Hint = 'Prior'
      ImageIndex = 1
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = '&Next'
      Hint = 'Next'
      ImageIndex = 2
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = '&Last'
      Hint = 'Last'
      ImageIndex = 3
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = '&Insert'
      Hint = 'Insert'
      ImageIndex = 4
      OnExecute = DataSetInsert1Execute
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = '&Delete'
      Hint = 'Delete'
      ImageIndex = 5
      OnExecute = DataSetDelete1Execute
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = '&Edit'
      Hint = 'Edit'
      ImageIndex = 6
      OnExecute = DataSetEdit1Execute
    end
  end
end