Oracle Процедура. передать запись через Delphi

[xxbesoxx]

Здравствуйте ребята. Задача такой, создать Oracle процедура и через Delphi вызывать это процедура и делать INSERT

1. на пример создал таблица

CREATE TABLE sales
(
  sales_id numeric(10) not null,
  sales_date DATE,
  sales_name varchar2(50) not null,
  sales_kolvo NUMERIC(10),
  Sales_cena FLOAT(126)
 );

2. создал последовател

create sequence sales_seq  start WITH 1 increment BY 1;

3. создать тригер before insert

CREATE  TRIGGER  Sales -- b.i. = "before insert" -- 
before INSERT ON SALES FOR each row -- при добавления таблице sales
begin
  -- даем возможность заполнять поле произвольными значениями
  -- используем последовательность, только если передан NULL
  IF :new.SALES_ID IS NULL then -- если SALES_ID равно нул 
    SELECT sales_seq.NEXTVAL -- тогда ползуеть  последовател sales_seq и добавляеть ID +1
    INTO :new.SALES_ID
    FROM dual;
  end IF;
end;
/

4. создал процедура

 create or replace procedure Sal_ins (
 p_id sales.sales_id%type,
 p_date sales.sales_date%type,
 p_name sales.sales_name%type,
 p_kolvo sales.sales_kolvo%type,
 p_Cena sales.sales_cena%type) as
 begin
 insert into sales (sales_id, sales_date, sales_name, sales_kolvo, Sales_cena)
 values (p_id, p_date, p_name, p_kolvo, p_Cena );
 end Sal_ins;

5. вызываю-и передаю через SQL Developer

begin
 Sal_ins(3, '20.05.2012', 'Kofe','5','8.20');
end;

Вопрос : Как вызывать это процедура через Delphi ? До пустим надо добавить запись .
для подключение Oracle использую компонент ODAC OraSession1, OraQuery1, OraDataSource1 Не знаю работать к процедурами через Delphi .
ПОЖАЛУЙСТА ПОКАЖИТЕ ПРИМЕР ИЛИ ДАЙТЕ СИЛКА ГДЕ НАПИСАНО КАК РАБОТАТЬ ПРОЦЕДУРАМИ ЧЕРЕЗ Delphi

[eval]

OraStoredProc используйте

[xxbesoxx]

eval Пожалуйста если сильно не отвлекаю, Покажите пример. Я через ODAC подключен на Oracle . Что такой OraStoredProc не знаю. Пожалуйста боле подробно я вас прошу

[Toxa]

а в чем собсно проблема то, какая ошибка?

begin
 Sal_ins(3, '20.05.2012', 'Kofe','5','8.20');
end;

почему почти все параметры передаешь строкой?

begin
 Sal_ins(3, to_date('20.05.2012','dd.mm.yyyy'), 'Kofe',5,8.20);
end;

но будет лучше

begin
 Sal_ins(:p_id, :p_date, :p_name, :p_kolvo, :p_Cena);
end;

в компоненте OraQuery1 (если не ошибаюсь, вкладка parameters) объяви переменные
и в коде уже присваивай значения, с ODAC не работал не знаю как там пишется, но предположительно OraQuery1.ParamByName('p_id').value := 3, и так со всеми

[xxbesoxx]

Добавить данных я магу простим способом

procedure TForm2.cxButton1Click(Sender: TObject);
begin
Form1.OraQuery1.Insert;
form1.OraQuery1.FieldByName('sales_ date').AsDateTime := cxDateEdit1.Date;
form1.OraQuery1.FieldByName('sales_ name').AsString := cxTextEdit1.Text;
form1.OraQuery1.FieldByName('sales_ kolvo').AsString := cxTextEdit2.Text;
form1.OraQuery1.FieldByName('sales_ cena').AsString := cxTextEdit3.Text;
form1.OraQuery1.Post;
form2.Close;

end;

