pagewiz@naver.com
517 lines
14 KiB
ObjectPascal
517 lines
14 KiB
ObjectPascal
object frmMain: TfrmMain
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'DataSet '#49892#49845
|
|
ClientHeight = 685
|
|
ClientWidth = 816
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
TextHeight = 15
|
|
object lcMain: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 816
|
|
Height = 665
|
|
Align = alClient
|
|
TabOrder = 0
|
|
LayoutLookAndFeel = dxLayoutSkinLookAndFeel1
|
|
object btnAdd: TcxButton
|
|
Left = 401
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acAdd
|
|
TabOrder = 0
|
|
end
|
|
object btnEdit: TcxButton
|
|
Left = 483
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acEdit
|
|
TabOrder = 1
|
|
end
|
|
object btnDelete: TcxButton
|
|
Left = 565
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acDelete
|
|
TabOrder = 2
|
|
end
|
|
object btnPost: TcxButton
|
|
Left = 647
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acSave
|
|
TabOrder = 3
|
|
end
|
|
object btnCancel: TcxButton
|
|
Left = 729
|
|
Top = 12
|
|
Width = 75
|
|
Height = 35
|
|
Action = acCancel
|
|
TabOrder = 4
|
|
end
|
|
object grdEmployee: TcxGrid
|
|
Left = 12
|
|
Top = 286
|
|
Width = 792
|
|
Height = 367
|
|
TabOrder = 12
|
|
object dbtvEmployee: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
ScrollbarAnnotations.CustomAnnotations = <>
|
|
OnCellClick = dbtvEmployeeCellClick
|
|
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
|
|
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 dbtvEmployeeposition: TcxGridDBColumn
|
|
Caption = #51649#50948
|
|
DataBinding.FieldName = 'position'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 41
|
|
end
|
|
object dbtvEmployeesalary: TcxGridDBColumn
|
|
Caption = #44553#50668
|
|
DataBinding.FieldName = 'salary'
|
|
PropertiesClassName = 'TcxCurrencyEditProperties'
|
|
HeaderAlignmentHorz = taCenter
|
|
end
|
|
object dbtvEmployeeColumn1: TcxGridDBColumn
|
|
Caption = #44540#47924#54805#53468
|
|
DataBinding.FieldName = 'worktype'
|
|
Visible = False
|
|
HeaderAlignmentHorz = taCenter
|
|
MinWidth = 0
|
|
Width = 64
|
|
end
|
|
object dbtvEmployeeaddress: TcxGridDBColumn
|
|
Caption = #51452#49548
|
|
DataBinding.FieldName = 'address'
|
|
HeaderAlignmentHorz = taCenter
|
|
end
|
|
end
|
|
object grdEmployeeLevel1: TcxGridLevel
|
|
GridView = dbtvEmployee
|
|
end
|
|
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 = 27
|
|
Width = 379
|
|
end
|
|
object dbseAge: TcxDBSpinEdit
|
|
Left = 55
|
|
Top = 127
|
|
AutoSize = False
|
|
DataBinding.DataField = 'age'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 6
|
|
Height = 30
|
|
Width = 379
|
|
end
|
|
object dbtePosition: TcxDBTextEdit
|
|
Left = 55
|
|
Top = 164
|
|
AutoSize = False
|
|
DataBinding.DataField = 'position'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 8
|
|
Height = 30
|
|
Width = 379
|
|
end
|
|
object dbseSalary: TcxDBSpinEdit
|
|
Left = 55
|
|
Top = 201
|
|
AutoSize = False
|
|
DataBinding.DataField = 'salary'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 9
|
|
Height = 30
|
|
Width = 379
|
|
end
|
|
object dbteAddress: TcxDBTextEdit
|
|
Left = 55
|
|
Top = 238
|
|
DataBinding.DataField = 'address'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 11
|
|
Width = 735
|
|
end
|
|
object rgWorkType: TcxRadioGroup
|
|
Left = 441
|
|
Top = 164
|
|
Caption = #44540#47924#54805#53468' ('#49688#46041')'
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
Properties.Items = <>
|
|
Style.Color = 16053492
|
|
Style.TransparentBorder = False
|
|
TabOrder = 10
|
|
Height = 67
|
|
Width = 349
|
|
object rbWorkType1: TcxRadioButton
|
|
Left = 56
|
|
Top = 32
|
|
Width = 80
|
|
Height = 20
|
|
Caption = ' '#49888#51077
|
|
TabOrder = 0
|
|
Transparent = True
|
|
end
|
|
object rbWorkType2: TcxRadioButton
|
|
Left = 126
|
|
Top = 32
|
|
Width = 80
|
|
Height = 20
|
|
Caption = #44540#49549#51088
|
|
TabOrder = 1
|
|
Transparent = True
|
|
end
|
|
object rbWorkType3: TcxRadioButton
|
|
Left = 212
|
|
Top = 32
|
|
Width = 80
|
|
Height = 20
|
|
Caption = #53748#49324#51088
|
|
TabOrder = 2
|
|
Transparent = True
|
|
end
|
|
end
|
|
object dbrgWorkType: TcxDBRadioGroup
|
|
Left = 441
|
|
Top = 93
|
|
Caption = #44540#47924#54805#53468' ('#51088#46041'-DB'#50672#46041')'
|
|
DataBinding.DataField = 'worktype'
|
|
DataBinding.DataSource = dmData.dsEmployee
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
Properties.Columns = 3
|
|
Properties.Items = <
|
|
item
|
|
Caption = #49888#51077
|
|
Value = 0
|
|
end
|
|
item
|
|
Caption = #44540#49549#51088
|
|
Value = 1
|
|
end
|
|
item
|
|
Caption = #53748#49324#51088
|
|
Value = 2
|
|
end>
|
|
Style.Color = 16053492
|
|
Style.TransparentBorder = False
|
|
TabOrder = 7
|
|
Height = 64
|
|
Width = 349
|
|
end
|
|
object lgRoot: TdxLayoutGroup
|
|
AlignHorz = ahClient
|
|
AlignVert = avClient
|
|
Hidden = True
|
|
ItemIndex = 1
|
|
ShowBorder = False
|
|
Index = -1
|
|
end
|
|
object lgToolbar: TdxLayoutGroup
|
|
Parent = lgRoot
|
|
CaptionOptions.Text = 'New Group'
|
|
CaptionOptions.Visible = False
|
|
ItemIndex = 4
|
|
LayoutDirection = ldHorizontal
|
|
ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object lgInput: TdxLayoutGroup
|
|
Parent = lgRoot
|
|
CaptionOptions.Text = #52628#44032' / '#54200#51665
|
|
Index = 1
|
|
end
|
|
object lgGrid: TdxLayoutGroup
|
|
Parent = lgRoot
|
|
AlignVert = avClient
|
|
CaptionOptions.Text = 'New Group'
|
|
CaptionOptions.Visible = False
|
|
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 liEdit: TdxLayoutItem
|
|
Parent = lgToolbar
|
|
AlignHorz = ahRight
|
|
CaptionOptions.Text = 'cxButton2'
|
|
CaptionOptions.Visible = False
|
|
Control = btnEdit
|
|
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 liSave: TdxLayoutItem
|
|
Parent = lgToolbar
|
|
AlignHorz = ahRight
|
|
CaptionOptions.Text = 'cxButton4'
|
|
CaptionOptions.Visible = False
|
|
Control = btnPost
|
|
ControlOptions.OriginalHeight = 35
|
|
ControlOptions.OriginalWidth = 75
|
|
ControlOptions.ShowBorder = False
|
|
Enabled = False
|
|
Index = 3
|
|
end
|
|
object liCancel: TdxLayoutItem
|
|
Parent = lgToolbar
|
|
AlignHorz = ahRight
|
|
CaptionOptions.Text = 'cxButton5'
|
|
CaptionOptions.Visible = False
|
|
Control = btnCancel
|
|
ControlOptions.OriginalHeight = 35
|
|
ControlOptions.OriginalWidth = 75
|
|
ControlOptions.ShowBorder = False
|
|
Index = 4
|
|
end
|
|
object liGird: TdxLayoutItem
|
|
Parent = lgGrid
|
|
AlignHorz = ahClient
|
|
AlignVert = avClient
|
|
CaptionOptions.Text = 'cxGrid1'
|
|
CaptionOptions.Visible = False
|
|
Control = grdEmployee
|
|
ControlOptions.OriginalHeight = 200
|
|
ControlOptions.OriginalWidth = 250
|
|
ControlOptions.ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object dxLayoutItem2: TdxLayoutItem
|
|
Parent = dxLayoutAutoCreatedGroup4
|
|
AlignHorz = ahClient
|
|
CaptionOptions.Text = #51060#47492
|
|
Control = dbteName
|
|
ControlOptions.OriginalHeight = 27
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object dxLayoutItem3: TdxLayoutItem
|
|
Parent = dxLayoutAutoCreatedGroup4
|
|
AlignVert = avClient
|
|
CaptionOptions.Text = #45208#51060
|
|
Control = dbseAge
|
|
ControlOptions.OriginalHeight = 27
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 1
|
|
end
|
|
object dxLayoutItem4: TdxLayoutItem
|
|
Parent = dxLayoutAutoCreatedGroup3
|
|
AlignHorz = ahClient
|
|
AlignVert = avClient
|
|
CaptionOptions.Text = #51649#50948
|
|
Control = dbtePosition
|
|
ControlOptions.OriginalHeight = 27
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 0
|
|
end
|
|
object dxLayoutItem5: TdxLayoutItem
|
|
Parent = dxLayoutAutoCreatedGroup3
|
|
AlignHorz = ahClient
|
|
AlignVert = avClient
|
|
CaptionOptions.Text = #44553#50668
|
|
Control = dbseSalary
|
|
ControlOptions.OriginalHeight = 27
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 1
|
|
end
|
|
object dxLayoutItem6: TdxLayoutItem
|
|
Parent = lgInput
|
|
CaptionOptions.Text = #51452#49548
|
|
Control = dbteAddress
|
|
ControlOptions.OriginalHeight = 27
|
|
ControlOptions.OriginalWidth = 121
|
|
ControlOptions.ShowBorder = False
|
|
Index = 2
|
|
end
|
|
object dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup
|
|
Parent = lgInput
|
|
LayoutDirection = ldHorizontal
|
|
Index = 0
|
|
end
|
|
object dxLayoutItem1: TdxLayoutItem
|
|
Parent = dxLayoutAutoCreatedGroup2
|
|
AlignHorz = ahRight
|
|
CaptionOptions.Text = 'cxRadioGroup1'
|
|
CaptionOptions.Visible = False
|
|
Control = rgWorkType
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.OriginalHeight = 67
|
|
ControlOptions.OriginalWidth = 349
|
|
ControlOptions.ShowBorder = False
|
|
Index = 1
|
|
end
|
|
object dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup
|
|
Parent = lgInput
|
|
LayoutDirection = ldHorizontal
|
|
Index = 1
|
|
end
|
|
object dxLayoutAutoCreatedGroup3: TdxLayoutAutoCreatedGroup
|
|
Parent = dxLayoutAutoCreatedGroup2
|
|
AlignHorz = ahClient
|
|
Index = 0
|
|
end
|
|
object dxLayoutItem7: TdxLayoutItem
|
|
Parent = dxLayoutAutoCreatedGroup1
|
|
AlignVert = avBottom
|
|
CaptionOptions.Text = 'cxDBRadioGroup1'
|
|
CaptionOptions.Visible = False
|
|
Control = dbrgWorkType
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.OriginalHeight = 64
|
|
ControlOptions.OriginalWidth = 349
|
|
ControlOptions.ShowBorder = False
|
|
Index = 1
|
|
end
|
|
object dxLayoutAutoCreatedGroup4: TdxLayoutAutoCreatedGroup
|
|
Parent = dxLayoutAutoCreatedGroup1
|
|
AlignHorz = ahClient
|
|
Index = 0
|
|
end
|
|
end
|
|
object sbMain: TdxStatusBar
|
|
Left = 0
|
|
Top = 665
|
|
Width = 816
|
|
Height = 20
|
|
Panels = <
|
|
item
|
|
PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
|
|
end>
|
|
end
|
|
object acToolbar: TActionList
|
|
Images = dmData.ilSmallIcons
|
|
Left = 288
|
|
Top = 8
|
|
object acAdd: TAction
|
|
Tag = 1
|
|
Caption = #52628#44032
|
|
ImageIndex = 0
|
|
OnExecute = DataSetCRUD
|
|
end
|
|
object acEdit: TAction
|
|
Tag = 2
|
|
Caption = #49688#51221
|
|
ImageIndex = 1
|
|
OnExecute = DataSetCRUD
|
|
end
|
|
object acDelete: TAction
|
|
Tag = 3
|
|
Caption = #49325#51228
|
|
ImageIndex = 2
|
|
OnExecute = DataSetCRUD
|
|
end
|
|
object acSave: TAction
|
|
Tag = 4
|
|
Caption = #51200#51109
|
|
Enabled = False
|
|
ImageIndex = 3
|
|
OnExecute = DataSetCRUD
|
|
end
|
|
object acCancel: TAction
|
|
Tag = 5
|
|
Caption = #52712#49548
|
|
ImageIndex = 4
|
|
OnExecute = DataSetCRUD
|
|
end
|
|
end
|
|
object scTheme: TdxSkinController
|
|
NativeStyle = False
|
|
SkinName = 'WXI'
|
|
SkinPaletteName = 'Clearness'
|
|
Left = 72
|
|
Top = 8
|
|
end
|
|
object dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList
|
|
Left = 176
|
|
Top = 8
|
|
object dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
|
|
PixelsPerInch = 96
|
|
end
|
|
end
|
|
end
|