даних в БД');
end; TForm1.Button2Click (Sender: TObject);
'' val (edit11.Text, x, z2)
else z2: = 0; (z1 = 0) and (z2 = 0)
and (edit1.Text <>'') and (edit3.Text <>'') begin
// ADOStoredProc2. Parameters.ParamValues ​​['@ nom1']: = Edit45.Text;. Parameters.ParamValues ​​['@ nazv']: = Edit2.Text;. Parameters.ParamValues ​​['@ fio']: = Edit3.Text;. Parameters.ParamValues ​​['@ adr']: = Edit4.Text; edit11.Text <>''. Parameters.ParamValues ​​['@ tel']: = введення ');
else showmessage ('Запис вже існує');
// ADOTable2.Refresh;; TForm1.Button3Click (Sender: TObject); (adotable3.Locate ('Nomer_postavschika', edit5.Text, []) = false) then begin (edit5.Text, x, z1); edit14.Text <>'' val (edit14.Text, x, z2)
else z2: = 0; (z1 = 0) and (z2 = 0)
and (edit5.Text <>'') and (edit6.Text <>'') and (edit13.Text <>'') begin. Parameters.ParamValues ​​['@ nom']: = Edit5.Text;. Parameters.ParamValues ​​['@ nazv']: = Edit6.Text;. Parameters.ParamValues ​​['@ adr']: = Edit13.Text; edit14.Text <>'' then. Parameters.ParamValues ​​['@ tel']: = Edit14.Text;. ExecProc;. Close;. Open; showmessage ('Неправильний введення');
else showmessage ('Запис вже існує');
// ADOTable3.Refresh;; TForm1.Button4Click (Sender: TObject); (adotable4.Locate ('Lichniy_nomer', edit8.Text, []) = false) then begin
// val (edit7.Text, x, z1); (edit8.Text, x, z2) ;//(z1 = 0) and
(z2 = 0)
// and (edit7.Text <>'') (edit8.Text <>'') and (edit15.Text <>'') begin. Parameters.ParamValues ​​['@ nom']: = nomer;. Parameters.ParamValues ​​['@ lnom']: = Edit8.Text;. Parameters.ParamValues ​​['@ fio']: = Edit15.Text;. ExecProc;. Close;. Open; showmessage ('Неправильний введення');
else showmessage ('Запис вже існує');
// ADOTable4.Refresh;
// Edit8.Text: =
// ADOStoredProc4.Parameters.ParamValues ​​['@ RETURN_VALUE'];
end; TForm1.Button5Click (Sender: TObject); (adotable5.Locate ('artikul', edit9.Text, []) = false) then begin (edit9.Text, x, z1); (edit16.Text, x, z2); (edit7.Text, x, z4); edit38.Text ='' z3: = 0if (edit38.Text = '+') or (edit38.Text = '-')
then z3: = 0z3: = 1; (z1 = 0) and (z3 = 0) and (z2 = 0) and (z4 = 0)
...
