fqbdesign.lfm

这个是功能强大的报表软件

object fqbDesigner: TfqbDesigner
  Left = 213
  Top = 101
  Width = 828
  Height = 614
  Caption = 'Fast Query Builder  Designer'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poDefaultPosOnly
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 820
    Height = 28
    AutoSize = True
    BorderWidth = 1
    EdgeBorders = [ebBottom]
    Flat = True
    Images = ImageList2
    Indent = 2
    TabOrder = 1
    object ToolButton3: TToolButton
      Left = 2
      Top = 0
      Hint = 'Open'
      ImageIndex = 0
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 25
      Top = 0
      Hint = 'Save'
      ImageIndex = 1
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 48
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 56
      Top = 0
      Hint = 'Clear'
      ImageIndex = 2
      OnClick = ToolButton6Click
    end
    object ToolButton8: TToolButton
      Left = 79
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object ToolButton10: TToolButton
      Left = 87
      Top = 0
      Hint = 'Cancel'
      ImageIndex = 3
      OnClick = ToolButton10Click
    end
    object ToolButton7: TToolButton
      Left = 110
      Top = 0
      Hint = 'Ok'
      ImageIndex = 4
      OnClick = ToolButton7Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 28
    Width = 820
    Height = 552
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Model'
      object Splitter2: TSplitter
        Left = 629
        Top = 0
        Width = 3
        Height = 524
        Cursor = crHSplit
        Align = alRight
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 629
        Height = 524
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel1'
        TabOrder = 1
        object Splitter1: TSplitter
          Left = 0
          Top = 360
          Width = 629
          Height = 3
          Cursor = crVSplit
          Align = alBottom
        end
        object fqbTableArea1: TfqbTableArea
          Left = 0
          Top = 0
          Width = 629
          Height = 360
          Align = alClient
          BorderStyle = bsNone
          Color = clAppWorkSpace
          ParentColor = False
          TabOrder = 0
        end
        object fqbGrid1: TfqbGrid
          Left = 0
          Top = 363
          Width = 629
          Height = 161
          Align = alBottom
          BorderStyle = bsNone
          Columns = <
            item
              Caption = 'Collumn'
              Width = 104
            end
            item
              Caption = 'Visible'
              Width = 104
            end
            item
              Caption = 'Where'
              Width = 104
            end
            item
              Caption = 'Sort'
              Width = 104
            end
            item
              Caption = 'Function'
              Width = 104
            end
            item
              Caption = 'Group'
              Width = 105
            end>
          ColumnClick = False
          DragMode = dmAutomatic
          GridLines = True
          HideSelection = False
          ReadOnly = True
          RowSelect = True
          TabOrder = 1
          ViewStyle = vsReport
        end
      end
      object fqbTableListBox1: TfqbTableListBox
        Left = 632
        Top = 0
        Width = 180
        Height = 524
        Align = alRight
        BorderStyle = bsNone
        DragMode = dmAutomatic
        ItemHeight = 18
        Style = lbOwnerDrawFixed
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'SQL'
      ImageIndex = 1
      OnShow = TabSheet2Show
      object fqbSyntaxMemo1: TfqbSyntaxMemo
        Left = 0
        Top = 0
        Width = 812
        Height = 524
        Cursor = crIBeam
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        TabStop = True
        BlockColor = clHighlight
        BlockFontColor = clHighlightText
        CommentAttr.Charset = DEFAULT_CHARSET
        CommentAttr.Color = clNavy
        CommentAttr.Height = -13
        CommentAttr.Name = 'Courier New'
        CommentAttr.Style = [fsItalic]
        KeywordAttr.Charset = DEFAULT_CHARSET
        KeywordAttr.Color = clWindowText
        KeywordAttr.Height = -13
        KeywordAttr.Name = 'Courier New'
        KeywordAttr.Style = [fsBold]
        StringAttr.Charset = DEFAULT_CHARSET
        StringAttr.Color = clNavy
        StringAttr.Height = -13
        StringAttr.Name = 'Courier New'
        StringAttr.Style = []
        TextAttr.Charset = DEFAULT_CHARSET
        TextAttr.Color = clWindowText
        TextAttr.Height = -13
        TextAttr.Name = 'Courier New'
        TextAttr.Style = []
        Lines.Strings = (
          '')