="justify"> {$ R *. dfm} TForm9. Button1Click (Sender: TObject) ;. Text:= 1 raquo ;;. Close ;; TForm9. Button2Click (Sender: TObject) ;: Integer ;: String ;. ADOQuery2. SQL. Clear ;. ADOQuery2. SQL. Add ( SELECT * FROM Деталізація ) ;. ADOQuery2. Open ;. ADOQuery2. Insert ;. ADOQuery2. FieldValues ??[ Журнал ]:=StrToInt (Form8. Label5. Caption) ;. ADOQuery2. FieldValues ??[ Товар ]:=Form8. ADOQuery1. FieldValues ??[ Код_товара ] ;. ADOQuery2. FieldValues ??[ Кількість ]:=StrToInt (Edit1. Text) ;. ADOQuery2. UpdateRecord ;. ADOQuery2. Last ;. ADOQuery2. First ;. ADOQuery2. SQL. Clear ;:= SELECT Деталізація. Код_деталізаціі, Деталізація. Журнал, Товари. Найменування, raquo ;;:=st + Деталізація. Кількість FROM Деталізація, Товари WHERE raquo ;;:=st + (Журнал= + Form8. Label5. Caption + ) AND (Деталізація. Товар=Товари. Код_товара) raquo ;;. ADOQuery2. SQL. Add (st) ;. ADOQuery2. Open ;. DBGrid1. Columns [0]. Width:=0 ;:=StrToInt (Edit1. Text) * Form8. ADOQuery1. FieldValues ??[ Ціна ] ;. Label4. Caption:=IntToStr (StrToInt (Form8. Label4. Caption) + sum); Click (Sender) ;;.
