데이타셋 추가

2024-12-01 11:27:23 +09:00
parent 86881a4aa5
commit a4a5302493
8 changed files with 1507 additions and 0 deletions
@@ -0,0 +1,173 @@
+object frmMain: TfrmMain
+  Left = 0
+  Top = 0
+  Caption = 'Mainform'
+  ClientHeight = 646
+  ClientWidth = 788
+  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 = 788
+    Height = 646
+    Align = alClient
+    TabOrder = 0
+    ExplicitLeft = 200
+    ExplicitTop = 128
+    ExplicitWidth = 300
+    ExplicitHeight = 250
+    object btnAdd: TcxButton
+      Left = 359
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'btnAdd'
+      TabOrder = 0
+    end
+    object btnSave: TcxButton
+      Left = 441
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'btnSave'
+      TabOrder = 1
+    end
+    object btnDelete: TcxButton
+      Left = 523
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'btnDelete'
+      TabOrder = 2
+    end
+    object btnCancel: TcxButton
+      Left = 605
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'btnCancel'
+      TabOrder = 3
+    end
+    object cxButton5: TcxButton
+      Left = 687
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'cxButton5'
+      TabOrder = 4
+    end
+    object grdEmployee: TcxGrid
+      Left = 26
+      Top = 152
+      Width = 736
+      Height = 449
+      TabOrder = 5
+      object grdEmployeeDBTableView1: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <>
+        DataController.Summary.SummaryGroups = <>
+        OptionsView.GroupByBox = False
+      end
+      object grdEmployeeLevel1: TcxGridLevel
+        GridView = grdEmployeeDBTableView1
+      end
+    end
+    object lgRoot: TdxLayoutGroup
+      AlignHorz = ahParentManaged
+      AlignVert = avParentManaged
+      Hidden = True
+      ItemIndex = 2
+      ShowBorder = False
+      Index = -1
+    end
+    object lgGrid: TdxLayoutGroup
+      Parent = lgRoot
+      CaptionOptions.Text = 'New Group'
+      LayoutDirection = ldHorizontal
+      Index = 0
+    end
+    object lgInput: TdxLayoutGroup
+      Parent = lgRoot
+      CaptionOptions.Text = 'New Group'
+      Index = 1
+    end
+    object lgToolbar: TdxLayoutGroup
+      Parent = lgRoot
+      CaptionOptions.Text = 'New Group'
+      Index = 2
+    end
+    object dxLayoutItem1: TdxLayoutItem
+      Parent = lgGrid
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton1'
+      CaptionOptions.Visible = False
+      Control = btnAdd
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 0
+    end
+    object dxLayoutItem2: TdxLayoutItem
+      Parent = lgGrid
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton2'
+      CaptionOptions.Visible = False
+      Control = btnSave
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 1
+    end
+    object dxLayoutItem3: TdxLayoutItem
+      Parent = lgGrid
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton3'
+      CaptionOptions.Visible = False
+      Control = btnDelete
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 2
+    end
+    object dxLayoutItem4: TdxLayoutItem
+      Parent = lgGrid
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton4'
+      CaptionOptions.Visible = False
+      Control = btnCancel
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 3
+    end
+    object dxLayoutItem5: TdxLayoutItem
+      Parent = lgGrid
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton5'
+      CaptionOptions.Visible = False
+      Control = cxButton5
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 4
+    end
+    object dxLayoutItem6: TdxLayoutItem
+      Parent = lgToolbar
+      CaptionOptions.Text = 'cxGrid1'
+      CaptionOptions.Visible = False
+      Control = grdEmployee
+      ControlOptions.OriginalHeight = 449
+      ControlOptions.OriginalWidth = 250
+      ControlOptions.ShowBorder = False
+      Index = 0
+    end
+  end
+end
@@ -0,0 +1,64 @@
+unit MainUnit;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, dxUIAClasses, cxControls,
+  cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBasic, dxSkinBlack,
+  dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom,
+  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
+  dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
+  dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
+  dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
+  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
+  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
+  dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
+  dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
+  dxSkinXmas2008Blue, dxLayoutControlAdapters, dxLayoutContainer, Vcl.Menus,
+  cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator,
+  dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData, cxGridLevel,
+  cxClasses, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, Vcl.StdCtrls, cxButtons, dxLayoutControl;
+
+type
+  TfrmMain = class(TForm)
+    lgRoot: TdxLayoutGroup;
+    lcMain: TdxLayoutControl;
+    lgGrid: TdxLayoutGroup;
+    lgInput: TdxLayoutGroup;
+    lgToolbar: TdxLayoutGroup;
+    btnAdd: TcxButton;
+    dxLayoutItem1: TdxLayoutItem;
+    btnSave: TcxButton;
+    dxLayoutItem2: TdxLayoutItem;
+    btnDelete: TcxButton;
+    dxLayoutItem3: TdxLayoutItem;
+    btnCancel: TcxButton;
+    dxLayoutItem4: TdxLayoutItem;
+    cxButton5: TcxButton;
+    dxLayoutItem5: TdxLayoutItem;
+    grdEmployeeDBTableView1: TcxGridDBTableView;
+    grdEmployeeLevel1: TcxGridLevel;
+    grdEmployee: TcxGrid;
+    dxLayoutItem6: TdxLayoutItem;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmMain: TfrmMain;
+
+implementation
+
+{$R *.dfm}
+
+end.
@@ -0,0 +1,5 @@
+[MainUnit.pas]
+SaveTime=2024-12-01 ¿ÀÀü 11:18:20
+FileCount=2
+File0=C:\Embarcadero\projects\dataset_demo24.12.1\dataset_demo\soruse\form\MainUnit.pas
+File1=C:\Embarcadero\projects\dataset_demo24.12.1\dataset_demo\soruse\form\MainUnit.dfm