IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Delphi (https://www.ircforumlari.net/delphi/)
-   -   mysql function ve procedure tanımlama (https://www.ircforumlari.net/delphi/689515-mysql-function-ve-procedure-tanimlama.html)

Kaf_Dağı 18 Mart 2015 14:16

mysql function ve procedure tanımlama
 
Kod:

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;



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:07.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net