Delphi 2010 ve Delpi XE2 aynı pc üzerinde kullanımı!
Destek talebi(Lütfen oy verelim!)
Sitemiz üye alımına kapatılmıştır!
! CODEBANK 2012 !
İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
CREATE DOMAIN DOM_DATE AS date;CREATE DOMAIN DOM_INT AS integer;CREATE DOMAIN DOM_TIME AS TIME;CREATE DOMAIN DOM_STR50 AS varchar(50) COLLATE UTF8;
CREATE TABLE DATAS( DATAS_ID DOM_INT NOT NULL, DATAS_DATE DOM_DATE, DATAS_TIME DOM_TIME, DATAS_USER DOM_STR50, DATAS_1 DOM_INT);
SET TERM ^;CREATE TRIGGER TRGDATAS_ZAMANYAZ FOR DATASACTIVE BEFORE INSERT POSITION 0ASBEGIN /* enter trigger code here */ IF (NEW.DATAS_DATE IS NULL) THEN NEW.DATAS_DATE = current_date; IF (NEW.DATAS_TIME IS NULL) THEN NEW.DATAS_TIME = current_time; IF (NEW.DATAS_USER IS NULL) THEN NEW.DATAS_USER = current_USER; END^SET TERM ;^
CREATE TABLE DATASLOG( DATASLOG_ID DOM_INT NOT NULL, DATASLOG_STATUS DOM_INT, /* datas tablosundaki kayıt ne hareket görmüş DATASLOG_ACTINDATE DOM_DATE, /* değişiklik tarihi DATASLOG_ACTINTIME DOM_TIME, /* değişiklik saati DATASLOG_DATE DOM_DATE, DATASLOG_USER DOM_STR50, DATASLOG_1 DOM_INT, DATASLOG_TIME DOM_TIME);
PROCEDURE BACKUPDATAS ( VDATAS_ID integer, VDATAS_STATUS integer )ASDECLARE VARIABLE DATAS_1 INTEGER;DECLARE VARIABLE DATAS_DATE DATE; DECLARE VARIABLE DATAS_TIME TIME;DECLARE VARIABLE DATAS_USER VARCHAR(50) ; DECLARE VARIABLE DATAS_RETYPE INTEGER ; /* AHMET NURİ DENİZ 03.01.2012 */BEGIN FOR SELECT DATAS.DATAS_1, DATAS.DATAS_DATE, DATAS.DATAS_TIME, DATAS.DATAS_USER FROM DATAS where DATAS.DATAS_ID = :VDATAS_ID /* SİZ DE BURADA ID GİBİ UNİC BİR ALAN KULLANIN*/ INTO :DATAS_1, :DATAS_DATE, :DATAS_TIME, :DATAS_USER DO BEGIN INSERT INTO DATASLOG ( DATASLOG_1, DATASLOG_DATE, DATASLOG_TIME, DATASLOG_USER, DATASLOG_STATUS ) VALUES (:DATAS_1, :DATAS_DATE, :DATAS_TIME, :DATAS_USER, :VDATAS_STATUS ); end suspend;END^
TRIGGER TRGDATAS_LOGAFINST ACTIVEAFTER INSERT POSITION 0ASBEGIN /* AHMET NURİ DENİZ 03.01.2012*/ EXECUTE PROCEDURE BACKUPDATAS(NEW.DATAS_ID, 1); /* KAYDIN INSERTI OLDUĞU İÇİN 1 PAREMETRESİ GÖNDERİYORUZ */END^