:=floattostr(d2.TzDbf1[laquo;p4raquo;]);.Cells[i,5]:=floattostr(d2.TzDbf1[laquo;p5raquo;]);.Cells[i,6]:=floattostr(d2.TzDbf1[laquo;p6raquo;]);.Cells[i,7]:=floattostr(d2.TzDbf1[laquo;p7raquo;]);.Cells[i,8]:=floattostr(d2.TzDbf1[laquo;p8raquo;]);.Cells[i,9]:=floattostr(d2.TzDbf1[laquo;p9raquo;]);.Cells[i,10]:=floattostr(d2.TzDbf1[laquo;p10raquo;]);.Cells[i,11]:=floattostr(d2.TzDbf1[laquo;p11raquo;]);.Cells[i,12]:=floattostr(d2.TzDbf1[laquo;p12raquo;]);.TzDbf1.Next;;// For;
Процедура запускающая форму з первісними даними за замовчуванням.
procedure TForm1.sLabel2Click (Sender: TObject);
begin.showmodal;
Процедура виведення діаграми руху товарів на складі.
procedure TForm1.sLabel4Click (Sender: TObject);
begin.showmodal;
Процедура видалення записів, попередньо опитувати користувача про впевненість у їх видаленні.
procedure TForm1.sBitBtn1Click (Sender: TObject); MessageDlg ( Видаляємо? , mtConfirmation, [mbYes, mbNo], 0)=mrYes then.TzDbf1.Delete; .TzDbf1.Pack; .TzDbf1.Refresh; Click (Sender);
end ;;
Пересування курсору на запис назад.
procedure TForm1.sBitBtn3Click (Sender: TObject) ;. TzDbf1.Prior;
Пересування курсору на запис вперед.
procedure TForm1.sBitBtn2Click (Sender: TObject) ;. TzDbf1.Next;
Скасування останньої дії користувача.
TForm1.sBitBtn4Click (Sender: TObject) ;. TzDbf1.Cancel; Click (Sender);
end;
Процедура збереження і оновлення даних.
procedure TForm1.sBitBtn5Click (Sender: TObject) ;. TzDbf1.Post; Click (Sender);
end;
Процедура безпосереднього копіювання оперативних даних в базу даних.
збут молоко програмний оператор
procedure TForm1.sBitBtn6Click (Sender: TObject);
var x1,x2,x3,x:real;Click(Sender);.TzDbf1.Insert;.TzDbf1[laquo;p1raquo;]:=strtofloat(m1.Lines[1]);.TzDbf1[laquo;p2raquo;]:=strtofloat(m1.Lines[3]);.TzDbf1[laquo;p4raquo;]:=strtofloat(m1.Lines[5]);.TzDbf1[laquo;p5raquo;]:=strtofloat(m1.Lines[7]);.TzDbf1[laquo;p6raquo;]:=strtofloat(m1.Lines[9]);.TzDbf1[laquo;p7raquo;]:=strtofloat(m1.Lines[11]);:=strtofloat(m1.Lines[13]);:=strtofloat(m1.Lines[15]);:=strtofloat(m1.Lines[17]);:=round(sqrt((2*x3*d2.TzDbf1[laquo;p1raquo;])/(d2.TzDbf1[laquo;p7raquo;]*(x1+x2))));.TzDbf1[laquo;p3raquo;]:=x;;
Висновок сторінки допомоги.
TForm1.sLabel3Click (Sender: TObject);
begin.showmodal;
3.4 Теоретичні дослідження про?? оптимальний запасу
Переходимо до пункту Теоретичні дослідження raquo ;. При виборі даного елемента основного меню, запускається зовнішній модуль, що дозволяє провести такі необхідні розрахунки оптимального запасу з використанням формули Уїлсона малюнок 3.13.
Малюнок 3.13
Як видно з вищевказаного малюнка, користувач має можливість додавати, редагувати і видаляти дані. При додаванні нового запису більшість полів заповнюється автоматично виходячи зі значень за замовчуванням. На малюнку 3.14 показана форма, на якій користувач може змінити вихідні значення, використовувані для розрахунків за формулою Уїлсона.
Малюнок 3.14
Для наочності дослідження в програмі є можливість побудови діаграми руху запасів молока малюнок 3.15 і вивчення основ дослідження оптимального запасу малюнок 3.16.
Малюнок 3.15
Малюнок 3.16
Процедура розрахунку оптимального запасу кисломолочної продукції на складі підприємства.
procedure TForm2.sEdit6Change (Sender: TObject);,x2,x3,x4:integer;,y2,y3,y4,y5,y6,y7:real;.Text:=inttostr(100-(strtoint(sEdit2.Text)+strtoint(sEdit3.Text)+strtoint(sEdit4.Text)+strtoint(sEdit5.Text)+strtoint(sEdit6.Text)));.Text:=sedit2.Text;:=strtoint(sEdit1.Text);:=strtofloat(sEdit8.Text);:=strtofloat(sEdit9.Text);:=strtofloat(sEdit10.Text);:=strtofloat(sEdit11.Text);sRadioButton1.Checked=true then.Text:=laquo;0raquo;;pn2.Text:=laquo;0raquo;;.Text:=laquo;0raquo;;pn3.Text:=laquo;0raquo;;:=0.3*strtofloat(pn4.Text)+0.2*y3;:=0.1*strtofloat(pn4.Text)+y2*1.1+0.2*y3;.Text:=floattostr(y6+y7);.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit2.Text))/100));;sRadioButton2.Checked=true then.Text:=laquo;0raquo;;pn1.Text:=laquo;0raquo;;.Text:=laquo;0raquo;;pn3.Text:=laquo;0raquo;;:=0.2*strtofloat(pn4.Text)+0.2*y3;:=0.1*strtofloat(pn4.Text)+y2*1.1+0.2*y3;.Text:=floattostr(y6+y7);.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit2.Text))/100));;sRadioButton3.Checked=true then.Text:=laquo;0raquo;;pn2.Text:=laquo;0raquo;;.Text:=laquo;0raquo;;pn1.Text:=laquo;0raquo;;:=0.1*strtofloat(pn4.Text)+0.2*y3;:=0.1*strtofloat(pn4.Text)+y2*1.1+0.2*y3;.Text:=floattostr(y6+y7);.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit2.Text))/100));;.Text:=i...
