PC World Komputer 1997 May/Pcwk0597.iso/borland/cb/setup/cbuilder/data.z/QBFFORM.DFM/QBFFORM.txt

Text File | 1997-02-28 | 6.2 KB | 238 lines

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 = (
          '<No field conditions>'
          '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