unit1.dfm

再发一个个人管理的代码

object Form1: TForm1
  Left = 196
  Top = 98
  Width = 700
  Height = 581
  Caption = #20010'  '#20154'  '#21161'  '#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 217
    Width = 692
    Height = 284
    Align = alClient
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #22995#21517
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31227#21160#30005#35805
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24615#21035
        Width = 27
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26165#31216
        Width = 37
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29983#26085
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QQ'
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23478#24237#30005#35805
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23478#24237#20303#22336
        Width = 172
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301#30005#35805
        Width = 84
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24037#20316#21333#20301
        Width = 219
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 501
    Width = 692
    Height = 53
    Align = alBottom
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 451
      Top = 9
      Width = 112
      Height = 41
      Caption = #28155#21152#20449#24687
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 564
      Top = 8
      Width = 126
      Height = 41
      Caption = #36864#20986#31995#32479
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton3: TSpeedButton
      Left = 115
      Top = 9
      Width = 112
      Height = 41
      Caption = #19978#19968#26465
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 227
      Top = 9
      Width = 112
      Height = 41
      Caption = #19979#19968#26465
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 3
      Top = 9
      Width = 112
      Height = 41
      Caption = #39318#26465
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 339
      Top = 9
      Width = 112
      Height = 41
      Caption = #26411#26465
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton6Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 692
    Height = 217
    Align = alTop
    Caption = #20449#24687#26174#31034
    TabOrder = 2
    object DBText1: TDBText
      Left = 64
      Top = 35
      Width = 80
      Height = 20
      DataField = #22995#21517
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 198
      Top = 35
      Width = 59
      Height = 20
      DataField = #26165#31216
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 198
      Top = 64
      Width = 59
      Height = 20
      DataField = #24615#21035
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 557
      Top = 35
      Width = 89
      Height = 20
      DataField = #29983#26085
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 64
      Top = 64
      Width = 73
      Height = 20
      DataField = 'QQ'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 371
      Top = 35
      Width = 97
      Height = 20
      DataField = #31227#21160#30005#35805
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText7: TDBText
      Left = 369
      Top = 64
      Width = 101
      Height = 20
      DataField = #23478#24237#30005#35805
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText8: TDBText
      Left = 96
      Top = 120
      Width = 577
      Height = 20
      DataField = #23478#24237#20303#22336
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText9: TDBText
      Left = 96
      Top = 96
      Width = 537
      Height = 20
      DataField = #24037#20316#21333#20301
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText10: TDBText
      Left = 580
      Top = 64
      Width = 97
      Height = 20
      DataField = #21333#20301#30005#35805
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 16
      Top = 35
      Width = 49
      Height = 16
      AutoSize = False
      Caption = #22995#21517':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 157
      Top = 35
      Width = 38
      Height = 16
      AutoSize = False
      Caption = #26165#31216':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 157
      Top = 64
      Width = 40
      Height = 16
      AutoSize = False
      Caption = #24615#21035':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 509
      Top = 35
      Width = 46
      Height = 16
      AutoSize = False
      Caption = #29983#26085':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 64
      Width = 41
      Height = 16
      AutoSize = False
      Caption = 'QQ:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 295
      Top = 35
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #31227#21160#30005#35805':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 296
      Top = 64
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #23478#24237#30005#35805':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 17
      Top = 120
      Width = 74
      Height = 16
      AutoSize = False
      Caption = #23478#24237#20303#22336':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 16
      Top = 96
      Width = 80
      Height = 16
      AutoSize = False
      Caption = #24037#20316#21333#20301':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 508
      Top = 64
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #21333#20301#30005#35805':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 142
      Width = 688
      Height = 73
      Align = alBottom
      Caption = #20449#24687#26597#35810
      TabOrder = 0
      object Label11: TLabel
        Left = 96
        Top = 16
        Width = 73
        Height = 17
        AutoSize = False
        Caption = #26597#35810#23383#27573
      end
      object Label12: TLabel
        Left = 256
        Top = 16
        Width = 177
        Height = 17
        AutoSize = False
        Caption = #26597#35810#23383#27573#20540'('#25903#25345#27169#31946#26597#35810')'
      end
      object Edit1: TEdit
        Left = 256
        Top = 32
        Width = 145
        Height = 24
        BevelKind = bkSoft
        BorderStyle = bsNone
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object Button1: TButton
        Left = 442
        Top = 31
        Width = 97
        Height = 27
        Caption = #26597' '#35810
        Default = True
        TabOrder = 1
        OnClick = Button1Click
      end
      object ComboBox1: TComboBox
        Left = 94
        Top = 32
        Width = 137
        Height = 24
        BevelKind = bkFlat
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 2
        Items.Strings = (
          #22995#21517
          #31227#21160#30005#35805
          #24615#21035
          #26165#31216
          #29983#26085
          'QQ'
          #23478#24237#30005#35805
          #21333#20301#30005#35805
          #23478#24237#20303#22336
          #21333#20301#20303#22336)
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = main_form.ADOQuery1
    Left = 16
    Top = 184
  end
end