mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
148 lines
3.4 KiB
Plaintext
148 lines
3.4 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'Articles CRUD SAMPLE'
|
|
ClientHeight = 391
|
|
ClientWidth = 876
|
|
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 Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 876
|
|
Height = 39
|
|
Align = alTop
|
|
TabOrder = 0
|
|
ExplicitWidth = 669
|
|
object DBNavigator1: TDBNavigator
|
|
AlignWithMargins = True
|
|
Left = 585
|
|
Top = 4
|
|
Width = 287
|
|
Height = 31
|
|
DataSource = dsrcArticles
|
|
Align = alRight
|
|
TabOrder = 0
|
|
ExplicitLeft = 378
|
|
end
|
|
object btnOpen: TButton
|
|
AlignWithMargins = True
|
|
Left = 4
|
|
Top = 4
|
|
Width = 75
|
|
Height = 31
|
|
Align = alLeft
|
|
Caption = 'Open'
|
|
TabOrder = 1
|
|
OnClick = btnOpenClick
|
|
end
|
|
object btnRefreshRecord: TButton
|
|
AlignWithMargins = True
|
|
Left = 166
|
|
Top = 4
|
|
Width = 107
|
|
Height = 31
|
|
Align = alLeft
|
|
Caption = 'Refresh Record'
|
|
TabOrder = 2
|
|
OnClick = btnRefreshRecordClick
|
|
end
|
|
object Button1: TButton
|
|
AlignWithMargins = True
|
|
Left = 85
|
|
Top = 4
|
|
Width = 75
|
|
Height = 31
|
|
Align = alLeft
|
|
Caption = 'Close'
|
|
TabOrder = 3
|
|
OnClick = btnCloseClick
|
|
end
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 0
|
|
Top = 39
|
|
Width = 876
|
|
Height = 352
|
|
Align = alClient
|
|
DataSource = dsrcArticles
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'Tahoma'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'id'
|
|
Title.Caption = '#ID'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'code'
|
|
Title.Caption = 'Code'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'description'
|
|
Title.Caption = 'Description'
|
|
Width = 265
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'price'
|
|
Title.Caption = 'Price'
|
|
Visible = True
|
|
end>
|
|
end
|
|
object dsArticles: TFDMemTable
|
|
AfterOpen = dsArticlesAfterOpen
|
|
BeforePost = dsArticlesBeforePost
|
|
BeforeDelete = dsArticlesBeforeDelete
|
|
BeforeRefresh = dsArticlesBeforeRefresh
|
|
FieldDefs = <>
|
|
IndexDefs = <>
|
|
BeforeRowRequest = dsArticlesBeforeRowRequest
|
|
FetchOptions.AssignedValues = [evMode]
|
|
FetchOptions.Mode = fmAll
|
|
ResourceOptions.AssignedValues = [rvSilentMode]
|
|
ResourceOptions.SilentMode = True
|
|
UpdateOptions.AssignedValues = [uvCheckRequired]
|
|
UpdateOptions.CheckRequired = False
|
|
StoreDefs = True
|
|
Left = 136
|
|
Top = 120
|
|
object dsArticlesid: TIntegerField
|
|
FieldName = 'id'
|
|
end
|
|
object dsArticlescode: TStringField
|
|
FieldName = 'code'
|
|
end
|
|
object dsArticlesdescription: TStringField
|
|
FieldName = 'description'
|
|
Size = 50
|
|
end
|
|
object dsArticlesprice: TCurrencyField
|
|
FieldName = 'price'
|
|
end
|
|
end
|
|
object dsrcArticles: TDataSource
|
|
DataSet = dsArticles
|
|
Left = 136
|
|
Top = 184
|
|
end
|
|
end
|