pagewiz@naver.com
48 lines
1.3 KiB
ObjectPascal
48 lines
1.3 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, 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;
|
|
|
|
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;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmMain: TfrmMain;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|