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

9;)

end;

// end

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

// val (edit25.Text, x, z1); (dblookupcombobox22.Text <>'')

// and (edit25.Text <>'') begin

ADOStoredProc13. Parameters.ParamValues ​​['@ N1']: = dblookupcombobox22.KeyValue;

ADOStoredProc13.ExecProc;. Close;. Open;

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

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

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

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

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

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

// if

// (z1 = 0)

// and

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

// (edit31.Text <>'')

// then begin. Parameters.ParamValues ​​['@ N1']: = dblookupcombobox7.KeyValue;. ExecProc;. Close;. Open;

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

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

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

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

end;

// end

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

// val (edit25.Text, x, z1); (z1 = 0)

// and (edit25.Text <>'') begin

// ADOStoredProc15.Parameters.ParamValues ​​['@ n']: = edit25.Text;

// edit25.Visible: = false;. Visible: = false; showmessage ('Неправильний введення');; TForm1.Button18Click (Sender: TObject);

// val (edit18.Text, x, z1); (z1 = 0)

// and (edit18.Text <>'') begin

// ADOStoredProc17.Parameters.ParamValues ​​['@ n']: = edit18.Text;

// edit18.Visible: = false;. Visible: = false; showmessage ('Неправильний введення');; TForm1.Button19Click (Sender: TObject); parol then begin

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

// if// (z1 = 0)

// and

// (dblookupcombobox42.Text <>'')

// then. Parameters.Param...