2018-10-23 16:18:34 +02:00
|
|
|
object MainForm: TMainForm
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
Caption = 'TMVCActiveRecord - ShowCase'
|
2023-07-07 20:26:49 +02:00
|
|
|
ClientHeight = 1423
|
|
|
|
ClientWidth = 2760
|
2018-10-23 16:18:34 +02:00
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
2023-07-07 20:26:49 +02:00
|
|
|
Font.Height = -28
|
2018-10-23 16:18:34 +02:00
|
|
|
Font.Name = 'Tahoma'
|
|
|
|
Font.Style = []
|
2019-01-08 12:48:27 +01:00
|
|
|
OnDestroy = FormDestroy
|
2019-09-13 15:17:56 +02:00
|
|
|
OnShow = FormShow
|
2023-07-07 20:26:49 +02:00
|
|
|
PixelsPerInch = 240
|
2021-11-17 15:36:20 +01:00
|
|
|
DesignSize = (
|
2023-07-07 20:26:49 +02:00
|
|
|
2760
|
|
|
|
1423)
|
|
|
|
TextHeight = 34
|
2018-10-23 16:18:34 +02:00
|
|
|
object btnCRUD: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 20
|
|
|
|
Width = 303
|
|
|
|
Height = 83
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2018-10-23 16:18:34 +02:00
|
|
|
Caption = 'CRUD'
|
|
|
|
TabOrder = 0
|
|
|
|
OnClick = btnCRUDClick
|
|
|
|
end
|
|
|
|
object btnSelect: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 605
|
|
|
|
Width = 303
|
|
|
|
Height = 83
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2018-10-23 16:18:34 +02:00
|
|
|
Caption = 'Queries'
|
|
|
|
TabOrder = 1
|
|
|
|
OnClick = btnSelectClick
|
|
|
|
end
|
|
|
|
object Memo1: TMemo
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 700
|
|
|
|
Top = 20
|
|
|
|
Width = 2040
|
|
|
|
Height = 1383
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2018-10-23 16:18:34 +02:00
|
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
2019-12-17 17:34:23 +01:00
|
|
|
Ctl3D = True
|
|
|
|
DoubleBuffered = True
|
2018-10-23 16:18:34 +02:00
|
|
|
Font.Charset = ANSI_CHARSET
|
|
|
|
Font.Color = clWindowText
|
2023-07-07 20:26:49 +02:00
|
|
|
Font.Height = -33
|
2018-10-23 16:18:34 +02:00
|
|
|
Font.Name = 'Consolas'
|
|
|
|
Font.Style = []
|
2019-12-17 17:34:23 +01:00
|
|
|
ParentCtl3D = False
|
|
|
|
ParentDoubleBuffered = False
|
2018-10-23 16:18:34 +02:00
|
|
|
ParentFont = False
|
2019-12-17 17:34:23 +01:00
|
|
|
ReadOnly = True
|
|
|
|
ScrollBars = ssBoth
|
2018-10-23 16:18:34 +02:00
|
|
|
TabOrder = 2
|
2019-12-17 17:34:23 +01:00
|
|
|
WantReturns = False
|
|
|
|
WordWrap = False
|
2023-07-07 20:26:49 +02:00
|
|
|
ExplicitWidth = 2020
|
|
|
|
ExplicitHeight = 1381
|
2018-10-23 16:18:34 +02:00
|
|
|
end
|
|
|
|
object btnRelations: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 703
|
|
|
|
Width = 303
|
|
|
|
Height = 87
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2018-10-23 16:18:34 +02:00
|
|
|
Caption = 'Relations'
|
|
|
|
TabOrder = 3
|
|
|
|
OnClick = btnRelationsClick
|
|
|
|
end
|
|
|
|
object btnInheritance: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 805
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2018-10-23 16:18:34 +02:00
|
|
|
Caption = 'Inheritance'
|
|
|
|
TabOrder = 4
|
|
|
|
OnClick = btnInheritanceClick
|
|
|
|
end
|
|
|
|
object btnValidation: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 905
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2018-10-23 16:18:34 +02:00
|
|
|
Caption = 'Validation'
|
|
|
|
TabOrder = 5
|
|
|
|
OnClick = btnValidationClick
|
|
|
|
end
|
|
|
|
object btnMultiThreading: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 20
|
|
|
|
Width = 303
|
|
|
|
Height = 83
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2018-10-23 16:18:34 +02:00
|
|
|
Caption = 'Multi Threading'
|
|
|
|
TabOrder = 6
|
|
|
|
OnClick = btnMultiThreadingClick
|
|
|
|
end
|
2018-11-02 21:43:09 +01:00
|
|
|
object btnRQL: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 1005
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2018-11-02 21:43:09 +01:00
|
|
|
Caption = 'RQL Query'
|
|
|
|
TabOrder = 7
|
|
|
|
OnClick = btnRQLClick
|
|
|
|
end
|
2022-11-15 09:27:08 +01:00
|
|
|
object btnReadOnlyFields: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 508
|
|
|
|
Width = 303
|
|
|
|
Height = 82
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2022-11-15 09:27:08 +01:00
|
|
|
Caption = 'CRUD With R/O Field'
|
2019-02-21 20:17:11 +01:00
|
|
|
TabOrder = 8
|
2022-11-15 09:27:08 +01:00
|
|
|
OnClick = btnReadOnlyFieldsClick
|
2019-02-21 20:17:11 +01:00
|
|
|
end
|
2020-01-06 16:49:18 +01:00
|
|
|
object btnNullTest: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 118
|
|
|
|
Width = 303
|
|
|
|
Height = 82
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2020-01-04 12:53:53 +01:00
|
|
|
Caption = 'Nullables'
|
2020-01-06 16:49:18 +01:00
|
|
|
TabOrder = 9
|
2020-01-04 12:53:53 +01:00
|
|
|
OnClick = btnNullTestClick
|
|
|
|
end
|
2020-03-27 00:37:28 +01:00
|
|
|
object btnCRUDNoAutoInc: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 215
|
|
|
|
Width = 303
|
|
|
|
Height = 83
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2020-03-27 00:37:28 +01:00
|
|
|
Caption = 'CRUD (no autoinc)'
|
|
|
|
TabOrder = 10
|
|
|
|
OnClick = btnCRUDNoAutoIncClick
|
|
|
|
end
|
2020-03-31 16:23:22 +02:00
|
|
|
object btnCRUDWithStringPKs: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 313
|
|
|
|
Width = 303
|
|
|
|
Height = 82
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2020-03-31 16:23:22 +02:00
|
|
|
Caption = 'CRUD (string pks)'
|
|
|
|
TabOrder = 11
|
|
|
|
OnClick = btnCRUDWithStringPKsClick
|
|
|
|
end
|
2020-04-08 18:04:45 +02:00
|
|
|
object btnWithSpaces: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 410
|
|
|
|
Width = 303
|
|
|
|
Height = 83
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2020-04-08 18:04:45 +02:00
|
|
|
Caption = 'CRUD (entity with spaces)'
|
|
|
|
TabOrder = 12
|
|
|
|
WordWrap = True
|
|
|
|
OnClick = btnWithSpacesClick
|
|
|
|
end
|
2020-06-19 19:31:34 +02:00
|
|
|
object btnCountWithRQL: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 215
|
|
|
|
Width = 303
|
|
|
|
Height = 83
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2020-06-19 19:31:34 +02:00
|
|
|
Caption = 'Count with RQL'
|
|
|
|
TabOrder = 13
|
|
|
|
OnClick = btnCountWithRQLClick
|
|
|
|
end
|
2020-08-11 00:54:42 +02:00
|
|
|
object btnReadAndWriteOnly: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 313
|
|
|
|
Width = 303
|
|
|
|
Height = 82
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2020-08-11 00:54:42 +02:00
|
|
|
Caption = 'R/O, R/W'
|
|
|
|
TabOrder = 14
|
|
|
|
OnClick = btnReadAndWriteOnlyClick
|
|
|
|
end
|
2020-08-13 17:40:02 +02:00
|
|
|
object btnClientGeneratedPK: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 410
|
|
|
|
Width = 303
|
|
|
|
Height = 83
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2020-08-13 17:40:02 +02:00
|
|
|
Caption = 'Client Generated PKs'
|
|
|
|
TabOrder = 15
|
|
|
|
OnClick = btnClientGeneratedPKClick
|
|
|
|
end
|
2020-08-28 18:04:29 +02:00
|
|
|
object btnAttributes: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 508
|
|
|
|
Width = 303
|
|
|
|
Height = 82
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2020-08-28 18:04:29 +02:00
|
|
|
Caption = 'Attributes'
|
|
|
|
TabOrder = 16
|
|
|
|
OnClick = btnAttributesClick
|
|
|
|
end
|
2021-03-20 00:30:20 +01:00
|
|
|
object btnJSON_XML_Types: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 605
|
|
|
|
Width = 303
|
|
|
|
Height = 88
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2021-03-20 00:30:20 +01:00
|
|
|
Caption = 'JSON && XML'
|
|
|
|
TabOrder = 17
|
|
|
|
OnClick = btnJSON_XML_TypesClick
|
|
|
|
end
|
2021-04-25 22:40:06 +02:00
|
|
|
object btnMerge: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 708
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2021-04-25 22:40:06 +02:00
|
|
|
Caption = 'Merge'
|
|
|
|
TabOrder = 18
|
|
|
|
OnClick = btnMergeClick
|
|
|
|
end
|
2021-11-17 15:36:20 +01:00
|
|
|
object btnTableFilter: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 808
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2021-11-17 15:36:20 +01:00
|
|
|
Caption = 'Table Filter'
|
|
|
|
TabOrder = 19
|
|
|
|
OnClick = btnTableFilterClick
|
|
|
|
end
|
2021-11-18 00:49:12 +01:00
|
|
|
object btnPartitioning: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 908
|
|
|
|
Width = 303
|
|
|
|
Height = 82
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2021-11-18 00:49:12 +01:00
|
|
|
Caption = 'Table Partitioning'
|
|
|
|
TabOrder = 20
|
|
|
|
OnClick = btnPartitioningClick
|
|
|
|
end
|
2022-06-16 14:05:01 +02:00
|
|
|
object btnCRUDWithGUID: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 118
|
|
|
|
Width = 303
|
|
|
|
Height = 82
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2022-06-16 14:05:01 +02:00
|
|
|
Caption = 'CRUD (with GUID PK)'
|
|
|
|
TabOrder = 21
|
|
|
|
OnClick = btnCRUDWithGUIDClick
|
|
|
|
end
|
2022-11-10 18:30:11 +01:00
|
|
|
object btnOOP: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 1005
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2022-11-10 18:30:11 +01:00
|
|
|
Caption = 'OOP with Partitioning and Filtering'
|
|
|
|
TabOrder = 22
|
|
|
|
WordWrap = True
|
|
|
|
OnClick = btnOOPClick
|
|
|
|
end
|
|
|
|
object btnReadOnly: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 1105
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2022-11-10 18:30:11 +01:00
|
|
|
Caption = 'Read/Only Entities'
|
|
|
|
TabOrder = 23
|
|
|
|
OnClick = btnReadOnlyClick
|
|
|
|
end
|
2022-11-17 19:33:27 +01:00
|
|
|
object btnSpeed: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 20
|
|
|
|
Top = 1205
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2023-01-06 15:00:54 +01:00
|
|
|
Caption = 'Metadata Speed Test'
|
2022-11-17 19:33:27 +01:00
|
|
|
TabOrder = 24
|
|
|
|
OnClick = btnSpeedClick
|
|
|
|
end
|
2023-01-29 17:29:24 +01:00
|
|
|
object btnRefresh: TButton
|
2023-07-07 20:26:49 +02:00
|
|
|
Left = 360
|
|
|
|
Top = 1105
|
|
|
|
Width = 303
|
|
|
|
Height = 85
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2023-01-29 17:29:24 +01:00
|
|
|
Caption = 'Manual Refresh'
|
|
|
|
TabOrder = 25
|
|
|
|
OnClick = btnRefreshClick
|
|
|
|
end
|
2018-10-23 16:18:34 +02:00
|
|
|
object FDConnection1: TFDConnection
|
2023-01-06 15:00:54 +01:00
|
|
|
Left = 312
|
|
|
|
Top = 40
|
2018-10-23 16:18:34 +02:00
|
|
|
end
|
|
|
|
end
|