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

ible: = false;. Visible: = false;. Visible: = false;; TForm1.Button78Click (Sender: TObject);

// label92.Visible: = true;. Visible: = true;. Visible: = true;; TForm1.Button79Click (Sender: TObject); Adotable8.locate ('Naimenovanie_tovara', edit21.Text , []) begin showmessage (edit21.Text + 'присутній в каталозі') showmessage (edit21.Text + 'не присутній в каталозі');

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

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

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

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

end;; TForm1.Button83Click (Sender: TObject); (edit53.Text, x, z1); (z1 = 0) begin (adotable1.Locate ('Nomer_magazina', edit53.Text, []) = false) then begin (edit53.Text, x, z1); (z1 = 0) (edit53.Text <>'') and (edit54.Text <>'') (edit55.Text <>'') and (edit56.Text <>'') begin.Parameters . ParamValues ​​['@ n']: = Edit53.Text;

// ADOStoredProc2. Parameters.ParamValues ​​['@ nom1']: = Edit45.Text;. Parameters.ParamValues ​​['@ nazv']: = Edit54.Text;. Parameters.ParamValues ​​['@ fio']: = Edit55.Text;. Parameters.ParamValues ​​['@ adr']: = Edit56.Text;. ExecProc;. Close;. Open; showmessage ('Неправильний введення');

else showmessage ('Запис вже існує');

// ADOTable2.Refresh;

end

else showmessage ('Неправильно введений номер магазину');

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

// button88.Visible: = false;

// button86.Visible: = false;. Visible: = true;

// dblookupcombobox15.Visible: = true;

// button16.Visible: = true;

// label17.Visible: = true;

// label28.Visible: = true;

// edit12.Visible: = true;

// edit18.Visible: = true;

// edit19.Visible: = true;

// edit20.Visible: = true;

// edit21.Visible: = true;

// edit22.Visible: = true;

// edit48.Visible: = true;; TForm1.Button86Click (Sender: TObject);. Visible: = true;. Visible: = true;;

procedure TForm1.Butt...