employee.dfm

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

          TabOrder = 0
        end
        object DBMemo: TDBMemo
          Left = 336
          Top = 32
          Width = 241
          Height = 177
          DataField = 'EMPLOYEEMEMO'
          DataSource = dsEmployeeOther
          TabOrder = 1
        end
        object bbtnSave: TBitBtn
          Left = 24
          Top = 128
          Width = 89
          Height = 25
          Caption = #20445#23384#22270#29255
          TabOrder = 2
          OnClick = bbtnSaveClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            555555555555555555555555555555555555555555FF55555555555559055555
            55555555577FF5555555555599905555555555557777F5555555555599905555
            555555557777FF5555555559999905555555555777777F555555559999990555
            5555557777777FF5555557990599905555555777757777F55555790555599055
            55557775555777FF5555555555599905555555555557777F5555555555559905
            555555555555777FF5555555555559905555555555555777FF55555555555579
            05555555555555777FF5555555555557905555555555555777FF555555555555
            5990555555555555577755555555555555555555555555555555}
          NumGlyphs = 2
        end
        object bbtnClear: TBitBtn
          Left = 24
          Top = 168
          Width = 89
          Height = 25
          Caption = #28165#38500#22270#29255
          TabOrder = 3
          OnClick = bbtnClearClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
            055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
            005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
            B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
            305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
            305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
            30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
            3055577777555557F7F555000555555999555577755555577755}
          NumGlyphs = 2
        end
        object stEmployeeName: TStaticText
          Left = 13
          Top = 81
          Width = 105
          Height = 28
          Alignment = taCenter
          AutoSize = False
          BorderStyle = sbsSunken
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -19
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          TabOrder = 4
        end
      end
    end
  end
  inherited Panel2: TPanel
    Top = 257
    Width = 743
    Height = 119
    inherited DBGrid1: TDBGrid
      Width = 741
      Height = 117
      Hint = #22312#32593#26684#20013#36873#20013#19968#20010#21592#24037#24182#21452#20987','#26174#31034#25913#21592#24037#30340#29031#29255#21644#31616#21382
      DataSource = dsEmployee
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'EMPLOYEENO'
          Title.Caption = #32534#21495
          Width = 58
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EMPLOYEENAME'
          Title.Caption = #22995#21517
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SEX'
          Title.Caption = #24615#21035
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lkDepartmentName'
          Title.Caption = #25152#23646#37096#38376
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lkNationName'
          Title.Caption = #27665#26063
          Width = 87
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lkPostName'
          Title.Caption = #23703#20301
          Width = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EMPLOYEEDATE'
          Title.Caption = #20986#29983#26085#26399
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WORKDATE'
          Title.Caption = #24037#20316#26085#26399
          Width = 72
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEPARTMENTNO'
          Title.Caption = #37096#38376#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NATIONNO'
          Title.Caption = #27665#26063#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POSTNO'
          Title.Caption = #23703#20301#32534#21495
          Visible = True
        end>
    end
  end
  object atbEmployee: TADOTable
    Connection = DataModule1.connOracle
    TableName = 'EMPLOYEE'
    Top = 329
    object atbEmployeeEMPLOYEENO: TWideStringField
      FieldName = 'EMPLOYEENO'
      FixedChar = True
      Size = 8
    end
    object atbEmployeeEMPLOYEENAME: TWideStringField
      FieldName = 'EMPLOYEENAME'
      Size = 30
    end
    object atbEmployeeDEPARTMENTNO: TWideStringField
      FieldName = 'DEPARTMENTNO'
      FixedChar = True
      Size = 3
    end
    object atbEmployeeSEX: TWideStringField
      FieldName = 'SEX'
      FixedChar = True
      Size = 2
    end
    object atbEmployeeEMPLOYEEDATE: TDateTimeField
      FieldName = 'EMPLOYEEDATE'
    end
    object atbEmployeeWORKDATE: TDateTimeField
      FieldName = 'WORKDATE'
    end
    object atbEmployeeNATIONNO: TWideStringField
      FieldName = 'NATIONNO'
      FixedChar = True
      Size = 3
    end
    object atbEmployeePOSTNO: TWideStringField
      FieldName = 'POSTNO'
      FixedChar = True
      Size = 3
    end
    object atbEmployeelkDepartmentName: TStringField
      FieldKind = fkLookup
      FieldName = 'lkDepartmentName'
      LookupDataSet = aqryDepartment
      LookupKeyFields = 'DEPARTMENTNO'
      LookupResultField = 'DEPARTMENTNAME'
      KeyFields = 'DEPARTMENTNO'
      Size = 30
      Lookup = True
    end
    object atbEmployeelkNationName: TStringField
      FieldKind = fkLookup
      FieldName = 'lkNationName'
      LookupDataSet = atbNation
      LookupKeyFields = 'NATIONNO'
      LookupResultField = 'NATIONNAME'
      KeyFields = 'NATIONNO'
      Lookup = True
    end
    object atbEmployeelkPostName: TStringField
      FieldKind = fkLookup
      FieldName = 'lkPostName'
      LookupDataSet = atbPost
      LookupKeyFields = 'POSTNO'
      LookupResultField = 'POSTNAME'
      KeyFields = 'POSTNO'
      Lookup = True
    end
  end
  object atbNation: TADOTable
    Connection = DataModule1.connOracle
    TableName = 'DCNATION'
    Left = 24
    Top = 329
  end
  object atbPost: TADOTable
    Connection = DataModule1.connOracle
    TableName = 'DCPOST'
    Left = 48
    Top = 329
  end
  object dsEmployee: TDataSource
    DataSet = atbEmployee
    Top = 305
  end
  object dsNation: TDataSource
    DataSet = atbNation
    Left = 24
    Top = 305
  end
  object dsPost: TDataSource
    DataSet = atbPost
    Left = 48
    Top = 305
  end
  object aqryDepartment: TADOQuery
    Connection = DataModule1.connOracle
    Parameters = <>
    SQL.Strings = (
      'select DepartmentNo,DepartmentName'
      'from Department')
    Left = 144
    Top = 329
  end
  object atbEmployeeOther: TADOTable
    Connection = DataModule1.connOracle
    Filter = 'EmployeeNo=Null'
    Filtered = True
    TableName = 'EMPLOYEEOTHER'
    Left = 37
    Top = 36
  end
  object dsEmployeeOther: TDataSource
    DataSet = atbEmployeeOther
    Left = 69
    Top = 36
  end
  object astpEmployeeNo: TADOStoredProc
    Connection = DataModule1.connOracle
    Parameters = <>
    Left = 176
    Top = 329
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 109
    Top = 36
  end
  object aqryTree: TADOQuery
    Parameters = <>
    Left = 5
    Top = 36
  end
end