Initial commit - Delphi MES client project

2026-05-07 20:25:34 +08:00
commit 819b4824f6
466 changed files with 1176403 additions and 0 deletions
@@ -0,0 +1,76 @@
+object DM: TDM
+  OnCreate = DataModuleCreate
+  Height = 593
+  Width = 873
+  PixelsPerInch = 144
+  object FDMemTable1: TFDMemTable
+    ObjectView = False
+    FieldDefs = <>
+    IndexDefs = <>
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvPersistent, rvSilentMode]
+    ResourceOptions.Persistent = True
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    StoreDefs = True
+    Left = 84
+    Top = 48
+    object FDMemTable1ID: TIntegerField
+      AutoGenerateValue = arAutoInc
+      FieldName = 'ID'
+    end
+    object FDMemTable1TabName: TStringField
+      FieldName = 'TabName'
+      Size = 30
+    end
+    object FDMemTable1KeyName: TStringField
+      FieldName = 'KeyName'
+      Size = 50
+    end
+    object FDMemTable1KeyDesc: TStringField
+      FieldName = 'KeyDesc'
+      Size = 80
+    end
+    object FDMemTable1KeyValue: TStringField
+      FieldName = 'KeyValue'
+      Size = 200
+    end
+  end
+  object FDStanStorageJSONLink1: TFDStanStorageJSONLink
+    Left = 339
+    Top = 48
+  end
+  object ImageList1: TImageList
+    Left = 552
+    Top = 120
+  end
+  object FDStanStorageBinLink1: TFDStanStorageBinLink
+    Left = 324
+    Top = 156
+  end
+  object FDMemMain: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 84
+    Top = 192
+  end
+  object FDMemDetail: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 84
+    Top = 288
+  end
+end