source upload

contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/AntonE/ORMCDS/MAinFormU.dfm

@@ -0,0 +1,56 @@
+object MainForm: TMainForm
+  Left = 0
+  Top = 0
+  Caption = 'mORMot into Nested TClientdatasets 1.1'
+  ClientHeight = 287
+  ClientWidth = 489
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 70
+    Width = 473
+    Height = 187
+    Alignment = taCenter
+    AutoSize = False
+    Caption = 
+      'This will demo ORMCDS routines that convert mORMot TSQLRecord cl' +
+      'asses into nested TClientdatasets for easy UI handlng.'#13#10'It will ' +
+      'also apply delta updates, i.e. only update fields in records tha' +
+      't have changed in UI, giving field-level isolation when multiple' +
+      ' users edit the same record in UI.'#13#10#13#10'Dynamic arrays of records ' +
+      'are created as nested CDS as well as linked TSQLRecord tables.'#13#10 +
+      #13#10'Simple reconcilliation is done to handle deleted, inserted rec' +
+      'ords, array re-ordering, etc.'#13#10#13#10'First verion with many untested' +
+      ' scenarios... Use at own risk!'
+    WordWrap = True
+  end
+  object BtnSample1: TButton
+    Left = 88
+    Top = 8
+    Width = 305
+    Height = 25
+    Caption = 'Sample 1 - Static TClientdataset+Fields'
+    TabOrder = 0
+    OnClick = BtnSample1Click
+  end
+  object BtnSample2: TButton
+    Left = 88
+    Top = 39
+    Width = 305
+    Height = 25
+    Caption = 'Sample 2 - Dynamic TClientdataset+Fields'
+    TabOrder = 1
+    OnClick = BtnSample2Click
+  end
+end