Я не знаю как вызывать это процедура и как делать INSERT ? Как обращаться к базе через процедура ?

[xxbesoxx]

Insert Я реализовал так.
1. Form1

Form2.ShowModal;

2. из Form2 делаю так . все работает последовательности (sales_seq) добавляет автоматически. Но ребята по ваши взгляд можно еще по луче ?

procedure TForm2.cxButton1Click(Sender: TObject);
begin
  form1.OraQuery1.SQL.Text := 'SELECT sales_seq.nextval from sales';  //  последовательности (sales_seq)
  form1.OraQuery1.Open;
  form1.OraQuery1.SQL.Text := 'INSERT INTO sales (sales_id, sales_date, sales_name, sales_kolvo, sales_cena) VALUES(:id, :sd, :sn, :sk, :sc)';
  form1.OraQuery1.ParamByName('sd').AsDatetime := cxDateEdit1.Date;
  form1.OraQuery1.ParamByName('sn').AsString := cxTextEdit1.Text;
  form1.OraQuery1.ParamByName('sk').AsString := cxTextEdit2.Text;
  form1.OraQuery1.ParamByName('sc').AsString := cxTextEdit3.Text;
  form1.OraQuery1.ExecSQL;
  form1.OraQuery1.Close;
  form1.OraQuery1.SQL.Clear;
  form1.OraQuery1.SQL.Add('SELECT * FROM sales');
  form1.OraQuery1.Open;
  form2.Close;

end;

[xxbesoxx]

еще проверка на Edit можно и иногда нужно

procedure TForm2.cxButton1Click(Sender: TObject);
begin
  if  (cxDateEdit1.Text<>'') and (cxTextEdit1.Text<>'') and (cxTextEdit2.Text<>'') and (cxTextEdit3.Text<>'') then //проверяем введены ли значения
  begin
  form1.OraQuery1.SQL.Text := 'SELECT sales_seq.nextval from sales';  //  последовательности (sales_seq)
  form1.OraQuery1.Open;
  form1.OraQuery1.SQL.Text := 'INSERT INTO sales (sales_id, sales_date, sales_name, sales_kolvo, sales_cena) VALUES(:id, :sd, :sn, :sk, :sc)';
  form1.OraQuery1.ParamByName('sd').AsDatetime := cxDateEdit1.Date;
  form1.OraQuery1.ParamByName('sn').AsString := cxTextEdit1.Text;
  form1.OraQuery1.ParamByName('sk').AsString := cxTextEdit2.Text;
  form1.OraQuery1.ParamByName('sc').AsString := cxTextEdit3.Text;
  form1.OraQuery1.ExecSQL;
  form1.OraQuery1.Close;
  form1.OraQuery1.SQL.Clear;
  form1.OraQuery1.SQL.Add('SELECT * FROM sales');
  form1.OraQuery1.Open;
  form2.Close;
     end
  else
    begin
       MessageDlg('Заполните все поля пожалуйста !',mtWarning, [mbOK], 0);

end;
end;

end.

[xxbesoxx]

Ребята можно закрыть тема. Сделал как

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  OraStoredProc1.StoredProcName := 'Sal_ins';
  OraStoredProc1.Prepare;
  OraStoredProc1.ParamByName('p_date').AsDateTime := cxDateEdit1.Date;
  OraStoredProc1.ParamByName('p_name').AsString := Edit1.Text;
  OraStoredProc1.ParamByName('p_kolvo').AsString := Edit2.Text;
  OraStoredProc1.ParamByName('p_Cena').AsString := Edit3.Text;
  OraStoredProc1.Execute;
  Application.MessageBox('Новая запись успешно добавлено',' сообщения');
  OraQueryProc.Close;
  OraQueryProc.SQL.Clear;
  OraQueryProc.SQL.Add('SELECT * FROM Sales');
  OraQueryProc.Open;
end;

eval Спасибо. я поздно переварил твои намёк