Oracle+Delphi хранение процедур на Update

[Аватар]

В процедуре вижу, не вижу где задается при обращении к процедуре значение этого параметра

[xxbesoxx]

Вот здесь из Delphi если я правильно делаю

procedure TfrmEdit.btOKClick(Sender: TObject);
begin
     Module.EditProc.StoredProcName := 'UpdateSales';
     Module.EditProc.Prepare;
     Module.EditProc.ParamByName('P_SALES_DATE').AsDateTime := dtsale.Date;
     Module.EditProc.ParamByName('P_SALES_NAME').AsString := edname.Text;
     Module.EditProc.ParamByName('P_SALES_KOLVO').AsInteger := StrToInt(edKolvo.Text);
     Module.EditProc.ParamByName('P_SALES_CENA').AsFloat := StrToFloat(edPrice.Text) ;
     Module.EditProc.ExecSQL;
     Module.Slqry.Refresh;
     frmEdit.Close;
end;

[xxbesoxx]

Что я делаю не правильно ? Где я ошибаюсь ?

[Аватар]

В этом коде нет присвоения значения параметру p_SALES_ID

[xxbesoxx]

Правильно.

Module.EditProc.ParamByName('p_SALES_ID').AsInteger := Как здесь прописать SALES_ID

У каждого своего строку своего уникальное

[xxbesoxx]

Ребята спасибо можно тема закрыть

[xxbesoxx]

Аватар, Serge_Bliznykov, Stilet Огромное вам спасибо! Дай бог вам здоровья и счастья
Реализовал так. На Form2 добавляю cxEditText его имя edID . Потом на frmMain пишу

procedure TfrmMain.btEditClick(Sender: TObject);
begin
     Module.Slqry.Edit;
     frmEdit.edID.Text := Module.Slqry.FieldByName('SALES_ID').AsString;
     frmEdit.dtsale.Date := Module.Slqry.FieldByName('SALES_DATE').AsDateTime;
     frmEdit.edname.Text := Module.Slqry.FieldByName('SALES_NAME').AsString;
     frmEdit.edKolvo.Text := Module.Slqry.FieldByName('SALES_KOLVO').AsString;
     frmEdit.edPrice.Text := Module.Slqry.FieldByName('SALES_CENA').AsString;
     frmEdit.ShowModal;
end;

И на frmEdit тоже дописал

procedure TfrmEdit.btOKClick(Sender: TObject);
begin
     Module.EditProc.StoredProcName := 'UpdateSales';
     Module.EditProc.Prepare;
     Module.EditProc.ParamByName('p_SALES_ID').AsInteger := StrToInt(edID.Text);
     Module.EditProc.ParamByName('P_SALES_DATE').AsDateTime := dtsale.Date;
     Module.EditProc.ParamByName('P_SALES_NAME').AsString := edname.Text;
     Module.EditProc.ParamByName('P_SALES_KOLVO').AsInteger := StrToInt(edKolvo.Text);
     Module.EditProc.ParamByName('P_SALES_CENA').AsFloat := StrToFloat(edPrice.Text) ;
     Module.EditProc.ExecSQL;
     Module.Slqry.Refresh;
     frmEdit.Close;
end;

Все работает хорошо , edID даю Visible := False Потому что в таблице SALES_ID нумеруются с помощью SEQUENCE
ОГРОМНОЕ СПАСИБО РЕБЯТА