unit_demodbgridprn.dfm

DELPHI的报表控件

object Form1: TForm1
  Left = 241
  Top = 172
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 264
    Top = 312
    Width = 75
    Height = 25
    Caption = '打印'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 160
    Top = 312
    Width = 75
    Height = 25
    Caption = '预览'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object DBGridPrn1: TDBGridPrn
    Left = 11
    Top = 13
    Width = 511
    Height = 286
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    FocusedFrontColor = clHighlightText
    CustomPaperWidth = 0
    CustomPaperHeight = 0
    PrnTitle.Strings = (
      '这是一个演示'
      '标题行可以有多行')
    HeadSpace = 220
    IsPrnPageCode = True
    ColumnsAuto = False
    IsNeedSum = True
    SumDataSet = Query1
    TopMargin = 120
    LeftMargin = 151
    HeadFont.Charset = DEFAULT_CHARSET
    HeadFont.Color = clWindowText
    HeadFont.Height = -24
    HeadFont.Name = '楷体_GB2312'
    HeadFont.Style = [fsBold]
    HeadTailStrings.HeadLeft = 'AppInfo(Top Left)'
    HeadTailStrings.TailCenter = 'AppInfo(Bottom Center)'
    OnAfterSumDat = DBGridPrn1AfterSumDat
    DFM_Version = {322E330055698C63}
    XColumnsShapeEx = {
      070000002D00000066000000A80000002B0100006F010000E201000054020000
      04000000660000007500000094000000A3000000120000000200000002000000
      0200000002000000020000000200000002000000020000000200000002000000
      0100000002000000020000000200000003000000030000000300000002000000
      1200000005000000050000000500000005000000050000000500000005000000
      0500000005000000050000000400000005000000050000000500000005000000
      0500000005000000050000001800000003000000030000000300000003000000
      0300000003000000030000000300000002000000030000000300000003000000
      0300000003000000030000000300000003000000030000000300000003000000
      0300000003000000030000000300000015000000030000000300000003000000
      0300000003000000030000000300000003000000030000000300000003000000
      0300000003000000030000000300000003000000030000000200000002000000
      0300000003000000120000000600000006000000060000000600000006000000
      0600000006000000060000000600000006000000060000000600000006000000
      0600000006000000060000000600000006000000490000005259444D0D0A5346
      585A0D0A53464A450D0A5848425A0D0A534452510D0A535353510D0A0D0A0D0A
      0D0A0D0A66676E67666A680D0A0D0A0D0A0D0A6466686766680D0A0D0A0D0A0D
      0A0909090201020E0258021409020002010604CBCECCE5060100020A04080000
      8002120200020002000200020002000200020002000200020002000200020002
      000200020002000200}
    XSumShapeEx = {
      070000002D00000066000000A80000002B0100006F010000E201000054020000
      0200000066000000780000000600000002000000020000000300000002000000
      0200000002000000060000000500000005000000050000000500000005000000
      050000000C000000030000000300000003000000030000000300000003000000
      0300000003000000030000000300000003000000030000000700000003000000
      0300000003000000030000000300000003000000030000000600000006000000
      06000000060000000600000006000000060000001D000000BACFBCC60D0A0D0A
      3D53554D204F462073666A65400D0A0D0A0D0A0D0A0909090201020602580214
      09020002010604CBCECCE5060100020A04080000800206020002000200020002
      0002000200}
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 80
    Top = 240
  end
  object Table1: TTable
    Active = True
    TableName = 'SFJS.db'
    Left = 120
    Top = 240
    object Table1RYDM: TSmallintField
      DisplayWidth = 10
      FieldName = 'RYDM'
    end
    object Table1SFXZ: TStringField
      DisplayWidth = 4
      FieldName = 'SFXZ'
      Size = 2
    end
    object Table1SFJE: TCurrencyField
      DisplayWidth = 17
      FieldName = 'SFJE'
      EditFormat = ',0.00'
    end
    object Table1XHBZ: TStringField
      DisplayWidth = 4
      FieldName = 'XHBZ'
      Size = 1
    end
    object Table1SDRQ: TDateField
      DisplayWidth = 15
      FieldName = 'SDRQ'
      DisplayFormat = 'yyyy"年"mm"月"dd"日"'
    end
    object Table1SSSQ: TDateField
      DisplayWidth = 14
      FieldName = 'SSSQ'
      DisplayFormat = 'yyyy"年"mm"月"dd"日"'
    end
  end
  object Query1: TQuery
    SQL.Strings = (
      'select sum(sfje) from sfjs')
    Left = 160
    Top = 240
  end
end