Хранимая процедура

[Muramidaza]

Покажите на примере, пожалуйста, как будет выглядеть код хранимой процедуры и обращение к ней.

Есть таблица в проекте:

CREATE TABLE IF NOT EXISTS `catalog` (
  `IDComm` int(11) NOT NULL AUTO_INCREMENT,
  `IDTypeComm` int(11) NOT NULL,
  `NameComm` varchar(40) NOT NULL,
  `MNN` varchar(40) DEFAULT NULL,
  `IDManuf` int(11) NOT NULL,
  `IDForm` int(11) NOT NULL,
  `Dosage` varchar(100) DEFAULT NULL,
  `QtyInBox` int(11) NOT NULL,
  `MinQty` int(11) NOT NULL,
  `Note` varchar(255) DEFAULT NULL,
  `Del` int(11) NOT NULL,
  PRIMARY KEY (`IDComm`),
  KEY `IDTypeComm` (`IDTypeComm`),
  KEY `IDTypeComm_2` (`IDTypeComm`,`IDManuf`,`IDForm`),
  KEY `IDManuf` (`IDManuf`),
  KEY `IDForm` (`IDForm`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;

В Делфи есть запрос через UniQuery:

     with DM.UniQuery7 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('Insert into catalog (IDTypeComm, NameComm, MNN, IDManuf, IDForm, Dosage, QtyInBox, MinQty, Note)');
          SQL.Add('values (:idt, :nm, :mnn, :idm, :idf, :dosa, :qtyb, :qtym, :nt)');
          Params.ParamByName('idt').AsInteger:=DM.UniDataSource3.DataSet.FieldValues['IDTypeComm'];
          Params.ParamByName('nm').AsString:=Edit1.Text;
          Params.ParamByName('mnn').AsString:=Edit2.Text;
          Params.ParamByName('idm').AsInteger:=DM.UniDataSource4.DataSet.FieldValues['IDManuf'];
          Params.ParamByName('idf').AsInteger:=DM.UniDataSource5.DataSet.FieldValues['IDForm'];
          Params.ParamByName('dosa').AsString:=Edit3.Text;
          Params.ParamByName('qtyb').AsString:=Edit4.Text;
          Params.ParamByName('qtym').AsString:=Edit5.Text;
          Params.ParamByName('nt').AsString:=Edit6.Text;
          ExecSQL;
        end;

Как сделать чтобы вызывалась процедура и ей передавались эти параметры и какой компонент в Делфи для этого использовать?

И такой вопрос - если у пользователя нет прав на изменение например этой таблицы, но есть права на вызов процедур, и он вызывает эту процедуру - она выполнится?

[superedward]

Сообщение от Muramidaza

Как сделать чтобы вызывалась процедура и ей передавались эти параметры и какой компонент в Делфи для этого использовать?

И такой вопрос - если у пользователя нет прав на изменение например этой таблицы, но есть права на вызов процедур, и он вызывает эту процедуру - она выполнится?

SET TERM ^ ;

create or alter procedure GET_OSTATKI (
    INDEX1 INTEGER,
    DATE1 DATE)
returns (
    DATE2 DATE)
as
declare variable INDEX2 INTEGER;
begin
  DATE2 = '20-MAR-2012';
   /**/
end^

SET TERM ; ^

Вызывать процедуру можно обычным селектом

 SELECT DATE2 FROM GET_OSTATKI(:INDEX1,DATE1)

Если у процедуры есть права на изменение, то да

GRANT SELECT,UPDATE,DELETE ON CATALOG TO PROCEDURE GET_OSTATKI;

[Muramidaza]

Как вызвать хранимую процедуру из UniQuery? (СУБД MySQL) Просто не хочу лишний UniStoredProc ставить, если можно из Query вызывать. Или все же надо, я диплом пишу - докопаются?

[superedward]

Сообщение от Muramidaza

Как вызвать хранимую процедуру из UniQuery? (СУБД MySQL) Просто не хочу лишний UniStoredProc ставить, если можно из Query вызывать. Или все же надо, я диплом пишу - докопаются?

Вызывать процедуру можно обычным селектом в Query - это обычная практика
Код:

 SELECT DATE2 FROM GET_OSTATKI(:INDEX1,:DATE1)