[DrWeb]

Вопрос таков как встроить сюда что бы при нажатии на кнопку открывалась Form2. Все подключено. И в базе access логин и пароль задан!
При входе выкидывает с проги!

Код:

procedure TUserForm.Button1Click(Sender: TObject);
begin
If (LoginEdit.Text<>'') and (PasswordEdit.Text<>'') then //поля не пустые
 begin
 UserQuery.Active:=false;
 UserQuery.Parameters.ParamByName('log').Value:=LoginEdit.Text;
 UserQuery.Active:=true;
   If UserQuery.RecordCount<>0 then
     begin
      If UserQuery.FieldByName('Пароль').AsString=PasswordEdit.Text then begin
         login:=LowerCase(LoginEdit.Text);
         If UserQuery.FieldByName('Доступ').AsString='True' then  Dostup:=true//есть доступ
            else Dostup:=false;
             Close;

       end
          else Showmessage('Пароль неверный!');
     end;
 end
    else ShowMessage('Введите имя пользователя и пароль!');//пустые поля
end;

[poli-smen]

Сообщение от DrWeb

Вопрос таков как встроить сюда что бы при нажатии на кнопку открывалась Form2. Все подключено. И в базе access логин и пароль задан!
При входе выкидывает с проги!

Код:

.....
      If UserQuery.FieldByName('Пароль').AsString=PasswordEdit.Text then begin
         login:=LowerCase(LoginEdit.Text);
         If UserQuery.FieldByName('Доступ').AsString='True' then  Dostup:=true//есть доступ
            else Dostup:=false;
             Close;
.....

Метод Close закрывает форму. Закрытие главной формы автоматически завершает всё приложение.

[DrWeb]

Сообщение от poli-smen

Метод Close закрывает форму. Закрытие главной формы автоматически завершает всё приложение.

если же мв уберем close переход не осуществляется!

[poli-smen]

Сообщение от DrWeb

если же мв уберем close переход не осуществляется!

Не пойму о каком переходе идёт речь. Метод Close в данном случае просто закроет форму TUserForm. Чтобы ещё и отобразить скрытую Form2 нужно выполнить Form2.Show.
TUserForm - это главная форма приложения?

[DrWeb]

Сообщение от poli-smen

Не пойму о каком переходе идёт речь. Метод Close в данном случае просто закроет форму TUserForm. Чтобы ещё и отобразить скрытую Form2 нужно выполнить Form2.Show.
TUserForm - это главная форма приложения?

Да через нее осуществляется вход в программу.

[poli-smen]

Сообщение от DrWeb

Да через нее осуществляется вход в программу.

О чём я и говорю - закрытие главной формы автоматически завершает приложение. Действие метода Close формы в точности такое как если нажать кнопку с крестиком в правом верхнем углу - действием по-умолчанию для обычной неглавной формы является просто скрытие, действие по-умолчанию для главной - завершение приложения.

Главной формой становится первая созданная методом Application.CreateForm, поэтому если нужно создать неглавную форму до создания главной формы приложения - создавай эту неглавную обычным конструктором TUserForm.Create.

Это верно для старых версий Delphi включая Delphi 7.