ершки можна раціонально використовувати при виробленні сиру.
Малюнок 3.8
На малюнку 3.9 показана форма з наведеним списком руху молочної продукції на сьогоднішній день. Ви можете переглянути список тільки тих товарів, які знаходяться на складі, натиснувши на кнопку Тільки на продаж raquo ;, а натиснувши на кнопку Все знову відобразяться всі дані таблиці. Результат цих дій показаний на малюнку 3.10.
Процедура дозволяє визначити первинні значення полів введення.
procedure TForm4.FormActivate (Sender: TObject) ;, x: Integer;:=0; I:=1 to 9 do/Iterate (findcomponent ( edit + inttostr (i))).Text:=form1.M1.Lines [i + x];
inc (x) ;;;
Малюнок 3.9
Малюнок 3.10
Натиснувши на кнопку Відпустити товар у користувача з'являється можливість відпустити або частина товару або ж все кількість малюнок 3.11. При цьому треба не забувати про термін придатності товару і вчасно його видаляти.
Процедура збереження оперативних даних у файл.
procedure TForm4.Button1Click (Sender: TObject) ;, x: Integer;:=0; I:=1 to 9 do//Iterate.M1.Lines [i + x]:=tedit ( findcomponent ( edit + inttostr (i))). Text; (x) ;;// For.M1.Lines.SaveToFile (GetCurrentDir + data dan.ini );
close ;;
Малюнок 3.11
Натиснувши на кнопку Статистика користувач може переглянути звіт про продані товари по днях для подальшої оцінки малюнок 3.12.
Малюнок 3.12
Процедура визначення основних елементів для подальшого підрахунку.
procedure TForm1.DBEdit1Change (Sender: TObject); p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13: real ;: Integer;: integer;:=0 ; (d2.TzDbf1.State=dsedit) or (d2.TzDbf1.State=dsinsert) thend2.TzDbf1.State=dsinsert then x:=s1.ColCountI:=0 to s1.ColCount - 1 do if s1.Cells [i , 0]=datetostr (d2.TzDbf1 [ data ]) then x:=i;;:=d2.TzDbf1[laquo;p1raquo;];:=d2.TzDbf1[laquo;p2raquo;];:=d2.TzDbf1[laquo;p3raquo;];:=d2.TzDbf1[laquo;p4raquo;];:=d2.TzDbf1[laquo;p5raquo;];:=d2.TzDbf1[laquo;p6raquo;];:=d2.TzDbf1[laquo;p7raquo;];:=p3*p7;:=(p3+p4)*p7;:=p6-p9;:=p10+p8;.TzDbf1[laquo;p8raquo;]:= p8; .TzDbf1 [ p9 ]:=p9; .TzDbf1 [ p10 ]:=p10; .TzDbf1 [ p11 ]:=p11; d2.TzDbf1 [ loc ]=false thenx =0 then p12:=p6-p7; x lt; gt; 0 then p12:=strtofloat (s1.Cells [x - 1,12]) - p7; x=0 then p12:=p6-p7 else p12:=strtofloat (s1.Cells [x - 1,12]) - p7 + p9 ;;. TzDbf1 [ p12 ]:=p12 ;;:=inttostr (x); end;
Процедура заповнення проміжних даних для більш швидкого і оперативного розгляду при приблизних розрахунках. Оперативність досягається за рахунок того, що програма постійно не здійснює запит до бази даних, а до оперативної пам'яті.
procedure TForm1.BitBtn1Click (Sender: TObject) ;: Integer; .ColCount:=d2.TzDbf1.RecordCount; .TzDbf1.First; I:=0 to d2.TzDbf1.RecordCount - 1 do//Iterate.Cells[i,0]:=datetostr(d2.TzDbf1[laquo;dataraquo;]);.Cells[i,1]:=floattostr(d2.TzDbf1[laquo;p1raquo;]);.Cells[i,2]:=floattostr(d2.TzDbf1[laquo;p2raquo;]);.Cells[i,3]:=floattostr(d2.TzDbf1[laquo;p3raquo;]);.Cells[i,4]:=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.Button7Click (Sender: TObject) ;, x: Integer;, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13: real; .TzDbf1.First; I:=0 to d2.TzDbf1.RecordCount - 1 do//Iterate.TzDbf1.Edit;:=d2.TzDbf1[laquo;p1raquo;];:=d2.TzDbf1[laquo;p2raquo;];:=d2.TzDbf1[laquo;p3raquo;];:=d2.TzDbf1[laquo;p4raquo;];:=d2.TzDbf1[laquo;p5raquo;];:=d2.TzDbf1[laquo;p6raquo;];:=d2.TzDbf1[laquo;p7raquo;];:=p3*p7;:=(p3+p4)*p7;:=p6-p9;:=p10+p8;.TzDbf1[laquo;p8raquo;]:= p8; .TzDbf1 [ p9 ]:=p9; .TzDbf1 [ p10 ]:=p10; .TzDbf1 [ p11 ]:=p11; d2.TzDbf1 [ loc ]=false theni =0 then p12:=p6-p7; i gt; 0 then p12:=strtofloat (s1.Cells [i - 1,12]) - p7; x=0 then p12:=p6-p7; i gt; 0 then p12: =strtofloat (s1.Cells [i - 1,12]) - p7 + p9 ;;. TzDbf1 [ p12 ]:=p12;.TzDbf1.Post;.Cells[i,0]:=datetostr(d2.TzDbf1[laquo;dataraquo;]);.Cells[i,1]:=floattostr(d2.TzDbf1[laquo;p1raquo;]);.Cells[i,2]:=floattostr(d2.TzDbf1[laquo;p2raquo;]);.Cells[i,3]:=floattostr(d2.TzDbf1[laquo;p3raquo;]);.Cells[i,4]...
