UI 추가 및 데이타셋 추가
This commit is contained in:
+144
-3
@@ -1,9 +1,9 @@
|
||||
object Form1: TForm1
|
||||
object frmMain: TfrmMain
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = #47700#51064#54268
|
||||
ClientHeight = 441
|
||||
ClientWidth = 624
|
||||
ClientHeight = 601
|
||||
ClientWidth = 752
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@@ -11,4 +11,145 @@ object Form1: TForm1
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Style = []
|
||||
TextHeight = 15
|
||||
object lcMain: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 752
|
||||
Height = 601
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 104
|
||||
ExplicitTop = 72
|
||||
ExplicitWidth = 300
|
||||
ExplicitHeight = 250
|
||||
object btnAdd: TcxButton
|
||||
Left = 405
|
||||
Top = 33
|
||||
Width = 75
|
||||
Height = 35
|
||||
Caption = 'btnAdd'
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnSave: TcxButton
|
||||
Left = 487
|
||||
Top = 33
|
||||
Width = 75
|
||||
Height = 35
|
||||
Caption = 'btnSave'
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnDelete: TcxButton
|
||||
Left = 569
|
||||
Top = 33
|
||||
Width = 75
|
||||
Height = 35
|
||||
Caption = 'btnDelete'
|
||||
TabOrder = 2
|
||||
end
|
||||
object btnCancel: TcxButton
|
||||
Left = 651
|
||||
Top = 33
|
||||
Width = 75
|
||||
Height = 35
|
||||
Caption = 'btnCancel'
|
||||
TabOrder = 3
|
||||
end
|
||||
object grdEmployee: TcxGrid
|
||||
Left = 26
|
||||
Top = 152
|
||||
Width = 700
|
||||
Height = 200
|
||||
TabOrder = 4
|
||||
object dbtvEmployee: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsView.GroupByBox = False
|
||||
end
|
||||
object grdEmployeeLevel1: TcxGridLevel
|
||||
GridView = dbtvEmployee
|
||||
end
|
||||
end
|
||||
object lgRoot: TdxLayoutGroup
|
||||
AlignHorz = ahParentManaged
|
||||
AlignVert = avParentManaged
|
||||
Hidden = True
|
||||
ItemIndex = 2
|
||||
ShowBorder = False
|
||||
Index = -1
|
||||
end
|
||||
object lgToolbar: TdxLayoutGroup
|
||||
Parent = lgRoot
|
||||
CaptionOptions.Text = 'New Group'
|
||||
ItemIndex = 3
|
||||
LayoutDirection = ldHorizontal
|
||||
Index = 0
|
||||
end
|
||||
object lgInput: TdxLayoutGroup
|
||||
Parent = lgRoot
|
||||
CaptionOptions.Text = 'New Group'
|
||||
Index = 1
|
||||
end
|
||||
object lgGrid: TdxLayoutGroup
|
||||
Parent = lgRoot
|
||||
CaptionOptions.Text = 'New Group'
|
||||
Index = 2
|
||||
end
|
||||
object liAdd: TdxLayoutItem
|
||||
Parent = lgToolbar
|
||||
AlignHorz = ahRight
|
||||
CaptionOptions.Text = 'cxButton1'
|
||||
CaptionOptions.Visible = False
|
||||
Control = btnAdd
|
||||
ControlOptions.OriginalHeight = 35
|
||||
ControlOptions.OriginalWidth = 75
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 0
|
||||
end
|
||||
object liSave: TdxLayoutItem
|
||||
Parent = lgToolbar
|
||||
AlignHorz = ahRight
|
||||
CaptionOptions.Text = 'cxButton2'
|
||||
CaptionOptions.Visible = False
|
||||
Control = btnSave
|
||||
ControlOptions.OriginalHeight = 35
|
||||
ControlOptions.OriginalWidth = 75
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 1
|
||||
end
|
||||
object liDelete: TdxLayoutItem
|
||||
Parent = lgToolbar
|
||||
AlignHorz = ahRight
|
||||
CaptionOptions.Text = 'cxButton3'
|
||||
CaptionOptions.Visible = False
|
||||
Control = btnDelete
|
||||
ControlOptions.OriginalHeight = 35
|
||||
ControlOptions.OriginalWidth = 75
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 2
|
||||
end
|
||||
object liCancel: TdxLayoutItem
|
||||
Parent = lgToolbar
|
||||
AlignHorz = ahRight
|
||||
CaptionOptions.Text = 'cxButton4'
|
||||
CaptionOptions.Visible = False
|
||||
Control = btnCancel
|
||||
ControlOptions.OriginalHeight = 35
|
||||
ControlOptions.OriginalWidth = 75
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 3
|
||||
end
|
||||
object liGrid: TdxLayoutItem
|
||||
Parent = lgGrid
|
||||
CaptionOptions.Text = 'cxGrid2'
|
||||
CaptionOptions.Visible = False
|
||||
Control = grdEmployee
|
||||
ControlOptions.OriginalHeight = 200
|
||||
ControlOptions.OriginalWidth = 250
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 0
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user