From f210684f924f0b34f237f674212b3b13e4555dd3 Mon Sep 17 00:00:00 2001 From: "pagewiz@naver.com" Date: Wed, 4 Dec 2024 13:44:14 +0900 Subject: [PATCH] =?UTF-8?q?=EA=B7=BC=EB=AC=B4=ED=98=95=ED=83=9C=20?= =?UTF-8?q?=EC=88=98=EB=8F=99=EA=B3=BC=20=EC=9E=90=EB=8F=99=20=EC=98=88?= =?UTF-8?q?=EC=A0=9C=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- source/MainUnit.dfm | 109 +++++++++++++++++++++++++++++++------------- source/MainUnit.pas | 5 +- 2 files changed, 82 insertions(+), 32 deletions(-) diff --git a/source/MainUnit.dfm b/source/MainUnit.dfm index 1a85244..e2e150e 100644 --- a/source/MainUnit.dfm +++ b/source/MainUnit.dfm @@ -63,10 +63,10 @@ object frmMain: TfrmMain end object grdEmployee: TcxGrid Left = 12 - Top = 249 + Top = 286 Width = 792 - Height = 404 - TabOrder = 11 + Height = 367 + TabOrder = 12 object dbtvEmployee: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -118,7 +118,10 @@ object frmMain: TfrmMain 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 @@ -140,37 +143,25 @@ object frmMain: TfrmMain Style.TransparentBorder = False TabOrder = 5 Height = 27 - Width = 350 + Width = 379 end object dbseAge: TcxDBSpinEdit - Left = 441 - Top = 93 + Left = 55 + Top = 127 AutoSize = False DataBinding.DataField = 'age' DataBinding.DataSource = dmData.dsEmployee Style.HotTrack = False Style.TransparentBorder = False TabOrder = 6 - Height = 27 - Width = 349 - end - object dbtePosition: TcxDBTextEdit - Left = 55 - Top = 127 - AutoSize = False - DataBinding.DataField = 'position' - DataBinding.DataSource = dmData.dsEmployee - Style.HotTrack = False - Style.TransparentBorder = False - TabOrder = 7 Height = 30 Width = 379 end - object dbseSalary: TcxDBSpinEdit + object dbtePosition: TcxDBTextEdit Left = 55 Top = 164 AutoSize = False - DataBinding.DataField = 'salary' + DataBinding.DataField = 'position' DataBinding.DataSource = dmData.dsEmployee Style.HotTrack = False Style.TransparentBorder = False @@ -178,26 +169,38 @@ object frmMain: TfrmMain Height = 30 Width = 379 end - object dbteAddress: TcxDBTextEdit + 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 = 10 + TabOrder = 11 Width = 735 end - object cxRadioGroup1: TcxRadioGroup + object rgWorkType: TcxRadioGroup Left = 441 - Top = 127 - Caption = #44540#47924#54805#53468 + Top = 164 + Caption = #44540#47924#54805#53468' ('#49688#46041')' ParentBackground = False ParentColor = False Properties.Items = <> Style.Color = 16053492 Style.TransparentBorder = False - TabOrder = 9 + TabOrder = 10 Height = 67 Width = 349 object rbWorkType1: TcxRadioButton @@ -228,6 +231,34 @@ object frmMain: TfrmMain 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 @@ -248,7 +279,6 @@ object frmMain: TfrmMain object lgInput: TdxLayoutGroup Parent = lgRoot CaptionOptions.Text = #52628#44032' / '#54200#51665 - ItemIndex = 1 Index = 1 end object lgGrid: TdxLayoutGroup @@ -328,7 +358,7 @@ object frmMain: TfrmMain Index = 0 end object dxLayoutItem2: TdxLayoutItem - Parent = dxLayoutAutoCreatedGroup1 + Parent = dxLayoutAutoCreatedGroup4 AlignHorz = ahClient CaptionOptions.Text = #51060#47492 Control = dbteName @@ -338,8 +368,8 @@ object frmMain: TfrmMain Index = 0 end object dxLayoutItem3: TdxLayoutItem - Parent = dxLayoutAutoCreatedGroup1 - AlignHorz = ahClient + Parent = dxLayoutAutoCreatedGroup4 + AlignVert = avClient CaptionOptions.Text = #45208#51060 Control = dbseAge ControlOptions.OriginalHeight = 27 @@ -388,7 +418,7 @@ object frmMain: TfrmMain AlignHorz = ahRight CaptionOptions.Text = 'cxRadioGroup1' CaptionOptions.Visible = False - Control = cxRadioGroup1 + Control = rgWorkType ControlOptions.AutoColor = True ControlOptions.OriginalHeight = 67 ControlOptions.OriginalWidth = 349 @@ -405,6 +435,23 @@ object frmMain: TfrmMain 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 diff --git a/source/MainUnit.pas b/source/MainUnit.pas index e2586c1..b7da32e 100644 --- a/source/MainUnit.pas +++ b/source/MainUnit.pas @@ -68,13 +68,16 @@ type dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel; sbMain: TdxStatusBar; dbtvEmployeeColumn1: TcxGridDBColumn; - cxRadioGroup1: TcxRadioGroup; + rgWorkType: TcxRadioGroup; dxLayoutItem1: TdxLayoutItem; rbWorkType1: TcxRadioButton; rbWorkType2: TcxRadioButton; rbWorkType3: TcxRadioButton; dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup; dxLayoutAutoCreatedGroup3: TdxLayoutAutoCreatedGroup; + dbrgWorkType: TcxDBRadioGroup; + dxLayoutItem7: TdxLayoutItem; + dxLayoutAutoCreatedGroup4: TdxLayoutAutoCreatedGroup; procedure DataSetCRUD(Sender: TObject); procedure FormCreate(Sender: TObject); procedure dbtvEmployeeCellClick(Sender: TcxCustomGridTableView;