Доработка кода авторизации

[Fastah]

Помогите доработать, не могу разобраться почему не работает должным образом

в общем должно работать так: если в edit1(логин) или edit2(пароль) пусто то ошибка, если поля заполнены, то идёт проверка на совпадение логина, если такой логин есть, то ошибка, если нет то регистрация

procedure TForm3.Button3Click(Sender: TObject);
begin
if (Length(Edit1.text)=0) or (Length(Edit2.text)=0) then
showmessage('Ошибка: Ввод пустых строк запрещен!');
if (Length(Edit1.text)>0) and (Length(Edit2.text)>0) then
begin
datamodule2.Adotable1.Filtered:=true;
datamodule2.Adotable1.Filter:='[Name] LIKE "%'+Edit1.Text+'%"';
showmessage('Ошибка: Пользователь уже существует!');
datamodule2.Adotable1.Filtered:=false;
end
else
begin
datamodule2.Adotable1.Open;
datamodule2.Adotable1.Insert;
datamodule2.Adotable1.FieldByName('Name').AsString:= Edit1.Text;
datamodule2.Adotable1.FieldByName('Password').AsString:= Edit2.Text;
datamodule2.Adotable1.Post;
datamodule2.Adotable1.Close;
datamodule2.Adotable1.Open;
datamodule2.Adotable1.FindLast;
showmessage('Новый пользователь зарегистрирован');
end;

вместо этого программа производит регистрацию если пуст edit1 или edit2 или пусты оба
так же сообщение Ошибка: Пользователь уже существует! срабатывает только если оба поля заполнены, причём работает не корректно

[skgwazap]

Если в каком либо из edit-ов пусто, то выполнится первый if, то есть сообщение об ошибке, но после этого процедура не завершится, будет выполнен второй if но по ветке else, так как условие не выполняется.

[Fastah]

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

Если в каком либо из edit-ов пусто, то выполнится первый if, то есть сообщение об ошибке, но после этого процедура не завершится, будет выполнен второй if но по ветке else, так как условие не выполняется.

Понял спасибо, теперь не могу придумать как сделать корректно

[skgwazap]

После

showmessage('Ошибка: Ввод пустых строк запрещен!');

поставить break; (begin end не забыть)

[Fastah]

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

После

showmessage('Ошибка: Ввод пустых строк запрещен!');

поставить break; (begin end не забыть)

ругается на break [Pascal Error] Unit3.pas(65): E2097 BREAK or CONTINUE outside of loop - насколько понимаю делфи хочет что бы оператор был в цикле, но у меня то if'ы

[Fastah]

сделал так

begin
if (Length(Edit1.text)=0) or (Length(Edit2.text)=0) then
showmessage('Ошибка: Ввод пустых строк запрещен!')
else 
if (Length(Edit1.text)>0) and (Length(Edit2.text)>0) then
begin
datamodule2.Adotable1.Filtered:= false;;
datamodule2.Adotable1.Filter:='[Name] LIKE '+#39+'%'+Edit1.Text+'%'+ #39;
datamodule2.Adotable1.Filtered:= true;
showmessage('Ошибка: Пользователь уже существует!');
end
else
begin
datamodule2.Adotable1.Open;
datamodule2.Adotable1.Insert;
datamodule2.Adotable1.FieldByName('Name').AsString:= Edit1.Text;
datamodule2.Adotable1.FieldByName('Password').AsString:= Edit2.Text;
datamodule2.Adotable1.Post;
datamodule2.Adotable1.Close;
datamodule2.Adotable1.Open;
datamodule2.Adotable1.FindLast;
showmessage('Новый пользователь зарегистрирован');

но теперь не работает поиск, каждый раз если поля не пустые программа говорит на любое имя что оно существует

p.s. понимаю почему не работает, но как сделать рабочую версию не могу придумать

[Johnson]

проверки на пустые поля лучше проводить так:

if (Edit1.text='')or(edit2.text='')then begin
	ShowMessage('Одно или более полей для ввода на заполнены!');
	Exit;
end;

а лолгика...
1-проверка на пустость (лучше ещё добавить проверку на недопустимые символы)
2 - если проверка пройдена - то проверка на существование такого логина, если не пройдена - то мессага и выход
3 - если проверка пройдена то добавление записи...

У Вас же...

showmessage('Ошибка: Пользователь уже существует!');

вызывается в любом случае, если поля не пустые... Не важно, что Вы фильтруете свою базу, важно то, что Вы не проверяете её после фильтрации! После фильтрации нужно проверить, остались ли поля. Если остались - пользователь существует.

[Fastah]

Johnson
Спасибо за подсказку!
Вот так получилось:

if (Edit1.text='')or(edit2.text='')then
begin
showmessage('Ошибка: Ввод пустых строк запрещен!');
exit;
end
else
if (Length(Edit1.text)>0) and (Length(Edit2.text)>0) then
begin
if datamodule2.Adotable1.Locate('Name',Edit1.Text,[]) then
begin
ShowMessage('Ошибка: Пользователь уже существует!');
exit;
end
else
datamodule2.Adotable1.Open;
datamodule2.Adotable1.Insert;
datamodule2.Adotable1.FieldByName('Name').AsString:= Edit1.Text;
datamodule2.Adotable1.FieldByName('Password').AsString:= Edit2.Text;
datamodule2.Adotable1.Post;
datamodule2.Adotable1.Close;
datamodule2.Adotable1.Open;
datamodule2.Adotable1.FindLast;
showmessage('Новый пользователь зарегистрирован');