W
winmax
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠:
现在我在oracle里面写了这样一个函数:
create or replace function re_insert_table(varname in varchar2,varsex in char)
return boolean is
xtempid zqb1.id%type;
xname varchar2(12);
xsex char(2);
cursor cur_id is select max(id) from zqb1;
begin
xname:=varname;
xsex:=varsex;
open cur_id;
if cur_id%found then
fetch cur_id into xtempid;
xtempid:=xtempid+1;
else
xtempid:=0;
end if;
close cur_id;
insert into zqb1 values(xtempid,xname,xsex);
return(true);
exception
when others then
return(false);
end re_insert_table;
以上的程序实现的功能是:创建了一个返回BOOLEAN型的函数,当成功插入一条记录后,函数会返回TRUE值,否则就返回FALSE值!
现在的问题是:
我怎样在delphi里面实现:1,调用函数;2,函数返回值,如果返回TRUE则在程序里显示"插入成功",如果函数返回FALSE值,则显示"插入失败"呢??
还有,就是公司要求要用ADO来做的,我试过用ADOStoreProc这个控件来做,但设置了connection和procedurename后再进去parameters这个窗口单击"ADD"这个按钮后,DELPHI就无端端地消失了!试了好几次都是这样子,所以在用ADO控件的时候最好不要用这个控件来解答了(针对我上面提的问题).............
很急啊~~~希望各位熟悉oracle跟delphi的大侠帮帮忙吧!!!!!!!!!
已经没有什么分了!在这里只有100分,希望各位不要谦弃!!先谢了!!
现在我在oracle里面写了这样一个函数:
create or replace function re_insert_table(varname in varchar2,varsex in char)
return boolean is
xtempid zqb1.id%type;
xname varchar2(12);
xsex char(2);
cursor cur_id is select max(id) from zqb1;
begin
xname:=varname;
xsex:=varsex;
open cur_id;
if cur_id%found then
fetch cur_id into xtempid;
xtempid:=xtempid+1;
else
xtempid:=0;
end if;
close cur_id;
insert into zqb1 values(xtempid,xname,xsex);
return(true);
exception
when others then
return(false);
end re_insert_table;
以上的程序实现的功能是:创建了一个返回BOOLEAN型的函数,当成功插入一条记录后,函数会返回TRUE值,否则就返回FALSE值!
现在的问题是:
我怎样在delphi里面实现:1,调用函数;2,函数返回值,如果返回TRUE则在程序里显示"插入成功",如果函数返回FALSE值,则显示"插入失败"呢??
还有,就是公司要求要用ADO来做的,我试过用ADOStoreProc这个控件来做,但设置了connection和procedurename后再进去parameters这个窗口单击"ADD"这个按钮后,DELPHI就无端端地消失了!试了好几次都是这样子,所以在用ADO控件的时候最好不要用这个控件来解答了(针对我上面提的问题).............
很急啊~~~希望各位熟悉oracle跟delphi的大侠帮帮忙吧!!!!!!!!!
已经没有什么分了!在这里只有100分,希望各位不要谦弃!!先谢了!!