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

таблицями');

: showmessage ('Ця запис не існує')

end;

end

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

end; TForm1.Button11Click (Sender: TObject);

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

// if// (z1 = 0)

// and

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

// (edit6.Text <>'') and (edit13.Text <>'')

// then

// begin.Visible: = true;. Visible: = true;. Parameters.ParamValues ​​['@ N1']: = dblookupcombobox5.KeyValue;. ExecProc;. Close;. Open;

// ADOTable4.Refresh;: =. Parameters.ParamValues ​​['@ RETURN_VALUE']; x of

: showmessage ('Запис видалено');

1: showmessage ('Неможливо видалення запису через зв'язки з іншими таблицями');

: showmessage ('Ця запис не існує')

end;

// end

// else showmessage ('Неправильний введення');; TForm1.Button12Click (Sender: TObject);

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

// if (z1 = 0)

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

// then begin

ADOStoredProc11. Parameters.ParamValues ​​['@ N1']: = dblookupcombobox10.KeyValue;

ADOStoredProc11.ExecProc;. Close;. Open;

// ADOTable4.Refresh;: =. Parameters.ParamValues ​​['@ RETURN_VALUE']; x of

: showmessage ('Запис видалено');

1: showmessage ('Неможливо видалення запису через зв'язки з іншими таблицями');

: showmessage ('Ця запис не існує')

end;

// end

// else showmessage ('Неправильний введення');; TForm1.Button13Click (Sender: TObject);

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

// if// (z1 = 0)

// and

// (edit9.Text <>'')

// then begin

ADOStoredProc12. Parameters.ParamValues ​​['@ N1']: = dblookupcombobox13.KeyValue;

ADOStoredProc12.ExecProc;. Close;. Open;

// ADOTable4.Refresh;: =. Parameters.ParamValues ​​['@ RETURN_VALUE']; x of

: showmessage ('Запис видалено');

1: showmessage ('Неможливо видалення запису через зв'язки з іншими таблицями');

: showmessage ('Ця запис не існує...