Изменение записи в БД

[kuzmich]

я написал один код для изменениЯ записи в БД. нО когда открываю ту форму - у меня там выводиТ данные с последней строки или те данныЕ, которые я добавил. А мне надо чтобы открывало те данные, которые я выделил.
пожалуйста, посмотрите код и подскажите - где у меня ошибка!

procedure TForm2.EditClick(Sender: TObject);
begin
{ if form5.DBEdit1.Text = '' then
 ShowMessage('Âûáåðèòå çàïèñü!') else}
 begin
  Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from student where FIO = "' + Form5.DBEdit1.Text+'"');
 Query1.Open;
 if DBGrid1.FieldCount=0 then begin
   form5.DBEdit1.DataSource:=form2.Query1.DataSource;
   form5.DBEdit2.DataSource:=form2.Query1.DataSource;
   form5.DBEdit3.DataSource:=form2.Query1.DataSource;
   form5.DBEdit4.DataSource:=form2.Query1.DataSource;
 end;
   Table1.Open;
   Table1.Edit;
   Form5.Show;
 end;
end;

заранЕе блАгОдарю!

[mihali4]

form5.DBEdit1.DataSource:=form2.Que ry1.DataSource;
А раньше какой form5.DBEdit1.DataSource был?
А это:

   Table1.Open;
   Table1.Edit;
   Form5.Show;

выше моего понимания...
При том, что данные для запроса берутся из Form5.
А откуда они там?

[kuzmich]

что-то я вашего ответа не понял!

[mihali4]

Хорошо. По пунктам:
1. После выполнения запроса вы цепляете form5.DBEdit1 к некоему form2.Query1.DataSource.
Вопрос: а к чему до этого момента был подцеплен form5.DBEdit1? К какому другому DataSource ?
2. Это вытекает из 1. Откуда берется содержимое Form5.DBEdit1.Text ?
Из какого датасета?

[kuzmich]

1) DBEdit1 - был подцеплЕн к FIO, DBEdit2 -> DR, DBEdit3 -> Adres, DBEdit4 -> Gruppa
2) а насчет Form5.DBEdit1.text - это мне подсказали сделать на АРИВЦ (т.е - Вычислительный центр), но все равно не работает.

[spamer]

kuzmich, открывай учебник Библия Делфи - М.Фленов, и начинай читать раздел "Работа с БД". Вот там есть ответ на твой вопрос.

З.Ы. от mihali4
Как искренне я сочувствую его преподу...

[kuzmich]

вот смотрите:

procedure TForm2.EditClick(Sender: TObject);
begin
 Table1.Open;
 Table1.Edit;
 if DBGrid1.FieldCount <> 0 then begin
   form5.DBEdit1.DataSource:=form2.DBGrid1.DataSource;
   form5.DBEdit2.DataSource:=form2.DBGrid1.DataSource;
   form5.DBEdit3.DataSource:=form2.DBGrid1.DataSource;
   form5.DBEdit4.DataSource:=form2.DBGrid1.DataSource;
 end;
   Form5.Show;
 end;

я изменил код, у меня выводятся данные, но запись, которую я выбИраю - а не могу ее изменять! что делать!?

[mihali4]

А какой датасе есть DataSource у form2.DBGrid1 ?

[kuzmich]

у меня из два, но к изменению данных использую DataSourse1