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

align="justify">// label1.Visible: = false;

// label1.Visible: = true;

// label2.Visible: = true;

// label19.Visible: = true;

// label20.Visible: = true;

// edit5.Visible: = true;

// edit6.Visible: = true;

// edit13.Visible: = true;

// edit14.Visible: = true;

// button21.Visible: = true;

// button33.Visible: = true;. Visible: = true; 6.Visible: = true;

end

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

end; TForm1.Button33Click (Sender: TObject); parol then begin

// label11.Visible: = true;. Visible: = true;. Visible: = true;

// dblookupcombobox9.Visible: = true;

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

end; TForm1.Button35Click (Sender: TObject); parol then begin.Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;

// label12.Visible: = true;

// edit8.Visible: = true;

end

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

end; TForm1.Button36Click (Sender: TObject); parol then begin.Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;

// label11.Visible: = true;

// label12.Visible: = true;

// label21.Visible: = true;

// edit7.Visible: = true;

// edit8.Visible: = true;

// edit15.Visible: = true;

// button22.Visible: = true;

// button39.Visible: = true;

end

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

end; TForm1.Button37Click (Sender: TObject);. Visible: = false;. Visible: = false;. Visible: = false;

// label12.Visible: = false;

// edit8.Visible: = false;. Visible: = false;. Visible: = false;; TForm1.Button39Click (Sender:

end

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

end; TForm1.Button44Click (Sender: TObject); parol then begin

// label14.Visible: = true;

end

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

end; TForm1....