david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
1183 lines
37 KiB
Plaintext
1183 lines
37 KiB
Plaintext
object DBAwareForm: TDBAwareForm
|
|
Left = 209
|
|
Top = 123
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsSingle
|
|
Caption = 'RX Data Aware Components'
|
|
ClientHeight = 313
|
|
ClientWidth = 504
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
FormStyle = fsMDIChild
|
|
Icon.Data = {
|
|
0000010001002020100000000000E80200001600000028000000200000004000
|
|
0000010004000000000080020000000000000000000000000000000000000000
|
|
0000000080000080000000808000800000008000800080800000C0C0C0008080
|
|
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000099999000099999990000000000000000099900000009990000000000
|
|
0000000000999CC000099CCCCC000000000000000009990000099CCC00000000
|
|
000000000000999000990CC000000000000000000000099900990CC000000000
|
|
00000000000000999099CC000000000000000000000000099999CC0000009999
|
|
90000000999900009990CC000000999000000009990000000999CC000000099C
|
|
CCC0000990CCCC00099990000000099CC00000099CCC0000990999000000099C
|
|
C00000990CC00000990C999000000099C00000990CC0000099CC099900000099
|
|
C0000099CC00000099CC009990000099CC000990CC00000990CC000999000099
|
|
CC000990CC00000990CC00009999000999999999C00000999CC0000009990009
|
|
9C0000999900999999900009999900099CCCCCCC99900000CCC00000000C0009
|
|
9CC00000999900CCCCCCC0000CCC000099C000000999C0000000000000000000
|
|
99C000000099CC00000000000000000099CC00000099CC000000000000000000
|
|
99CC00000999CC000000000000000000999C00009990CC000000000000000099
|
|
99999999900CCC00000000000000000000CCC00000CCC0000000000000000000
|
|
CCCCCCCCCCC0000000000000000000000000000000000000000000000000FFFF
|
|
FFFFFFFFFFFFFFF0780FFFF8FE3FFFFC1E03FFFE3E0FFFFF1C9FFFFF8C9FFFFF
|
|
C43FFFFFE03F07F0F13F1FE3F83F81E4387F87E0F23F87C9F21FC7C9F08FC7C3
|
|
F0C7C393E4E3C393E4F0E007C1F8E3C301E0E001F1FEE1F0C078F1F87FFFF1FC
|
|
3FFFF0FC3FFFF0F83FFFF0F13FFFC0063FFFFC7C7FFFF001FFFFFFFFFFFF07FA}
|
|
OldCreateOrder = True
|
|
Position = poDefaultPosOnly
|
|
ShowHint = True
|
|
Visible = True
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object TabbedNotebook1: TTabbedNotebook
|
|
Left = 0
|
|
Top = 0
|
|
Width = 504
|
|
Height = 313
|
|
Align = alClient
|
|
PageIndex = 3
|
|
TabsPerRow = 4
|
|
TabFont.Charset = DEFAULT_CHARSET
|
|
TabFont.Color = clBtnText
|
|
TabFont.Height = -11
|
|
TabFont.Name = 'MS Sans Serif'
|
|
TabFont.Style = []
|
|
TabOrder = 0
|
|
object TTabPage
|
|
Left = 4
|
|
Top = 24
|
|
Caption = 'Grid'
|
|
object GroupBox1: TGroupBox
|
|
Left = 0
|
|
Top = 73
|
|
Width = 496
|
|
Height = 212
|
|
Align = alClient
|
|
Caption = ' RxDBGrid '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object rxDBGrid1: TJvDBGrid
|
|
Left = 2
|
|
Top = 33
|
|
Width = 492
|
|
Height = 177
|
|
Align = alClient
|
|
DataSource = DataSource1
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clBlue
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
OnKeyPress = rxDBGrid1KeyPress
|
|
ClearSelection = False
|
|
IniStorage = FormStorage1
|
|
MultiSelect = True
|
|
OnGetCellParams = rxDBGrid1GetCellParams
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 2
|
|
Top = 15
|
|
Width = 492
|
|
Height = 18
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
object CheckBox1: TCheckBox
|
|
Left = 8
|
|
Top = 0
|
|
Width = 229
|
|
Height = 17
|
|
Caption = ' Show pictures for BLOB-fields'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 0
|
|
OnClick = CheckBox1Click
|
|
end
|
|
object CheckBox2: TCheckBox
|
|
Left = 252
|
|
Top = 0
|
|
Width = 229
|
|
Height = 17
|
|
Caption = ' Allow select multiple rows '
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 1
|
|
OnClick = CheckBox2Click
|
|
end
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 496
|
|
Height = 73
|
|
Align = alTop
|
|
Caption = ' DBStatusLabel '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
object DBStatusLabel1: TJvDBStatusLabel
|
|
Left = 222
|
|
Top = 34
|
|
Width = 257
|
|
Height = 13
|
|
DatasetName = 'Table "Biolife"'
|
|
DataSource = DataSource1
|
|
AutoSize = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 20
|
|
Top = 15
|
|
Width = 449
|
|
Height = 14
|
|
AutoSize = False
|
|
Caption =
|
|
'TJvDBStatusLabel component displays the DataSet state or record' +
|
|
' number'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object DBStatusLabel2: TJvDBStatusLabel
|
|
Left = 222
|
|
Top = 50
|
|
Width = 263
|
|
Height = 13
|
|
DataSource = DataSource1
|
|
Style = lsRecordNo
|
|
AutoSize = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 10
|
|
Top = 39
|
|
Width = 198
|
|
Height = 21
|
|
DataSource = DataSource1
|
|
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object TTabPage
|
|
Left = 4
|
|
Top = 24
|
|
Caption = 'Combos'
|
|
object GroupBox3: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 496
|
|
Height = 172
|
|
Align = alTop
|
|
Caption = ' RxDBLookupCombo '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object Label3: TLabel
|
|
Left = 15
|
|
Top = 17
|
|
Width = 455
|
|
Height = 40
|
|
AutoSize = False
|
|
Caption =
|
|
'TJvDBLookupCombo provides an incremental search, LookupSource c' +
|
|
'an refer to TTable, TQuery or TJvQBEQuery . End-users can increm' +
|
|
'entally search through the lookup list by directly typing into t' +
|
|
'he combo control while the lookup list is displayed.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object Label4: TLabel
|
|
Left = 12
|
|
Top = 63
|
|
Width = 92
|
|
Height = 13
|
|
Caption = 'Employee Name: '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 314
|
|
Top = 63
|
|
Width = 101
|
|
Height = 13
|
|
Caption = 'Employee Number: '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label6: TLabel
|
|
Left = 16
|
|
Top = 111
|
|
Width = 445
|
|
Height = 46
|
|
AutoSize = False
|
|
Caption =
|
|
'In this example the TJvDBLookupCombo component refers to the TQ' +
|
|
'BEQuery component. The non-visual TJvQBEQuery component allows ' +
|
|
'you to specify a Paradox-style Query-By-Example query that is us' +
|
|
'ed to supply data to one or more of the other visual controls.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object Edit1: TMaskEdit
|
|
Left = 315
|
|
Top = 79
|
|
Width = 153
|
|
Height = 21
|
|
TabStop = False
|
|
EditMask = '!99999;1; '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
MaxLength = 5
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text = ' '
|
|
end
|
|
object rxDBLookupCombo1: TJvDBLookupCombo
|
|
Left = 12
|
|
Top = 79
|
|
Width = 289
|
|
Height = 21
|
|
DropDownCount = 8
|
|
DisplayAllFields = True
|
|
DisplayEmpty = '< Not selected >'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 17
|
|
LookupField = 'EmpNo'
|
|
LookupDisplay = 'LastName;FirstName'
|
|
LookupSource = DataSource2
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnChange = rxDBLookupCombo1Change
|
|
OnGetImage = rxDBLookupCombo1GetImage
|
|
end
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 0
|
|
Top = 172
|
|
Width = 496
|
|
Height = 113
|
|
Align = alClient
|
|
Caption = ' DBIndexCombo '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
object Label7: TLabel
|
|
Left = 8
|
|
Top = 14
|
|
Width = 225
|
|
Height = 59
|
|
AutoSize = False
|
|
Caption =
|
|
'TJvDBIndexCombo is the combo box with all available indexes for' +
|
|
' the table it'#39's assigned to. Allows to the end user to change th' +
|
|
'e current display order.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object rxDBGrid2: TJvDBGrid
|
|
Left = 238
|
|
Top = 10
|
|
Width = 241
|
|
Height = 87
|
|
DataSource = DataSource3
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object DBIndexCombo1: TJvDBIndexCombo
|
|
Left = 8
|
|
Top = 75
|
|
Width = 217
|
|
Height = 21
|
|
DataSource = DataSource3
|
|
NoIndexItem = '< Natural Order >'
|
|
EnableNoIndex = True
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object TTabPage
|
|
Left = 4
|
|
Top = 24
|
|
Caption = 'Filter'
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 496
|
|
Height = 129
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object GroupBox6: TGroupBox
|
|
Left = 0
|
|
Top = 83
|
|
Width = 494
|
|
Height = 41
|
|
TabOrder = 0
|
|
object DBNavigator: TDBNavigator
|
|
Left = 235
|
|
Top = 11
|
|
Width = 230
|
|
Height = 25
|
|
DataSource = DataSource4
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object GroupBox7: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 496
|
|
Height = 84
|
|
Align = alTop
|
|
Caption = ' RxDBFilter '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
object Label15: TLabel
|
|
Left = 12
|
|
Top = 21
|
|
Width = 461
|
|
Height = 52
|
|
AutoSize = False
|
|
Caption =
|
|
'TJvDBFilter encapsulates BDE ability to filter records locally.' +
|
|
' The component provides event on filtering and/or conditions in ' +
|
|
'StringList property. Filters are very fast because they are cont' +
|
|
'rolled at the database engine level and not in Delphi code.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 129
|
|
Width = 496
|
|
Height = 156
|
|
Align = alClient
|
|
BevelInner = bvLowered
|
|
BorderWidth = 4
|
|
Caption = 'Panel2'
|
|
TabOrder = 1
|
|
object ScrollBox: TScrollBox
|
|
Left = 6
|
|
Top = 6
|
|
Width = 484
|
|
Height = 144
|
|
HorzScrollBar.Margin = 6
|
|
HorzScrollBar.Range = 294
|
|
VertScrollBar.Margin = 6
|
|
VertScrollBar.Range = 122
|
|
Align = alClient
|
|
AutoScroll = False
|
|
BorderStyle = bsNone
|
|
TabOrder = 0
|
|
object Label8: TLabel
|
|
Left = 174
|
|
Top = 9
|
|
Width = 63
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'Company'
|
|
FocusControl = EditCompany
|
|
end
|
|
object Label9: TLabel
|
|
Left = 360
|
|
Top = 9
|
|
Width = 49
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'CustNo'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 174
|
|
Top = 51
|
|
Width = 35
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'City'
|
|
FocusControl = EditCity
|
|
end
|
|
object Label11: TLabel
|
|
Left = 270
|
|
Top = 51
|
|
Width = 43
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'State'
|
|
FocusControl = EditState
|
|
end
|
|
object Label12: TLabel
|
|
Left = 396
|
|
Top = 51
|
|
Width = 29
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'Zip'
|
|
FocusControl = EditZip
|
|
end
|
|
object Label13: TLabel
|
|
Left = 174
|
|
Top = 89
|
|
Width = 51
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'Country'
|
|
FocusControl = EditCountry
|
|
end
|
|
object Label14: TLabel
|
|
Left = 304
|
|
Top = 89
|
|
Width = 45
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'Phone'
|
|
FocusControl = EditPhone
|
|
end
|
|
object EditCompany: TDBEdit
|
|
Left = 174
|
|
Top = 24
|
|
Width = 180
|
|
Height = 21
|
|
DataField = 'Company'
|
|
DataSource = DataSource4
|
|
TabOrder = 1
|
|
end
|
|
object EditCity: TDBEdit
|
|
Left = 174
|
|
Top = 66
|
|
Width = 90
|
|
Height = 21
|
|
DataField = 'City'
|
|
DataSource = DataSource4
|
|
TabOrder = 3
|
|
end
|
|
object EditState: TDBEdit
|
|
Left = 270
|
|
Top = 66
|
|
Width = 120
|
|
Height = 21
|
|
DataField = 'State'
|
|
DataSource = DataSource4
|
|
TabOrder = 4
|
|
end
|
|
object EditZip: TDBEdit
|
|
Left = 396
|
|
Top = 66
|
|
Width = 60
|
|
Height = 21
|
|
DataField = 'Zip'
|
|
DataSource = DataSource4
|
|
TabOrder = 5
|
|
end
|
|
object EditCountry: TDBEdit
|
|
Left = 174
|
|
Top = 104
|
|
Width = 120
|
|
Height = 21
|
|
DataField = 'Country'
|
|
DataSource = DataSource4
|
|
TabOrder = 6
|
|
end
|
|
object EditPhone: TDBEdit
|
|
Left = 304
|
|
Top = 103
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'Phone'
|
|
DataSource = DataSource4
|
|
TabOrder = 7
|
|
end
|
|
object GroupBox5: TGroupBox
|
|
Left = 7
|
|
Top = 7
|
|
Width = 145
|
|
Height = 118
|
|
Caption = ' Filter control panel '
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
object EnterQuery: TSpeedButton
|
|
Left = 36
|
|
Top = 18
|
|
Width = 25
|
|
Height = 25
|
|
Hint = 'Enter query|'
|
|
Glyph.Data = {
|
|
66010000424D6601000000000000760000002800000014000000140000000100
|
|
040000000000F000000000000000000000001000000000000000000000000000
|
|
80000080000000808000800000008000800080800000C0C0C000808080000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
|
|
3333333300003333333333333300333300003333333333333333333300003333
|
|
3333333333003333000033033333333333003333000030003333333333300333
|
|
00000F000333333330330033000030F000333333300330030000330F00000008
|
|
3300003300003330F0087778033333330000333300877FF78033333300003333
|
|
0877777F788333330000333307777777F70333330000333308777777F7033333
|
|
00003333087FF7777703333300003333888FF777788333330000333330887777
|
|
8033333300003333330888880333333300003333333800083333333300003333
|
|
33333333333333330000}
|
|
OnClick = EnterQueryClick
|
|
end
|
|
object ExecQuery: TSpeedButton
|
|
Left = 60
|
|
Top = 18
|
|
Width = 25
|
|
Height = 25
|
|
Hint = 'Exec query|'
|
|
Enabled = False
|
|
Glyph.Data = {
|
|
66010000424D6601000000000000760000002800000014000000140000000100
|
|
040000000000F000000000000000000000001000000000000000000000000000
|
|
80000080000000808000800000008000800080800000C0C0C000808080000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
|
|
3333333300003333333333333333333300003333333033333333333300003333
|
|
33380333333333330000333333330033333333330000333333330B0333333333
|
|
00003333330000B03333333300003333330BBFBB03333333000033333330FB00
|
|
00333333000033333330BFB0333333330000333300000BFB0333333300003333
|
|
0FBFBFBFB03333330000333330FBFB00003333330000333330BFBFB033333333
|
|
00003333330BFBFB0333333300003333330FFFBFF0333333000033333330FBFF
|
|
BF03333300003333333000000000333300003333333333333333333300003333
|
|
33333333333333330000}
|
|
OnClick = ExecQueryClick
|
|
end
|
|
object CancelQuery: TSpeedButton
|
|
Left = 84
|
|
Top = 18
|
|
Width = 25
|
|
Height = 25
|
|
Hint = 'Cancel query|'
|
|
Enabled = False
|
|
Glyph.Data = {
|
|
DE010000424DDE01000000000000760000002800000024000000120000000100
|
|
0400000000006801000000000000000000001000000000000000000000000000
|
|
80000080000000808000800000008000800080800000C0C0C000808080000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
|
|
333333333333333333333333000033338833333333333333333F333333333333
|
|
0000333911833333983333333388F333333F3333000033391118333911833333
|
|
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
|
|
911118111118333338F3338F833338F3000033333911111111833333338F3338
|
|
3333F8330000333333911111183333333338F333333F83330000333333311111
|
|
8333333333338F3333383333000033333339111183333333333338F333833333
|
|
00003333339111118333333333333833338F3333000033333911181118333333
|
|
33338333338F333300003333911183911183333333383338F338F33300003333
|
|
9118333911183333338F33838F338F33000033333913333391113333338FF833
|
|
38F338F300003333333333333919333333388333338FFF830000333333333333
|
|
3333333333333333333888330000333333333333333333333333333333333333
|
|
0000}
|
|
NumGlyphs = 2
|
|
OnClick = CancelQueryClick
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
Left = 12
|
|
Top = 53
|
|
Width = 121
|
|
Height = 53
|
|
Caption = ' Link type '
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'AND'
|
|
'OR')
|
|
TabOrder = 0
|
|
OnClick = RadioGroup1Click
|
|
end
|
|
end
|
|
object EditCustNo: TDBEdit
|
|
Left = 360
|
|
Top = 24
|
|
Width = 60
|
|
Height = 21
|
|
DataField = 'CustNo'
|
|
DataSource = DataSource4
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object TTabPage
|
|
Left = 4
|
|
Top = 24
|
|
Caption = 'Query'
|
|
object GroupBox8: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 496
|
|
Height = 285
|
|
Align = alClient
|
|
Caption = ' JvQuery '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object Label16: TLabel
|
|
Left = 8
|
|
Top = 16
|
|
Width = 481
|
|
Height = 46
|
|
AutoSize = False
|
|
Caption =
|
|
'The component is the descendant of standard TQuery, so it provid' +
|
|
'es all its functionality. In addition it supports "macros" in qu' +
|
|
'ery text (SQL property), which are similar to Params. This abili' +
|
|
'ty allows to modify SQL text easily and handy.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 100
|
|
Width = 481
|
|
Height = 16
|
|
AutoSize = False
|
|
Caption = 'Click column header to change sort order in TJvDBGrid .'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 8
|
|
Top = 60
|
|
Width = 481
|
|
Height = 37
|
|
Caption = 'Panel4'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object Label17: TLabel
|
|
Left = 8
|
|
Top = 12
|
|
Width = 53
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'Company:'
|
|
end
|
|
object Label19: TLabel
|
|
Left = 224
|
|
Top = 12
|
|
Width = 49
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'Order By:'
|
|
end
|
|
object rxDBLookupCombo2: TJvDBLookupCombo
|
|
Left = 64
|
|
Top = 8
|
|
Width = 133
|
|
Height = 21
|
|
Hint = 'Press Esc once or twice to select < All >|'
|
|
DropDownCount = 8
|
|
DisplayEmpty = '< All >'
|
|
LookupField = 'CustNo'
|
|
LookupDisplay = 'Company'
|
|
LookupSource = DataSource6
|
|
TabOrder = 0
|
|
OnChange = rxDBLookupCombo2Change
|
|
end
|
|
object ComboBox2: TComboBox
|
|
Left = 276
|
|
Top = 8
|
|
Width = 109
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 1
|
|
OnChange = ComboBox2Change
|
|
Items.Strings = (
|
|
'Sale Date'
|
|
'Ship Date'
|
|
'Company'
|
|
'Employee')
|
|
end
|
|
end
|
|
object DBGrid1: TJvDBGrid
|
|
Left = 4
|
|
Top = 121
|
|
Width = 485
|
|
Height = 156
|
|
DataSource = DataSource5
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clBlue
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
IniStorage = FormStorage1
|
|
TitleButtons = True
|
|
OnCheckButton = DBGrid1CheckButton
|
|
OnGetBtnParams = DBGrid1GetBtnParams
|
|
OnTitleBtnClick = DBGrid1TitleBtnClick
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = Table2
|
|
Left = 48
|
|
Top = 4
|
|
end
|
|
object Table2: TTable
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
TableName = 'BIOLIFE.DB'
|
|
Left = 40
|
|
object Table2SpeciesNo: TFloatField
|
|
DisplayWidth = 9
|
|
FieldName = 'Species No'
|
|
end
|
|
object Table2Category: TStringField
|
|
DisplayWidth = 15
|
|
FieldName = 'Category'
|
|
Size = 15
|
|
end
|
|
object Table2Common_Name: TStringField
|
|
DisplayWidth = 22
|
|
FieldName = 'Common_Name'
|
|
Size = 30
|
|
end
|
|
object Table2Lengthcm: TFloatField
|
|
DisplayWidth = 11
|
|
FieldName = 'Length (cm)'
|
|
end
|
|
object Table2Notes: TMemoField
|
|
DisplayWidth = 7
|
|
FieldName = 'Notes'
|
|
ReadOnly = True
|
|
BlobType = ftMemo
|
|
Size = 50
|
|
end
|
|
object Table2Graphic: TGraphicField
|
|
DisplayWidth = 7
|
|
FieldName = 'Graphic'
|
|
ReadOnly = True
|
|
BlobType = ftGraphic
|
|
end
|
|
end
|
|
object DataSource2: TDataSource
|
|
DataSet = QBEQuery1
|
|
Left = 88
|
|
Top = 8
|
|
end
|
|
object QBEQuery1: TJvQBEQuery
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
QBE.Strings = (
|
|
'Query'
|
|
''
|
|
'SORT: EMPLOYEE.DB->"LastName", EMPLOYEE.DB->"FirstName"'
|
|
''
|
|
'EMPLOYEE.DB | EmpNo | LastName | FirstName | PhoneExt |'
|
|
' | Check | Check | Check | Check |'
|
|
''
|
|
'EndQuery')
|
|
Left = 81
|
|
ParamData = <>
|
|
end
|
|
object Table1: TTable
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
ReadOnly = True
|
|
TableName = 'ITEMS.DB'
|
|
object Table1OrderNo: TFloatField
|
|
FieldName = 'OrderNo'
|
|
end
|
|
object Table1ItemNo: TFloatField
|
|
FieldName = 'ItemNo'
|
|
end
|
|
object Table1PartNo: TFloatField
|
|
FieldName = 'PartNo'
|
|
end
|
|
object Table1Qty: TIntegerField
|
|
FieldName = 'Qty'
|
|
Visible = False
|
|
end
|
|
object Table1Discount: TFloatField
|
|
FieldName = 'Discount'
|
|
Visible = False
|
|
end
|
|
end
|
|
object DataSource3: TDataSource
|
|
DataSet = Table1
|
|
Left = 8
|
|
Top = 4
|
|
end
|
|
object Table3: TTable
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
TableName = 'customer.db'
|
|
Left = 120
|
|
end
|
|
object DataSource4: TDataSource
|
|
DataSet = Table3
|
|
Left = 128
|
|
Top = 8
|
|
end
|
|
object DBFilter1: TJvDBFilter
|
|
DataSource = DataSource4
|
|
OnActivate = DBFilter1Change
|
|
OnDeactivate = DBFilter1Change
|
|
OnSetCapture = DBFilter1Change
|
|
OnReleaseCapture = DBFilter1Change
|
|
Left = 136
|
|
Top = 12
|
|
end
|
|
object FormStorage1: TJvFormStorage
|
|
AppStorage = MainForm.JvAppRegistryStorage
|
|
AppStoragePath = 'Data Aware Components\'
|
|
Options = [fpPosition]
|
|
StoredProps.Strings = (
|
|
'TabbedNotebook1.PageIndex'
|
|
'CheckBox1.Checked'
|
|
'CheckBox2.Checked')
|
|
StoredValues = <>
|
|
Left = 377
|
|
Top = 2
|
|
end
|
|
object Table4: TTable
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
TableName = 'CUSTOMER.DB'
|
|
Left = 168
|
|
end
|
|
object DataSource6: TDataSource
|
|
DataSet = Table4
|
|
Left = 176
|
|
Top = 4
|
|
end
|
|
object rxQuery1: TJvQuery
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
SQL.Strings = (
|
|
'SELECT ORDERS."OrderNo" , '
|
|
' ORDERS."SaleDate" , '
|
|
' CUSTOMER."Company" , '
|
|
' ORDERS."CustNo" , '
|
|
' ORDERS."ShipDate" , '
|
|
' ORDERS."ShipToContact" , '
|
|
' ORDERS."ShipToAddr1" , '
|
|
' ORDERS."ShipToAddr2" , '
|
|
' ORDERS."ShipToCity" , '
|
|
' ORDERS."ShipToState" , '
|
|
' ORDERS."ShipToZip" , '
|
|
' ORDERS."ShipToCountry" , '
|
|
' ORDERS."ShipToPhone" , '
|
|
' ORDERS."ShipVIA" , '
|
|
' ORDERS."PO" , '
|
|
' ORDERS."Terms" , '
|
|
' ORDERS."PaymentMethod" , '
|
|
' ORDERS."ItemsTotal" , '
|
|
' ORDERS."TaxRate" , '
|
|
' ORDERS."Freight" , '
|
|
' ORDERS."AmountPaid",'
|
|
' ORDERS."EmpNo" , '
|
|
' EMPLOYEE."LastName" '
|
|
'FROM '
|
|
' "ORDERS.DB" ORDERS , '
|
|
' "CUSTOMER.DB" CUSTOMER , '
|
|
' "EMPLOYEE.DB" EMPLOYEE'
|
|
'WHERE ( ORDERS.CustNo = CUSTOMER.CustNo )'
|
|
' AND'
|
|
' ( ORDERS.EmpNo = EMPLOYEE.EmpNo )'
|
|
' AND'
|
|
' (%CUSTOMER)'
|
|
' AND'
|
|
' (%EMPLOYEE)'
|
|
' AND'
|
|
' (%SALEDATE)'
|
|
'ORDER BY %ORDER')
|
|
Macros = <
|
|
item
|
|
DataType = ftString
|
|
Name = 'CUSTOMER'
|
|
ParamType = ptInput
|
|
Value = '0=0'
|
|
end
|
|
item
|
|
DataType = ftString
|
|
Name = 'EMPLOYEE'
|
|
ParamType = ptInput
|
|
Value = '0=0'
|
|
end
|
|
item
|
|
DataType = ftString
|
|
Name = 'SALEDATE'
|
|
ParamType = ptInput
|
|
Value = '0=0'
|
|
end
|
|
item
|
|
DataType = ftString
|
|
Name = 'ORDER'
|
|
ParamType = ptInput
|
|
Value = 'SaleDate'
|
|
end>
|
|
Left = 208
|
|
object rxQuery1OrderNo: TFloatField
|
|
FieldName = 'OrderNo'
|
|
end
|
|
object rxQuery1SaleDate: TDateTimeField
|
|
FieldName = 'SaleDate'
|
|
end
|
|
object rxQuery1Company: TStringField
|
|
FieldName = 'Company'
|
|
Size = 30
|
|
end
|
|
object rxQuery1CustNo: TFloatField
|
|
FieldName = 'CustNo'
|
|
end
|
|
object rxQuery1ShipDate: TDateTimeField
|
|
FieldName = 'ShipDate'
|
|
end
|
|
object rxQuery1ShipToContact: TStringField
|
|
FieldName = 'ShipToContact'
|
|
end
|
|
object rxQuery1ShipToAddr1: TStringField
|
|
FieldName = 'ShipToAddr1'
|
|
Size = 30
|
|
end
|
|
object rxQuery1ShipToAddr2: TStringField
|
|
FieldName = 'ShipToAddr2'
|
|
Size = 30
|
|
end
|
|
object rxQuery1ShipToCity: TStringField
|
|
FieldName = 'ShipToCity'
|
|
Size = 15
|
|
end
|
|
object rxQuery1ShipToState: TStringField
|
|
FieldName = 'ShipToState'
|
|
end
|
|
object rxQuery1ShipToZip: TStringField
|
|
FieldName = 'ShipToZip'
|
|
Size = 10
|
|
end
|
|
object rxQuery1ShipToCountry: TStringField
|
|
FieldName = 'ShipToCountry'
|
|
end
|
|
object rxQuery1ShipToPhone: TStringField
|
|
FieldName = 'ShipToPhone'
|
|
Size = 15
|
|
end
|
|
object rxQuery1ShipVIA: TStringField
|
|
FieldName = 'ShipVIA'
|
|
Size = 7
|
|
end
|
|
object rxQuery1PO: TStringField
|
|
FieldName = 'PO'
|
|
Size = 15
|
|
end
|
|
object rxQuery1Terms: TStringField
|
|
FieldName = 'Terms'
|
|
Size = 6
|
|
end
|
|
object rxQuery1PaymentMethod: TStringField
|
|
FieldName = 'PaymentMethod'
|
|
Size = 7
|
|
end
|
|
object rxQuery1ItemsTotal: TCurrencyField
|
|
FieldName = 'ItemsTotal'
|
|
end
|
|
object rxQuery1TaxRate: TFloatField
|
|
FieldName = 'TaxRate'
|
|
end
|
|
object rxQuery1Freight: TCurrencyField
|
|
FieldName = 'Freight'
|
|
end
|
|
object rxQuery1AmountPaid: TCurrencyField
|
|
FieldName = 'AmountPaid'
|
|
end
|
|
object rxQuery1EmpNo: TIntegerField
|
|
FieldName = 'EmpNo'
|
|
end
|
|
object rxQuery1LastName: TStringField
|
|
FieldName = 'LastName'
|
|
end
|
|
end
|
|
object DataSource5: TDataSource
|
|
DataSet = rxQuery1
|
|
Left = 228
|
|
Top = 4
|
|
end
|
|
object JvPicclip: TJvPicClip
|
|
Cols = 3
|
|
Rows = 2
|
|
Picture.Data = {
|
|
07544269746D617076030000424D760300000000000076000000280000003000
|
|
0000200000000100040000000000000300000000000000000000100000000000
|
|
000000000000000080000080000000808000800000008000800080800000C0C0
|
|
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
|
|
FF00DDCCCCCC00CCDDDDD55555555500CCDDDDDD66000006DDDDDD0CCC0070C0
|
|
DDDD055BB0005080C0DDDDD6666666660DDDDDD000F7F70DDDDD05BBB0705088
|
|
0DDDDD6E6EE2266660DDDDDD0F7F70DDDDDD0BBB07F70880DDDDD6EEEEE222E2
|
|
660DDDDD00F7000DDDDD0BBB0F7088000DDDD22EEEE222EE660DDDD0007F7F70
|
|
DDDD0BB0F700088880DD62FE22222227E660DD000007F7F0DDDD0BB07F7F7088
|
|
80DD6FEE2222222E7260DD00007F7F70DDDD0BB007F7F08880DD6EFE72222277
|
|
E760DD0000F7F7F70DDD0BB07F7F7088880D6F66EE2E2E227760DD00000F7F40
|
|
DDDD0BB0F7F7F70800DD6E226EE72222E260DD000000F7F0DDDD0BBB0F774088
|
|
80DD6FF2266626E22220DD000000007F0DDD0BBBB0F7F000880DD6F222222222
|
|
220DDDD0000000000DDD0BBBBB007000000DD6EF2E222222260DDDD000000000
|
|
0DDDD0BBBBBB0000000DDD6EF622622260DDDDDD0000000DDDDDD0BBBBBB0000
|
|
0DDDDDD6626EEE666DDDDDDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDD666666D
|
|
DDDDCC4444440044CCCCCDDDDDDDDD00CCCCCCCC66000006CCCCCC0444007040
|
|
CCCC0DDBB000D080C0CCCCC6666666660CCCCCC000F7F70CCCCC0DBBB070D088
|
|
0CCCCC6E6EE2266660CCCCCC0F7F70CCCCCC0BBB07F70880CCCCC6EEEEE222E2
|
|
660CCCCC00F7000CCCCC0BBB0F7088000CCCC22EEEE222EE660CCCC0007F7F70
|
|
CCCC0BB0F700088880CC62FE22222227E660CC000007F7F0CCCC0BB07F7F7088
|
|
80CC6FEE2222222E7260CC00007F7F70CCCC0BB007F7F08880CC6EFE72222277
|
|
E760CC0000F7F7F70CCC0BB07F7F7088880C6F66EE2E2E227760CC00000F7F40
|
|
CCCC0BB0F7F7F70800CC6E226EE72222E260CC000000F7F0CCCC0BBB0F774088
|
|
80CC6FF2266626E22220CC000000007F0CCC0BBBB0F7F000880CC6F222222222
|
|
220CCCC0000000000CCC0BBBBB007000000CC6EF2E222222260CCCC000000000
|
|
0CCCCCBBBBBB0000000CCC6EF622622260CCCCCC0000000CCCCCCCBBBBBB0000
|
|
0CCCCCC6626EEE666CCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCC666666C
|
|
CCCC}
|
|
Left = 264
|
|
Top = 4
|
|
end
|
|
end
|