and (edit9.Text <>'') and (edit10.Text <>'') and (edit7.Text <>'') (edit16.Text <>'' ) and (dblookupcombobox12.Text <>'') begin. Parameters.ParamValues ​​['@ arti']: = Edit9.Text;. Parameters.ParamValues ​​['@ naim']: = Edit10.Text; edit16.Text <>'' then. Parameters.ParamValues ​​['@ kol']: = Edit16.Text;. Parameters.ParamValues ​​['@ opis']: = Edit17.Text;. Parameters.ParamValues ​​['@ nal']: = Edit38.Text;. Parameters.ParamValues ​​['@ cena']: = Edit7.Text;. Parameters.ParamValues ​​['@ n']: = dblookupcombobox12.KeyValue;. ExecProc;. Close;. Open; if z3 = 0 then showmessage ('Неправильний введення') showmessage ('Неправильний введення: Наявність +/-')
end
else showmessage ('Запис вже існує');
// Вважати значення вихідного параметра
// Edit10.Text: = ADOStoredProc5.Parameters.ParamValues ​​['@ s'];
end; TForm1.Button6Click (Sender: TObject); parol then begin (edit22.Text, x, z5); (z5 = 0) (dblookupcombobox15.Text <>'') and
ADOStoredProc6. Parameters.ParamValues ​​['@ nomm']: = nomer;
ADOStoredProc6. Parameters.ParamValues ​​['@ data']: = datetimepicker1.Date;
// ADOStoredProc6. Parameters.ParamValues ​​['@ cena']: = Edit21.Text;. Parameters.ParamValues ​​['@ kol']: = Edit22.Text;. Parameters.ParamValues ​​['@ l']: = dblookupcombobox18.KeyValue;. ExecProc;: = ADOStoredProc6.Parameters.ParamValues ​​['@ RETURN_VALUE']; x of
0: showmessage ('Продаж здійснена');
: showmessage ('Немає товару в наявності');
end;. Close;. Open;. Close;. Open; showmessage ('Неправильний введення');
else showmessage ('У вас немає прав для зміни даних в БД');
// ADOStoredProc6.Close;
// ADOStoredProc6. Parameters.ParamValues ​​['@ n']: = Edit12.Text;
// ADOStoredProc6.Open;; TForm1.Button7Click (Sender: TObject);
// val (edit23.Text, x, z1);
// val (edit24.Text, x, z2);
// val (edit25.Text, x, z3); ​​
// val (edit26.Text, x, z4); (edit23.Text, x, z5); (edit29.Text, x, z6);
// val (edit30.Text, x, z7); (z6 = 0) and (z5 = 0) (dblookupcombobox1.Text <>'') (dblookupcombobox21.Text <> ' ') and (dblookupcombob...
