Vichingo455-RePacks/xtool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

source upload

Browse Source
This commit is contained in:
Razor12911
2022-01-17 22:16:47 +02:00
parent 12936d065b
commit 098e8c48de
1778 changed files with 1206749 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

259
contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/AntonE/ORMCDS/SampleForm1U.dfm Normal file
View File

@@ -0,0 +1,259 @@
object SampleForm1: TSampleForm1
Left = 0
Top = 0
Caption = 'Static CDS+Fields'
ClientHeight = 404
ClientWidth = 630
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 334
Top = 8
Width = 288
Height = 388
Alignment = taCenter
AutoSize = False
Caption =
'Core work is done by creating a TORMCDSinfo object for every nes' +
'ted TClientdataset.'#13#10'This is then linked to the TORMCDSinfo(TDat' +
'asetField.Tag) as well as the nested-child TClientdataset.Tag.'#13#10 +
'These TORMCDSinfo objects are referenced by the routines to esta' +
'blish relations and supply type info.'#13#10#13#10'When TClientdatasets ex' +
'ist, just run ORM_LinkCDS '
WordWrap = True
end
object Button2: TButton
Left = 8
Top = 8
Width = 75
Height = 25
Caption = 'Load'
TabOrder = 0
OnClick = Button2Click
end
object JvDBUltimGrid1: TJvDBUltimGrid
Left = 8
Top = 39
Width = 320
Height = 120
DataSource = DSPerson
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnGetCellParams = JvDBUltimGrid1GetCellParams
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 17
TitleRowHeight = 17
Columns = <
item
Expanded = False
FieldName = 'Name'
Width = 150
Visible = True
end
item
Expanded = False
FieldName = 'Int'
Visible = True
end
item
Expanded = False
FieldName = 'Gender'
Visible = True
end>
end
object JvDBUltimGrid2: TJvDBUltimGrid
Left = 8
Top = 165
Width = 320
Height = 120
DataSource = DSPhones
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnGetCellParams = JvDBUltimGrid1GetCellParams
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 17
TitleRowHeight = 17
Columns = <
item
Expanded = False
FieldName = 'Number'
Width = 98
Visible = True
end
item
Expanded = False
FieldName = 'PType_ptWork'
Title.Caption = 'Work'
Width = 37
Visible = True
end
item
Expanded = False
FieldName = 'PType_ptHome'
Title.Caption = 'Home'
Width = 37
Visible = True
end
item
Expanded = False
FieldName = 'PType_ptFax'
Title.Caption = 'Fax'
Width = 37
Visible = True
end
item
Expanded = False
FieldName = 'PType_ptSMS'
Title.Caption = 'SMS'
Visible = True
end>
end
object JvDBUltimGrid3: TJvDBUltimGrid
Left = 8
Top = 278
Width = 320
Height = 120
DataSource = DSChildren
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnGetCellParams = JvDBUltimGrid1GetCellParams
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 17
TitleRowHeight = 17
Columns = <
item
Expanded = False
FieldName = 'ChildName'
Width = 187
Visible = True
end
item
Expanded = False
FieldName = 'ChildGender'
Width = 74
Visible = True
end>
end
object BtnApply: TButton
Left = 253
Top = 8
Width = 75
Height = 25
Caption = 'Apply'
TabOrder = 4
OnClick = BtnApplyClick
end
object DSPerson: TDataSource
DataSet = cdsPerson
Left = 168
Top = 112
end
object DSPhones: TDataSource
DataSet = cdsPhones
Left = 232
Top = 112
end
object DSChildren: TDataSource
DataSet = cdsChildren
Left = 296
Top = 112
end
object cdsChildren: TClientDataSet
Aggregates = <>
DataSetField = cdsPersonChildren
Params = <>
Left = 296
Top = 56
object cdsChildrenID: TLargeintField
FieldName = 'ID'
end
object cdsChildrenParent: TLargeintField
FieldName = 'Parent'
end
object cdsChildrenChildName: TStringField
FieldName = 'ChildName'
Size = 50
end
object cdsChildrenChildGender: TIntegerField
FieldName = 'ChildGender'
end
end
object cdsPhones: TClientDataSet
Aggregates = <>
DataSetField = cdsPersonPhones
Params = <>
Left = 232
Top = 56
object cdsPhonesNumber: TStringField
FieldName = 'Number'
Size = 30
end
object cdsPhonesPType_ptWork: TBooleanField
FieldName = 'PType_ptWork'
end
object cdsPhonesPType_ptHome: TBooleanField
FieldName = 'PType_ptHome'
end
object cdsPhonesPType_ptFax: TBooleanField
FieldName = 'PType_ptFax'
end
object cdsPhonesPType_ptSMS: TBooleanField
FieldName = 'PType_ptSMS'
end
end
object cdsPerson: TClientDataSet
Aggregates = <>
Params = <>
Left = 168
Top = 56
object cdsPersonID: TLargeintField
FieldName = 'ID'
end
object cdsPersonName: TStringField
FieldName = 'Name'
Size = 50
end
object cdsPersonInt: TIntegerField
FieldName = 'Int'
end
object cdsPersonPhones: TDataSetField
FieldName = 'Phones'
end
object cdsPersonGender: TIntegerField
FieldName = 'Gender'
end
object cdsPersonChildren: TDataSetField
FieldName = 'Children'
end
end
end