add1.dfm

DElphi教学排课管理系统全套 包括论文。希望对大家有帮助

object Form20: TForm20
  Left = 251
  Top = 163
  Width = 290
  Height = 568
  Caption = #22686#21152#26032#25945#24072
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 24
    Width = 48
    Height = 13
    Caption = #25945#24072#21495#65306
  end
  object Label2: TLabel
    Left = 32
    Top = 56
    Width = 51
    Height = 13
    Caption = #23494'     '#30721#65306
  end
  object Label3: TLabel
    Left = 32
    Top = 88
    Width = 51
    Height = 13
    Caption = #22995'     '#21517#65306
  end
  object Label4: TLabel
    Left = 32
    Top = 168
    Width = 54
    Height = 13
    Caption = #29983'      '#26085#65306
  end
  object Label6: TLabel
    Left = 32
    Top = 200
    Width = 54
    Height = 13
    Caption = #32844'      '#21153#65306
  end
  object Label7: TLabel
    Left = 8
    Top = 232
    Width = 72
    Height = 13
    Caption = #21463#25945#32946#27700#24179#65306
  end
  object Label8: TLabel
    Left = 32
    Top = 264
    Width = 54
    Height = 13
    Caption = #19987'      '#19994#65306
  end
  object Label9: TLabel
    Left = 32
    Top = 296
    Width = 54
    Height = 13
    Caption = #20303'      '#22336#65306
  end
  object Label10: TLabel
    Left = 32
    Top = 328
    Width = 54
    Height = 13
    Caption = #30005'      '#35805#65306
  end
  object Label11: TLabel
    Left = 32
    Top = 352
    Width = 58
    Height = 13
    Caption = 'E -  mail   '#65306
  end
  object Label12: TLabel
    Left = 32
    Top = 384
    Width = 57
    Height = 13
    Caption = #22791'       '#27880#65306
  end
  object i_user: TDBEdit
    Left = 88
    Top = 16
    Width = 161
    Height = 21
    TabStop = False
    DataField = 'ID'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    ReadOnly = True
    TabOrder = 5
  end
  object i_passwd: TEdit
    Left = 88
    Top = 48
    Width = 161
    Height = 21
    TabStop = False
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    PasswordChar = '*'
    ReadOnly = True
    TabOrder = 10
    Text = 'i_passwd'
  end
  object i_name: TDBEdit
    Left = 88
    Top = 80
    Width = 161
    Height = 21
    DataField = 'NAME'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    TabOrder = 0
  end
  object i_sex: TDBRadioGroup
    Left = 32
    Top = 112
    Width = 217
    Height = 41
    Caption = #24615'  '#21035
    Columns = 2
    DataField = 'SEX'
    DataSource = DS_user
    Items.Strings = (
      #30007
      #22899)
    TabOrder = 1
    TabStop = True
    Values.Strings = (
      'M'
      'F')
  end
  object i_birthday: TDBEdit
    Left = 88
    Top = 160
    Width = 161
    Height = 21
    DataField = 'BIRTHDAY'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    TabOrder = 2
  end
  object i_job: TDBLookupComboBox
    Left = 88
    Top = 192
    Width = 161
    Height = 21
    DataField = 'JOB'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    KeyField = 'CODE'
    ListField = 'DESCRIPTION'
    ListSource = DS_job
    TabOrder = 3
  end
  object i_edu_level: TDBLookupComboBox
    Left = 88
    Top = 224
    Width = 161
    Height = 21
    DataField = 'EDU_LEVEL'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    KeyField = 'CODE'
    ListField = 'DESCRIPTION'
    ListSource = DS_edu_level
    TabOrder = 4
  end
  object i_specialty: TDBEdit
    Left = 88
    Top = 256
    Width = 161
    Height = 21
    DataField = 'SPECIALTY'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    TabOrder = 11
  end
  object i_address: TDBEdit
    Left = 88
    Top = 288
    Width = 161
    Height = 21
    DataField = 'ADDRESS'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    TabOrder = 6
  end
  object i_tel: TDBEdit
    Left = 88
    Top = 320
    Width = 161
    Height = 21
    DataField = 'TEL'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    TabOrder = 7
  end
  object i_email: TDBEdit
    Left = 88
    Top = 352
    Width = 161
    Height = 21
    DataField = 'EMAIL'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    TabOrder = 8
  end
  object i_remark: TDBMemo
    Left = 32
    Top = 408
    Width = 217
    Height = 81
    DataField = 'REMARK'
    DataSource = DS_user
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    TabOrder = 9
  end
  object Button1: TButton
    Left = 96
    Top = 504
    Width = 75
    Height = 25
    Caption = #22686#21152
    Default = True
    TabOrder = 12
    OnClick = Button1Click
  end
  object T_add_user: TTable
    DatabaseName = 'mydatabase'
    TableName = 'PERSON'
    Left = 320
    Top = 32
  end
  object DS_user: TDataSource
    DataSet = T_add_user
    Left = 320
    Top = 64
  end
  object T_department: TTable
    DatabaseName = 'mydatabase'
    TableName = 'DEPARTMENT'
    Left = 320
    Top = 104
  end
  object DS_department: TDataSource
    DataSet = T_department
    Left = 320
    Top = 144
  end
  object T_job: TTable
    DatabaseName = 'mydatabase'
    TableName = 'JOB'
    Left = 320
    Top = 184
  end
  object DS_job: TDataSource
    DataSet = T_job
    Left = 320
    Top = 224
  end
  object T_edu_level: TTable
    DatabaseName = 'mydatabase'
    TableName = 'EDU_LEVEL'
    Left = 320
    Top = 264
  end
  object DS_edu_level: TDataSource
    DataSet = T_edu_level
    Left = 320
    Top = 304
  end
  object T_counter: TTable
    DatabaseName = 'mydatabase'
    TableName = 'COUNTER'
    Left = 320
    Top = 344
  end
  object T_change: TTable
    DatabaseName = 'mydatabase'
    TableName = 'PERSONNEL'
    Left = 320
    Top = 384
  end
end