home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
borland
/
cb
/
setup
/
cbuilder
/
data.z
/
QBFFORM.DFM
/
QBFFORM.txt
Wrap
Text File
|
1997-02-28
|
6KB
|
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