Developer
77 lines
2.1 KiB
ObjectPascal
77 lines
2.1 KiB
ObjectPascal
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
|