home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / QBFFORM.DFM / QBFFORM.txt
Text File  |  1997-02-28  |  6KB  |  238 lines

  1. object QueryForm: TQueryForm
  2.   Left = 203
  3.   Top = 161
  4.   Width = 544
  5.   Height = 343
  6.   Caption = 'Ad-Hoc Query Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   OnCreate = FormCreate
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object BitBtn1: TBitBtn
  16.     Left = 457
  17.     Top = 28
  18.     Width = 75
  19.     Height = 33
  20.     Caption = 'E&xit'
  21.     TabOrder = 0
  22.     Kind = bkClose
  23.   end
  24.   object GroupBox1: TGroupBox
  25.     Left = 8
  26.     Top = 265
  27.     Width = 445
  28.     Height = 43
  29.     Caption = ' Options: '
  30.     TabOrder = 1
  31.     object CheckBox1: TCheckBox
  32.       Left = 12
  33.       Top = 16
  34.       Width = 145
  35.       Height = 17
  36.       Caption = 'Show File &Extensions'
  37.       State = cbChecked
  38.       TabOrder = 0
  39.     end
  40.     object CheckBox2: TCheckBox
  41.       Left = 177
  42.       Top = 17
  43.       Width = 247
  44.       Height = 16
  45.       Caption = 'Show &System Tables for Remote Aliases'
  46.       TabOrder = 1
  47.     end
  48.   end
  49.   object PageControl1: TPageControl
  50.     Left = 8
  51.     Top = 8
  52.     Width = 445
  53.     Height = 250
  54.     ActivePage = TabSheet1
  55.     TabOrder = 2
  56.     object TabSheet1: TTabSheet
  57.       Caption = 'Example'
  58.       object Label5: TLabel
  59.         Left = 216
  60.         Top = 197
  61.         Width = 30
  62.         Height = 13
  63.         Caption = '&Value:'
  64.         FocusControl = Edit1
  65.       end
  66.       object Label1: TLabel
  67.         Left = 3
  68.         Top = 9
  69.         Width = 85
  70.         Height = 13
  71.         Caption = '&Database Aliases:'
  72.         FocusControl = ListBox1
  73.       end
  74.       object Label2: TLabel
  75.         Left = 147
  76.         Top = 9
  77.         Width = 35
  78.         Height = 13
  79.         Caption = '&Tables:'
  80.         FocusControl = ListBox2
  81.       end
  82.       object Label3: TLabel
  83.         Left = 291
  84.         Top = 9
  85.         Width = 30
  86.         Height = 13
  87.         Caption = '&Fields:'
  88.         FocusControl = ListBox3
  89.       end
  90.       object Label4: TLabel
  91.         Left = 6
  92.         Top = 197
  93.         Width = 27
  94.         Height = 13
  95.         Caption = 'T&ype:'
  96.         FocusControl = ComboBox1
  97.       end
  98.       object ListBox1: TListBox
  99.         Left = 3
  100.         Top = 25
  101.         Width = 140
  102.         Height = 160
  103.         ItemHeight = 13
  104.         Sorted = True
  105.         TabOrder = 0
  106.         OnClick = ListBox1Click
  107.       end
  108.       object ListBox2: TListBox
  109.         Left = 147
  110.         Top = 25
  111.         Width = 140
  112.         Height = 160
  113.         ItemHeight = 13
  114.         TabOrder = 1
  115.         OnClick = ListBox2Click
  116.       end
  117.       object ListBox3: TListBox
  118.         Left = 291
  119.         Top = 25
  120.         Width = 140
  121.         Height = 160
  122.         ItemHeight = 13
  123.         TabOrder = 2
  124.       end
  125.       object Edit1: TEdit
  126.         Left = 255
  127.         Top = 193
  128.         Width = 82
  129.         Height = 20
  130.         TabOrder = 4
  131.         Text = 'Edit1'
  132.       end
  133.       object ComboBox1: TComboBox
  134.         Left = 42
  135.         Top = 193
  136.         Width = 169
  137.         Height = 20
  138.         Style = csDropDownList
  139.         ItemHeight = 13
  140.         Items.Strings = (
  141.           '<No field conditions>'
  142.           'equals'
  143.           'is not equal to'
  144.           'is less than'
  145.           'is less than or equal to'
  146.           'is greater than'
  147.           'is greater than or equal to'
  148.           'starts with'
  149.           'doesn'#39't start with'
  150.           'ends with'
  151.           'doesn'#39't end with'
  152.           'contains'
  153.           'doesn'#39't contain'
  154.           'is blank'
  155.           'is not blank')
  156.         TabOrder = 3
  157.       end
  158.       object BitBtn2: TBitBtn
  159.         Left = 342
  160.         Top = 190
  161.         Width = 90
  162.         Height = 27
  163.         Caption = '&Run Query'
  164.         TabOrder = 5
  165.         OnClick = BitBtn2Click
  166.         Glyph.Data = {
  167.           90010000424D9001000000000000760000002800000020000000100000000100
  168.           0400000000000001000000000000000000000000000000000000000000000000
  169.           80000080000000808000800000008000800080800000C0C0C000808080000000
  170.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770877777
  171.           7777777778F77777777777777808777777777777788F77777777777777008777
  172.           777777777788F77777777777770B0877777777777F8F8F77777777770000B087
  173.           77777777888878F7777777770BBBBB08777777778F777F8FF777777770FB0000
  174.           7777777778F788887777777770BBB0877777777FF8FF78F777777700000BFB08
  175.           777777888887778F7777770FBBBFBBB08777778F77777FF8FF777770FBFB0000
  176.           07777778F777888887777770BFBFB08777777778F77778F7777777770BFBFB08
  177.           777777778F77778F777777770FFFFFF0877777778F777778F777777770FBFFBF
  178.           0877777778FFFFFF8FF777777000000000777777788888888877000000000000
  179.           0000000000000000000000000000000000000000}
  180.         NumGlyphs = 2
  181.       end
  182.     end
  183.     object TabSheet2: TTabSheet
  184.       Caption = 'Information'
  185.       object Memo1: TMemo
  186.         Left = 4
  187.         Top = 4
  188.         Width = 427
  189.         Height = 210
  190.         TabStop = False
  191.         Color = clBtnFace
  192.         Font.Color = clBlack
  193.         Font.Height = -11
  194.         Font.Name = 'MS Sans Serif'
  195.         Font.Style = []
  196.         Lines.Strings = (
  197.           'This example shows a way to provide users with the ability to '
  198.           'define their own queries.  '
  199.           ''
  200.           'To use the example:'
  201.           ''
  202.           '   1)  Choose an alias containing tables, '
  203.           '   2)  Choose a table in that alias, '
  204.           '   3)  Choose a field to search, '
  205.           '   4)  Pick the type of search you want to perform,'
  206.           '   5)  Enter a value to search for,'
  207.           '   6)  Choose the Show Results button.'
  208.           ''
  209.           'If your query returns records, then a Results Viewer displays '
  210.           
  211.             'those results; otherwise, you'#39'll receive a message indicating th' +
  212.             'at '
  213.           'no records matched the search.'
  214.           ''
  215.           'The Show File Extensions options lets you choose whether or '
  216.           'not file extensions are displayed for table names.'
  217.           ''
  218.           
  219.             'The Show System Tables option is used only for remote aliases an' +
  220.             'd '
  221.           'indicates whether or not the system tables should be displayed.')
  222.         ParentFont = False
  223.         ReadOnly = True
  224.         ScrollBars = ssVertical
  225.         TabOrder = 0
  226.       end
  227.     end
  228.   end
  229.   object DataSource1: TDataSource
  230.     Left = 369
  231.     Top = 15
  232.   end
  233.   object Table1: TTable
  234.     Left = 396
  235.     Top = 15
  236.   end
  237. end
  238.