|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.05.2014, 10:56 | #1 |
Новичок
Джуниор
Регистрация: 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; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Использование процедур в С++ | 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 |