git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
278 lines
6.2 KiB
Plaintext
278 lines
6.2 KiB
Plaintext
inherited MasterDetailFrame: TMasterDetailFrame
|
|
Width = 443
|
|
Height = 277
|
|
Align = alClient
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 0
|
|
Width = 443
|
|
Height = 1
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object Splitter3: TSplitter
|
|
Left = 0
|
|
Top = 143
|
|
Width = 443
|
|
Height = 1
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
Color = clGreen
|
|
ParentColor = False
|
|
end
|
|
object DBGrid: TDBGrid
|
|
Left = 0
|
|
Top = 27
|
|
Width = 443
|
|
Height = 116
|
|
Align = alTop
|
|
DataSource = dsMaster
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object ToolBar: TPanel
|
|
Left = 0
|
|
Top = 1
|
|
Width = 443
|
|
Height = 26
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 554
|
|
Height = 24
|
|
BevelOuter = bvNone
|
|
Color = clGreen
|
|
TabOrder = 0
|
|
object btOpen: TSpeedButton
|
|
Left = 1
|
|
Top = 1
|
|
Width = 82
|
|
Height = 22
|
|
Caption = 'Open'
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btOpenClick
|
|
end
|
|
object btClose: TSpeedButton
|
|
Left = 84
|
|
Top = 1
|
|
Width = 82
|
|
Height = 22
|
|
Caption = 'Close'
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btCloseClick
|
|
end
|
|
object DBNavigator: TDBNavigator
|
|
Left = 167
|
|
Top = 1
|
|
Width = 240
|
|
Height = 22
|
|
DataSource = dsMaster
|
|
Flat = True
|
|
TabOrder = 0
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 408
|
|
Top = 1
|
|
Width = 145
|
|
Height = 22
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object cbLocalMasterDetail: TCheckBox
|
|
Left = 10
|
|
Top = 3
|
|
Width = 135
|
|
Height = 17
|
|
Caption = 'Use LocaMasterDetail'
|
|
TabOrder = 0
|
|
OnClick = cbLocalMasterDetailClick
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object ToolBar1: TPanel
|
|
Left = 0
|
|
Top = 145
|
|
Width = 443
|
|
Height = 26
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
object Panel1: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 650
|
|
Height = 24
|
|
BevelOuter = bvNone
|
|
Color = clGreen
|
|
TabOrder = 0
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 1
|
|
Top = 1
|
|
Width = 240
|
|
Height = 22
|
|
DataSource = dsDetail
|
|
Flat = True
|
|
TabOrder = 0
|
|
end
|
|
object Panel6: TPanel
|
|
Left = 532
|
|
Top = 1
|
|
Width = 117
|
|
Height = 22
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object cbCacheCalcFields: TCheckBox
|
|
Left = 5
|
|
Top = 3
|
|
Width = 108
|
|
Height = 17
|
|
Caption = 'CacheCalcFields'
|
|
Enabled = False
|
|
TabOrder = 0
|
|
OnClick = cbCacheCalcFieldsClick
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 242
|
|
Top = 1
|
|
Width = 289
|
|
Height = 22
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
object rbSQL: TRadioButton
|
|
Left = 5
|
|
Top = 4
|
|
Width = 63
|
|
Height = 17
|
|
Caption = 'SQL link'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = rbClick
|
|
end
|
|
object rbSimpleFields: TRadioButton
|
|
Left = 75
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Simple field link'
|
|
TabOrder = 1
|
|
OnClick = rbClick
|
|
end
|
|
object rbCalcFields: TRadioButton
|
|
Left = 175
|
|
Top = 4
|
|
Width = 113
|
|
Height = 17
|
|
Caption = 'Calculated field link'
|
|
TabOrder = 2
|
|
OnClick = rbClick
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 0
|
|
Top = 171
|
|
Width = 443
|
|
Height = 106
|
|
Align = alClient
|
|
DataSource = dsDetail
|
|
TabOrder = 3
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object quMaster: TMSQuery
|
|
Connection = SDACForm.MSConnection
|
|
SQL.Strings = (
|
|
'SELECT * FROM dept')
|
|
OnCalcFields = quCalcFields
|
|
Left = 376
|
|
Top = 32
|
|
object quMasterDEPTNO: TIntegerField
|
|
FieldName = 'DEPTNO'
|
|
end
|
|
object quMasterDNAME: TStringField
|
|
FieldName = 'DNAME'
|
|
Size = 14
|
|
end
|
|
object quMasterLOC: TStringField
|
|
FieldName = 'LOC'
|
|
Size = 13
|
|
end
|
|
object quMasterDEPTNO_CALCULATED: TIntegerField
|
|
FieldKind = fkCalculated
|
|
FieldName = 'DEPTNO_CALCULATED'
|
|
Calculated = True
|
|
end
|
|
end
|
|
object quDetail: TMSQuery
|
|
Connection = SDACForm.MSConnection
|
|
SQL.Strings = (
|
|
'SELECT * FROM emp'
|
|
'WHERE DeptNo = :DeptNo')
|
|
OnCalcFields = quCalcFields
|
|
MasterSource = dsMaster
|
|
Left = 376
|
|
Top = 216
|
|
ParamData = <
|
|
item
|
|
DataType = ftUnknown
|
|
Name = 'DeptNo'
|
|
end>
|
|
object quDetailEMPNO: TIntegerField
|
|
FieldName = 'EMPNO'
|
|
end
|
|
object quDetailENAME: TStringField
|
|
FieldName = 'ENAME'
|
|
Size = 10
|
|
end
|
|
object quDetailJOB: TStringField
|
|
FieldName = 'JOB'
|
|
Size = 9
|
|
end
|
|
object quDetailMGR: TIntegerField
|
|
FieldName = 'MGR'
|
|
end
|
|
object quDetailHIREDATE: TDateTimeField
|
|
FieldName = 'HIREDATE'
|
|
end
|
|
object quDetailSAL: TFloatField
|
|
FieldName = 'SAL'
|
|
end
|
|
object quDetailCOMM: TFloatField
|
|
FieldName = 'COMM'
|
|
end
|
|
object quDetailDEPTNO: TIntegerField
|
|
FieldName = 'DEPTNO'
|
|
end
|
|
object quDetailDEPTNO_CALCULATED: TIntegerField
|
|
FieldKind = fkCalculated
|
|
FieldName = 'DEPTNO_CALCULATED'
|
|
Calculated = True
|
|
end
|
|
end
|
|
object dsDetail: TDataSource
|
|
DataSet = quDetail
|
|
Left = 408
|
|
Top = 216
|
|
end
|
|
object dsMaster: TDataSource
|
|
DataSet = quMaster
|
|
Left = 408
|
|
Top = 32
|
|
end
|
|
end
|