mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
501 lines
12 KiB
Plaintext
501 lines
12 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 0
|
|
Top = 0
|
|
Caption = '[DMVCFramework] MVCActiveRecord Entity Generator'
|
|
ClientHeight = 684
|
|
ClientWidth = 1012
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 21
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 207
|
|
Width = 1012
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
ExplicitTop = 169
|
|
ExplicitWidth = 215
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1012
|
|
Height = 39
|
|
Align = alTop
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
AlignWithMargins = True
|
|
Left = 350
|
|
Top = 11
|
|
Width = 276
|
|
Height = 17
|
|
Margins.Left = 10
|
|
Margins.Top = 10
|
|
Margins.Right = 10
|
|
Margins.Bottom = 10
|
|
Align = alLeft
|
|
Caption = 'Select a FireDAC Connection Definitions'
|
|
Layout = tlCenter
|
|
ExplicitHeight = 21
|
|
end
|
|
object cboConnectionDefs: TComboBox
|
|
AlignWithMargins = True
|
|
Left = 4
|
|
Top = 4
|
|
Width = 333
|
|
Height = 29
|
|
Align = alLeft
|
|
TabOrder = 0
|
|
OnChange = cboConnectionDefsChange
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 39
|
|
Width = 1012
|
|
Height = 168
|
|
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 = 1004
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = 'FireDAC connection parameters'
|
|
ExplicitWidth = 152
|
|
end
|
|
object mmConnectionParams: TMemo
|
|
AlignWithMargins = True
|
|
Left = 4
|
|
Top = 23
|
|
Width = 638
|
|
Height = 141
|
|
Align = alClient
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Consolas'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
OnChange = mmConnectionParamsChange
|
|
end
|
|
object Panel6: TPanel
|
|
Left = 645
|
|
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
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 210
|
|
Width = 1012
|
|
Height = 474
|
|
Align = alClient
|
|
Caption = 'Panel3'
|
|
TabOrder = 2
|
|
object Panel4: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 1010
|
|
Height = 156
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel4'
|
|
ShowCaption = False
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
1010
|
|
156)
|
|
object SpeedButton1: TSpeedButton
|
|
AlignWithMargins = True
|
|
Left = 129
|
|
Top = 3
|
|
Width = 133
|
|
Height = 29
|
|
Margins.Top = 2
|
|
Margins.Right = 2
|
|
Margins.Bottom = 2
|
|
Caption = 'Select All'
|
|
OnClick = SpeedButton1Click
|
|
end
|
|
object SpeedButton2: TSpeedButton
|
|
AlignWithMargins = True
|
|
Left = 267
|
|
Top = 3
|
|
Width = 133
|
|
Height = 29
|
|
Margins.Top = 2
|
|
Margins.Right = 2
|
|
Margins.Bottom = 2
|
|
Caption = 'Select None'
|
|
OnClick = SpeedButton2Click
|
|
end
|
|
object SpeedButton3: TSpeedButton
|
|
AlignWithMargins = True
|
|
Left = 405
|
|
Top = 3
|
|
Width = 133
|
|
Height = 29
|
|
Margins.Top = 2
|
|
Margins.Right = 2
|
|
Margins.Bottom = 2
|
|
Caption = 'Invert Selection'
|
|
OnClick = SpeedButton3Click
|
|
end
|
|
object btnGenEntities: TButton
|
|
AlignWithMargins = True
|
|
Left = 842
|
|
Top = 5
|
|
Width = 161
|
|
Height = 35
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Generate Entities'
|
|
TabOrder = 0
|
|
OnClick = btnGenEntitiesClick
|
|
end
|
|
object btnGetTables: TButton
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 3
|
|
Width = 120
|
|
Height = 40
|
|
Caption = 'Get Tables'
|
|
TabOrder = 1
|
|
OnClick = btnGetTablesClick
|
|
end
|
|
object chGenerateMapping: TCheckBox
|
|
AlignWithMargins = True
|
|
Left = 10
|
|
Top = 121
|
|
Width = 997
|
|
Height = 32
|
|
Margins.Left = 10
|
|
Align = alBottom
|
|
Caption =
|
|
'Register entities in ActiveRecordMappingRegistry (needed by TMVC' +
|
|
'ActiveRecordController)'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
WordWrap = True
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
Left = 7
|
|
Top = 49
|
|
Width = 531
|
|
Height = 68
|
|
Caption = 'MVCNameCase'
|
|
Columns = 3
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'LowerCase'
|
|
'UpperCase'
|
|
'CamelCase'
|
|
'PascalCase'
|
|
'SnakeCase'
|
|
'AsIs')
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object PageControl1: TPageControl
|
|
AlignWithMargins = True
|
|
Left = 4
|
|
Top = 160
|
|
Width = 1004
|
|
Height = 310
|
|
ActivePage = TabSheet1
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Tables'
|
|
object DBGrid1: TDBGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 996
|
|
Height = 274
|
|
Align = alClient
|
|
DataSource = dsrcTablesMapping
|
|
DefaultDrawing = False
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -16
|
|
TitleFont.Name = 'Segoe UI'
|
|
TitleFont.Style = []
|
|
OnCellClick = DBGrid1CellClick
|
|
OnDrawColumnCell = DBGrid1DrawColumnCell
|
|
Columns = <
|
|
item
|
|
ButtonStyle = cbsNone
|
|
Expanded = False
|
|
FieldName = 'GENERATE'
|
|
PickList.Strings = (
|
|
'yes'
|
|
'no')
|
|
ReadOnly = True
|
|
Width = 86
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TABLE_NAME'
|
|
Width = 478
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'CLASS_NAME'
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Generated Code'
|
|
ImageIndex = 1
|
|
object mmOutput: TMemo
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 44
|
|
Width = 990
|
|
Height = 227
|
|
Align = alClient
|
|
BevelInner = bvNone
|
|
BevelOuter = bvNone
|
|
BorderStyle = bsNone
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Consolas'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 996
|
|
Height = 41
|
|
Align = alTop
|
|
Caption = 'Panel5'
|
|
ShowCaption = False
|
|
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')
|
|
ResourceOptions.AssignedValues = [rvKeepConnection]
|
|
ResourceOptions.KeepConnection = False
|
|
UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
|
|
UpdateOptions.EnableDelete = False
|
|
UpdateOptions.EnableInsert = False
|
|
UpdateOptions.EnableUpdate = False
|
|
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
|
|
UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
|
|
UpdateOptions.EnableDelete = False
|
|
UpdateOptions.EnableInsert = False
|
|
UpdateOptions.EnableUpdate = False
|
|
Left = 304
|
|
Top = 152
|
|
end
|
|
object FDPhysFBDriverLink1: TFDPhysFBDriverLink
|
|
Left = 504
|
|
Top = 496
|
|
end
|
|
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
|
|
Provider = 'Forms'
|
|
Left = 424
|
|
Top = 104
|
|
end
|
|
object FDPhysMSSQLDriverLink1: TFDPhysMSSQLDriverLink
|
|
Left = 784
|
|
Top = 568
|
|
end
|
|
object FileSaveDialog1: TFileSaveDialog
|
|
FavoriteLinks = <>
|
|
FileTypes = <
|
|
item
|
|
DisplayName = 'Delphi Unit'
|
|
FileMask = '*.pas'
|
|
end>
|
|
Options = []
|
|
Left = 328
|
|
Top = 416
|
|
end
|
|
object FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink
|
|
Left = 616
|
|
Top = 568
|
|
end
|
|
object FDPhysPgDriverLink1: TFDPhysPgDriverLink
|
|
Left = 784
|
|
Top = 496
|
|
end
|
|
object FDPhysFBDriverLink2: TFDPhysFBDriverLink
|
|
Left = 616
|
|
Top = 408
|
|
end
|
|
object FDPhysIBDriverLink1: TFDPhysIBDriverLink
|
|
Left = 616
|
|
Top = 496
|
|
end
|
|
object FDPhysMySQLDriverLink2: TFDPhysMySQLDriverLink
|
|
Left = 504
|
|
Top = 568
|
|
end
|
|
object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink
|
|
Left = 504
|
|
Top = 408
|
|
end
|
|
object dsTablesMapping: TFDMemTable
|
|
Active = True
|
|
FieldDefs = <
|
|
item
|
|
Name = 'TABLE_NAME'
|
|
DataType = ftString
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'CLASS_NAME'
|
|
DataType = ftString
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'GENERATE'
|
|
DataType = ftBoolean
|
|
end>
|
|
IndexDefs = <>
|
|
FetchOptions.AssignedValues = [evMode]
|
|
FetchOptions.Mode = fmAll
|
|
ResourceOptions.AssignedValues = [rvSilentMode]
|
|
ResourceOptions.SilentMode = True
|
|
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
|
|
UpdateOptions.CheckRequired = False
|
|
UpdateOptions.AutoCommitUpdates = True
|
|
StoreDefs = True
|
|
Left = 96
|
|
Top = 504
|
|
object dsTablesMappingGENERATE: TBooleanField
|
|
DisplayLabel = 'Generate?'
|
|
FieldName = 'GENERATE'
|
|
end
|
|
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 = 96
|
|
Top = 448
|
|
end
|
|
end
|