Developer
76 lines
2.1 KiB
ObjectPascal
76 lines
2.1 KiB
ObjectPascal
object DM: TDM
|
|
OnCreate = DataModuleCreate
|
|
Height = 395
|
|
Width = 582
|
|
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 = 56
|
|
Top = 32
|
|
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 = 226
|
|
Top = 32
|
|
end
|
|
object ImageList1: TImageList
|
|
Left = 368
|
|
Top = 80
|
|
end
|
|
object FDStanStorageBinLink1: TFDStanStorageBinLink
|
|
Left = 216
|
|
Top = 104
|
|
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 = 56
|
|
Top = 128
|
|
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 = 56
|
|
Top = 192
|
|
end
|
|
end
|