employee.dfm

来自「delphi renyuanguanlixinxioxitong」· DFM 代码 · 共 599 行 · 第 1/2 页

inherited frmEmployee: TfrmEmployee
  Left = 223
  Top = 109
  Width = 751
  Height = 433
  Caption = #21592#24037#32500#25252
  OldCreateOrder = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  inherited CoolBar1: TCoolBar
    Top = 376
    Width = 743
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 26
        Width = 739
      end>
    inherited ToolBar1: TToolBar
      Width = 726
    end
  end
  inherited Panel1: TPanel
    Width = 743
    Height = 257
    object pageControl: TPageControl
      Left = 1
      Top = 1
      Width = 741
      Height = 255
      ActivePage = pgBasic
      Align = alClient
      TabOrder = 0
      OnChange = pageControlChange
      object pgBasic: TTabSheet
        Caption = #21592#24037#22522#26412#20449#24687
        object sbtnCreateEmployeeNo: TSpeedButton
          Tag = 200
          Left = 441
          Top = 184
          Width = 81
          Height = 25
          Caption = #20135#29983#32534#21495
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333FFF333333333333000333333333
            3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
            3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
            0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
            BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
            33337777773FF733333333333300033333333333337773333333333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          ParentFont = False
          OnClick = sbtnCreateEmployeeNoClick
        end
        object sbtnDepartment: TSpeedButton
          Tag = 210
          Left = 201
          Top = 8
          Width = 81
          Height = 22
          Caption = #36873#25321#37096#38376
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333FF3333333333333003333
            3333333333773FF3333333333309003333333333337F773FF333333333099900
            33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
            99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
            33333333337F3F77333333333309003333333333337F77333333333333003333
            3333333333773333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          ParentFont = False
          OnClick = sbtnDepartmentClick
        end
        object Label1: TLabel
          Left = 440
          Top = 142
          Width = 49
          Height = 16
          AutoSize = False
          Caption = #32534#21495#65306
        end
        object Label2: TLabel
          Left = 242
          Top = 53
          Width = 49
          Height = 16
          AutoSize = False
          Caption = #22995#21517#65306
        end
        object Label3: TLabel
          Left = 242
          Top = 95
          Width = 49
          Height = 16
          AutoSize = False
          Caption = #24615#21035#65306
        end
        object Label4: TLabel
          Left = 438
          Top = 54
          Width = 49
          Height = 16
          AutoSize = False
          Caption = #23703#20301#65306
        end
        object Label5: TLabel
          Left = 438
          Top = 97
          Width = 49
          Height = 16
          AutoSize = False
          Caption = #27665#26063#65306
        end
        object Label6: TLabel
          Left = 296
          Top = 10
          Width = 49
          Height = 16
          AutoSize = False
          Caption = #37096#38376#65306
        end
        object Label7: TLabel
          Left = 230
          Top = 189
          Width = 81
          Height = 16
          AutoSize = False
          Caption = #24037#20316#26085#26399#65306
        end
        object Label8: TLabel
          Left = 234
          Top = 138
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20986#29983#26085#26399#65306
        end
        object TreeView1: TTreeView
          Left = 0
          Top = 0
          Width = 193
          Height = 224
          Align = alLeft
          Indent = 19
          TabOrder = 0
        end
        object dbedtEmployeeNo: TDBEdit
          Left = 486
          Top = 137
          Width = 115
          Height = 24
          DataField = 'EMPLOYEENO'
          DataSource = dsEmployee
          ReadOnly = True
          TabOrder = 1
        end
        object dbedtName: TDBEdit
          Left = 303
          Top = 47
          Width = 97
          Height = 24
          DataField = 'EMPLOYEENAME'
          DataSource = dsEmployee
          ReadOnly = True
          TabOrder = 2
        end
        object dbedtDeparyment: TDBEdit
          Left = 342
          Top = 8
          Width = 121
          Height = 24
          DataField = 'lkDepartmentName'
          DataSource = dsEmployee
          ReadOnly = True
          TabOrder = 3
        end
        object dbcboxPost: TDBLookupComboBox
          Left = 486
          Top = 50
          Width = 115
          Height = 24
          DataField = 'POSTNO'
          DataSource = dsEmployee
          KeyField = 'POSTNO'
          ListField = 'POSTNAME'
          ListSource = dsPost
          TabOrder = 4
        end
        object dbcboxNation: TDBLookupComboBox
          Left = 486
          Top = 93
          Width = 115
          Height = 24
          DataField = 'NATIONNO'
          DataSource = dsEmployee
          KeyField = 'NATIONNO'
          ListField = 'NATIONNAME'
          ListSource = dsNation
          TabOrder = 5
        end
        object dbrbtnSex: TDBRadioGroup
          Left = 303
          Top = 77
          Width = 97
          Height = 41
          Columns = 2
          DataField = 'SEX'
          DataSource = dsEmployee
          Items.Strings = (
            #30007
            #22899)
          TabOrder = 6
        end
        object dbedtWorkDate: TDBEdit
          Left = 305
          Top = 184
          Width = 104
          Height = 24
          DataField = 'WORKDATE'
          DataSource = dsEmployee
          ReadOnly = True
          TabOrder = 7
        end
        object dbedtBirthday: TDBEdit
          Left = 306
          Top = 136
          Width = 103
          Height = 24
          DataField = 'EMPLOYEEDATE'
          DataSource = dsEmployee
          ReadOnly = True
          TabOrder = 8
        end
      end
      object pgOther: TTabSheet
        Caption = #21592#24037#38468#21152#20449#24687
        ImageIndex = 1
        object sbtnImage: TSpeedButton
          Left = 136
          Top = 8
          Width = 23
          Height = 22
          Caption = '...'
          OnClick = sbtnImageClick
        end
        object Label9: TLabel
          Left = 162
          Top = 12
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #21592#24037#29031#29255
        end
        object Label10: TLabel
          Left = 337
          Top = 11
          Width = 41
          Height = 16
          AutoSize = False
          Caption = #22791#27880
        end
        object Label11: TLabel
          Left = 24
          Top = 48
          Width = 81
          Height = 16
          AutoSize = False
          Caption = #21592#24037#21517#31216#65306
        end
        object DBImage: TDBImage
          Left = 136
          Top = 32
          Width = 193
          Height = 177
          DataField = 'EMPLOYEEIMAGE'
          DataSource = dsEmployeeOther