uform.dfm

来自「在打沙场用的最简单」· DFM 代码 · 共 105 行

inherited frmform: Tfrmform
  Left = 148
  Top = 103
  Height = 378
  Caption = #34920#21934#36039#26009
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Top = 317
    inherited Panel1: TPanel
      inherited paprint: TPanel
        inherited comboPrint: TwwDBLookupCombo
          LookupField = #25171#21360#36873#39033
        end
      end
    end
  end
  inherited Grid: TDBGridEh
    Height = 317
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#34399
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #34920#21934#21517#31281
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25551#36848
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #39006#21029
      end
      item
        EditButtons = <>
        FieldName = 'fcreateuser'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21109#24314#20154
      end
      item
        EditButtons = <>
        FieldName = 'fcreatedate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21109#24314#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20633#27880
      end>
  end
  inherited CDSprint: TClientDataSet
    inherited CDSprintField: TStringField
      FieldName = #25171#21360#36873#39033
    end
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofcode: TWideStringField
      FieldName = 'fcode'
    end
    object CDSbaseinfofname: TWideStringField
      FieldName = 'fname'
    end
    object CDSbaseinfoftype: TWideStringField
      FieldName = 'ftype'
    end
    object CDSbaseinfofcreateuser: TWideStringField
      FieldName = 'fcreateuser'
    end
    object CDSbaseinfofcreatedate: TDateTimeField
      FieldName = 'fcreatedate'
    end
    object CDSbaseinfofnote: TWideStringField
      FieldName = 'fnote'
      Size = 30
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
end