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

Button45Click (Sender: TObject); parol then begin

end

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

end; TForm1.Button40Click (Sender: TObject);

// label14.Visible: = false;

// edit12.Visible: = true;

// edit18.Visible: = true;

// edit19.Visible: = true;

// edit20.Visible: = true;

// edit21.Visible: = true;. Visible: = true;

// edit48.Visible: = true;

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

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

// label27.Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;

// edit12.Visible: = false;

// edit18.Visible: = false;

// edit19.Visible: = false;

// edit20.Visible: = false;

// edit21.Visible: = false;. Visible: = false;

// dblookupcombobox20.Visible: = true;. Visible: = true;. Visible: = true;

// label30.Visible: = true;. Visible: = true;

// label32.Visible: = true;. Visible: = true;

// label34.Visible: = true;. Visible: = true;. Visible: = true;

// edit23.Visible: = true;

// edit24.Visible: = true;

// edit25.Visible: = true;

// edit26.Visible: = true;

// edit27.Visible: = true;

// edit28.Visible: = true;. Visible: = true;

// edit30.Visible: = true;

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

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

// dblookupcombobox23.Visible: = true;. Visible: = true;. Visible: = true;

// edit25.Visible: = true;

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

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

// label30.Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;

// label34.Visible: = false;. Visible: = false;. Visible: = false;

// edit23.Visible: = false;