add.dfm

一个很好的企业内部人事管理系统,具有基本的框架和标准的结构,很容易改成具体的复杂的应用系统

inherited F_add: TF_add
  Left = 394
  Top = 152
  Width = 272
  Height = 469
  ActiveControl = i_name
  Caption = '增加新员工'
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 64
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '姓　名：'
  end
  object Label2: TLabel
    Left = 8
    Top = 16
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '员工号：'
  end
  object Label3: TLabel
    Left = 8
    Top = 40
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '密　码：'
  end
  object Label5: TLabel
    Left = 8
    Top = 128
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '生　日：'
  end
  object Label6: TLabel
    Left = 8
    Top = 152
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '部　门：'
  end
  object Label7: TLabel
    Left = 8
    Top = 176
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '职　务：'
  end
  object Label9: TLabel
    Left = 8
    Top = 200
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '受教育水平：'
  end
  object Label10: TLabel
    Left = 8
    Top = 224
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '专　业：'
  end
  object Label11: TLabel
    Left = 8
    Top = 248
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '住　址：'
  end
  object Label12: TLabel
    Left = 8
    Top = 272
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '电　话：'
  end
  object Label13: TLabel
    Left = 8
    Top = 296
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'E-mail：'
  end
  object Label14: TLabel
    Left = 16
    Top = 320
    Width = 80
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '备　注：'
  end
  object i_department: TDBLookupComboBox
    Left = 88
    Top = 148
    Width = 145
    Height = 21
    DataField = 'DEPARTMENT'
    DataSource = DataModule1.DS_add_user
    KeyField = 'ID'
    ListField = 'NAME'
    ListSource = DataModule1.DS_department
    TabOrder = 3
  end
  object i_job: TDBLookupComboBox
    Left = 88
    Top = 172
    Width = 145
    Height = 21
    DataField = 'JOB'
    DataSource = DataModule1.DS_add_user
    KeyField = 'CODE'
    ListField = 'DESCRIPTION'
    ListSource = DataModule1.DS_job
    TabOrder = 4
  end
  object i_edu_level: TDBLookupComboBox
    Left = 88
    Top = 196
    Width = 145
    Height = 21
    DataField = 'EDU_LEVEL'
    DataSource = DataModule1.DS_add_user
    KeyField = 'CODE'
    ListField = 'DESCRIPTION'
    ListSource = DataModule1.DS_edu_level
    TabOrder = 5
  end
  object Button1: TButton
    Left = 96
    Top = 400
    Width = 75
    Height = 25
    Caption = '增加'
    Default = True
    TabOrder = 11
    OnClick = Button1Click
  end
  object i_user: TDBEdit
    Left = 88
    Top = 12
    Width = 145
    Height = 21
    TabStop = False
    Color = clSilver
    DataField = 'ID'
    DataSource = DataModule1.DS_add_user
    ReadOnly = True
    TabOrder = 12
  end
  object i_name: TDBEdit
    Left = 88
    Top = 60
    Width = 145
    Height = 21
    DataField = 'NAME'
    DataSource = DataModule1.DS_add_user
    ImeMode = imChinese
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 0
  end
  object i_birthday: TDBEdit
    Left = 88
    Top = 124
    Width = 145
    Height = 21
    DataField = 'BIRTHDAY'
    DataSource = DataModule1.DS_add_user
    ImeMode = imAlpha
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 2
  end
  object i_specialty: TDBEdit
    Left = 88
    Top = 220
    Width = 145
    Height = 21
    DataField = 'SPECIALTY'
    DataSource = DataModule1.DS_add_user
    TabOrder = 6
  end
  object i_address: TDBEdit
    Left = 88
    Top = 244
    Width = 145
    Height = 21
    DataField = 'ADDRESS'
    DataSource = DataModule1.DS_add_user
    TabOrder = 7
  end
  object i_tel: TDBEdit
    Left = 88
    Top = 268
    Width = 145
    Height = 21
    DataField = 'TEL'
    DataSource = DataModule1.DS_add_user
    TabOrder = 8
  end
  object i_email: TDBEdit
    Left = 88
    Top = 292
    Width = 145
    Height = 21
    DataField = 'EMAIL'
    DataSource = DataModule1.DS_add_user
    TabOrder = 9
  end
  object i_remark: TDBMemo
    Left = 32
    Top = 336
    Width = 201
    Height = 49
    DataField = 'REMARK'
    DataSource = DataModule1.DS_add_user
    TabOrder = 10
  end
  object i_passwd: TEdit
    Left = 88
    Top = 36
    Width = 145
    Height = 21
    TabStop = False
    Color = clSilver
    ReadOnly = True
    TabOrder = 13
  end
  object i_sex: TDBRadioGroup
    Left = 32
    Top = 88
    Width = 201
    Height = 33
    BiDiMode = bdLeftToRight
    Caption = '性　别'
    Columns = 2
    DataField = 'SEX'
    DataSource = DataModule1.DS_add_user
    Items.Strings = (
      '男'
      '女')
    ParentBiDiMode = False
    TabOrder = 1
    TabStop = True
    Values.Strings = (
      'M'
      'F')
  end
end