delphimvcframework/tools/entitygenerator/MainFormU.dfm

405 lines
9.6 KiB
Plaintext
Raw Normal View History

2018-09-27 12:26:50 +02:00
object MainForm: TMainForm
Left = 0
Top = 0
2019-11-04 11:14:25 +01:00
Caption = '[DMVCFramework] MVCActiveRecord Entity Generator'
2018-09-27 12:26:50 +02:00
ClientHeight = 630
ClientWidth = 863
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
2019-11-04 11:14:25 +01:00
Top = 207
2018-09-27 12:26:50 +02:00
Width = 863
Height = 3
Cursor = crVSplit
Align = alTop
2019-11-04 11:14:25 +01:00
ExplicitTop = 169
2018-09-27 12:26:50 +02:00
ExplicitWidth = 215
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 863
2019-11-04 11:14:25 +01:00
Height = 39
2018-09-27 12:26:50 +02:00
Align = alTop
TabOrder = 0
2019-11-04 11:14:25 +01:00
object Label1: TLabel
AlignWithMargins = True
Left = 497
Top = 11
Width = 190
Height = 17
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 10
Align = alRight
Caption = 'Select a FireDAC Connection Definitions'
Layout = tlCenter
ExplicitHeight = 13
end
2018-09-27 12:26:50 +02:00
object cboConnectionDefs: TComboBox
2019-11-04 11:14:25 +01:00
AlignWithMargins = True
Left = 707
Top = 11
2018-09-27 12:26:50 +02:00
Width = 145
Height = 21
2019-11-04 11:14:25 +01:00
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 10
Align = alRight
2018-09-27 12:26:50 +02:00
TabOrder = 0
OnChange = cboConnectionDefsChange
end
end
object Panel2: TPanel
Left = 0
2019-11-04 11:14:25 +01:00
Top = 39
2018-09-27 12:26:50 +02:00
Width = 863
2019-11-04 11:14:25 +01:00
Height = 168
2018-09-27 12:26:50 +02:00
Align = alTop
Caption = 'Panel1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label2: TLabel
AlignWithMargins = True
Left = 4
Top = 4
Width = 855
Height = 13
Align = alTop
Caption = 'FireDAC connection parameters'
ExplicitWidth = 152
end
object mmConnectionParams: TMemo
AlignWithMargins = True
Left = 4
Top = 23
2019-11-04 11:14:25 +01:00
Width = 489
Height = 141
2018-09-27 12:26:50 +02:00
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Consolas'
Font.Style = []
ParentFont = False
2019-11-04 11:14:25 +01:00
ScrollBars = ssBoth
2018-09-27 12:26:50 +02:00
TabOrder = 0
2019-11-04 11:14:25 +01:00
WordWrap = False
OnChange = mmConnectionParamsChange
end
object Panel6: TPanel
Left = 496
Top = 20
Width = 366
Height = 147
Align = alRight
BevelOuter = bvNone
Caption = 'Panel6'
ShowCaption = False
TabOrder = 1
object GroupBox1: TGroupBox
AlignWithMargins = True
Left = 3
Top = 3
Width = 360
Height = 141
Align = alClient
Caption = 'Options'
Padding.Left = 5
Padding.Top = 5
Padding.Right = 5
Padding.Bottom = 5
TabOrder = 0
object lstSchema: TListBox
AlignWithMargins = True
Left = 215
Top = 23
Width = 135
Height = 108
Align = alClient
ItemHeight = 13
TabOrder = 0
OnDblClick = lstSchemaDblClick
end
object lstCatalog: TListBox
AlignWithMargins = True
Left = 71
Top = 23
Width = 138
Height = 108
Align = alLeft
ItemHeight = 13
TabOrder = 1
OnDblClick = lstCatalogDblClick
end
object btnRefreshCatalog: TButton
AlignWithMargins = True
Left = 10
Top = 23
Width = 55
Height = 108
Align = alLeft
Caption = 'Refresh'
TabOrder = 2
OnClick = btnRefreshCatalogClick
end
end
2018-09-27 12:26:50 +02:00
end
end
object Panel3: TPanel
Left = 0
2019-11-04 11:14:25 +01:00
Top = 210
2018-09-27 12:26:50 +02:00
Width = 863
2019-11-04 11:14:25 +01:00
Height = 420
2018-09-27 12:26:50 +02:00
Align = alClient
Caption = 'Panel3'
TabOrder = 2
object Panel4: TPanel
Left = 1
Top = 1
Width = 861
Height = 41
Align = alTop
BevelOuter = bvNone
Caption = 'Panel4'
ShowCaption = False
2018-09-27 12:26:50 +02:00
TabOrder = 0
object btnGenEntities: TButton
AlignWithMargins = True
Left = 129
Top = 3
Width = 120
Height = 35
Align = alLeft
Caption = 'Generate Entities'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = btnGenEntitiesClick
end
object btnGetTables: TButton
AlignWithMargins = True
Left = 3
Top = 3
Width = 120
Height = 35
Align = alLeft
Caption = 'Get Tables'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnGetTablesClick
end
object chGenerateMapping: TCheckBox
Left = 255
Top = 12
Width = 514
Height = 17
Caption =
'Register entities in ActiveRecordMappingRegistry (needed by TMVC' +
'ActiveRecordController)'
Checked = True
State = cbChecked
TabOrder = 2
end
2018-09-27 12:26:50 +02:00
end
object PageControl1: TPageControl
AlignWithMargins = True
Left = 4
Top = 45
Width = 855
2019-11-04 11:14:25 +01:00
Height = 371
ActivePage = TabSheet1
2018-09-27 12:26:50 +02:00
Align = alClient
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Tables'
2019-11-04 11:14:25 +01:00
object DBGrid1: TDBGrid
2018-09-27 12:26:50 +02:00
Left = 0
Top = 0
Width = 847
2019-11-04 11:14:25 +01:00
Height = 343
2018-09-27 12:26:50 +02:00
Align = alClient
2019-11-04 11:14:25 +01:00
DataSource = dsrcTablesMapping
2018-09-27 12:26:50 +02:00
TabOrder = 0
2019-11-04 11:14:25 +01:00
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
2018-09-27 12:26:50 +02:00
end
end
object TabSheet2: TTabSheet
Caption = 'Generated Code'
ImageIndex = 1
object mmOutput: TMemo
2019-11-04 11:14:25 +01:00
AlignWithMargins = True
Left = 3
Top = 44
Width = 841
Height = 296
2018-09-27 12:26:50 +02:00
Align = alClient
2019-11-04 11:14:25 +01:00
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
2018-09-27 12:26:50 +02:00
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Consolas'
Font.Style = []
ParentFont = False
2019-11-04 11:14:25 +01:00
ReadOnly = True
ScrollBars = ssBoth
2018-09-27 12:26:50 +02:00
TabOrder = 0
2019-11-04 11:14:25 +01:00
WordWrap = False
2018-09-27 12:26:50 +02:00
end
object Panel5: TPanel
Left = 0
Top = 0
Width = 847
Height = 41
Align = alTop
Caption = 'Panel5'
ShowCaption = False
2018-09-27 12:26:50 +02:00
TabOrder = 1
object btnSaveCode: TButton
AlignWithMargins = True
Left = 4
Top = 4
Width = 75
Height = 33
Align = alLeft
Caption = '&Save'
TabOrder = 0
OnClick = btnSaveCodeClick
end
end
end
end
end
object FDConnection1: TFDConnection
Params.Strings = (
'DriverID=MSSQL')
2018-09-27 12:26:50 +02:00
ConnectedStoredUsage = []
LoginPrompt = False
Left = 256
Top = 56
end
object qry: TFDQuery
Connection = FDConnection1
FetchOptions.AssignedValues = [evRecsMax, evRowsetSize, evUnidirectional, evAutoFetchAll]
FetchOptions.Unidirectional = True
FetchOptions.RowsetSize = 1
FetchOptions.RecsMax = 1
FetchOptions.AutoFetchAll = afDisable
2019-11-04 11:14:25 +01:00
UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
UpdateOptions.EnableDelete = False
UpdateOptions.EnableInsert = False
UpdateOptions.EnableUpdate = False
Left = 304
Top = 152
2018-09-27 12:26:50 +02:00
end
object FDPhysFBDriverLink1: TFDPhysFBDriverLink
2019-11-04 11:14:25 +01:00
Left = 616
Top = 496
2018-09-27 12:26:50 +02:00
end
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
Provider = 'Forms'
Left = 424
Top = 104
end
object FDPhysMSSQLDriverLink1: TFDPhysMSSQLDriverLink
2019-11-04 11:14:25 +01:00
Left = 752
Top = 360
2018-09-27 12:26:50 +02:00
end
object FileSaveDialog1: TFileSaveDialog
FavoriteLinks = <>
FileTypes = <
item
DisplayName = 'Delphi Unit'
FileMask = '*.pas'
end>
Options = []
Left = 424
Top = 320
end
object FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink
2019-11-04 11:14:25 +01:00
Left = 752
Top = 496
end
object FDPhysPgDriverLink1: TFDPhysPgDriverLink
2019-11-04 11:14:25 +01:00
Left = 752
Top = 424
end
object FDPhysFBDriverLink2: TFDPhysFBDriverLink
2019-11-04 11:14:25 +01:00
Left = 616
Top = 424
end
object FDPhysIBDriverLink1: TFDPhysIBDriverLink
2019-11-04 11:14:25 +01:00
Left = 752
Top = 280
end
object FDPhysMySQLDriverLink2: TFDPhysMySQLDriverLink
Left = 616
Top = 360
end
object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink
Left = 608
Top = 280
end
2019-11-04 11:14:25 +01:00
object dsTablesMapping: TFDMemTable
Active = True
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 48
Top = 304
object dsTablesMappingTABLE_NAME: TStringField
DisplayLabel = 'Table Name'
DisplayWidth = 60
FieldName = 'TABLE_NAME'
Size = 100
end
object dsTablesMappingCLASS_NAME: TStringField
DisplayLabel = 'Class Name'
DisplayWidth = 60
FieldName = 'CLASS_NAME'
Size = 100
end
end
object dsrcTablesMapping: TDataSource
DataSet = dsTablesMapping
Left = 48
Top = 368
end
2018-09-27 12:26:50 +02:00
end