Цитата:
Сообщение от 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;
вроде работает