unit1.dfm

实现了断路器群控系统

object Form1: TForm1
  Left = 204
  Top = 160
  Width = 725
  Height = 487
  Caption = #26029#36335#22120#22522#26412#20449#24687#34920
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 32
    Width = 248
    Height = 30
    Caption = #26029#36335#22120#22522#26412#20449#24687#34920' '
    Font.Charset = GB2312_CHARSET
    Font.Color = clGray
    Font.Height = -29
    Font.Name = #21326#25991#34892#26999
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 490
    Top = 169
    Width = 48
    Height = 16
    Caption = #22411#21495#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 488
    Top = 222
    Width = 80
    Height = 16
    Caption = #23433#35013#26102#38388#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 487
    Top = 270
    Width = 80
    Height = 16
    Caption = #29983#20135#21378#23478#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 486
    Top = 318
    Width = 112
    Height = 16
    Caption = #26368#22823#39069#23450#30005#27969#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 485
    Top = 368
    Width = 112
    Height = 16
    Caption = #26368#22823#39069#23450#30005#21387#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 480
    Top = 136
    Width = 225
    Height = 313
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 136
    Width = 465
    Height = 313
    DataSource = DataSource2
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #21517#31216
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = #24188#22278
        Title.Font.Style = []
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32534#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = #24188#22278
        Title.Font.Style = []
        Width = 38
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22411#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = #24188#22278
        Title.Font.Style = []
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23433#35013#26102#38388
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = #24188#22278
        Title.Font.Style = []
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29983#20135#21378#23478
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = #24188#22278
        Title.Font.Style = []
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26368#22823#39069#23450#30005#27969
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = #24188#22278
        Title.Font.Style = []
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26368#22823#39069#23450#30005#21387
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = #24188#22278
        Title.Font.Style = []
        Width = 87
        Visible = True
      end>
  end
  object Button2: TButton
    Left = 400
    Top = 35
    Width = 75
    Height = 25
    Caption = #20840#37096#26174#31034
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button4: TButton
    Left = 580
    Top = 35
    Width = 75
    Height = 25
    Caption = #36820#22238
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button4Click
  end
  object Edit2: TEdit
    Left = 566
    Top = 167
    Width = 113
    Height = 21
    TabOrder = 3
  end
  object Edit4: TEdit
    Left = 566
    Top = 268
    Width = 118
    Height = 21
    TabOrder = 4
  end
  object Edit5: TEdit
    Left = 595
    Top = 316
    Width = 89
    Height = 21
    TabOrder = 5
  end
  object Edit6: TEdit
    Left = 596
    Top = 365
    Width = 89
    Height = 21
    TabOrder = 6
  end
  object Button1: TButton
    Left = 552
    Top = 415
    Width = 75
    Height = 25
    Caption = #35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = Button1Click
  end
  object RadioButton1: TRadioButton
    Left = 16
    Top = 98
    Width = 113
    Height = 17
    Caption = #26029#36335#22120'1'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object RadioButton2: TRadioButton
    Left = 152
    Top = 98
    Width = 113
    Height = 17
    Caption = #26029#36335#22120'2'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object RadioButton3: TRadioButton
    Left = 304
    Top = 98
    Width = 113
    Height = 17
    Caption = #26029#36335#22120'3'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object DateTimePicker1: TDateTimePicker
    Left = 565
    Top = 220
    Width = 121
    Height = 21
    Date = 39001.364758564810000000
    Time = 39001.364758564810000000
    TabOrder = 11
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 640
    Top = 88
  end
  object ADODataSet2: TADODataSet
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=10KV'#26029#36335#22120#32676#25511#31995#32479';Data Source=pc218'
    CursorType = ctStatic
    CommandText = 'select * from '#26029#36335#22120#30340#22522#26412#20449#24687#34920
    Parameters = <>
    Left = 672
    Top = 88
  end
end