usaledetail.dfm

来自「程序採用了无状态连接池的三层结构」· DFM 代码 · 共 217 行

inherited frmsaledetail: Tfrmsaledetail
  Left = 406
  Top = 395
  Caption = #38144#21806#35746#21333#26126#32454
  PixelsPerInch = 96
  TextHeight = 13
  inherited paneltop: TPanel
    BevelInner = bvRaised
    inherited formTitle: TLabel
      Caption = #38144#21806#35746#21333#26126#32454
    end
  end
  inherited Grid: TDBGridEh
    ReadOnly = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'fresid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fitemid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'frefno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21442#32771#32534#21495
      end
      item
        EditButtons = <>
        FieldName = 'fsaleno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#21333#21495
      end
      item
        EditButtons = <>
        FieldName = 'fdelivdate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#20195#30721
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21517#31216
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31867#22411
      end
      item
        EditButtons = <>
        FieldName = 'fsaleer'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#21592
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fprovider'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#23545#35937
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'fqty'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'fprice'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
      end
      item
        EditButtons = <>
        FieldName = 'fsalestore'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#20179#24211
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'fcreadate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21019#24314#26085#26399
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fcreauser'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21019#24314#29992#25143
        Width = 100
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSbaseinfofitemid: TIntegerField
      FieldName = 'fitemid'
    end
    object CDSbaseinfofqty: TBCDField
      FieldName = 'fqty'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofprice: TBCDField
      FieldName = 'fprice'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSbaseinfofsaleno: TWideStringField
      FieldName = 'fsaleno'
      Size = 18
    end
    object CDSbaseinfofprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSbaseinfofsaleer: TWideStringField
      FieldName = 'fsaleer'
    end
    object CDSbaseinfofsalestore: TWideStringField
      FieldName = 'fsalestore'
      Size = 30
    end
    object CDSbaseinfofdelivdate: TDateTimeField
      FieldName = 'fdelivdate'
    end
    object CDSbaseinfofcreadate: TDateTimeField
      FieldName = 'fcreadate'
    end
    object CDSbaseinfofcreauser: TWideStringField
      FieldName = 'fcreauser'
    end
    object CDSbaseinfofcode: TWideStringField
      FieldName = 'fcode'
      Size = 12
    end
    object CDSbaseinfofname: TWideStringField
      FieldName = 'fname'
      Size = 30
    end
    object CDSbaseinfofunit: TWideStringField
      FieldName = 'funit'
      Size = 8
    end
    object CDSbaseinfoftype: TWideStringField
      FieldName = 'ftype'
      Size = 8
    end
  end
  inherited frBaseinfo: TfrReport
    OnUserFunction = frBaseinfoUserFunction
    ReportForm = {19000000}
  end
end