setupreportpreview.~dfm

对fastreport进行封装成dll,只需传一个query即可显示报表内容,显示的列可以自定义,对学习fastreport可以参考一下

                Text = '1000'
              end
              object edtCaption: TEdit
                Left = 10
                Top = 21
                Width = 266
                Height = 21
                TabOrder = 3
              end
            end
          end
          object Panel5: TPanel
            Left = 13
            Top = 25
            Width = 129
            Height = 124
            BevelOuter = bvNone
            BorderWidth = 1
            Color = clActiveBorder
            TabOrder = 2
            object Panel6: TPanel
              Left = 1
              Top = 1
              Width = 127
              Height = 122
              Align = alClient
              BevelOuter = bvNone
              BorderWidth = 1
              Color = clActiveBorder
              TabOrder = 0
              object Label10: TLabel
                Left = 5
                Top = 56
                Width = 48
                Height = 13
                Caption = #26041#12288#21521#65306
              end
              object Label9: TLabel
                Left = 5
                Top = 31
                Width = 60
                Height = 13
                Caption = #21491#36793#36317#65306#12288
              end
              object Label8: TLabel
                Left = 5
                Top = 7
                Width = 60
                Height = 13
                Caption = #24038#36793#36317#65306#12288
              end
              object Image1: TImage
                Left = 33
                Top = 89
                Width = 32
                Height = 26
                AutoSize = True
                Picture.Data = {
                  07544269746D617016020000424D160200000000000076000000280000002000
                  00001A0000000100040000000000A0010000CE0E0000C40E0000100000000000
                  000000000000000080000080000000808000800000008000800080800000C0C0
                  C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
                  FF00000000000000000000000000000000008FFFF77777777777777777777777
                  77708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFF
                  FF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFF
                  FF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFF8888FFFF888888FFFFF
                  FF708FFFFFFFFF78FFFFFF7887FFFFFFFF708FFFFFFFFFF87FFFFF888FFFFFFF
                  FF708FFFFFFFFFF787FFF7887FFFFFFFFF708FFFFFFFFFFF88888888FFFFFFFF
                  FF708FFFFFFFFFFF87FF7887FFFFFFFFFF708FFFFFFFFFFF78FF888FFFFFFFFF
                  FF708FFFFFFFFFFFF87F887FFFFFFFFFFF708FFFFFFFFFFFF78888FFFFFFFFFF
                  FF708FFFFFFFFFFFFF8887FFFFFFFFFFFF708FFFFFFFFFFFFF788FFFFFFFFFFF
                  FF708FFFFFFFFFFFFFF87FFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFF000
                  00088FFFFFFFFFFFFFFFFFFFFFFFF07FFF878FFFFFFFFFFFFFFFFFFFFFFFF07F
                  F8778FFFFFFFFFFFFFFFFFFFFFFFF07F87778FFFFFFFFFFFFFFFFFFFFFFFF0F8
                  77778FFFFFFFFFFFFFFFFFFFFFFFF08777778888888888888888888888888077
                  7777}
                Visible = False
              end
              object Image2: TImage
                Left = 36
                Top = 85
                Width = 26
                Height = 32
                AutoSize = True
                Picture.Data = {
                  07544269746D617076020000424D760200000000000076000000280000001A00
                  000020000000010004000000000000020000CE0E0000C40E0000100000000000
                  000000000000000080000080000000808000800000008000800080800000C0C0
                  C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
                  FF00000000000000000000000000000000008777777777777777777777777000
                  00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
                  00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
                  00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
                  00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
                  00008FFFFF8888FFFF888888FFFF700000008FFFFFF78FFFFFF7887FFFFF7000
                  00008FFFFFFF87FFFFF888FFFFFF700000008FFFFFFF787FFF7887FFFFFF7000
                  00008FFFFFFFF88888888FFFFFFF700000008FFFFFFFF87FF7887FFFFFFF7000
                  00008FFFFFFFF78FF888FFFFFFFF700000008FFFFFFFFF87F887FFFFFFFF7000
                  00008FFFFFFFFF78888FFFFFFFFF700000008FFFFFFFFFF8887FFFFFFFFF7000
                  00008FFFFFFFFFF788FFFFFFFFFF700000008FFFFFFFFFFF87FFFFFFFFFF7000
                  00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
                  00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFF800000000
                  00008FFFFFFFFFFFFFFFFFF8FF78070000008FFFFFFFFFFFFFFFFFF8F7807700
                  00008FFFFFFFFFFFFFFFFFF87807770000008FFFFFFFFFFFFFFFFFF880777700
                  00008FFFFFFFFFFFFFFFFFF80777770000008888888888888888888877777700
                  0000}
              end
              object speLeftSize: TSpinEdit
                Left = 65
                Top = 3
                Width = 56
                Height = 22
                MaxValue = 300
                MinValue = 0
                TabOrder = 0
                Value = 10
              end
              object speRightSize: TSpinEdit
                Left = 65
                Top = 27
                Width = 56
                Height = 22
                MaxValue = 300
                MinValue = 0
                TabOrder = 1
                Value = 10
              end
              object cbbPageOrient: TComboBox
                Left = 65
                Top = 52
                Width = 56
                Height = 21
                Style = csDropDownList
                ItemHeight = 13
                ItemIndex = 0
                TabOrder = 2
                Text = #32437#21521
                OnChange = cbbPageOrientChange
                Items.Strings = (
                  #32437#21521
                  #27178#21521)
              end
            end
          end
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #39029#33050#35774#32622
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Panel11: TPanel
        Left = 0
        Top = 0
        Width = 356
        Height = 331
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 1
        Color = clActiveBorder
        TabOrder = 0
        object Panel12: TPanel
          Left = 1
          Top = 1
          Width = 354
          Height = 329
          Align = alClient
          BevelOuter = bvNone
          Color = clActiveBorder
          TabOrder = 0
          object Label15: TLabel
            Left = 8
            Top = 8
            Width = 48
            Height = 13
            Caption = #39029#33050#39033#65306
          end
          object Panel13: TPanel
            Left = 5
            Top = 32
            Width = 144
            Height = 254
            BevelOuter = bvNone
            BorderWidth = 1
            Color = clActiveBorder
            TabOrder = 0
            object Panel14: TPanel
              Left = 1
              Top = 1
              Width = 142
              Height = 252
              Align = alClient
              BevelOuter = bvNone
              BorderWidth = 1
              Color = clActiveBorder
              TabOrder = 0
              object lbFootName: TListBox
                Left = 1
                Top = 1
                Width = 140
                Height = 250
                Align = alClient
                ItemHeight = 13
                TabOrder = 0
              end
            end
          end
          object edtFootName: TEdit
            Left = 56
            Top = 5
            Width = 93
            Height = 21
            TabOrder = 1
            OnKeyPress = edtFootNameKeyPress
          end
          object BitBtn5: TBitBtn
            Left = 160
            Top = 8
            Width = 75
            Height = 25
            Caption = #28155#21152
            TabOrder = 2
            OnClick = BitBtn5Click
          end
          object BitBtn6: TBitBtn
            Left = 160
            Top = 40
            Width = 75
            Height = 25
            Caption = #21024#38500
            TabOrder = 3
            OnClick = BitBtn6Click
          end
          object BitBtn7: TBitBtn
            Left = 160
            Top = 104
            Width = 75
            Height = 25
            Caption = #19979#31227
            TabOrder = 4
            OnClick = BitBtn7Click
          end
          object BitBtn8: TBitBtn
            Left = 160
            Top = 72
            Width = 75
            Height = 25
            Caption = #19978#31227
            TabOrder = 5
            OnClick = BitBtn8Click
          end
        end
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 10
    Top = 320
    Width = 75
    Height = 24
    Caption = #20445#23384
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 98
    Top = 320
    Width = 75
    Height = 24
    Caption = #40664#35748#20540
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 274
    Top = 321
    Width = 75
    Height = 24
    Caption = #36864#20986
    TabOrder = 4
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 186
    Top = 320
    Width = 75
    Height = 24
    Caption = #39044#35272
    TabOrder = 5
    OnClick = BitBtn4Click
  end
  object ComboBox1: TComboBox
    Left = 360
    Top = 184
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Text = 'ComboBox1'
    Visible = False
  end
  object ProcMenu: TPopupMenu
    Left = 84
    Top = 403
    object N2001: TMenuItem
      Tag = 200
      Caption = '200%'
      GroupIndex = 1
      RadioItem = True
    end
    object N1501: TMenuItem
      Tag = 150
      Caption = '150%'
      GroupIndex = 1
      RadioItem = True
    end
    object N1001: TMenuItem
      Tag = 100
      Caption = '100%'
      Checked = True
      GroupIndex = 1
      RadioItem = True
    end
    object N751: TMenuItem
      Tag = 75
      Caption = '75%'
      GroupIndex = 1
      RadioItem = True
    end
    object N501: TMenuItem
      Tag = 50
      Caption = '50%'
      GroupIndex = 1
      RadioItem = True
    end
    object N251: TMenuItem
      Tag = 25
      Caption = '25%'
      GroupIndex = 1
      RadioItem = True
    end
    object N101: TMenuItem
      Tag = 10
      Caption = '10%'
      GroupIndex = 1
      RadioItem = True
    end
    object N1: TMenuItem
      Tag = 1
      Caption = 'Page width'
      GroupIndex = 1
      RadioItem = True
    end
    object N2: TMenuItem
      Tag = 2
      Caption = 'Whole page'
      GroupIndex = 1
      RadioItem = True
    end
    object N3: TMenuItem
      Tag = 3
      Caption = 'Two pages'
      GroupIndex = 1
      RadioItem = True
    end
    object N4: TMenuItem
      Caption = '-'
      GroupIndex = 1
    end
    object N5: TMenuItem
      Caption = 'Edit page...'
      GroupIndex = 1
    end
    object N6: TMenuItem
      Caption = 'Add page'
      GroupIndex = 1
    end
    object N7: TMenuItem
      Caption = 'Remove page'
      GroupIndex = 1
    end
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 40
    Top = 408
  end
end