uemployee.dfm

这是一个三层的进销存系统

inherited frmemployee: Tfrmemployee
  Left = 196
  Top = 194
  Height = 378
  Caption = #21592#24037#36164#26009
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Top = 317
  end
  inherited Grid: TDBGridEh
    Height = 317
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21592#24037#20195#30721
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21592#24037#21517#31216
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'fjob'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32844#21153
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'fsex'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24615#21035
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31867#21035
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'fold'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24180#40836
      end
      item
        EditButtons = <>
        FieldName = 'ftel'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30005#35805
        Width = 150
      end
      item
        EditButtons = <>
        FieldName = 'fwagemeans'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24037#36164#35745#31639#26041#24335
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = 'fwage'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24037#36164#24213#34218
      end
      item
        EditButtons = <>
        FieldName = 'fdept'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37096#38376
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = 'fadd'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25143#21475#22320#22336
        Width = 160
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 250
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofcode: TWideStringField
      FieldName = 'fcode'
      Size = 12
    end
    object CDSbaseinfofname: TWideStringField
      FieldName = 'fname'
    end
    object CDSbaseinfofjob: TWideStringField
      FieldName = 'fjob'
      Size = 30
    end
    object CDSbaseinfofsex: TWideStringField
      FieldName = 'fsex'
      Size = 8
    end
    object CDSbaseinfofold: TWordField
      FieldName = 'fold'
    end
    object CDSbaseinfoftel: TWideStringField
      FieldName = 'ftel'
      Size = 30
    end
    object CDSbaseinfofadd: TWideStringField
      FieldName = 'fadd'
      Size = 50
    end
    object CDSbaseinfofdept: TWideStringField
      FieldName = 'fdept'
      Size = 30
    end
    object CDSbaseinfofnote: TWideStringField
      FieldName = 'fnote'
      Size = 80
    end
    object CDSbaseinfoftype: TWideStringField
      FieldName = 'ftype'
      Size = 30
    end
    object CDSbaseinfofwagemeans: TWideStringField
      FieldName = 'fwagemeans'
      Size = 50
    end
    object CDSbaseinfofwage: TBCDField
      FieldName = 'fwage'
      Precision = 9
      Size = 2
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
end