employee.dfm

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 692 行 · 第 1/2 页

inherited frmEmployee: TfrmEmployee
  Left = 146
  Top = 73
  Width = 625
  Height = 521
  Caption = '员工资料'
  Color = clMenu
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 301
    Top = 39
    Width = 4
    Height = 414
    Cursor = crHSplit
    AutoSnap = False
    Beveled = True
    ResizeStyle = rsNone
    Visible = False
  end
  inherited sbBar: TStatusBar
    Top = 453
    Width = 617
  end
  inherited CoolBar1: TCoolBar
    Width = 617
    Anchors = [akTop, akRight]
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 617
      end>
    Color = clMenu
    ParentColor = False
    inherited tbMainBar: TToolBar
      Width = 604
      Color = clMenu
      ParentColor = False
    end
  end
  object EmployeePanel: TPanel [3]
    Left = 0
    Top = 39
    Width = 301
    Height = 414
    Align = alLeft
    Caption = 'EmployeePanel'
    TabOrder = 2
    object tvEmployee: TTreeView
      Left = 1
      Top = 1
      Width = 300
      Height = 412
      Align = alLeft
      Color = clWhite
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      HideSelection = False
      Indent = 19
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      OnChange = tvEmployeeChange
    end
  end
  object pcEmployee: TPageControl [4]
    Left = 305
    Top = 39
    Width = 312
    Height = 414
    ActivePage = tsJZQK
    Align = alClient
    TabOrder = 3
    object tsJBZL: TTabSheet
      Caption = '基本资料   '
      object FloatPanel1: TFloatPanel
        Left = 0
        Top = 0
        Width = 304
        Height = 387
        Align = alClient
        Color = clWhite
        Caption = 'FloatPanel1'
        ParentColor = False
        TabOrder = 0
        object Label1: TLabel
          Left = 7
          Top = 18
          Width = 60
          Height = 12
          Caption = '员工代码：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 7
          Top = 46
          Width = 60
          Height = 12
          Caption = '员工名称：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 7
          Top = 159
          Width = 60
          Height = 12
          Caption = '身份证号：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 7
          Top = 103
          Width = 60
          Height = 12
          Caption = '出生日期：'
        end
        object Label13: TLabel
          Left = 7
          Top = 131
          Width = 60
          Height = 12
          Caption = '文化程度：'
        end
        object Label14: TLabel
          Left = 7
          Top = 74
          Width = 36
          Height = 12
          Caption = '性别：'
        end
        object Label7: TLabel
          Left = 7
          Top = 300
          Width = 60
          Height = 12
          Caption = '联系地址：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 7
          Top = 215
          Width = 60
          Height = 12
          Caption = '邮政编码：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 7
          Top = 244
          Width = 36
          Height = 12
          Caption = '电话：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 7
          Top = 272
          Width = 60
          Height = 12
          Caption = '户口地址：'
        end
        object Label21: TLabel
          Left = 7
          Top = 187
          Width = 60
          Height = 12
          Caption = '相片名称：'
        end
        object seEmployeeCode: TSDEdit
          Left = 64
          Top = 12
          Width = 161
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          Text = 'seEmployeeCode'
          OnKeyDown = seEmployeeCodeKeyDown
          SplitSymbol = ' | '
        end
        object seEmployeeName: TSDEdit
          Left = 64
          Top = 40
          Width = 161
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
          Text = 'seEmployeeName'
          SplitSymbol = ' | '
        end
        object seEmployeeIDCard: TSDEdit
          Left = 64
          Top = 153
          Width = 207
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 20
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          Text = 'seEmployeeIDCard'
          CharType = ctNumeric
          SplitSymbol = ' | '
        end
        object deEmployeeBorthDay: TDateEdit
          Left = 64
          Top = 99
          Width = 91
          Height = 18
          LineOffset = 2
          LineColor = clGreen
          LineVisible = False
          CDate = '2003-05-14'
          InitDate = '2003-05-14 10:54:22'
          ModalResult = 0
          TabOrder = 3
          Color = 50331647
          Ctl3D = False
          ParentCtl3D = False
        end
        object scEmployeeEdu: TSDComboBox
          Left = 64
          Top = 123
          Width = 128
          Height = 20
          Style = csDropDownList
          Color = clWhite
          Ctl3D = False
          ItemHeight = 12
          ParentCtl3D = False
          TabOrder = 4
          KeyItem = cbItem2
        end
        object scEmployeeSex: TSDComboBox
          Left = 64
          Top = 65
          Width = 95
          Height = 20
          Style = csDropDownList
          Color = clWhite
          Ctl3D = False
          ItemHeight = 12
          ParentCtl3D = False
          TabOrder = 5
          KeyItem = cbItem2
        end
        object seEmployeeAddr: TSDEdit
          Left = 64
          Top = 294
          Width = 223
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 80
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 6
          Text = 'seEmployeeAddr'
          SplitSymbol = ' | '
        end
        object seEmployeeZip: TSDEdit
          Left = 64
          Top = 209
          Width = 103
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 6
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 7
          Text = 'seEmployeeZip'
          CharType = ctMathematic
          SplitSymbol = ' | '