home *** CD-ROM | disk | FTP | other *** search
- object frmGQE: TfrmGQE
- Left = 401
- Top = 188
- Width = 575
- Height = 399
- Caption = 'Visual Query Builder'
- ParentFont = True
- HelpFile = 'qbuilder.hlp'
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Position = poScreenCenter
- Visible = True
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- PixelsPerInch = 96
- TextHeight = 13
- object MainSplitter: TSplitter
- Left = 0
- Top = 213
- Width = 567
- Height = 3
- Cursor = crVSplit
- Hint = 'Drag to resize top and bottom query panels'
- Align = alBottom
- Color = clBtnFace
- ParentColor = False
- end
- object nbQuery: TPageControl
- Left = 0
- Top = 216
- Width = 567
- Height = 156
- ActivePage = pageSelect
- Align = alBottom
- TabOrder = 0
- Visible = False
- OnChange = nbQueryChange
- object pageWhere: TTabSheet
- Caption = 'Criteria'
- object criteriaOptions: TPanel
- Left = 0
- Top = 0
- Width = 559
- 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 = 559
- 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 = 559
- Height = 106
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- end
- object joinOptions: TPanel
- Left = 0
- Top = 0
- Width = 559
- Height = 22
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object cbLeftOuter: TCheckBox
- Left = 5
- Top = 2
- Width = 162
- Height = 18
- Caption = '&Include Unmatched Records'
- TabOrder = 0
- end
- object cbRightOuter: TCheckBox
- Left = 469
- Top = 2
- Width = 162
- Height = 18
- Caption = 'I&nclude Unmatched Records'
- TabOrder = 1
- end
- object joinCombo: TComboBox
- Left = 169
- Top = 0
- Width = 286
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- end
- end
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 567
- Height = 30
- Align = alTop
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- object tbbCut: TSpeedButton
- Left = 3
- Top = 4
- Width = 25
- Height = 22
- Hint = 'Cut'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333FF3333333333333003333333333333377F33333333333307
- 733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
- 000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
- 777077777777777777773CCCCC00000000003777777777777777333330030FFF
- FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
- FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
- 0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
- 0F03333333337FFF7F7333333333000000333333333377777733}
- NumGlyphs = 2
- OnClick = Cut1Click
- end
- object tbbCopy: TSpeedButton
- Left = 28
- Top = 4
- Width = 25
- Height = 22
- Hint = 'Copy'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
- FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
- FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
- 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
- 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
- 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
- 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
- 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
- 93337FFFF7737777733300000033333333337777773333333333}
- NumGlyphs = 2
- OnClick = Copy1Click
- end
- object tbbPaste: TSpeedButton
- Left = 53
- Top = 4
- Width = 25
- Height = 22
- Hint = 'Paste'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
- FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
- FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
- FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
- 0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
- 9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
- 9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
- 99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
- 93337777FF777777733370000000073333333777777773333333}
- NumGlyphs = 2
- OnClick = Paste1Click
- end
- object tbbRun: TSpeedButton
- Left = 86
- Top = 4
- Width = 25
- Height = 22
- Hint = 'Test'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333FFFFF3333333333000003333333333F777773FF333333008877700
- 33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
- 703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
- 77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
- 07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
- 780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
- 8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
- 3333333773FFFF77333333333000003333333333377777333333}
- NumGlyphs = 2
- OnClick = RnQuery1Click
- end
- object tbbHelp: TSpeedButton
- Left = 111
- Top = 4
- Width = 25
- Height = 22
- Hint = 'Help'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
- 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
- FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
- FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
- FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
- FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
- FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
- 3333333773FFFF77333333333FBFBF3333333333377777333333}
- NumGlyphs = 2
- OnClick = tbbHelpClick
- end
- object Label1: TLabel
- Left = 152
- Top = 4
- Width = 49
- Height = 22
- AutoSize = False
- Caption = 'Database:'
- Layout = tlCenter
- Visible = False
- end
- object Table: TLabel
- Left = 362
- Top = 4
- Width = 30
- Height = 22
- AutoSize = False
- Caption = 'Table:'
- Layout = tlCenter
- end
- object comboDatabase: TComboBox
- Left = 209
- Top = 4
- Width = 145
- Height = 21
- ItemHeight = 13
- Sorted = True
- TabOrder = 0
- Visible = False
- OnClick = handleClick
- OnEnter = handleEnter
- OnExit = handleExit
- OnKeyDown = tblListKeyDown
- OnKeyPress = handleKeyPress
- end
- object tblList: TComboBox
- Left = 400
- Top = 4
- Width = 145
- Height = 21
- ItemHeight = 13
- Sorted = True
- TabOrder = 1
- OnClick = handleClick
- OnEnter = handleEnter
- OnExit = handleExit
- OnKeyDown = tblListKeyDown
- OnKeyPress = handleKeyPress
- end
- end
- object db: TDatabase
- SessionName = 'Default'
- Left = 11
- Top = 175
- end
- object DirBrowser: TOpenDialog
- Options = [ofHideReadOnly, ofPathMustExist]
- Title = 'Select a directory'
- Left = 45
- Top = 175
- end
- end
-