pas_depart.dfm

比较详细的功能

object Form_depart: TForm_depart
  Left = 253
  Top = 139
  Width = 756
  Height = 525
  Caption = #37096#38376
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 23
    Top = 113
    Width = 89
    Height = 13
    AutoSize = False
    Caption = '* '#32534#21495
  end
  object Label2: TLabel
    Left = 23
    Top = 145
    Width = 89
    Height = 17
    AutoSize = False
    Caption = '* '#20013#25991#21517
  end
  object Label4: TLabel
    Left = 31
    Top = 185
    Width = 82
    Height = 13
    AutoSize = False
    Caption = '*'#25163#26426
  end
  object Label5: TLabel
    Left = 31
    Top = 233
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #30005#35805
  end
  object Label6: TLabel
    Left = 31
    Top = 265
    Width = 81
    Height = 13
    AutoSize = False
    Caption = #22320#22336
  end
  object Label9: TLabel
    Left = 31
    Top = 297
    Width = 81
    Height = 13
    AutoSize = False
    Caption = #22791#27880
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1017
    Height = 33
    ButtonHeight = 31
    ButtonWidth = 57
    Caption = 'ToolBar1'
    Color = clGreen
    ParentColor = False
    TabOrder = 0
    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#37096#38376
      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#37096#38376'(F4)'
      Flat = True
      OnClick = addClick
    end
    object ToolButton3: TToolButton
      Left = 200
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object selecteveryth: TSpeedButton
      Left = 208
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #25152#26377#37096#38376
      Flat = True
      OnClick = selecteveryClick
    end
    object ToolButton7: TToolButton
      Left = 304
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object valid: TSpeedButton
      Left = 312
      Top = 2
      Width = 81
      Height = 31
      Cursor = crHandPoint
      Caption = #26377#25928#37096#38376
      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 = 72
      Height = 31
      Cursor = crHandPoint
      Caption = #26080#25928#37096#38376
      Flat = True
      OnClick = unvalidClick
    end
    object ToolButton2: TToolButton
      Left = 473
      Top = 2
      Width = 8
      ImageIndex = 0
      Style = tbsSeparator
    end
    object setUnvalid: TSpeedButton
      Left = 481
      Top = 2
      Width = 80
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26080#25928#37096#38376
      Flat = True
      OnClick = setUnvalidClick
    end
    object ToolButton4: TToolButton
      Left = 561
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object setvalid: TSpeedButton
      Left = 569
      Top = 2
      Width = 104
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26377#25928#37096#38376
      Flat = True
      OnClick = setvalidClick
    end
  end
  object Edit_no: TEdit
    Left = 135
    Top = 105
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object Edit_name: TEdit
    Left = 135
    Top = 137
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object Edit_phone: TEdit
    Left = 135
    Top = 177
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object Edit_tel: TEdit
    Left = 135
    Top = 225
    Width = 121
    Height = 21
    TabOrder = 4
  end
  object Edit_addr: TEdit
    Left = 135
    Top = 257
    Width = 242
    Height = 21
    TabOrder = 5
  end
  object Edit_remarks: TEdit
    Left = 135
    Top = 289
    Width = 242
    Height = 21
    TabOrder = 6
  end
  object DBGrid: TDBGrid
    Left = 377
    Top = 33
    Width = 640
    Height = 441
    Align = alRight
    DataSource = DM.DS_depart
    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