readerquit.txt

来自「基于Interbase的图书管理系统」· 文本 代码 · 共 41 行

CREATE TABLE READERQUIT (
  READERQUIT_NO INTEGER NOT NULL,
  READER_NO DREADERNO NOT NULL,
  READER_ID DREADERID NOT NULL,
  READER_NAME CHAR(10) not null,
  READER_DEPT DDEPT NOT NULL,
  READER_DODATE DDATE NOT NULL,
  READER_QUITDATE DDATE
    )
ALTER TABLE READERQUIT
  ADD CONSTRAINT PREADERQUIT_NO 
  PRIMARY KEY (READERQUIT_NO)
CREATE TRIGGER TREADERQUITNO FOR READERQUIT BEFORE INSERT POSITION 0 as begin
  new.READERQUIT_NO=gen_id(GEN_READERQUITNO, 1);
end

CREATE PROCEDURE GOID_READER (
  IREADER_ID VARCHAR(14),
  IREADER_QUITDATE DATE
) RETURNS (
  RVALUES INTEGER
) AS   
DECLARE VARIABLE tempint integer;
begin
SELECT COUNT(*) FROM BORROWITEMS
where (borrow_id=(select borrow_id from borrowbooks
where reader_id=:IREADER_ID))
INTO tempint;
IF (tempint<>0) THEN
  RVALUES=0;
ELSE BEGIN
DELETE FROM BORROWBOOKS WHERE READER_ID=:IREADER_ID;
INSERT INTO READERQUIT(READER_NO,READER_ID,READER_NAME,READER_DEPT,READER_DODATE)
SELECT READER_NO,READER_ID,READER_NAME,READER_DEPT,READER_DODATE FROM READER
WHERE READER_ID=:IREADER_ID;
UPDATE READERQUIT SET READER_QUITDATE=:IREADER_QUITDATE
WHERE READER_ID=:IREADER_ID;
DELETE FROM READER WHERE READER_ID=:IREADER_ID;
RVALUES=1;
END
end