Files
2024-12-01 15:21:36 +09:00

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