reportdemo.dfm

Delphi报表设计器源代码

object CReportDemoForm: TCReportDemoForm
  Left = 321
  Top = 242
  BorderStyle = bsDialog
  Caption = 'creport4.12 '#31034#20363' ( [e-mail] )'
  ClientHeight = 429
  ClientWidth = 686
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 686
    Height = 75
    Align = alTop
    BevelOuter = bvNone
    Caption = 'CReport 4.12'#31034#20363
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -24
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object SpeedButton3: TSpeedButton
      Left = 453
      Top = 47
      Width = 105
      Height = 24
      Caption = #21160#24577#25253#34920#31034#20363
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton3Click
    end
    object CheckBox1: TCheckBox
      Left = 44
      Top = 15
      Width = 138
      Height = 17
      Caption = #26410#28385#39029#31354#34920#26684#40784
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object ReportControl1: TReportControl
      Left = 595
      Top = 34
      Width = 41
      Height = 30
      Visible = False
    end
    object CheckBox2: TCheckBox
      Left = 45
      Top = 37
      Width = 156
      Height = 17
      Caption = #39044#35272#20013#35843#29992#27169#26495#31243#24207
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 46
      Top = 57
      Width = 259
      Height = 17
      Caption = #39044#35272#20013#35843#29992#27169#26495#31243#24207#26102#38480#21046#26576#20123#21151#33021
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = CheckBox3Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 75
    Width = 33
    Height = 315
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
  end
  object Panel4: TPanel
    Left = 584
    Top = 75
    Width = 102
    Height = 315
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 2
    object Button3: TButton
      Left = 13
      Top = 43
      Width = 71
      Height = 21
      Hint = 
        'E:\lzl_delphi\vcl\CReport\CReport_D5_D7\demo_d6_7\CReport_demo.e' +
        'pt'
      Caption = #25171#21360
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 13
      Top = 83
      Width = 71
      Height = 20
      Caption = #20851#38381
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 14
      Top = 1
      Width = 70
      Height = 23
      Hint = 
        'E:\lzl_delphi\vcl\CReport\CReport_D5_D7\demo_d6_7\CReport_demo.e' +
        'pt'
      Caption = #39044#35272
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button5Click
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 390
    Width = 686
    Height = 39
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object Button2: TButton
      Left = 32
      Top = 8
      Width = 193
      Height = 25
      Caption = #22270#29255#20889#20837'Table2'#34920'Bmp'#23383#27573#20013
      TabOrder = 0
      OnClick = Button2Click
    end
  end
  object Panel3: TPanel
    Left = 33
    Top = 75
    Width = 551
    Height = 315
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel3'
    TabOrder = 4
    object Panel6: TPanel
      Left = 0
      Top = 0
      Width = 551
      Height = 240
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel6'
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 551
        Height = 240
        Align = alClient
        Color = clWhite
        DataSource = DataSource1
        ImeName = #20116#31508#30011
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'No'
            Width = 55
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Name'
            Width = 243
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ZF'
            Width = 173
            Visible = True
          end>
      end
    end
    object Panel7: TPanel
      Left = 0
      Top = 240
      Width = 551
      Height = 75
      Align = alBottom
      BevelOuter = bvNone
      Caption = 'Panel7'
      TabOrder = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 10
        Width = 551
        Height = 65
        Align = alBottom
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'No'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Km'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Fs'
            Width = 117
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Bmp'
            Width = 176
            Visible = True
          end>
      end
    end
  end
  object ReportRunTime2: TReportRunTime
    EditEpt = True
    CreportButt = True
    SetData.Strings = (
      'SetDataSet(t1,table1);'
      'SetDataSet(t2,table2);')
    AddSpace = True
    Left = 560
    Top = 48
  end
  object Table1: TTable
    TableName = 't1.db'
    Left = 72
    Top = 136
  end
  object Table2: TTable
    TableName = 'T2.db'
    Left = 72
    Top = 216
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 104
    Top = 136
  end
  object opbm1: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp;*.ico)|*.jpg;*.jpeg;*.bmp;*.ico|JPEG Ima' +
      'ge File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*' +
      '.bmp)|*.bmp|Icons (*.ico)|*.ico'
    Left = 480
    Top = 8
  end
  object ReportRunTime1: TReportRunTime
    EditEpt = True
    CreportButt = False
    OnSetCellFont = ReportRunTime1SetCellFont
    SetData.Strings = (
      'SetDataSet(t1,table1);'
      'SetDataSet(t2,table2);')
    AddSpace = True
    Left = 448
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 144
    Top = 224
  end
end