VPF::помогите перевести на PL/SQL - Форум программистов

KaKTyCc

Дата 29.6.2006, 00:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 2.8.2005

Репутация: 1
Всего: 1

Код


                qPlansList->Active = false;
                qPlansList->SQL->Clear();
                qPlansList->SQL->Add("select * from metodist.plans p, metodist.groups g where p.id_speciality = g.id_speciality and p.semestr=g.semestr and g.group_name='"+eGroup->Text+"'");
                qPlansList->Active = true;
        //--------------------------------
                qAEGroups->Active = false;
                qPlansList->First();
                AnsiString ProverType;
                while(!qPlansList->Eof)
                {
                        qAEGroups->SQL->Clear();
                        if(qPlansList->FieldByName("exam")->AsInteger > 0)
                                ProverType = "Экзамен";
                        else if(qPlansList->FieldByName("zachet")->AsInteger > 0)
                                ProverType = "Зачет";
                        else
                                ProverType = "Курс. раб.";
                        qAEGroups->SQL->Add("insert into metodist.work_plans values(metodist.id_slave.nextval,"+qPlansList->FieldByName("id_plan")->AsString+","+qPlansList->FieldByName("id_group")->AsString+",null,'"+ProverType+"')");
                        qAEGroups->ExecSQL();
                        qPlansList->Next();
                }

этот код надо перенести в триггер

Код


select * from metodist.plans p, metodist.groups g where p.id_speciality = g.id_speciality 
and p.semestr=g.semestr and g.group_name=:New.group_name; --x

--все выбранное из первого запроса надо вставить
insert into metodist.work_plans values
(metodist.id_slave.nextval,x.id_plan,x.id_group,null, ProverType);

PL/SQL только начал изучать, помогите

--------------------

Мой блог

KaKTyCc

Дата 29.6.2006, 00:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 2.8.2005

Репутация: 1
Всего: 1

Код


 select * from metodist.plans p where p.id_speciality = :New.id_speciality 
 and p.semestr=:New.semestr; --x

insert into metodist.work_plans values
(metodist.id_slave.nextval,x.id_plan,x.id_group,null,ProverType);

надо как то в цикле организовать

--------------------

Мой блог

d_k

Дата 29.6.2006, 09:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 20.7.2004

Репутация: нет
Всего: 1

Если триггер -то строковой создать( for each row).
Или конструкция forall.

KaKTyCc

Дата 2.7.2006, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 2.8.2005

Репутация: 1
Всего: 1

Код


CREATE OR REPLACE TRIGGER METODIST.T_GENWORKPLANS
AFTER INSERT
ON METODIST.GROUPS
REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE

get_plan plans%ROWTYPE;
v_session varchar2(10);

BEGIN

for rec in ( select * into get_plan from plans p where p.id_speciality = :New.id_speciality 
 and p.semestr=:New.semestr and p.version_year=:New.version_year) 
 
 loop
  if rec.exam > 0
   then v_session := 'Экзамен';
  elsif rec.zachet > 0
   then v_session := 'Зачет';
  else  
   v_session := 'Курс. раб.'; 
  end if;  
 insert into work_plans values
(id_slave.nextval,rec.id_plan,:New.id_group,null,v_session);
end loop;

END ;
/

--------------------

Мой блог

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Oracle \| Следующая тема »