registeremployee.dfm

餐饮管理源代码 使用BDE Administrator在本地机器上添加一个Paradox数据库别名命名为WorkData

object frmRegisterEmployee: TfrmRegisterEmployee
  Left = -4
  Top = -4
  Width = 808
  Height = 608
  Caption = #21592#24037#36164#26009#24405#20837
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 785
    Height = 145
    Caption = #22635#20889#21592#24037#22522#26412#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 48
      Height = 13
      Caption = #21592#24037#32534#21495
    end
    object Label2: TLabel
      Left = 208
      Top = 32
      Width = 48
      Height = 13
      Caption = #21592#24037#22995#21517
    end
    object Label3: TLabel
      Left = 384
      Top = 32
      Width = 24
      Height = 13
      Caption = #24615#21035
    end
    object Label4: TLabel
      Left = 488
      Top = 32
      Width = 24
      Height = 13
      Caption = #27665#26063
    end
    object Label5: TLabel
      Left = 48
      Top = 68
      Width = 24
      Height = 13
      Caption = #23398#21382
    end
    object Label6: TLabel
      Left = 640
      Top = 32
      Width = 24
      Height = 13
      Caption = #29983#26085
    end
    object Label7: TLabel
      Left = 232
      Top = 68
      Width = 24
      Height = 13
      Caption = #30005#35805
    end
    object Label8: TLabel
      Left = 384
      Top = 72
      Width = 24
      Height = 13
      Caption = #20303#22336
    end
    object Label9: TLabel
      Left = 24
      Top = 104
      Width = 48
      Height = 13
      Caption = #21152#30431#26102#38388
    end
    object Label10: TLabel
      Left = 232
      Top = 104
      Width = 24
      Height = 13
      Caption = #22791#27880
    end
    object Label11: TLabel
      Left = 640
      Top = 120
      Width = 124
      Height = 13
      Caption = #65288#24102'*'#21495#30340#20026#24517#22635#20449#24687#65289
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 168
      Top = 64
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 752
      Top = 28
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 464
      Top = 28
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 168
      Top = 100
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 352
      Top = 28
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 352
      Top = 68
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 600
      Top = 68
      Width = 7
      Height = 24
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object employeeId: TEdit
      Left = 88
      Top = 28
      Width = 81
      Height = 21
      Color = cl3DLight
      ReadOnly = True
      TabOrder = 0
    end
    object employeeName: TEdit
      Left = 264
      Top = 28
      Width = 89
      Height = 21
      TabOrder = 1
    end
    object gender: TComboBox
      Left = 416
      Top = 28
      Width = 49
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        ''
        #30007
        #22899)
    end
    object folk: TEdit
      Left = 520
      Top = 28
      Width = 81
      Height = 21
      TabOrder = 3
    end
    object birthday: TDateTimePicker
      Left = 672
      Top = 28
      Width = 81
      Height = 21
      CalAlignment = dtaLeft
      Date = 37641.840643912
      Time = 37641.840643912
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 4
    end
    object telephone: TEdit
      Left = 264
      Top = 68
      Width = 89
      Height = 21
      TabOrder = 5
    end
    object joinTime: TDateTimePicker
      Left = 88
      Top = 100
      Width = 81
      Height = 21
      CalAlignment = dtaLeft
      Date = 37641.841298912
      Time = 37641.841298912
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 6
    end
    object address: TEdit
      Left = 416
      Top = 68
      Width = 185
      Height = 21
      TabOrder = 7
    end
    object eduLevel: TComboBox
      Left = 88
      Top = 64
      Width = 81
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 8
      Items.Strings = (
        ''
        #21338#22763
        #30805#22763
        #26412#31185
        #19987#31185
        #39640#20013
        #20854#20182)
    end
    object note: TEdit
      Left = 264
      Top = 100
      Width = 337
      Height = 21
      TabOrder = 9
    end
    object btnCancel: TButton
      Left = 672
      Top = 60
      Width = 65
      Height = 21
      Caption = #28165'  '#23631
      TabOrder = 10
      OnClick = btnCancelClick
    end
    object btnOk: TButton
      Left = 672
      Top = 92
      Width = 65
      Height = 21
      Caption = #24405'  '#20837
      TabOrder = 11
      OnClick = btnOkClick
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 152
    Width = 785
    Height = 289
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = clBtnShadow
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 781
      Height = 285
      Align = alClient
      Color = clBtnShadow
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 443
    Width = 209
    Height = 38
    Caption = #25490#24207#26041#27861
    TabOrder = 2
    object asc: TRadioButton
      Left = 32
      Top = 16
      Width = 49
      Height = 17
      Caption = #21319#24207
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = ascClick
    end
    object desc: TRadioButton
      Left = 120
      Top = 16
      Width = 41
      Height = 17
      Caption = #38477#24207
      TabOrder = 1
      OnClick = descClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 224
    Top = 443
    Width = 570
    Height = 38
    Caption = #25490#24207#20869#23481
    TabOrder = 3
    object id: TRadioButton
      Left = 56
      Top = 16
      Width = 41
      Height = 17
      Caption = #32534#21495
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = idClick
    end
    object name: TRadioButton
      Left = 189
      Top = 16
      Width = 41
      Height = 17
      Caption = #22995#21517
      TabOrder = 1
      OnClick = nameClick
    end
    object level: TRadioButton
      Left = 322
      Top = 16
      Width = 41
      Height = 17
      Caption = #23398#21382
      TabOrder = 2
      OnClick = levelClick
    end
    object join: TRadioButton
      Left = 456
      Top = 16
      Width = 73
      Height = 17
      Caption = #21152#30431#26102#38388
      TabOrder = 3
      OnClick = joinClick
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'WorkData'
    SQL.Strings = (
      'select * from employee')
    Left = 304
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 256
    Top = 128
  end
  object Table1: TTable
    DatabaseName = 'WorkData'
    TableName = 'employee.DB'
    Left = 352
    Top = 128
  end
end