pagewiz@naver.com
122 lines
3.3 KiB
ObjectPascal
122 lines
3.3 KiB
ObjectPascal
unit MainUnit;
|
|
|
|
interface
|
|
|
|
uses
|
|
{ Delphi }
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
|
|
|
|
{ DevExpress }
|
|
cxGraphics, dxUIAClasses, cxControls, dxCore, dxLayoutLookAndFeels,
|
|
dxSkinsForm, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinWXI,
|
|
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, System.Actions, Vcl.ActnList,
|
|
dxLayoutcxEditAdapters, cxContainer, cxCheckBox, cxDBEdit, cxMaskEdit,
|
|
cxSpinEdit, cxTextEdit, cxCurrencyEdit;
|
|
|
|
type
|
|
TfrmMain = class(TForm)
|
|
lgRoot: TdxLayoutGroup;
|
|
lcMain: TdxLayoutControl;
|
|
lgToolbar: TdxLayoutGroup;
|
|
lgInput: TdxLayoutGroup;
|
|
lgGrid: TdxLayoutGroup;
|
|
btnAdd: TcxButton;
|
|
liAdd: TdxLayoutItem;
|
|
btnSave: TcxButton;
|
|
liSave: TdxLayoutItem;
|
|
btnDelete: TcxButton;
|
|
liDelete: TdxLayoutItem;
|
|
btnCancel: TcxButton;
|
|
liCancel: TdxLayoutItem;
|
|
dbtvEmployee: TcxGridDBTableView;
|
|
grdEmployeeLevel1: TcxGridLevel;
|
|
grdEmployee: TcxGrid;
|
|
liGrid: TdxLayoutItem;
|
|
btnEdit: TcxButton;
|
|
liEdit: TdxLayoutItem;
|
|
alToolbar: TActionList;
|
|
acAdd: TAction;
|
|
acEdit: TAction;
|
|
acSave: TAction;
|
|
acDelete: TAction;
|
|
acCancel: TAction;
|
|
dbtvEmployeeRecId: TcxGridDBColumn;
|
|
dbtvEmployeename: TcxGridDBColumn;
|
|
dbtvEmployeeage: TcxGridDBColumn;
|
|
dbtvEmployeesalary: TcxGridDBColumn;
|
|
dbtvEmployeesex: TcxGridDBColumn;
|
|
dbtvEmployeeposition: TcxGridDBColumn;
|
|
dbtvEmployeeaddress: TcxGridDBColumn;
|
|
dbteName: TcxDBTextEdit;
|
|
liName: TdxLayoutItem;
|
|
dbseAge: TcxDBSpinEdit;
|
|
liAge: TdxLayoutItem;
|
|
dbseSalary: TcxDBSpinEdit;
|
|
liSalary: TdxLayoutItem;
|
|
cxDBCheckBox1: TcxDBCheckBox;
|
|
liSex: TdxLayoutItem;
|
|
dbtePosition: TcxDBTextEdit;
|
|
liPosition: TdxLayoutItem;
|
|
dbteAdress: TcxDBTextEdit;
|
|
liAddress: TdxLayoutItem;
|
|
dxLayoutGroup1: TdxLayoutGroup;
|
|
dxLayoutGroup2: TdxLayoutGroup;
|
|
dxLayoutGroup3: TdxLayoutGroup;
|
|
scMain: TdxSkinController;
|
|
dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList;
|
|
dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel;
|
|
grdEmployeeDBTableView1: TcxGridDBTableView;
|
|
procedure acAddExecute(Sender: TObject);
|
|
procedure acEditExecute(Sender: TObject);
|
|
procedure acSaveExecute(Sender: TObject);
|
|
procedure acDeleteExecute(Sender: TObject);
|
|
procedure acCancelExecute(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmMain: TfrmMain;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
EmployeeUnit;
|
|
|
|
procedure TfrmMain.acAddExecute(Sender: TObject);
|
|
begin
|
|
dmData.mdEmployee.Append;
|
|
dbteName.SetFocus;
|
|
end;
|
|
|
|
procedure TfrmMain.acCancelExecute(Sender: TObject);
|
|
begin
|
|
dmData.mdEmployee.Cancel;
|
|
end;
|
|
|
|
procedure TfrmMain.acDeleteExecute(Sender: TObject);
|
|
begin
|
|
dmData.mdEmployee.Delete;
|
|
end;
|
|
|
|
procedure TfrmMain.acEditExecute(Sender: TObject);
|
|
begin
|
|
dmData.mdEmployee.Edit;
|
|
end;
|
|
|
|
procedure TfrmMain.acSaveExecute(Sender: TObject);
|
|
begin
|
|
dmData.mdEmployee.Post;
|
|
end;
|
|
|
|
end.
|