[Kaf_Dağı]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

sql cumleleri
 
query1.sql.text:=function veye procedure cumlerini yazınız
query1.execsql;
 
 
 
// function
 
CREATE FUNCTION `dovparx`(kur varchar(20),kur1 varchar(20),tr date)
    RETURNS double
    DETERMINISTIC
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
declare kr double;
declare kr1 double;
select tutar into kr from doviz where tar=tr and ad=kur;
select tutar into kr1 from doviz where tar=tr and ad=kur1;
RETURN (kr/kr1);
END;
 
 
/// procedure
 
CREATE PROCEDURE `bakgiris`(in knox double,hid double,tut double,dbrm varchar(20),tarx date)
    NOT DETERMINISTIC
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
declare say double;
if knox <> 0 then
select count(*) into say from bakye where kno=knox;
if say=0 then
insert into bakye(kno,tutar,tar) values(knox,(tut*dovpar(dbrm,'TL',tarx)),tarx);
else
if knox <> 0 then
update bakye set tutar = tutar+(tut*dovpar(dbrm,'TL',tarx)) and tar=tarx where kno=knox;
end if;
end if;
end if;
END;