setupreportpreview.~dfm

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

object frmSetupReport: TfrmSetupReport
  Left = 148
  Top = 132
  Width = 372
  Height = 386
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25253#34920#26684#24335#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object edtTableName: TEdit
    Left = 364
    Top = 144
    Width = 121
    Height = 21
    TabOrder = 0
    Visible = False
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 364
    Height = 359
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 1
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #23383#27573#23646#24615
      object Label2: TLabel
        Left = 185
        Top = 305
        Width = 72
        Height = 13
        Caption = #21015#23646#24615#35774#32622#65306
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 356
        Height = 331
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 1
        Color = clActiveBorder
        TabOrder = 0
        object Panel2: TPanel
          Left = 1
          Top = 1
          Width = 354
          Height = 329
          Align = alClient
          BevelOuter = bvNone
          BorderWidth = 1
          Color = clActiveBorder
          TabOrder = 0
          object Panel3: TPanel
            Left = 2
            Top = 237
            Width = 350
            Height = 42
            BevelOuter = bvNone
            BorderWidth = 1
            Color = clActiveBorder
            TabOrder = 1
            object Panel4: TPanel
              Left = 1
              Top = 1
              Width = 348
              Height = 40
              Align = alClient
              BevelOuter = bvNone
              Color = clActiveBorder
              TabOrder = 0
              object Label6: TLabel
                Left = 92
                Top = 13
                Width = 60
                Height = 13
                Caption = #25991#26412#25490#21015#65306
              end
              object Label7: TLabel
                Left = 212
                Top = 12
                Width = 60
                Height = 13
                Caption = #27714#21644#31867#22411#65306
              end
              object Label5: TLabel
                Left = 6
                Top = 12
                Width = 39
                Height = 13
                Caption = #23485' '#24230#65306
              end
              object cbbSumType: TComboBox
                Left = 275
                Top = 8
                Width = 54
                Height = 21
                Style = csDropDownList
                ItemHeight = 13
                ItemIndex = 0
                TabOrder = 0
                Text = #25991#26412
                OnChange = cbbSumTypeChange
                Items.Strings = (
                  #25991#26412
                  #24179#22343
                  #27719#24635
                  #35745#25968)
              end
              object cbbOrient: TComboBox
                Left = 155
                Top = 8
                Width = 54
                Height = 21
                Style = csDropDownList
                ItemHeight = 13
                ItemIndex = 0
                TabOrder = 1
                Text = #21521#24038
                OnChange = cbbOrientChange
                Items.Strings = (
                  #21521#24038
                  #23621#20013
                  #21521#21491)
              end
              object speWidth: TSpinEdit
                Left = 45
                Top = 8
                Width = 44
                Height = 22
                MaxLength = 100
                MaxValue = 0
                MinValue = 0
                TabOrder = 2
                Value = 50
                OnChange = speWidthChange
              end
            end
          end
          object lvAttribute: TListView
            Left = 1
            Top = 1
            Width = 352
            Height = 233
            BevelInner = bvNone
            BevelOuter = bvNone
            BevelKind = bkFlat
            Checkboxes = True
            Color = clCaptionText
            Columns = <
              item
                Caption = #38544#34255
              end
              item
                Caption = #21517#31216
                Width = 80
              end
              item
                Alignment = taCenter
                Caption = #23485#24230
                Width = 60
              end
              item
                Alignment = taCenter
                Caption = #25991#26412#25490#21015
                Width = 70
              end
              item
                Alignment = taCenter
                Caption = #27714#21644#31867#22411
                Width = 80
              end>
            FlatScrollBars = True
            GridLines = True
            Items.Data = {
              570000000200000000000000FFFFFFFFFFFFFFFF040000000000000002CAC702
              C6B702A3B20136013700000000FFFFFFFFFFFFFFFF030000000000000002CED2
              023838023939023130FFFFFFFFFFFFFFFFFFFFFFFFFFFF}
            ReadOnly = True
            RowSelect = True
            TabOrder = 0
            ViewStyle = vsReport
            OnClick = lvAttributeClick
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #39029#38754#35774#32622
      ImageIndex = 1
      object Panel15: TPanel
        Left = 0
        Top = 0
        Width = 356
        Height = 331
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 1
        Color = clActiveBorder
        TabOrder = 0
        object Panel16: TPanel
          Left = 1
          Top = 1
          Width = 354
          Height = 329
          Align = alClient
          BevelOuter = bvNone
          BorderWidth = 1
          Color = clActiveBorder
          TabOrder = 0
          object Label3: TLabel
            Left = 16
            Top = 7
            Width = 60
            Height = 13
            Caption = #39029#38754#35774#32622#65306
          end
          object Panel9: TPanel
            Left = 149
            Top = 25
            Width = 152
            Height = 123
            BevelOuter = bvNone
            BorderWidth = 1
            Color = clActiveBorder
            TabOrder = 0
            object Panel10: TPanel
              Left = 1
              Top = 1
              Width = 150
              Height = 121
              Align = alClient
              BevelOuter = bvNone
              Color = clActiveBorder
              TabOrder = 0
              object Label1: TLabel
                Left = 5
                Top = 12
                Width = 60
                Height = 13
                Caption = #23383#20307#22823#23567#65306
              end
              object Label11: TLabel
                Left = 5
                Top = 38
                Width = 60
                Height = 13
                Caption = #23383#20307#35774#32622#65306
              end
              object SpeedButton1: TSpeedButton
                Left = 132
                Top = 33
                Width = 16
                Height = 21
                Caption = '...'
                Visible = False
                OnClick = SpeedButton1Click
              end
              object Label16: TLabel
                Left = 8
                Top = 88
                Width = 81
                Height = 13
                Caption = #19968#39029#30340#34892#25968':'#12288
              end
              object speFontSize: TSpinEdit
                Left = 65
                Top = 8
                Width = 80
                Height = 22
                MaxValue = 100
                MinValue = 0
                TabOrder = 0
                Value = 10
              end
              object edtFontName: TEdit
                Left = 64
                Top = 33
                Width = 68
                Height = 21
                Color = cl3DLight
                Enabled = False
                TabOrder = 1
                Visible = False
              end
              object cbbFontName: TComboBox
                Left = 8
                Top = 56
                Width = 137
                Height = 21
                Style = csDropDownList
                ItemHeight = 13
                TabOrder = 2
              end
              object speLine: TSpinEdit
                Left = 81
                Top = 83
                Width = 64
                Height = 22
                MaxValue = 52
                MinValue = 30
                TabOrder = 3
                Value = 10
              end
            end
          end
          object Panel7: TPanel
            Left = 14
            Top = 155
            Width = 288
            Height = 124
            BevelOuter = bvNone
            BorderWidth = 1
            Color = clActiveBorder
            TabOrder = 1
            object Panel8: TPanel
              Left = 1
              Top = 1
              Width = 286
              Height = 122
              Align = alClient
              BevelOuter = bvNone
              Color = clActiveBorder
              TabOrder = 0
              object Label13: TLabel
                Left = 4
                Top = 52
                Width = 60
                Height = 13
                Caption = #32440#24352#22823#23567#65306
              end
              object Label12: TLabel
                Left = 184
                Top = 93
                Width = 37
                Height = 13
                Caption = #23485',mm  '
                FocusControl = E1
              end
              object Label14: TLabel
                Left = 184
                Top = 68
                Width = 46
                Height = 13
                Caption = #39640', mm    '
                FocusControl = E2
              end
              object Label4: TLabel
                Left = 2
                Top = 1
                Width = 60
                Height = 13
                Caption = #25253#34920#26631#39064#65306
              end
              object cbbPageSize: TComboBox
                Left = 8
                Top = 69
                Width = 137
                Height = 21
                Style = csDropDownList
                ItemHeight = 13
                TabOrder = 0
                OnChange = cbbPageSizeChange
              end
              object E2: TEdit
                Left = 237
                Top = 63
                Width = 40
                Height = 21
                HelpContext = 150
                Color = cl3DLight
                TabOrder = 1
                Text = '1000'
              end
              object E1: TEdit
                Left = 237
                Top = 89
                Width = 40
                Height = 21
                HelpContext = 140
                Color = cl3DLight
                TabOrder = 2