source upload

2022-01-17 22:16:47 +02:00
parent 12936d065b
commit 098e8c48de
1778 changed files with 1206749 additions and 0 deletions
--- a/contrib/mORMot/SQLite3/Samples/17
+++ b/contrib/mORMot/SQLite3/Samples/17
@@ -0,0 +1,109 @@
+object Form1: TForm1
+  Left = 192
+  Top = 124
+  Width = 754
+  Height = 419
+  Caption = 'Form1'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = chkFromSQLClick
+  PixelsPerInch = 96
+  TextHeight = 13
+  object dbgrdData: TDBGrid
+    Left = 0
+    Top = 41
+    Width = 738
+    Height = 340
+    Align = alClient
+    DataSource = ds1
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+  end
+  object pnl1: TPanel
+    Left = 0
+    Top = 0
+    Width = 738
+    Height = 41
+    Align = alTop
+    TabOrder = 1
+    object lblTiming: TLabel
+      Left = 456
+      Top = 13
+      Width = 241
+      Height = 13
+      AutoSize = False
+    end
+    object lblFrom: TLabel
+      Left = 40
+      Top = 12
+      Width = 28
+      Height = 13
+      Caption = 'From:'
+    end
+    object chkViaTClientDataSet: TCheckBox
+      Left = 216
+      Top = 12
+      Width = 137
+      Height = 17
+      Caption = 'Via TClientDataSet'
+      TabOrder = 0
+      OnClick = chkFromSQLClick
+    end
+    object cbbDataSource: TComboBox
+      Left = 72
+      Top = 10
+      Width = 129
+      Height = 21
+      Style = csDropDownList
+      DropDownCount = 10
+      ItemHeight = 13
+      ItemIndex = 0
+      TabOrder = 1
+      Text = 'JSON direct'
+      OnChange = chkFromSQLClick
+      Items.Strings = (
+        'JSON direct'
+        'JSON TDocVariant'
+        'SQLite3 direct'
+        'SQLite3 proxy direct'
+        'SQLite3 proxy compressed'
+        'SQLite3 HTTP WinHTTP'
+        'SQLite3 HTTP WinINet'
+        'SQLite3 HTTP Sockets'
+        'SQLite3 SQL TDataSet')
+    end
+    object btnRefresh: TButton
+      Left = 360
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = 'Refresh'
+      TabOrder = 2
+      OnClick = chkFromSQLClick
+    end
+    object btnApply: TButton
+      Left = 648
+      Top = 8
+      Width = 81
+      Height = 25
+      Caption = 'Apply Updates'
+      TabOrder = 3
+      OnClick = btnApplyClick
+    end
+  end
+  object ds1: TDataSource
+    Left = 96
+    Top = 72
+  end
+end