[Асяу]

Шел девятый час работы...
Я написал авторизацию:

Код:

if (Login_Familiya.Text = '') or (Login_Gruppa.Text = '') or (Login_Password.Text = '') then
               begin
               Application.MessageBox('Вход невозможен!'+#13#10+'Заполните все поля', 'Внимание!',+ MB_ICONWARNING);
               exit
               end else
                    DataModule5.ADOQuery1.Sql.Clear;
                        DataModule5.ADOQuery1.Sql.Add('SELECT Password From Users Where NameAndSurname='+#39+Login_Familiya.Text+#39);
                        DataModule5.ADOQuery1.Open;
                            if DataModule5.ADOQuery1.IsEmpty then
                            ShowMessage('Пользователь '+Login_Familiya.Text+' не найден!')
                                else
                                if DataModule5.ADOQuery1.FieldByName('Password').Value<>Login_Password.Text
                                then
                                ShowMessage('Учетная запись найдена, но введен неверный пароль!')
                                    else
                                    FORM_TEST.Show;

Но что делать с регистрацией - не знаю.. Я не разбираюсь в БД


Я знаю, что везде туплю с этим кодом, но что в этом не так?

Код:

if (Registration_Familiya.Text = '') or (Registration_Gruppa.Text = '') or (Registration_Password.Text = '') then
              begin
               Application.MessageBox('Вход невозможен!'+#13#10+'Заполните все поля', 'Внимание!',+ MB_ICONWARNING);
               exit
               end else
                        DataModule5.ADOQuery1.Sql.Clear;
                        DataModule5.ADOQuery1.Sql.Add('SELECT Password From Users Where NameAndSurname='+#39+Login_Familiya.Text+#39);
                        DataModule5.ADOQuery1.Open;
                            if DataModule5.ADOQuery1.IsEmpty then
                            begin
                            ShowMessage('Пользователь '+Login_Familiya.Text+' не найден!');
                            begin
                            With DataModule5.ADOQuery1 do begin
                            Connection:=DataModule5.ADOConnection1;
                            Insert;
                            FieldByName('1').Value:=Registration_Familiya.Text;
                            FieldByName('edit2').Value:=Registration_Gruppa.Text;
                            FieldByName('edit3').Value:=Registration_Password.Text;
                             Post;
                            end;
                            end;
                            end
                                else
                                if DataModule5.ADOQuery1.FieldByName('Password').Value<>Registration_Password.Text
                                then
                                ShowMessage('Учетная запись найдена, но введен неверный пароль!')
                                    else
                                    FORM_TEST.Show;