Delete и Update

[crit]

значит щелкаю мышкой по строке) открывается окошко с редактироваием
procedure TCoolHint2KForm11.CoolHint2KFormAct ivate(Sender: TObject);
begin
OraQuery1.SQL.Text := 'SELECT FIO,CEH,DOLJ,tabel FROM KURS_KADR2 where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text);
OraQuery1.Open;
WHILE(OraQuery1.Eof<>true) do
begin
Edit1.Text := OraQuery1.FieldByName('FIO').AsStri ng;
Edit2.Text := OraQuery1.FieldByName('tabel').AsSt ring;
Edit3.Text := OraQuery1.FieldByName('ceh').AsStri ng;
Edit4.Text := OraQuery1.FieldByName('dolj').AsStr ing;
OraQuery1.Next;
end;

тоесть там уже я могу редактировать и нажимаю на кнопку Сохранить
OraQuery1.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ= olj where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text);
OraQuery1.ParamByName('fio').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('tabel').AsSt ring:= Edit1.Text;
OraQuery1.ParamByName('ceh').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('dolj').AsStr ing:= Edit1.Text;
OraQuery1.ExecSQL;

[Sparky]

Так:
OraQuery1.ParamByName('fio').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('tabel').AsSt ring:= Edit1.Text;
OraQuery1.ParamByName('ceh').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('dolj').AsStr ing:= Edit1.Text;
OraQuery1.ExecSQL;
Заменяешь везде 1 на 2.
и в конце
OraQuery1.close;
OraQuery1.open;

[Sparky]

OraQuery1.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ=ol j where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text);
тут тоже 1 на 2

[crit]

так,изменил,но когда редактируешь одно чтото то меняется все. тоесть редактируешь фамилию, то она в каждой ячейке

[Sparky]

OraQuery1.ParamByName('fio').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('tabel').AsSt ring:= Edit1.Text;
OraQuery1.ParamByName('ceh').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('dolj').AsStr ing:= Edit1.Text;
здесь косяк сори что сразу не заметила, там не edit1 везде будет, а 2, 3 и т.д

[crit]

ааа блин)) это уже мой косяк)) когда копипастил забыл изменить едит))

[Sparky]

Ну как идет?

[crit]

и какой то еще косяк.. в ячейке меняю фамилию и меняются все фамилии

[Sparky]

в разде where что пишешь?

[crit]

where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text);