pas_deputy.dfm

比较详细的功能

object Form_deputy: TForm_deputy
  Left = -4
  Top = -4
  Width = 1032
  Height = 746
  Caption = #20195#29702#20154
  Color = clTeal
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 168
    Width = 89
    Height = 13
    AutoSize = False
    Caption = '* '#32534#21495
  end
  object Label2: TLabel
    Left = 48
    Top = 200
    Width = 89
    Height = 17
    AutoSize = False
    Caption = '* '#20013#25991#21517
  end
  object Label4: TLabel
    Left = 48
    Top = 232
    Width = 89
    Height = 13
    AutoSize = False
    Caption = '*'#25163#26426
  end
  object Label5: TLabel
    Left = 48
    Top = 272
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #30005#35805
  end
  object Label6: TLabel
    Left = 48
    Top = 304
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #22320#22336
  end
  object Label9: TLabel
    Left = 48
    Top = 336
    Width = 97
    Height = 13
    AutoSize = False
    Caption = #22791#27880
  end
  object Edit_no: TEdit
    Left = 160
    Top = 160
    Width = 121
    Height = 21
    TabOrder = 0
  end
  object Edit_name: TEdit
    Left = 160
    Top = 192
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object Edit_phone: TEdit
    Left = 160
    Top = 224
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object Edit_tel: TEdit
    Left = 160
    Top = 264
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object Edit_addr: TEdit
    Left = 160
    Top = 296
    Width = 121
    Height = 21
    TabOrder = 4
  end
  object Edit_remarks: TEdit
    Left = 160
    Top = 328
    Width = 121
    Height = 21
    TabOrder = 5
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1024
    Height = 33
    ButtonHeight = 31
    ButtonWidth = 57
    Caption = 'ToolBar1'
    Color = clGreen
    ParentColor = False
    TabOrder = 6
    object select: TSpeedButton
      Left = 0
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Hint = #21487#20197#27169#31946#26597#35810#21517#23383
      Caption = #26597#35810#20195#29702#20154
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = selectClick
    end
    object ToolButton5: TToolButton
      Left = 96
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object add: TSpeedButton
      Left = 104
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #28155#21152#20195#29702#20154
      Flat = True
      OnClick = addClick
    end
    object ToolButton7: TToolButton
      Left = 200
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object selectevery: TSpeedButton
      Left = 208
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #25152#26377#20195#29702#20154
      Flat = True
      OnClick = selecteveryClick
    end
    object ToolButton3: TToolButton
      Left = 304
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object valid: TSpeedButton
      Left = 312
      Top = 2
      Width = 81
      Height = 31
      Cursor = crHandPoint
      Caption = #26377#25928#20195#29702#20154
      Flat = True
      OnClick = validClick
    end
    object ToolButton1: TToolButton
      Left = 393
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object unvalid: TSpeedButton
      Left = 401
      Top = 2
      Width = 88
      Height = 31
      Cursor = crHandPoint
      Caption = #26080#25928#20195#29702#20154
      Flat = True
      OnClick = unvalidClick
    end
    object ToolButton2: TToolButton
      Left = 489
      Top = 2
      Width = 8
      ImageIndex = 0
      Style = tbsSeparator
    end
    object setUnvalid: TSpeedButton
      Left = 497
      Top = 2
      Width = 104
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26080#25928#20195#29702#20154
      Flat = True
      OnClick = setUnvalidClick
    end
    object ToolButton4: TToolButton
      Left = 601
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object setvalid: TSpeedButton
      Left = 609
      Top = 2
      Width = 104
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26377#25928#20195#29702#20154
      Flat = True
      OnClick = setvalidClick
    end
  end
  object DBGrid: TDBGrid
    Left = 304
    Top = 33
    Width = 720
    Height = 679
    Align = alRight
    DataSource = DM.ds_deputy
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridCellClick
    OnDblClick = DBGridDblClick
  end
end