frmWorkers.Close;
end;
end.
// формирование табеля учета рабочего времени
unit Categories;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDropDownEdit, cxCurrencyEdit;
type
TfrmCategories = class(TForm)
vgCategories: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgCategoriesCategoryName: TcxDBEditorRow;
vgCategoriesBonus: TcxDBEditorRow;
procedure FormShow(Sender: TObject);
procedure btnNoClick(Sender: TObject);
procedure btnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCategories: TfrmCategories;
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmCategories.FormShow(Sender: TObject);
begin
if frmCategories.Tag=1 then
begin
procedure TfrmCategories.btnNoClick(Sender: TObject);
begin
DataInfo.qListCategories.Cancel;
frmCategories.Close;
end;
procedure TfrmCategories.btnYesClick(Sender: TObject);
begin
if DataInfo.qListCategories.FieldByName('CategoryName').isNull then
begin
if DataInfo.qListCategories.FieldByName('Bonus').isNull then
begin
DataInfo.qListCategories.Post;
frmCategories.Close;
end;
end.
