Delphi Anthology/aDELPHI.iso/Runimage/Delphi50/Bin/sqlb.dll/0/RCDATA/TFRMGQE/TFRMGQE.txt

Text File | 1999-08-11 | 16KB | 575 lines

object frmGQE: TfrmGQE
  Left = 237
  Top = 114
  Width = 710
  Height = 505
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'SQL Builder'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object MainSplitter: TSplitter
    Left = 0
    Top = 238
    Width = 702
    Height = 6
    Cursor = crVSplit
    Hint = 'Drag to resize top and bottom query panels'
    Align = alBottom
    Color = clBtnFace
    ParentColor = False
  end
  object nbQuery: TPageControl
    Left = 0
    Top = 244
    Width = 702
    Height = 215
    ActivePage = pageJoins
    Align = alBottom
    TabOrder = 0
    Visible = False
    OnChange = nbQueryChange
    object pageWhere: TTabSheet
      Caption = 'Criteria'
      object criteriaOptions: TPanel
        Left = 0
        Top = 0
        Width = 694
        Height = 26
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label3: TLabel
          Left = 94
          Top = 7
          Width = 146
          Height = 13
          Caption = 'of the following criteria are met:'
        end
        object WhereBlockOp: TComboBox
          Left = 2
          Top = 2
          Width = 90
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          Items.Strings = (
            'ALL'
            'ANY'
            'NONE'
            'NOT ALL')
          TabOrder = 0
        end
      end
    end
    object pageSelect: TTabSheet
      Caption = 'Selection'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 694
        Height = 24
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object cbRemoveDuplicates: TCheckBox
          Left = 7
          Top = 3
          Width = 126
          Height = 17
          Caption = '&Remove Duplicates'
          TabOrder = 0
          OnClick = cbRemoveDuplicatesClick
        end
      end
    end
    object pageGroupBy: TTabSheet
      Caption = 'Grouping'
    end
    object pageHaving: TTabSheet
      Caption = 'Group Criteria'
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 0
        Height = 26
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label4: TLabel
          Left = 94
          Top = 7
          Width = 146
          Height = 13
          Caption = 'of the following criteria are met:'
        end
        object HavingBlockOp: TComboBox
          Left = 2
          Top = 2
          Width = 90
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          Items.Strings = (
            'ALL'
            'ANY'
            'NONE'
            'NOT ALL')
          TabOrder = 0
        end
      end
    end
    object pageOrderBy: TTabSheet
      Caption = 'Sorting'
    end
    object pageJoins: TTabSheet
      Caption = 'Joins'
      object panelJoinGrid: TPanel
        Left = 0
        Top = 22
        Width = 694
        Height = 165
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
      end
      object joinOptions: TPanel
        Left = 0
        Top = 0
        Width = 694
        Height = 22
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        OnResize = joinOptionsResize
        object Panel3: TPanel
          Left = 532
          Top = 0
          Width = 162
          Height = 22
          Align = alRight
          Alignment = taRightJustify
          BevelOuter = bvNone
          Caption = 'Panel3'
          TabOrder = 0
          object cbRightOuter: TCheckBox
            Left = 2
            Top = 2
            Width = 163
            Height = 18
            Caption = 'I&nclude Unmatched Records'
            TabOrder = 0
          end
        end
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 170
          Height = 22
          Align = alLeft
          BevelOuter = bvNone
          Caption = 'Panel4'
          TabOrder = 1
          object cbLeftOuter: TCheckBox
            Left = 5
            Top = 2
            Width = 162
            Height = 18
            Caption = '&Include Unmatched Records'
            TabOrder = 0
          end
        end
        object joinCombo: TComboBox
          Left = 172
          Top = 2
          Width = 227
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 2
        end
      end
    end
  end
  object basicbuttonbar: TToolBar
    Left = 0
    Top = 0
    Width = 702
    Height = 26
    AutoSize = True
    Images = ImageList1
    Indent = 4
    TabOrder = 1
    object tbbFileNew: TSpeedButton
      Left = 4
      Top = 2
      Width = 21
      Height = 22
      Hint = 'Create a new query'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000FFFFFF000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF000000000000FFFF00FF000000FF00FF00FFFF000000666600888888888888
        88888888888888888888888AAAAAAAAAAA88888A000000000A88888A00000000
        0A88888A000000000A88888A000000000A88888A000000000A88888A00000000
        0A88888A000000000A88888A000000000A88888A000000AAAA88888A000000A0
        A888888A000000AA8888888AAAAAAAA888888888888888888888}
      ParentShowHint = False
      ShowHint = True
      OnClick = New1Click
    end
    object tbbOpen: TSpeedButton
      Left = 25
      Top = 2
      Width = 20
      Height = 22
      Hint = 'Open an existing SQL Query'
      Flat = True
      Glyph.Data = {
        36010000424D3601000000000000760000002800000011000000100000000100
        040000000000C000000000000000000000001000000010000000FFFFFF000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF000000000000FFFF00FF000000FF00FF00FFFF000000666600888888888888
        8888800000008888888888888888800000008AAAAAAAAAAA8888800000008AA3
        33333333A888800000008ABA333333333A88800000008A0B0333333333A88000
        00008AB0BA333333333A800000008A0B0BAAAAAAAAAAA00000008AB0B0B0B0BA
        8888800000008A0B0B0B0B0A8888800000008AB0BAAAAAAA88888000000088AA
        A88888888AAA8000000088888888888888AA80000000888888888A888A8A8000
        00008888888888AAA88880000000888888888888888880000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbOpenClick
    end
    object tbbFileSave: TSpeedButton
      Left = 45
      Top = 2
      Width = 20
      Height = 22
      Hint = 'Save the current query'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000FFFFFF000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF000000000000FFFF00FF000000FF00FF00FFFF000000666600888888888888
        888888AAAAAAAAAAAAA88A33AAAAAA88A3A88A33AAAAAA88A3A88A33AAAAAA88
        A3A88A33AAAAAAAAA3A88A333333333333A88A33AAAAAAAA33A88A3A88888888
        A3A88A3A88888888A3A88A3A88888888A3A88A3A88888888A3A88A3A88888888
        AAA88A3A88888888A8A88AAAAAAAAAAAAAA88888888888888888}
      ParentShowHint = False
      ShowHint = True
      OnClick = Save1Click
    end
    object ToolButton3: TToolButton
      Left = 65
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 1
      Style = tbsDivider
    end
    object tbbCut: TSpeedButton
      Left = 73
      Top = 2
      Width = 19
      Height = 22
      Hint = 'Cut to Clipboard'
      Flat = True
      Glyph.Data = {
        36010000424D3601000000000000760000002800000011000000100000000100
        040000000000C000000000000000000000001000000010000000FFFFFF000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF000000000000FFFF00FF000000FF00FF00FFFF000000666600888888888888
        8888800000008888844888888888800000008888488488448888800000008888
        4884848848888000000088884884848848888000000088888444848848888000
        000088888884844488888000000088888884A48888888000000088888888A888
        8888800000008888888AAA888888800000008888888A8A888888800000008888
        88AA8AA8888880000000888888A888A8888880000000888888A888A888888000
        0000888888A888A8888880000000888888888888888880000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = Cut1Click
    end
    object tbbCopy: TSpeedButton
      Left = 92
      Top = 2
      Width = 20
      Height = 22
      Hint = 'Copy to Clipboard'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000FFFFFF000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF000000000000FFFF00FF000000FF00FF00FFFF000000666600888888888888
        8888888888888888888888888884444444448888888400000004888888840AAA
        AA048AAAAAA4000000048A0000040AAAAA048A0AAAA4000000048A0000040AA0
        44448A0AAAA4000040488A000004000044888A0AA0A4444448888A0000A0A888
        88888A0000AA888888888AAAAAA8888888888888888888888888}
      ParentShowHint = False
      ShowHint = True
      OnClick = Copy1Click
    end
    object tbbPaste: TSpeedButton
      Left = 112
      Top = 2
      Width = 21
      Height = 22
      Hint = 'Paste from Clipboard'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000FFFFFF000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF000000000000FFFF00FF000000FF00FF00FFFF000000666600888888888888
        888888888844444444448AAAAA4000000004A7373740AAAAAA04A37373400000
        0004A7373740AAA04444A373734000004048A737374000004488A37373444444
        4A88A737373737373A88A30AAAAAAAA77A88A77A888888A73A88A373ABAABA73
        7A888AAAAABBAAAAA88888888AAAA88888888888888888888888}
      ParentShowHint = False
      ShowHint = True
      OnClick = Paste1Click
    end
    object ToolButton2: TToolButton
      Left = 133
      Top = 2
      Width = 6
      Caption = 'ToolButton2'
      ImageIndex = 1
      Style = tbsDivider
    end
    object tbbSQL: TSpeedButton
      Left = 139
      Top = 2
      Width = 20
      Height = 22
      Hint = 'Show and Edit SQL'
      Flat = True
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
        EEEEEE000000E0000000000000000E000000E0FFF0FFFFF0FFFF0E000000E0FF
        F0FFFFF0FFFF0E000000E0F4F0F444F0F44F0E000000E0FFF8FFFFF8FFFF0E00
        0000E0F991FF9998999F0E000000E0FFF1F9F9F89FFF0E000000E0FF98F9FF98
        9FFF0E000000E0F9F8F9FF989FFF0E000000E0F191FF99F89FFF0E000000E0FF
        F8FFFFF8FFFF0E000000E0F4F0F444F0F44F0E000000E0FFF0FFFFF0FFFF0E00
        0000E0000000000000000E000000E0666666666666660E000000E00000000000
        00000E000000EEEEEEEEEEEEEEEEEE000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = ShowSQL1Click
    end
    object tbbRun: TSpeedButton
      Left = 159
      Top = 2
      Width = 22
      Height = 22
      Hint = 'Execute Query'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEE0EEEEEE
        EEEEEEEEE70EEEEEEEEEEEEEEE00EEEEEEEEEEEEEE0B0EEEEEEEEEEE0000B0EE
        EEEEEEEE0BBBBB0EEEEEEEEEE0FB0000EEEEEEEEE0BBB0EEEEEEEE00000BFB0E
        EEEEEE0FBBBFBBB0EEEEEEE0FBFB00000EEEEEE0BFBFB0EEEEEEEEEE0BFBFB0E
        EEEEEEEE0FFFFFF0EEEEEEEEE0FBFFBF0EEEEEEEE000000000EE}
      ParentShowHint = False
      ShowHint = True
      OnClick = RnQuery1Click
    end
    object ToolButton1: TToolButton
      Left = 181
      Top = 2
      Width = 6
      Caption = 'ToolButton1'
      ImageIndex = 0
      Style = tbsDivider
    end
    object Label2: TLabel
      Left = 187
      Top = 2
      Width = 27
      Height = 22
      Alignment = taRightJustify
      Caption = '&Table'
      FocusControl = tblList
      Layout = tlCenter
    end
    object ToolButton5: TToolButton
      Left = 214
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object tblList: TComboBox
      Left = 222
      Top = 2
      Width = 126
      Height = 21
      Hint = 'Add a table from this list'
      ItemHeight = 13
      Sorted = True
      TabOrder = 1
      OnClick = handleClick
      OnEnter = handleEnter
      OnExit = handleExit
      OnKeyDown = tblListKeyDown
      OnKeyPress = handleKeyPress
    end
    object ToolButton4: TToolButton
      Left = 348
      Top = 2
      Width = 9
      Caption = 'ToolButton4'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object Label1: TLabel
      Left = 357
      Top = 2
      Width = 49
      Height = 22
      Alignment = taRightJustify
      Caption = '&Database '
      FocusControl = comboDatabase
      Layout = tlCenter
    end
    object ToolButton6: TToolButton
      Left = 406
      Top = 2
      Width = 7
      Caption = 'ToolButton6'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object comboDatabase: TComboBox
      Left = 413
      Top = 2
      Width = 109
      Height = 21
      Hint = 'Select a Database'
      ItemHeight = 13
      Sorted = True
      TabOrder = 0
      OnClick = handleClick
      OnEnter = handleEnter
      OnExit = handleExit
      OnKeyDown = tblListKeyDown
      OnKeyPress = handleKeyPress
    end
  end
  object MainMenu1: TMainMenu
    Left = 12
    Top = 38
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = '&Import from file...'
        ShortCut = 16457
        OnClick = Open1Click
      end
      object SaveAs1: TMenuItem
        Caption = '&Export to file...'
        ShortCut = 16453
        OnClick = SaveAs1Click
      end
      object ReverttoOriginal1: TMenuItem
        Caption = '&Revert to saved'
        ShortCut = 16466
        OnClick = ReverttoOriginal1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
    end
    object mnuQuery: TMenuItem
      Caption = '&Query'
      object RnQuery1: TMenuItem
        Caption = '&Run Query'
        ShortCut = 120
        OnClick = RnQuery1Click
      end
      object ShowSQL1: TMenuItem
        Caption = '&Show SQL'
        ShortCut = 118
        OnClick = ShowSQL1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 112
        OnClick = Contents1Click
      end
    end
  end
  object db: TDatabase
    SessionName = 'Default'
    Left = 11
    Top = 71
  end
  object DirBrowser: TOpenDialog
    Options = [ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
    Title = 'Select a directory'
    Left = 13
    Top = 103
  end
  object ImageList1: TImageList
    Left = 182
    Top = 53
  end
  object OpenDialog1: TOpenDialog
    Left = 104
    Top = 96
  end
end