52 lines
1.5 KiB
ObjectPascal
52 lines
1.5 KiB
ObjectPascal
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,
|
|
dxSkinDarkroom, dxSkinOffice2016Dark, dxSkinOffice2019Black,
|
|
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinVisualStudio2013Dark,
|
|
cxClasses, dxLayoutContainer, dxLayoutControl, dxLayoutControlAdapters,
|
|
Vcl.Menus, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit,
|
|
cxNavigator, dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData,
|
|
cxGridLevel, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
|
|
cxGridDBTableView, cxGrid, Vcl.StdCtrls, cxButtons;
|
|
|
|
type
|
|
TfrmMain = class(TForm)
|
|
lgRoot: TdxLayoutGroup;
|
|
lcMain: TdxLayoutControl;
|
|
lgToolbar: TdxLayoutGroup;
|
|
dxLayoutGroup2: TdxLayoutGroup;
|
|
lgGrid: TdxLayoutGroup;
|
|
btnAdd: TcxButton;
|
|
liAdd: TdxLayoutItem;
|
|
btnSave: TcxButton;
|
|
liCancel: TdxLayoutItem;
|
|
btnDelete: TcxButton;
|
|
liDelete: TdxLayoutItem;
|
|
btnCancel: TcxButton;
|
|
liSave: TdxLayoutItem;
|
|
cxButton5: TcxButton;
|
|
dxLayoutItem5: TdxLayoutItem;
|
|
dbtvEmployee: TcxGridDBTableView;
|
|
grdEmployeeLevel1: TcxGridLevel;
|
|
grdEmployee: TcxGrid;
|
|
liGrid: TdxLayoutItem;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmMain: TfrmMain;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|