object QueryForm: TQueryForm Left = 203 Top = 161 Width = 544 Height = 343 Caption = 'Ad-Hoc Query Demo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object BitBtn1: TBitBtn Left = 457 Top = 28 Width = 75 Height = 33 Caption = 'E&xit' TabOrder = 0 Kind = bkClose end object GroupBox1: TGroupBox Left = 8 Top = 265 Width = 445 Height = 43 Caption = ' Options: ' TabOrder = 1 object CheckBox1: TCheckBox Left = 12 Top = 16 Width = 145 Height = 17 Caption = 'Show File &Extensions' State = cbChecked TabOrder = 0 end object CheckBox2: TCheckBox Left = 177 Top = 17 Width = 247 Height = 16 Caption = 'Show &System Tables for Remote Aliases' TabOrder = 1 end end object PageControl1: TPageControl Left = 8 Top = 8 Width = 445 Height = 250 ActivePage = TabSheet1 TabOrder = 2 object TabSheet1: TTabSheet Caption = 'Example' object Label5: TLabel Left = 216 Top = 197 Width = 30 Height = 13 Caption = '&Value:' FocusControl = Edit1 end object Label1: TLabel Left = 3 Top = 9 Width = 85 Height = 13 Caption = '&Database Aliases:' FocusControl = ListBox1 end object Label2: TLabel Left = 147 Top = 9 Width = 35 Height = 13 Caption = '&Tables:' FocusControl = ListBox2 end object Label3: TLabel Left = 291 Top = 9 Width = 30 Height = 13 Caption = '&Fields:' FocusControl = ListBox3 end object Label4: TLabel Left = 6 Top = 197 Width = 27 Height = 13 Caption = 'T&ype:' FocusControl = ComboBox1 end object ListBox1: TListBox Left = 3 Top = 25 Width = 140 Height = 160 ItemHeight = 13 Sorted = True TabOrder = 0 OnClick = ListBox1Click end object ListBox2: TListBox Left = 147 Top = 25 Width = 140 Height = 160 ItemHeight = 13 TabOrder = 1 OnClick = ListBox2Click end object ListBox3: TListBox Left = 291 Top = 25 Width = 140 Height = 160 ItemHeight = 13 TabOrder = 2 end object Edit1: TEdit Left = 255 Top = 193 Width = 82 Height = 20 TabOrder = 4 Text = 'Edit1' end object ComboBox1: TComboBox Left = 42 Top = 193 Width = 169 Height = 20 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '' 'equals' 'is not equal to' 'is less than' 'is less than or equal to' 'is greater than' 'is greater than or equal to' 'starts with' 'doesn'#39't start with' 'ends with' 'doesn'#39't end with' 'contains' 'doesn'#39't contain' 'is blank' 'is not blank') TabOrder = 3 end object BitBtn2: TBitBtn Left = 342 Top = 190 Width = 90 Height = 27 Caption = '&Run Query' TabOrder = 5 OnClick = BitBtn2Click Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770877777 7777777778F77777777777777808777777777777788F77777777777777008777 777777777788F77777777777770B0877777777777F8F8F77777777770000B087 77777777888878F7777777770BBBBB08777777778F777F8FF777777770FB0000 7777777778F788887777777770BBB0877777777FF8FF78F777777700000BFB08 777777888887778F7777770FBBBFBBB08777778F77777FF8FF777770FBFB0000 07777778F777888887777770BFBFB08777777778F77778F7777777770BFBFB08 777777778F77778F777777770FFFFFF0877777778F777778F777777770FBFFBF 0877777778FFFFFF8FF777777000000000777777788888888877000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 end end object TabSheet2: TTabSheet Caption = 'Information' object Memo1: TMemo Left = 4 Top = 4 Width = 427 Height = 210 TabStop = False Color = clBtnFace Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'This example shows a way to provide users with the ability to ' 'define their own queries. ' '' 'To use the example:' '' ' 1) Choose an alias containing tables, ' ' 2) Choose a table in that alias, ' ' 3) Choose a field to search, ' ' 4) Pick the type of search you want to perform,' ' 5) Enter a value to search for,' ' 6) Choose the Show Results button.' '' 'If your query returns records, then a Results Viewer displays ' 'those results; otherwise, you'#39'll receive a message indicating th' + 'at ' 'no records matched the search.' '' 'The Show File Extensions options lets you choose whether or ' 'not file extensions are displayed for table names.' '' 'The Show System Tables option is used only for remote aliases an' + 'd ' 'indicates whether or not the system tables should be displayed.') ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end end object DataSource1: TDataSource Left = 369 Top = 15 end object Table1: TTable Left = 396 Top = 15 end end