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

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

// edit25.Visible: = false;

// edit26.Visible: = false;

// edit27.Visible: = false;

// edit28.Visible: = false;. Visible: = false;

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

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

// edit23.Visible: = false;

// edit24.Visible: = false;

// edit25.Visible: = false;

// edit26.Visible: = false;

// edit27.Visible: = false;

// edit28.Visible: = false;. Visible: = false;

// dblookupcombobox25.Visible: = true;

end

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

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

// edit25.Visible: = true;. Visible: = true;

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

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

// label39.Visible: = true;

// label40.Visible: = true;

// label41.Visible: = true;

// label42.Visible: = true;

// label43.Visible: = true;. Visible: = true;

// label45.Visible: = true;

// label46.Visible: = true;

// label47.Visible: = true;

// label48.Visible: = true;

// label49.Visible: = true;

end

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

end; TForm1.Button58Click (Sender: TObject); parolbegin

// label37.Visible: = true;

// edit31.Visible: = true;. Visible: = true; 7.Visible: = true;

end

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

end;

{procedure TForm1.Button59Click (Sender: TObject); parolbegin.Visible: = true;. Visible: = true;

{end

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

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

Назад | сторінка 34 з 40 | Наступна сторінка