Обновление БД посл запроса добавления

[Nickolay0512]

Здравствуйте. В приложении есть форма авторизации. Кнопка вход работает отлично. Проблема возникает при регистрации. Если зарегистрировать пользователя и тут же нажать вход выводится сообщение о том что пользователь не найден. Я так понимаю, что бд нужно как-то обновить. Только как?

//клик по кнопке вход
procedure TForm1.Button1Click(Sender: TObject);
begin
      if (Edit1.Text='') or (Edit2.Text='') then exit;
      ADOQuery1.Close;
      ADOQuery1.SQL.Text := 'SELECT Family FROM Users WHERE Nam=:prm';
      ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text, true);
            ADOQuery1.Parameters.ParamByName('prm').Value:=Edit1.Text;
      ADOQuery1.Open;
      if ADOQuery1.FieldByName('Family').AsString=Edit2.Text then
      begin
        Form2.Show;
        UserName:=Edit1.Text+' '+Edit2.text;
      end
      else
        ShowMessage('Пользователь не найден!');
end;
//клик по кнопке зарегистрировать
procedure TForm1.Button2Click(Sender: TObject);
begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Add('insert into Users (Nam, Family)');
    ADOQuery1.SQL.Add( ' VALUES(:prm1,:prm2)');
    ADOQuery1.Parameters.ParamByName('prm1').Value:=Edit1.Text;
    ADOQuery1.Parameters.ParamByName('prm2').Value:=Edit2.Text;
    try
        ADOQuery1.ExecSql;
        showmessage('Пользователь зарегистрирован!');
    Except
      showmessage('Не удалось зарегистрировать пользователя!');
    end;
 
end;

[Stilet]

А если так:

if trim(ADOQuery1.FieldByName('Family').AsString)=Edit2.Text then

Не?

[Nickolay0512]

Все равно говорит "Пользователь не зарегистрирован"

Вернее пользователь не найден

[Stilet]

После жмака добавления посмотри в базу, сохранилось ли значение добавленное?

[Nickolay0512]

Сохранилось

[Stilet]

После ADOQuery1.Open; напиши:

ShowMessage(ADOQuery1.FieldByName('Family').AsString)

И посмотри что выведет.

[Nickolay0512]

Хм, тогда работает как надо. Выводит фамилию и открывается новая форма. Не пойму в чем проблема

[Nickolay0512]

Вместо ADOQuery1.Close; написал ADOQuery1.SQL.Clear; и заработало как надо. Не можете пояснить почему так?

[Vapaamies]

Потому что, млин, компоненты запросов нужно или создавать динамически, раз уж хочется писать в них текст вручную, или класть на форму по одному компоненту на (параметризированный) запрос, чтобы не менять в них текст и не удивляться, почему.

К чему это крохоборство? Предположим, 5 запросов у тебя. Так положи пять компонентов на форму, впиши в каждый свой запрос! Что, программа сильно раздуется или у процессора транзисторы за триггеры зайдут? Нет, всё будет работать -- тихо и без глюков. Компоненты для того и кладут на форму, чтобы их можно было сколько нужно положить. Ты же не платишь за них поштучно!

[evg_m]

Вместо ADOQuery1.Close; написал ADOQuery1.SQL.Clear; и заработало как надо. Не можете пояснить почему так?

теперь верни все на место и ПЕРЕД ExecSQL выведи запрос(сделай так)

ShowMessage(ADOQuery1.SQL.Text);
ADOQuery1.ExecSql;

посмотри на него внимательно и пойми почему.
Для более полного понимания читаем про методы TStrings. Add | Text | Clear. можно здесь

Чтобы в дальнейшем не было такого лучше применять правило
для каждого действия СВОЙ ADO-объект.
90% вопросов "почему не работает", снимается(или вобще не возникает) при применении данного правила

и хорошо бы еще эти запросы не писать в коде программы.
Для этого есть ObjectInspector и параметры запроса(Parameters)
А в коде только задание параметров и выполнение запроса, написанного раз и навсегда (на все время работы программы).

P.S. на крайний случай НЕ ИСПОЛЬЗУЙ "частичное" формирование запроса
ADOQuery1.SQL.Add('insert into Users (Nam, Family)');
а старайся использовать устанавливать запрос СРАЗУ целиком.
ADOQuery1.SQL.Text := 'SELECT Family FROM Users WHERE Nam=rm';