untwage.dfm

用delphi编写的数据库管理软件

      LookupTable = CDSEmployee
      LookupField = 'fCode'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 15
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
      OnChange = wwDBLookupCombo1Change
    end
  end
  inherited pBtn: TPanel
    Top = 191
    Width = 774
    inherited Panel4: TPanel
      Left = 538
    end
  end
  inherited grid: TDBGridEh
    Top = 232
    Width = 774
    Height = 181
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  inherited frDBDataSet1: TfrDBDataSet
    RangeBegin = rbCurrent
    RangeEnd = reCurrent
    RangeEndCount = 1
  end
  inherited MSNSaveinfo: TMSNPopUp
    Left = 312
    Top = 264
  end
  object CDShandle: TClientDataSet [13]
    Aggregates = <>
    Params = <>
    Left = 112
    Top = 161
    object CDShandlefName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 12
      FieldName = 'fName'
      Size = 50
    end
    object CDShandlefCode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 10
      FieldName = 'fCode'
      Size = 50
    end
    object CDShandlefID: TAutoIncField
      DisplayLabel = #24207#21495
      DisplayWidth = 6
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object CDShandlefDeptCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDeptCode'
      Visible = False
      Size = 50
    end
    object CDShandlefDriveID: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDriveID'
      Visible = False
      Size = 50
    end
    object CDShandlefSex: TWideStringField
      DisplayWidth = 50
      FieldName = 'fSex'
      Visible = False
      Size = 50
    end
    object CDShandlefPosition: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPosition'
      Visible = False
      Size = 50
    end
    object CDShandlefAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAddress'
      Visible = False
      Size = 50
    end
    object CDShandlefEmail: TWideStringField
      DisplayWidth = 100
      FieldName = 'fEmail'
      Visible = False
      Size = 100
    end
    object CDShandlefTel: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object CDShandlefMobile: TWideStringField
      DisplayWidth = 50
      FieldName = 'fMobile'
      Visible = False
      Size = 50
    end
    object CDShandlefBP: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBP'
      Visible = False
      Size = 50
    end
    object CDShandlefDegree: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDegree'
      Visible = False
      Size = 50
    end
    object CDShandlefCollege: TWideStringField
      DisplayWidth = 50
      FieldName = 'fCollege'
      Visible = False
      Size = 50
    end
    object CDShandlefBirthAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBirthAddress'
      Visible = False
      Size = 50
    end
    object CDShandlefBirthday: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fBirthday'
      Visible = False
    end
    object CDShandlefInTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fInTime'
      Visible = False
    end
    object CDShandlefOutTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fOutTime'
      Visible = False
    end
    object CDShandlefMoney: TBCDField
      DisplayWidth = 11
      FieldName = 'fMoney'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDShandlefStatus: TBooleanField
      DisplayWidth = 5
      FieldName = 'fStatus'
      Visible = False
    end
    object CDShandlefNotes: TWideStringField
      DisplayWidth = 100
      FieldName = 'fNotes'
      Visible = False
      Size = 100
    end
    object CDShandlefPicture: TWideStringField
      DisplayWidth = 100
      FieldName = 'fPicture'
      Visible = False
      Size = 100
    end
  end
  object CDSEmployee: TClientDataSet [14]
    Aggregates = <>
    Params = <>
    Left = 96
    Top = 89
    object CDSEmployeefCode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 10
      FieldName = 'fCode'
      Size = 50
    end
    object CDSEmployeefName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 12
      FieldName = 'fName'
      Size = 50
    end
    object CDSEmployeefID: TAutoIncField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'fID'
      ReadOnly = True
    end
    object CDSEmployeefDeptCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDeptCode'
      Visible = False
      Size = 50
    end
    object CDSEmployeefDriveID: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDriveID'
      Visible = False
      Size = 50
    end
    object CDSEmployeefSex: TWideStringField
      DisplayWidth = 50
      FieldName = 'fSex'
      Visible = False
      Size = 50
    end
    object CDSEmployeefPosition: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPosition'
      Visible = False
      Size = 50
    end
    object CDSEmployeefAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAddress'
      Visible = False
      Size = 50
    end
    object CDSEmployeefEmail: TWideStringField
      DisplayWidth = 100
      FieldName = 'fEmail'
      Visible = False
      Size = 100
    end
    object CDSEmployeefTel: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object CDSEmployeefMobile: TWideStringField
      DisplayWidth = 50
      FieldName = 'fMobile'
      Visible = False
      Size = 50
    end
    object CDSEmployeefBP: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBP'
      Visible = False
      Size = 50
    end
    object CDSEmployeefDegree: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDegree'
      Visible = False
      Size = 50
    end
    object CDSEmployeefCollege: TWideStringField
      DisplayWidth = 50
      FieldName = 'fCollege'
      Visible = False
      Size = 50
    end
    object CDSEmployeefBirthAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBirthAddress'
      Visible = False
      Size = 50
    end
    object CDSEmployeefBirthday: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fBirthday'
      Visible = False
    end
    object CDSEmployeefInTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fInTime'
      Visible = False
    end
    object CDSEmployeefOutTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fOutTime'
      Visible = False
    end
    object CDSEmployeefMoney: TBCDField
      DisplayWidth = 11
      FieldName = 'fMoney'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSEmployeefStatus: TBooleanField
      DisplayWidth = 5
      FieldName = 'fStatus'
      Visible = False
    end
    object CDSEmployeefNotes: TWideStringField
      DisplayWidth = 100
      FieldName = 'fNotes'
      Visible = False
      Size = 100
    end
    object CDSEmployeefPicture: TWideStringField
      DisplayWidth = 100
      FieldName = 'fPicture'
      Visible = False
      Size = 100
    end
  end
  object CDSYear: TClientDataSet [15]
    Aggregates = <>
    Params = <>
    Left = 256
    Top = 97
    object CDSYearfyear: TStringField
      DisplayLabel = #24180#20221
      DisplayWidth = 6
      FieldName = 'fyear'
      Size = 6
    end
  end
  object CDSMonth: TClientDataSet [16]
    Aggregates = <>
    Params = <>
    Left = 408
    Top = 97
    object CDSMonthfmonth: TStringField
      DisplayLabel = #26376#20221
      DisplayWidth = 4
      FieldName = 'fmonth'
      Size = 4
    end
  end
end