Курсовая работа: Информационная система для автоматизации операций в отношениях между поставщиком и заказчиком

then s:=s+StrToInt(tabl.cells[c,r])

else tabl.cells[c,r]:='0';

p:=7*StrToInt(tabl.cells[1,r])+

6*StrToInt(tabl.cells[2,r])+

5*StrToInt(tabl.cells[3,r]);

tabl.cells[4,r]:=IntToStr(s); // âñåãî ìåäàëåé

tabl.cells[5,r]:=IntToStr(p); // î÷êîâ

end;

for r:=1 to tabl.rowcount-1 do

begin

m:=r; // for i:=r to tabl.rowcount-1 do

if StrToInt(tabl.cells[5,i])>StrToInt(tabl.cells[5,m])

then m:=i;

if r <> m then

begin

for c:=0 to 5 do

begin

buf[c]:=tabl.Cells[c,r];

tabl.Cells[c,r]:=tabl.Cells[c,m];

tabl.Cells[c,m]:=buf[c];

end;

end;

end;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form4.showmodal;

end; end.

Завершающей формой будет четвертая форма (Form4), которая будет формировать ИС Автоматизация планирования накладной на продукцию (рис.24). Ознакомившись с продукцией производителя, заказчик сможет сделать заказ, для этого клиент, ориентируясь на таблицу Ассортимента, введет Наименование необходимой продукции и Количество. Данные заказа автоматически передадутся в текстовый документ более удобный для печати.