Delphi控件源码

开发平台：
Delphi

EmployeeFrm.dfm：源码内容
							object EmployeeForm: TEmployeeForm
  Left = 323
  Top = 235
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #24080#21495
  ClientHeight = 217
  ClientWidth = 376
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 36
    Height = 12
    Caption = #29992#25143#21517
  end
  object Label2: TLabel
    Left = 8
    Top = 44
    Width = 24
    Height = 12
    Caption = #22995#21517
  end
  object Label3: TLabel
    Left = 8
    Top = 72
    Width = 24
    Height = 12
    Caption = #23494#30721
  end
  object Label4: TLabel
    Left = 8
    Top = 100
    Width = 48
    Height = 12
    Caption = #30830#35748#23494#30721
  end
  object Label5: TLabel
    Left = 8
    Top = 128
    Width = 24
    Height = 12
    Caption = #32844#21153
  end
  object Label6: TLabel
    Left = 8
    Top = 156
    Width = 24
    Height = 12
    Caption = #32423#21035
  end
  object Bevel1: TBevel
    Left = 8
    Top = 170
    Width = 361
    Height = 10
    Shape = bsBottomLine
  end
  object EDLoginName: TEdit
    Left = 64
    Top = 8
    Width = 305
    Height = 20
    TabOrder = 0
    OnChange = EDLoginNameChange
    OnKeyPress = EDLoginNameKeyPress
  end
  object EDTrueName: TEdit
    Left = 64
    Top = 36
    Width = 305
    Height = 20
    TabOrder = 1
    OnChange = EDLoginNameChange
    OnKeyPress = EDLoginNameKeyPress
  end
  object EDPassword: TEdit
    Left = 64
    Top = 64
    Width = 305
    Height = 20
    PasswordChar = '*'
    TabOrder = 2
    OnChange = EDLoginNameChange
    OnKeyPress = EDLoginNameKeyPress
  end
  object EDConfirmPassword: TEdit
    Left = 64
    Top = 92
    Width = 305
    Height = 20
    PasswordChar = '*'
    TabOrder = 3
    OnChange = EDLoginNameChange
    OnKeyPress = EDLoginNameKeyPress
  end
  object CBJob: TComboBox
    Left = 64
    Top = 120
    Width = 305
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 4
    OnChange = EDLoginNameChange
  end
  object CBLevel: TComboBox
    Left = 64
    Top = 148
    Width = 305
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 5
    OnChange = EDLoginNameChange
  end
  object BTOK: TButton
    Left = 214
    Top = 187
    Width = 75
    Height = 23
    Caption = #30830#23450
    Enabled = False
    ModalResult = 1
    TabOrder = 6
  end
  object BTCancel: TButton
    Left = 294
    Top = 187
    Width = 75
    Height = 23
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 7
  end
end

						