Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.05.2014, 10:56   #1
nicol
Новичок
Джуниор
 
Регистрация: 08.05.2014
Сообщений: 1
По умолчанию использование oracl процедур

Товарищи помогите!! имеется процедура в oracle. надо из делфи компонентов edit'ов переслать параметры в процедуру и результат str_ln вернуть обратно в edit. (какие компоненты использовать и их настройка?)

cама процедура

pROCEDURE PACK(FAMZ in varchar2, IMJZ in varchar2, OTCHZ in varchar2,
D_RZ in number, M_RZ in number, Y_RZ in number, str_ln OUT VARCHAR2) IS
sps S2I_OSK_SPR.TX_SPS;
GENOTIP varchar2(12);
str VARCHAR2(20000);
BEGIN
sps(1).RWD := NULL;
sps(1).NMUF := NULL;
sps(1).FAM := NULL;
sps(1).IMJ := NULL;
sps(1).OTCH := NULL;
sps(1).DT_ROJD := NULL;
sps(1).MES_ROJD := NULL;
sps(1).FORMULA := NULL;
sps(1).NSYST := NULL;
sps(1).IBD_ARX := NULL;
sps(1).FAM_F := NULL;
sps(1).IMJ_F := NULL;
sps(1).OTCH_F := NULL;
sps(1).TXL := NULL;
str_ln := NULL;
GENOTIP := substr(FAMZ,1,3) || nvl( substr( IMJZ,1,1),'_') ||nvl( substr( OTCHZ,1,1),'_') || nvl( substr( to_char( Y_RZ),3,2),'__');
s2i_osk_spr.sel_sps(sps,NULL,GENOTI P,FAMZ,IMJZ,OTCHZ,D_RZ,M_RZ,Y_RZ,NU LL,NULL,'96 FK30 IAO','.1.');
FOR I in 1 .. 300 LOOP
EXIT when sps(i).FAM is null ;
if sps(i).RWD is not null then
s2i_osk_spr.FORM_OSK_SPR(sps(i).RWD , null, '96 FK30', null,0,0,0,0, str );
if str_ln is null then str_ln:=str;
else str_ln:=str_ln||str;
end if;
end if;
end loop;
END;
nicol вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование процедур в С++ Tagimasad Общие вопросы C/C++ 1 12.12.2012 20:01
ИСПОЛЬЗОВАНИЕ ПРОЦЕДУР в C++ baximaxik Помощь студентам 7 17.11.2012 14:51
Использование процедур WTF??? Паскаль, Turbo Pascal, PascalABC.NET 0 21.12.2011 14:24
Использование процедур cyt Паскаль, Turbo Pascal, PascalABC.NET 1 09.10.2010 13:15
использование процедур street-walker Общие вопросы Delphi 4 14.09.2010 21:38