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

begin

WS.Rows[y].Copy;

WS.Rows[y].Insert(1);

//WS.Range['A'+IntToStr(y),CHR(64 + 4 )+ IntToStr(y)].Insert(1);

end;

procedure TlipExcel.Excel_Set(x,y:integer;Val:variant);

begin

WS.Cells[y, x].Value:=val;

end;

procedure TlipExcel.Excel_Color(x,y:integer;color:integer);

begin

WS.Cells[y, x].Interior.ColorIndex:=color;

end;

procedure TlipExcel.Excel_Link(x,Adres:variant);

begin

ws.Hyperlinks.Add(ws.Range[x, EmptyParam],Adres,EmptyParam)

end;

function TlipExcel.Excel_Get(x,y:integer):variant;

begin

Result:=WS.Cells[y, x].Value;

end;

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

begin

xl.DisplayAlerts := False;

try

if filename<>'' then wb.saveas(Filename,Fileformat);

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

finally

WB.Close;