umain.dfm

fastreport演示程序。fastreport是vcl库的下的一个报表三方控件

object frmMain: TfrmMain
  Left = 197
  Top = 155
  Width = 696
  Height = 480
  Caption = 'FR3Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object dbgrdFR: TDBGrid
    Left = 0
    Top = 0
    Width = 688
    Height = 401
    Align = alTop
    DataSource = ds1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fMenuID'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fMenuName'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fMenuUnit'
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fMenuPrice'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fMenuType'
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fMenuMemo'
        Width = 64
        Visible = True
      end>
  end
  object btnQuery: TButton
    Left = 288
    Top = 416
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 3
    OnClick = btnQueryClick
  end
  object btnPreview: TButton
    Left = 400
    Top = 416
    Width = 75
    Height = 25
    Caption = #25253#34920#39044#35272
    TabOrder = 4
    OnClick = btnPreviewClick
  end
  object rb1: TRadioButton
    Left = 8
    Top = 408
    Width = 113
    Height = 17
    Caption = #26126#32454#25253#34920
    Checked = True
    TabOrder = 1
    TabStop = True
  end
  object rb2: TRadioButton
    Left = 136
    Top = 408
    Width = 113
    Height = 17
    Caption = #20998#32452#25253#34920
    TabOrder = 2
  end
  object btnExit: TButton
    Left = 512
    Top = 416
    Width = 75
    Height = 25
    Caption = #36864#20986#31243#24207
    TabOrder = 5
    OnClick = btnExitClick
  end
  object ds1: TDataSource
    DataSet = dmFRDemo.qryAccess
    Left = 200
    Top = 112
  end
end