Cоздание авторизации пользователя

[Yurk@]

1. на что именно код ругается?
1.1 у меня в рабочей программе похожая схема авторизации - все отлично работает
2. а вот что должен делать приведенный Вами код - я так и не понял (

[Olga89]

Сообщение от Yurk@

1. на что именно код ругается?
1.1 у меня в рабочей программе похожая схема авторизации - все отлично работает
2. а вот что должен делать приведенный Вами код - я так и не понял (

Курсор мигает после вот этой строки if (Trim(Form16.Edit1.Text <> '')( я вложила скан)
Что такое Trim?
Да я сама честно говоря не понимаю,просто с этим кодом работать авторизация хоть как-то начала,а так у меня изначально ругался на филднейм,я сравнивала каждую строку в таблице авторизации с введёными данными в поля эдит.
Ваш код я у себя так прописала,что-то не нравится ему этот Трим,говорит,что он не так должен называться с этим аргументом..(((((
procedure TForm16.Button2Click(Sender: TObject);
begin
DM.Avt.Close;
DM.Avt.SQL.Text:='SELECT * FROM Avt WHERE login = :Login AND password = :Password';
if (Trim(Form16.Edit1.Text <> '') and (Trim(Form16.Edit2.Text) <> '')
then
begin
DM.Avt.Parameters.ParamByName('Logi n').Value := Form16.Edit1.Text;
ADM.Avt.Parameters.ParamByName('Pas sword').Value := Form16.Edit2.Text;
try
DM.Avt.Open;
Except
ShowMessage('Не удаётся открыть таблицу пользователей');
Exit;
end;
if DM.Avt.RecordCount > 0
then
begin
ShowMessage('Вход успешно выполнен');
Form16.Visible := False;
Form1.Visible := True;
end
else
begin
ShowMessage('Неверный логин и пароль.Повторите ввод);
Form16.Edit1.Text := '';
Form16.Edit2.Text := '';
end;
end
else
ShowMessage('Пустые поля логин и пароль не допускаются');
end;

end;

end.

[Аватар]

if (Trim(Form16.Edit1.Text) <> '') and (Trim(Form16.Edit2.Text) <> '')
...
if DM.Avt.Active and (DM.Avt.RecordCount > 0)

Trim удаляет пробелы слева и справа

[Yurk@]

мг, согласен .... скобку забыл

[superedward]

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

1)А что плохого в названии Form16?))))У меня 20 форм,мне так удобнее понимать,где и что находится)

Это сейчас, когда вы активно занимаетесь данным проектом, вы помните какая форма, чем занимается. Но вот увидите - пройдёт 3-4 месяца, и названия 15-16-17... ничего уже не скажут и прежде чем вспомнить, какая форма, чем занимается, придётся ее открывать и смотреть...
Возможно, уже сейчас начали возникать вопросы: а форма 16 у меня занимается покойниками или новорожденными? 15-16 или 16-15?

[Olga89]

Yurk@ и Аватар,спасибо Вам огромное!!!!Всё работает))))
А кто-нибудь знает,где нужно прописать,чтобы форма с авторизацией выскакивала сразу после запуска программы,а уже после главная форма была доступна.

[Yurk@]

ну так сделай главную форму Visible := False; и показывай форму логина пока не введут нужные данные - потом просто главную форму Visible := True; а логин форму закрывай (не скрывай, а именно закрывай)

[superedward]

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

Yurk@ и Аватар,спасибо Вам огромное!!!!Всё работает))))
А кто-нибудь знает,где нужно прописать,чтобы форма с авторизацией выскакивала сразу после запуска программы,а уже после главная форма была доступна.

Достаточно вставить свой код в обработчик OnCreate главной формы

[Olga89]

Сообщение от Yurk@

ну так сделай главную форму Visible := False; и показывай форму логина пока не введут нужные данные - потом просто главную форму Visible := True; а логин форму закрывай (не скрывай, а именно закрывай)

А где именно это надо прописывать??

[Olga89]

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

Достаточно вставить свой код в обработчик OnCreate главной формы

А какой код,у меня программа большая,там 22 формы,мне просто нужно,чтоб при выборе экзешника открывалась форма с авторизацией и не убиралась,пока правильный пароль не введёшь