데이타셋 추가

2024-12-01 11:27:23 +09:00
parent 86881a4aa5
commit a4a5302493
8 changed files with 1507 additions and 0 deletions
@@ -0,0 +1,43 @@
+object dmData: TdmData
+  Height = 750
+  Width = 1000
+  PixelsPerInch = 120
+  object mdEmployee: TdxMemData
+    Indexes = <>
+    Persistent.Data = {
+      5665728FC2F5285C8FFE3F060000000A000000010005006E616D650004000000
+      0300040061676500040000000300070073616C61727900020000000500040073
+      6578000A00000001000900706F736974696F6E001E0000000100080061646472
+      657373000106000000B1E8B0FCBFB5013700000001400D030001010001040000
+      00B4EBC7A5010D000000BACEBBEABDC320B5BFB7A1B1B8}
+    SortOptions = []
+    Left = 112
+    Top = 104
+    object mdEmployeename: TStringField
+      FieldName = 'name'
+      Size = 10
+    end
+    object mdEmployeeage: TIntegerField
+      FieldName = 'age'
+    end
+    object mdEmployeesalary: TIntegerField
+      FieldName = 'salary'
+    end
+    object mdEmployeesex: TBooleanField
+      FieldName = 'sex'
+    end
+    object mdEmployeeposition: TStringField
+      FieldName = 'position'
+      Size = 10
+    end
+    object mdEmployeeaddress: TStringField
+      FieldName = 'address'
+      Size = 30
+    end
+  end
+  object dsEmplyee: TDataSource
+    DataSet = mdEmployee
+    Left = 264
+    Top = 128
+  end
+end
@@ -0,0 +1,33 @@
+unit EmployeeUnit;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, Data.DB, dxmdaset;
+
+type
+  TdmData = class(TDataModule)
+    mdEmployee: TdxMemData;
+    mdEmployeename: TStringField;
+    mdEmployeeage: TIntegerField;
+    mdEmployeesalary: TIntegerField;
+    mdEmployeesex: TBooleanField;
+    mdEmployeeaddress: TStringField;
+    mdEmployeeposition: TStringField;
+    dsEmplyee: TDataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  dmData: TdmData;
+
+implementation
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+end.
@@ -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
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions>
+    <Transaction>1899-12-30 00:00:00.000.930,=C:\Embarcadero\projects\Unit2.pas</Transaction>
+    <Transaction>2024-12-01 09:56:36.823,=C:\Embarcadero\projects\Unit2.pas</Transaction>
+    <Transaction>2024-12-01 10:41:23.976,C:\Embarcadero\projects\dataset_demo24.12.1\dataset_demo\soruse\form\MainUnit.dfm=C:\Embarcadero\projects\Unit2.dfm</Transaction>
+    <Transaction>2024-12-01 10:41:23.976,C:\Embarcadero\projects\dataset_demo24.12.1\dataset_demo\soruse\form\MainUnit.pas=C:\Embarcadero\projects\Unit2.pas</Transaction>
+    <Transaction>2024-12-01 10:42:12.465,C:\Embarcadero\projects\dataset_demo24.12.1\dataset_demo\soruse\form\데이타셋데모.dproj=C:\Embarcadero\projects\Project2.dproj</Transaction>
+    <Transaction>2024-12-01 10:49:41.811,C:\Embarcadero\projects\dataset_demo24.12.1\dataset_demo\soruse\데이타셋데모.dproj=C:\Embarcadero\projects\dataset_demo24.12.1\dataset_demo\soruse\form\데이타셋데모.dproj</Transaction>
+  </Transactions>
+</BorlandProject>
@@ -0,0 +1,61 @@
+[ExpressSkins]
+Default=0
+ShowNotifications=1
+Enabled=1
+dxSkinBasic=1
+dxSkinBlack=1
+dxSkinBlue=1
+dxSkinBlueprint=1
+dxSkinCaramel=1
+dxSkinCoffee=1
+dxSkinDarkroom=1
+dxSkinDarkSide=1
+dxSkinDevExpressDarkStyle=1
+dxSkinDevExpressStyle=1
+dxSkinFoggy=1
+dxSkinGlassOceans=1
+dxSkinHighContrast=1
+dxSkiniMaginary=1
+dxSkinLilian=1
+dxSkinLiquidSky=1
+dxSkinLondonLiquidSky=1
+dxSkinMcSkin=1
+dxSkinMetropolis=1
+dxSkinMetropolisDark=1
+dxSkinMoneyTwins=1
+dxSkinOffice2007Black=1
+dxSkinOffice2007Blue=1
+dxSkinOffice2007Green=1
+dxSkinOffice2007Pink=1
+dxSkinOffice2007Silver=1
+dxSkinOffice2010Black=1
+dxSkinOffice2010Blue=1
+dxSkinOffice2010Silver=1
+dxSkinOffice2013DarkGray=1
+dxSkinOffice2013LightGray=1
+dxSkinOffice2013White=1
+dxSkinOffice2016Colorful=1
+dxSkinOffice2016Dark=1
+dxSkinOffice2019Black=1
+dxSkinOffice2019Colorful=1
+dxSkinOffice2019DarkGray=1
+dxSkinOffice2019White=1
+dxSkinPumpkin=1
+dxSkinSeven=1
+dxSkinSevenClassic=1
+dxSkinSharp=1
+dxSkinSharpPlus=1
+dxSkinSilver=1
+dxSkinSpringtime=1
+dxSkinStardust=1
+dxSkinSummer2008=1
+dxSkinTheAsphaltWorld=1
+dxSkinTheBezier=1
+dxSkinValentine=1
+dxSkinVisualStudio2013Blue=1
+dxSkinVisualStudio2013Dark=1
+dxSkinVisualStudio2013Light=1
+dxSkinVS2010=1
+dxSkinWhiteprint=1
+dxSkinWXI=1
+dxSkinXmas2008Blue=1