k:=k+1;
end;
n:=n+1;
until n>=200;
autorachet(sender);
memo1.Lines.Insert(0,DateTimeToStr(Now)+' - База '+filenamezap+ ' открыта');
//процедура удаления записи
procedure TForm1.Button3Click(Sender: TObject);
var n,k:longint;
begin
sg1.Rows[sg1.Row].Clear;
n:=0;
repeat
Mzap[n].prod:='';
Mzap[n].onng:=0;
Mzap[n].plan:=0;
Mzap[n].onkg:=0;
Mzap[n].svocep:=0;
n:=1;
if sg1.Cells[0,n]<>'' then begin
Mzap[n].prod:=sg1.Cells[0,n];
Mzap[n].onng:=strtoint(sg1.cells[1,n]);
Mzap[n].plan:=strtoint(sg1.cells[2,n]);
Mzap[n].onkg:=strtoint(sg1.cells[3,n]);
Mzap[n].svocep:=strtofloat(sg1.cells[5,n]);
until n>=sg1.RowCount;
cleansg(sender);
n:=0;k:=1;
if Mzap[n].prod<>'' then begin
sg1.Cells[0,k]:=Mzap[n].prod;
sg1.Cells[1,k]:=inttostr(Mzap[n].onng);
sg1.Cells[2,k]:=inttostr(Mzap[n].plan);
sg1.Cells[3,k]:=inttostr(Mzap[n].onkg);
sg1.Cells[5,k]:=floattostr(Mzap[n].svocep);
cleanedit(Sender); //вызов очистки эдитов
procedure TForm1.sg1Click(Sender: TObject);
edit1.Text:=sg1.Cells[0,sg1.Row];
edit2.Text:=sg1.Cells[1,sg1.Row];
edit3.Text:=sg1.Cells[2,sg1.Row];
edit4.Text:=sg1.Cells[3,sg1.Row];
edit5.Text:=sg1.Cells[5,sg1.Row];
memo1.Lines.Insert(0,DateTimeToStr(Now)+' - Запись № '+inttostr(sg1.Row)+ ' выбрана');
procedure TForm1.N8Click(Sender: TObject);
ShellExecute(form1.Handle, nil,PChar('mailto:ultrix@tut.by?Subject=EcoInfo'),'','', 0);
procedure TForm1.N5Click(Sender: TObject);
halt;
end.
8. Результаты проведенных расчетов и их анализ.
В данной курсовой работе нам необходимо было рассчитать объем реализации и стоимость в оптовых ценах всего объема реализации продукции за плановый период. Для расчетов нам были даны исходные данные о выручке от реализации продукции за плановый период (Табл. 1).
Таблица1. Сведения о выручке от реализации продукции за плановый период.
Наименование продукции
Остатки на начало года
План выпуска
Остатки на конец года
Объем реализации, шт.
Стоимость в оптовых ценах единицы продукции, руб.
Стоимость в оптовых ценах всего объема реализации, тыс. руб.
1
2
3
4
5
6
7
Яблоко
711
40000
500
200000
Апельсин
236
80000
100
500150
Ананас
348
60000
200
400000
Мандарин
117
90000
50
550000
Грейпфрут
284
50000
150
450000
Банан
173
70000
300
350000
Абрикос
513
95000
450
300000
Персик
286
65000
600
250000
Виноград
482
85000
600000
Груша
136
650000
Расчеты производились следующим образом:
· Рассчитаем объем реализации продукции за плановый период. Объем реализации, в нашем, случае равен сумме остатков на начало года с планом выпуска за вычетом остатков на конец года по каждому виду реализованной продукции (Табл. 2).
Таблица2. Сведения о выручке от реализации продукции за плановый период.
40211
80136
60148
90067
50134
69873
95063
64686
85182
39986
Страницы: 1, 2, 3, 4, 5, 6, 7