iBase.ru Forum

Код: Выделить всё

  with SQLProc do
  begin
    StoredProcName:='UPDATE_MENU_ITEM';
    Params.Clear;
    P1:=TParam.Create(Params,ptInput);
    P2:=TParam.Create(Params,ptInput);
    P3:=TParam.Create(Params,ptInput);
    P4:=TParam.Create(Params,ptInput);
    P5:=TParam.Create(Params,ptInput);
    P6:=TParam.Create(Params,ptInput);

    P1.Name:='ID';
    P2.Name:='NAME'; P2.Size:=40;
    P3.Name:='PRICE';
    P4.Name:='IS_GROUP';
    P5.Name:='UP_ID';
    P6.Name:='ID_PLACE';
    P6.asinteger:=DM.FirmId;
    SQLProc.Prepared:=true;    
  end;

  with dbxSHMenu do 
       //именно в этом цикле тормоз
       while not EOF do
       begin
          P1.asinteger:=FieldByName('id').asinteger;
          P2.asstring:=FieldByName('name').asstring;
          P3.asfloat:=FieldByName('price').asfloat;
          P4.asinteger:=FieldByName('is_group').asinteger;
          P5.asinteger:=FieldByName('up_id').asinteger;
          SQLProc.ExecProc; 
          Next;
       end;

Код: Выделить всё

insert into Menu_Item (id, name, price, is_group, up_id, id_place)
  values (:id, :name, :price, :is_group, :up_id, :id_place);

Код: Выделить всё

CREATE PROCEDURE UPDATE_MENU_ITEM (
    id integer,
    name varchar(40),
    price double precision,
    is_group integer,
    up_id integer,
    id_place integer)
as
declare variable aid integer;
begin
  /* Procedure Text */
  if (:is_group=1) then
   begin
     aid=0;
     select id from menu_groups where id=:id and id_place=:id_place into :aid;
     if (:aid>0) then
      begin
        update menu_groups
          set name=:name, up_id=:up_id, state=1
          where id=:id and id_place=:id_place;
      end
     else
      begin
        insert into menu_groups
           (id,id_place,name,up_id,state)
           values (:id,:id_place,:name,:up_id,1);
      end
   end
  else
   begin
     aid=0;
     select id from menu_items where id=:id and id_place=:id_place into :aid;
     if (:aid>0) then
      begin
        update menu_items
          set name=:name, price=:price, up_id=:up_id, state=1
          where id=:id and id_place=:id_place;
      end
     else
      begin
        insert into menu_items
           (id,id_place,name,price,up_id,state)
           values (:id,:id_place,:name,:price,:up_id,1);
      end
   end

  suspend;