Values ​​['@ art']: = dblookupcombobox8.KeyValue;. Parameters.ParamValues ​​['@ naim']: = dblookupcombobox8.Text;. Parameters.ParamValues ​​['@ mp']: = dblookupcombobox31.Text;. Parameters.ParamValues ​​['@ proc']: = dblookupcombobox32.Text;. Parameters.ParamValues ​​['@ kuler']: = dblookupcombobox33.Text;. Parameters.ParamValues ​​['@ vid']: = dblookupcombobox34.Text;. Parameters.ParamValues ​​['@ op']: = dblookupcombobox35.Text;. Parameters.ParamValues ​​['@ vin']: = dblookupcombobox36.Text;. Parameters.ParamValues ​​['@ klav']: = dblookupcombobox37.Text;. Parameters.ParamValues ​​['@ manip']: = dblookupcombobox38.Text;. Parameters.ParamValues ​​['@ DC']: = dblookupcombobox39.Text;. Parameters.ParamValues ​​['@ kor']: = dblookupcombobox40.Text;. Parameters.ParamValues ​​['@ floopy']: = dblookupcombobox41.Text;. ExecProc;. Close;. Open;
// else showmessage ('Неправильний введення');
else showmessage ('У вас немає прав для зміни даних в БД');
end; TForm1.Button20Click (Sender: TObject); parol then begin
// val (edit1.Text, x, z1); edit11.Text <>'' val (edit11.Text, x, z2)
else z2: = 0 ;//(z1 = 0) and
(z2 = 0)
// and Parameters.ParamValues ​​['@ nazv']: = dblookupcombobox4.Text;. Parameters.ParamValues ​​['@ fio']: = Edit3.Text;. Parameters.ParamValues ​​['@ adr']: = Edit4.Text; edit11.Text <>''. Parameters.ParamValues ​​['@ tel']: = Edit11.Text;
else showmessage ('У вас немає прав для зміни даних в БД');
end; TForm1.Button21Click (Sender: TObject); parol then begin
// val (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 <>'') (edit13.Text <>'') begin. Parameters.ParamValues ​​['@ nom']: = dblookupcombobox6.KeyValue;;. Parameters.ParamValues ​​['@ nazv']: = dblookupcombobox6.Text;. Parameters.ParamValues ​​['@ adr']: = Edit13.Text; edit14.Text <>''. Parameters.ParamValues ​​['@ tel']: = Edit14.Text;. ExecProc;. Close;. Open; showmessage ('Неправильний введення');
else showmessage ('У вас немає прав для зміни даних в БД');
end; TForm1.Button22Click (Sender: TObject); parol then begin
// val (edit7.Text, x, z1);
// val (edit8.Text, x, z2) ;//(z1 = 0)
