Курсовая работа: Система учёта бракованной продукции (MSAccess, Delphi, ER-Win)

if not Was then XL.Quit;

WS := null;

WB := null;

xl := null;

end;

end;

procedure TlipExcel.Excel_Save(Filename:string;Fileformat:integer);

begin

xl.DisplayAlerts := False;

try

wb.saveas(Filename,Fileformat);

wb.saveas(ExtractFilePath(Application.exename)+'reportsxls\'+savedate(form2.DateTimePicker1.Date)+'.xls', 1);

finally

xl.DisplayAlerts := True;

end;

end;

end.