Разграничение доступа

[torrtik]

procedure TForm36.Button1Click(Sender: TObject);
begin
if (edit1.Text ='tokar') and
(edit2.Text = '123456') then
begin
form36.Visible:=false;
form1.showmodal;
form4.DBEdit1.Enabled:=false;
form6.DBEdit2.Enabled:=false;
end
else label3.Visible:=true;
end;

Вот эти строчки не срабатывают:
form4.DBEdit1.Enabled:=false;
form6.DBEdit2.Enabled:=false;

[Mad_Cat]

интересно) зачем при использовании БД так тупо

if (edit1.Text ='tokar') and
(edit2.Text = '123456')

проверять Логин и пароль

[torrtik]

по другому не умеем.

[Zer0]

procedure TForm36.Button1Click(Sender: TObject); улыбнуло))

а по сути - попробуйте перед выводом формы эти строчки поставить) имхо проблема именно в этом, ну или если некритично уберите модальность вывода формы

[Вадим Мошев]

Я позволю себе ответить не по теме.
torrtik, научитесь более-менее задавать вопросы на форуме, соблюдайте хоть некоторые правила хорошего тона при создании тем.
Рекомендую:
1. В начале тем здоровайтесь
2. Употребляйте "вводные слова" :"Прошу помощи в решении задачи", "Прошу помогите", "я бы хотел(а) попросить вас о помощи", а не просто выкладывайте условия задачи или код (замечу, неотформатированный).
3. В конце вашего сообщения добавляйте окончание, например "Заранее спасибо за помощь", "буду очень благодарен (благодарна)".

Мы вам ничего не обязаны, хотя по вашим сообщениям складывается обратное впечатление (например, у меня).

И называйте ваши темы нормально, а не "???", "!!!". (Кстати, это не примеры названия тем, а именно те названия, которые вы использовали при создании своих тем).