Проектирование информационной системы "Начисление заработной платы сотрудникам школы" (стр. 9 из 9)

edit29.Text:=excelapplication1.Cells.Item[15,12];

edit30.Text:=excelapplication1.Cells.Item[16,12];

edit31.Text:=excelapplication1.Cells.Item[17,12];

edit32.Text:=excelapplication1.Cells.Item[18,12];

edit33.Text:=excelapplication1.Cells.Item[19,12];

edit34.Text:=excelapplication1.Cells.Item[20,12];

edit35.Text:=excelapplication1.Cells.Item[21,12];

edit36.Text:=excelapplication1.Cells.Item[22,12];

edit37.Text:=excelapplication1.Cells.Item[23,12];

edit38.Text:=excelapplication1.Cells.Item[24,12];

Edit1.Text:=excelapplication1.Cells.Item[13,13];

edit2.Text:=excelapplication1.Cells.Item[14,13];

edit3.Text:=excelapplication1.Cells.Item[15,13];

edit4.Text:=excelapplication1.Cells.Item[16,13];

edit5.Text:=excelapplication1.Cells.Item[17,13];

edit6.Text:=excelapplication1.Cells.Item[18,13];

edit7.Text:=excelapplication1.Cells.Item[19,13];

edit8.Text:=excelapplication1.Cells.Item[20,13];

edit9.Text:=excelapplication1.Cells.Item[21,13];

edit10.Text:=excelapplication1.Cells.Item[22,13];

edit11.Text:=excelapplication1.Cells.Item[23,13];

edit12.Text:=excelapplication1.Cells.Item[24,13];

Edit13.Text:=excelapplication1.Cells.Item[13,11];

edit14.Text:=excelapplication1.Cells.Item[14,11];

edit15.Text:=excelapplication1.Cells.Item[15,11];

edit16.Text:=excelapplication1.Cells.Item[16,11];

edit17.Text:=excelapplication1.Cells.Item[17,11];

edit18.Text:=excelapplication1.Cells.Item[18,11];

edit19.Text:=excelapplication1.Cells.Item[19,11];

edit20.Text:=excelapplication1.Cells.Item[20,11];

edit21.Text:=excelapplication1.Cells.Item[21,11];

edit22.Text:=excelapplication1.Cells.Item[22,11];

edit23.Text:=excelapplication1.Cells.Item[23,11];

edit24.Text:=excelapplication1.Cells.Item[24,11];

end;

procedure Tfrm_ipn.N3Click(Sender: TObject);

var n:OleVariant;

begin

n:='C:\ЗарПлата\nal.xls';

excelapplication1.Workbooks.Open(n,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,0);

ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);

ExcelApplication1.Cells.Item[13,11].value:=DBedit2.Text;

ExcelWorkbook1.Save;

edit39.Text:=excelapplication1.Cells.Item[13,10];

edit40.Text:=excelapplication1.Cells.Item[14,10];

edit41.Text:=excelapplication1.Cells.Item[15,10];

edit42.Text:=excelapplication1.Cells.Item[16,10];

edit43.Text:=excelapplication1.Cells.Item[17,10];

edit44.Text:=excelapplication1.Cells.Item[18,10];

edit45.Text:=excelapplication1.Cells.Item[19,10];

edit46.Text:=excelapplication1.Cells.Item[20,10];

edit47.Text:=excelapplication1.Cells.Item[21,10];

edit48.Text:=excelapplication1.Cells.Item[22,10];

edit49.Text:=excelapplication1.Cells.Item[23,10];

edit50.Text:=excelapplication1.Cells.Item[24,10];

edit52.Text:=excelapplication1.Cells.Item[25,10];

edit27.Text:=excelapplication1.Cells.Item[13,12];

edit28.Text:=excelapplication1.Cells.Item[14,12];