Показать сообщение отдельно
  #9  
Старый 13.06.2018, 22:54
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от BlacKCheT
Я там скинул исходники, там проект...
Наконец руки дошли посмотреть его - поля находятся, но при добавлении нового юзверя посредством SQL выскакивает ошибке, что датасетка не в режиме редактирования или вставки, может это с ключевым полем связано, не знаю, сделал "обычными" средствами адозапроски
Код:
procedure TForm4.Button1Click(Sender: TObject); //??????? ?????? ? ???????
begin
 try
  if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') then showmessage('Заполните поля!');
  with DataModule2.ADOQuery1 do
   begin
    Insert;
    FieldByName('login').Value:= Edit1.Text;
    FieldByName('password').Value:= Edit2.Text;
    Post; {UpdateBath}
   end;
  Edit1.Clear;
  Edit2.Clear;
 except
  on e:Exception do
 end;
end;
вроде работает
Ответить с цитированием