er: TObject); (edit22.Text, x, z5); (z5 = 0) (dblookupcombobox15.Text <> ' ') and ADOStoredProc33.Parameters.ParamValues ​​['@ RETURN_VALUE']; x of
: begin.Visible: = true;. Visible: = true;. Visible: = true;
: showmessage ('Немає товару в наявності');;
end
else showmessage ('Введіть найменування товару/кількість')
end; TForm1.Edit22Exit (Sender: TObject); (edit22.Text, x, z5); (z5 = 0) (dblookupcombobox15.Text <>'') and ADOStoredProc33.Parameters.ParamValues ​​['@ RETURN_VALUE']; x of
: begin.Visible: = true;. Visible: = true;. Visible: = true;
: showmessage ('Немає товару в наявності');;
end
else showmessage ('Введіть найменування товару/кількість')
end; TForm1.Edit22Change (Sender: TObject); (edit22.Text, x, z5); (z5 = 0) (dblookupcombobox15.Text <>'') and ADOStoredProc33.Parameters.ParamValues ​​['@ RETURN_VALUE']; x of
: begin.Visible: = true;
// label25.Visible: = true;. Visible: = true;
// label27.Visible: = true;. Visible: = true;
: showmessage ('Немає товару в наявності');;
end
else showmessage ('Введіть найменування товару/кількість')
end; TForm1.hggfh1Click (Sender: TObject);. Form6.Visible: = true;; TForm1.Button71Click (Sender: TObject); Adotable2.locate ('nazvanie_firmi', edit12.Text, [ ]) begin showmessage ('Фірма' + edit12.Text + 'є покупцем') showmessage ('Фірма' + edit12.Text + 'не є покупцем');
label88.Visible: = false;. Visible: = false;. Visible: = false;; TForm1.Button72Click (Sender: TObject);. Visible: = true;. Visible: = true;. Visible: = true;; TForm1.Button73Click (Sender: TObject); Adotable3.locate ('nazvanie_firmi', edit18.Text, []) begin showmessage ('Фірма' + edit18.Text + 'є постачальником') showmessage ('Фірма' + edit18.Text + 'не є TObject);. Visible: = true;. Visible: = true;. Visible: = true;; TForm1.Button75Click (Sender: TObject); Adotable4.locate ('FIO', edit19.Text, []) begin showmessage (edit19 . Text + 'є продавцем') showmessage (edit19.Text + 'не є продавцем');. Visible: = false;. Visible: = false;. Visible: = false;; TForm1.Button76Click (Sender: TObject);. Visible: = true;. Visible: = true;. Visible: = true;; TForm1.Button77Click (Sender: TObject); Adotable5.locate ('Naimenovanie_tovara', edit20.Text, []) begin showmessage (edit20.Text + 'присутній в каталозі ') showmessage (edit20.Text +' не присутній в каталозі ');. Vis...
