Delete и Update

[Sparky]

тогда пофиг, оставь как есть просто в селекте напиши еще и айдишник

[crit]

procedure TCoolHint2KForm11.CoolHint2KButton1 Click(Sender: TObject);
begin
// OraQuery1.SQL.Text := 'Insert into system.KURS_KADR2(FIO,TABEL,CEH,DOL J) VALUES(:fio,:tabel,:ceh,olj)';
OraQuery2.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ= olj where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text);
OraQuery2.ParamByName('fio').AsStri ng:= Edit1.Text;
OraQuery2.ParamByName('tabel').AsSt ring:= Edit2.Text;
OraQuery2.ParamByName('ceh').AsStri ng:= Edit3.Text;
OraQuery2.ParamByName('dolj').AsStr ing:= Edit4.Text;
OraQuery2.ExecSQL;
OraQuery1.close;
OraQuery1.open;
end;

procedure TCoolHint2KForm11.CoolHint2KFormAct ivate(Sender: TObject);
begin
OraQuery1.SQL.Text := 'SELECT FIO,CEH,DOLJ,tabel,ID FROM KURS_KADR2 where id =' + OraQuery1.FieldByName('id').value;
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;
вот так?

[Sparky]

procedure TCoolHint2KForm11.CoolHint2KFormAct ivate(Sender: TObject);
begin
OraQuery1.SQL.Text := 'SELECT id, 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;

тоесть там уже я могу редактировать и нажимаю на кнопку Сохранить
OraQuery2.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ=ol j where id=' + OraQuery1.FieldByName('id').value;
OraQuery1.ParamByName('fio').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('tabel').AsSt ring:= Edit2.Text;
OraQuery1.ParamByName('ceh').AsStri ng:= Edit3.Text;
OraQuery1.ParamByName('dolj').AsStr ing:= Edit4.Text;
OraQuery2.ExecSQL;
OraQuery1.close;
OraQuery1.open;

[Sparky]

id точно есть в самой таблице и так называется?

[crit]

есть.. тока когда щелкаю на сохранить вылазит ошибка Could not convert variant of type (NULL) into type (string)

[crit]

OraQuery2.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ=ol j where id=' + OraQuery1.FieldByName('id').value;
ошибка указывает сюда

[Sparky]

сушай лучше пришли мне все это на почту

[crit]

ок,ща пришлю!

[crit]

так а почта какая??