439 lines
12 KiB
ObjectPascal
439 lines
12 KiB
ObjectPascal
object frmMain: TfrmMain
|
|
Left = 0
|
|
Top = 0
|
|
Caption = #47700#51064#54268
|
|
ClientHeight = 601
|
|
ClientWidth = 752
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
TextHeight = 15
|
|
object lcMain: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 752
|
|
Height = 601
|
|
Align = alClient
|
|
TabOrder = 0
|
|
LayoutLookAndFeel = dxLayoutSkinLookAndFeel1
|
|
ExplicitLeft = 104
|
|
ExplicitTop = 72
|
|
ExplicitWidth = 300
|
|
ExplicitHeight = 250
|
|
object btnAdd: TcxButton
|
|
Left = 337
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acAdd
|
|
TabOrder = 0
|
|
end
|
|
object btnSave: TcxButton
|
|
Left = 501
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acSave
|
|
TabOrder = 2
|
|
end
|
|
object btnDelete: TcxButton
|
|
Left = 583
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acDelete
|
|
TabOrder = 3
|
|
end
|
|
object btnCancel: TcxButton
|
|
Left = 665
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acCancel
|
|
TabOrder = 4
|
|
end
|
|
object grdEmployee: TcxGrid
|
|
Left = 12
|
|
Top = 205
|
|
Width = 728
|
|
Height = 384
|
|
TabOrder = 11
|
|
object dbtvEmployee: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
ScrollbarAnnotations.CustomAnnotations = <>
|
|
DataController.DataSource = dmData.dsEmployee
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsData.CancelOnExit = False
|
|
OptionsData.Deleting = False
|
|
OptionsData.DeletingConfirmation = False
|
|
OptionsData.Editing = False
|
|
OptionsData.Inserting = False
|
|
OptionsSelection.CellSelect = False
|
|
OptionsView.ColumnAutoWidth = True
|
|
OptionsView.GroupByBox = False
|
|
OptionsView.HeaderHeight = 30
|
|
object dbtvEmployeeRecId: TcxGridDBColumn
|
|
DataBinding.FieldName = 'RecId'
|
|
Visible = False
|
|
end
|
|
object dbtvEmployeename: TcxGridDBColumn
|
|
Caption = #51060#47492
|
|
DataBinding.FieldName = 'name'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
HeaderAlignmentHorz = taCenter
|
|
end
|
|
object dbtvEmployeeage: TcxGridDBColumn
|
|
Caption = #45208#51060
|
|
DataBinding.FieldName = 'age'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
HeaderAlignmentHorz = taCenter
|
|
end
|
|
object dbtvEmployeesalary: TcxGridDBColumn
|
|
Caption = #44553#50668
|
|
DataBinding.FieldName = 'salary'
|
|
PropertiesClassName = 'TcxCurrencyEditProperties'
|
|
HeaderAlignmentHorz = taCenter
|
|
end
|
|
object dbtvEmployeesex: TcxGridDBColumn
|
|
Caption = #49457#48324
|
|
DataBinding.FieldName = 'sex'
|
|
HeaderAlignmentHorz = taCenter
|
|
end
|
|
object dbtvEmployeeposition: TcxGridDBColumn
|
|
Caption = #51649#50948
|
|
DataBinding.FieldName = 'position'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
HeaderAlignmentHorz = taCenter
|
|
end
|
|
object dbtvEmployeeaddress: TcxGridDBColumn
|
|
Caption = #51452#49548
|
|
DataBinding.FieldName = 'address'
|
|
end
|
|
end
|
|
object grdEmployeeDBTableView1: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
ScrollbarAnnotations.CustomAnnotations = <>
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
end
|
|
object grdEmployeeLevel1: TcxGridLevel
|
|
GridView = dbtvEmployee
|
|
end
|
|
end
|
|
object btnEdit: TcxButton
|
|
Left = 419
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acEdit
|
|
TabOrder = 1
|
|
end
|
|
object dbteName: TcxDBTextEdit
|
|
Left = 55
|
|
Top = 93
|
|
AutoSize = False
|
|
DataBinding.DataField = 'name'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 5
|
|
Height = 25
|
|
Width = 318
|
|
end
|
|
object dbseAge: TcxDBSpinEdit
|
|
Left = 447
|
|
Top = 125
|
|
AutoSize = False
|
|
DataBinding.DataField = 'age'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 9
|
|
Height = 25
|
|
Width = 279
|
|
end
|
|
object dbseSalary: TcxDBSpinEdit
|
|
Left = 55
|
|
Top = 125
|
|
AutoSize = False
|
|
DataBinding.DataField = 'salary'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Properties.AssignedValues.EditFormat = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 7
|
|
Height = 25
|
|
Width = 279
|
|
end
|
|
object cxDBCheckBox1: TcxDBCheckBox
|
|
Left = 341
|
|
Top = 125
|
|
AutoSize = False
|
|
Caption = #49457#48324
|
|
DataBinding.DataField = 'sex'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Properties.Alignment = taRightJustify
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 8
|
|
Transparent = True
|
|
Height = 25
|
|
Width = 70
|
|
end
|
|
object dbtePosition: TcxDBTextEdit
|
|
Left = 409
|
|
Top = 93
|
|
AutoSize = False
|
|
DataBinding.DataField = 'position'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 6
|
|
Height = 25
|
|
Width = 317
|
|
end
|
|
object dbteAdress: TcxDBTextEdit
|
|
Left = 55
|
|
Top = 157
|
|
DataBinding.DataField = 'address'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 10
|
|
Width = 671
|
|
end
|
|
object lgRoot: TdxLayoutGroup
|
|
AlignHorz = ahParentManaged
|
|
AlignVert = avParentManaged
|
|
Hidden = True
|
|
ItemIndex = 1
|
|
ShowBorder = False
|
|
Index = -1
|
|
end
|
|
object lgToolbar: TdxLayoutGroup
|
|
Parent = lgRoot
|
|
CaptionOptions.Text = 'New Group'
|
|
ItemIndex = 1
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object lgInput: TdxLayoutGroup
|
|
Parent = lgRoot
|
|
CaptionOptions.Text = ' '#51077#47141' '
|
|
Index = 1
|
|
end
|
|
object lgGrid: TdxLayoutGroup
|
|
Parent = lgRoot
|
|
AlignVert = avClient
|
|
CaptionOptions.Text = 'New Group'
|
|
ShowBorder = False
|
|
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
|
|
Enabled = False
|
|
Index = 2
|
|
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 = 3
|
|
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 = 4
|
|
end
|
|
object liGrid: TdxLayoutItem
|
|
Parent = lgGrid
|
|
AlignVert = avClient
|
|
CaptionOptions.Text = 'cxGrid2'
|
|
CaptionOptions.Visible = False
|
|
Control = grdEmployee
|
|
ControlOptions.OriginalHeight = 200
|
|
ControlOptions.OriginalWidth = 250
|
|
ControlOptions.ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object liEdit: TdxLayoutItem
|
|
Parent = lgToolbar
|
|
AlignHorz = ahRight
|
|
AlignVert = avClient
|
|
CaptionOptions.Text = 'cxButton1'
|
|
CaptionOptions.Visible = False
|
|
Control = btnEdit
|
|
ControlOptions.OriginalHeight = 35
|
|
ControlOptions.OriginalWidth = 75
|
|
ControlOptions.ShowBorder = False
|
|
Index = 1
|
|
end
|
|
object liName: TdxLayoutItem
|
|
Parent = dxLayoutGroup1
|
|
AlignHorz = ahClient
|
|
CaptionOptions.Text = #51060#47492
|
|
Control = dbteName
|
|
ControlOptions.OriginalHeight = 25
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object liAge: TdxLayoutItem
|
|
Parent = dxLayoutGroup3
|
|
AlignHorz = ahClient
|
|
CaptionOptions.Text = #45208#51060
|
|
Control = dbseAge
|
|
ControlOptions.OriginalHeight = 25
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 2
|
|
end
|
|
object liSalary: TdxLayoutItem
|
|
Parent = dxLayoutGroup3
|
|
AlignHorz = ahClient
|
|
CaptionOptions.Text = #44553#50668
|
|
Control = dbseSalary
|
|
ControlOptions.OriginalHeight = 25
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object liSex: TdxLayoutItem
|
|
Parent = dxLayoutGroup3
|
|
AlignHorz = ahClient
|
|
CaptionOptions.Text = 'sex'
|
|
CaptionOptions.Visible = False
|
|
Control = cxDBCheckBox1
|
|
ControlOptions.OriginalHeight = 25
|
|
ControlOptions.OriginalWidth = 34
|
|
ControlOptions.ShowBorder = False
|
|
Index = 1
|
|
end
|
|
object liPosition: TdxLayoutItem
|
|
Parent = dxLayoutGroup1
|
|
AlignHorz = ahClient
|
|
CaptionOptions.Text = #51649#50948
|
|
Control = dbtePosition
|
|
ControlOptions.OriginalHeight = 25
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 1
|
|
end
|
|
object liAddress: TdxLayoutItem
|
|
Parent = dxLayoutGroup2
|
|
CaptionOptions.Text = #51452#49548
|
|
Control = dbteAdress
|
|
ControlOptions.OriginalHeight = 27
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object dxLayoutGroup1: TdxLayoutGroup
|
|
Parent = lgInput
|
|
CaptionOptions.Text = 'New Group'
|
|
ItemIndex = 1
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object dxLayoutGroup2: TdxLayoutGroup
|
|
Parent = lgInput
|
|
CaptionOptions.Text = 'New Group'
|
|
ShowBorder = False
|
|
Index = 2
|
|
end
|
|
object dxLayoutGroup3: TdxLayoutGroup
|
|
Parent = lgInput
|
|
CaptionOptions.Text = 'New Group'
|
|
ItemIndex = 2
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
Index = 1
|
|
end
|
|
end
|
|
object alToolbar: TActionList
|
|
Images = dmData.liSmallIcons
|
|
Left = 200
|
|
Top = 24
|
|
object acAdd: TAction
|
|
Caption = #52628#44032
|
|
ImageIndex = 0
|
|
OnExecute = acAddExecute
|
|
end
|
|
object acEdit: TAction
|
|
Caption = #49688#51221
|
|
ImageIndex = 1
|
|
OnExecute = acEditExecute
|
|
end
|
|
object acSave: TAction
|
|
Caption = #51200#51109
|
|
Enabled = False
|
|
ImageIndex = 2
|
|
OnExecute = acSaveExecute
|
|
end
|
|
object acDelete: TAction
|
|
Caption = #49325#51228
|
|
ImageIndex = 3
|
|
OnExecute = acDeleteExecute
|
|
end
|
|
object acCancel: TAction
|
|
Caption = #52712#49548
|
|
ImageIndex = 4
|
|
OnExecute = acCancelExecute
|
|
end
|
|
end
|
|
object scMain: TdxSkinController
|
|
NativeStyle = False
|
|
SkinName = 'WXI'
|
|
SkinPaletteName = 'Clearness'
|
|
Left = 16
|
|
Top = 8
|
|
end
|
|
object dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList
|
|
Left = 40
|
|
Top = 8
|
|
object dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
|
|
PixelsPerInch = 96
|
|
end
|
|
end
|
|
end
|