ureportdesign.dfm

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

object frmReportDesign: TfrmReportDesign
  Left = 246
  Top = 253
  Width = 696
  Height = 480
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btn1: TButton
    Left = 272
    Top = 288
    Width = 75
    Height = 25
    Caption = 'btn1'
    TabOrder = 0
    OnClick = btn1Click
  end
  object frxReport1: TfrxReport
    DataSet = frxDBDataset1
    DataSetName = 'frxDBDataset1'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    ReportOptions.CreateDate = 38401.237138113430000000
    ReportOptions.LastChange = 38401.237138113430000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 160
    Top = 72
    Datasets = <>
    Variables = <>
    Style = <>
  end
  object frxDesigner1: TfrxDesigner
    Restrictions = []
    Left = 224
    Top = 72
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    CloseDataSource = False
    DataSet = qryAccess
    Left = 304
    Top = 72
  end
  object frxCrossObject1: TfrxCrossObject
    Left = 440
    Top = 72
  end
  object qryAccess: TADOQuery
    Connection = dmFRDemo.conAccess
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tMenu')
    Left = 368
    Top = 72
    object qryAccessfMenuID: TAutoIncField
      DisplayLabel = #33756#21333#32534#21495
      FieldName = 'fMenuID'
      ReadOnly = True
    end
    object qryAccessfMenuName: TWideStringField
      DisplayLabel = #37202#33756#21517#31216
      FieldName = 'fMenuName'
    end
    object qryAccessfMenuUnit: TWideStringField
      DisplayLabel = #37202#33756#21333#20301
      FieldName = 'fMenuUnit'
      Size = 6
    end
    object qryAccessfMenuPrice: TIntegerField
      DisplayLabel = #21333#20215
      FieldName = 'fMenuPrice'
    end
    object qryAccessfMenuType: TWideStringField
      DisplayLabel = #37202#33756#31867#21035
      FieldName = 'fMenuType'
    end
    object qryAccessfMenuMemo: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'fMenuMemo'
      Size = 50
    end
  end
end