Реферат Мережа комп'ютерних магазинів "21 століття"

="justify">// and (z2 = 0)

// and (edit7.Text <>'')

// and (edit8.Text <>'') and

(edit15.Text <>'')

// (dblookupcombobox9.Text <>'') begin. Parameters.ParamValues ​​['@ nom']: = nomer;. . ParamValues ​​['@ lnom']: = dblookupcombobox11.KeyValue;. Parameters.ParamValues ​​['@ fio']: = Edit15.Text;. ExecProc;. Close;. Open; showmessage ('Неправильний введення');

else showmessage ('У вас немає прав для зміни даних в БД');

end; TForm1.Button24Click (Sender: TObject); parolbegin.Visible: = true;

// edit18.Visible: = true;. Visible: = true;

else showmessage ('У вас немає прав для зміни даних в БД');

{ADOStoredProc23. Parameters.ParamValues ​​['@ art']: = Edit12.Text;. Parameters.ParamValues ​​['@ nomp']: = Edit18.Text;. Parameters.ParamValues ​​['@ nomm']: = Edit19.Text;. Parameters.ParamValues ​​['@ data']: = Edit20.Text;. Parameters.ParamValues ​​['@ cena']: = Edit21.Text;. Parameters.ParamValues ​​['@ kol']: = Edit22.Text;. Parameters.ParamValues ​​['@ l']: = Edit48.Text;. ExecProc;. Close;. Open;}; TForm1.Button23Click (Sender: TObject); parol then begin

// val (edit9.Text, x, z1);

// if edit16.Text <>'' then (edit16.Text, x, z2); (edit7.Text, x, z1);

// else z2: = 0; edit38.Text ='' z3: = 0if (edit38.Text = '+') or (edit38.Text = '-') z3: = 0z3: = 1;

(z1 = 0) and

(z2 = 0) and (z3 = 0) and (edit7.Text <>'') (e dit16.Text <>'') and (edit10.Text <>'') (dblookupcombobox12.Text <>'') begin. Parameters.ParamValues ​​['@ art']: = dblookupcombobox14.KeyValue;. Parameters.ParamValues ​​['@ naim']: = Edit10.Text;. Parameters.ParamValues ​​['@ kol']: = Edit16.Text;. Parameters.ParamValues ​​['@ opis']: = Edit17.Text;. Parameters.ParamValues ​​['@ nal']: = Edit38.Text;. Parameters.ParamValues ​​['@ n']: = dblookupcombobox12.KeyValue;. Parameters.ParamValues ​​['@ cena']: = Edit7.Text;. ExecProc;. Close;. Open; if z3 = 0 then showmessage ('Неправильний введення') showmessage ('Неправильний введення: Наявність +/-')

end

else showmessage ('У вас немає прав для зміни даних в БД');

end; TForm1.Button25Click (Sender: TObject);

// val (edit23.Text, x, z1);

// val (edit24.Text, x, z2);

// val (edit25.Text, x, z3); ​​

<...