【正文】 +出版社 +39。 end end 15) 添加出版社信息 CREATE procedure P_添加出版社 出版社 char(50),地址 char(50)=NULL,網(wǎng)址 char(50)=NULL,E_mail char(50)=NULL as begin if not exists(select * from 出版社信息 where 出版社 =出版社 ) begin insert into 出版社信息 values(出版社 ,地址 ,網(wǎng)址 ,E_mail) print39。 end end 14) 修改密碼 create procedure P_ 管 理 員 密 碼 修 改 用戶名 varchar(50), 密碼 varchar(50)=123456,修改后密碼 varchar(50) as begin if exists(select * from 管理者信息 where 用戶名 =用戶名 and 密碼 =密碼 ) begin if 密碼 NULL begin update 管理者信息 36 set 密碼 =修改后密碼 where 密碼 =密碼 and 用戶名 =用戶名 print39。 end else begin 35 update 書籍信息 set 叢書系列 =叢書系列 ,作者 =作者 ,責(zé)任編輯 =責(zé)任編輯 ,字?jǐn)?shù) =字?jǐn)?shù) ,定價 =定價 ,出版時間 =出版時間 , 主題分類 =主題分類 ,二級分類 =二級分類 ,館內(nèi)借閱分類 =館內(nèi)借閱分類 ,出版社 =出版社 where 索書號 =索書號 print39。 end end else begin print39。 end end 11) 讀者注銷 create procedure P_讀者注銷 證號 char(10),姓名 varchar(20) as begin if not exists(select * from 借閱信息 where 證號 =證號 ) begin if exists(select * from 讀者信息 where 證號 =證號 and 姓名 =姓名 ) begin if 0=(select 欠費(fèi) from 讀者信息 where 證號 =證號 ) begin delete from 讀者信息 where 證號 =證號 and 姓名 =姓名 end else begin print39。+str(圖書編號 ) end end 9) 讀者信息查詢 create procedure P_讀者信息查詢 證號 char(10)=NULL as begin select 證號 ,姓名 ,聯(lián)系方式 ,已借書數(shù)目 as 已借圖書冊數(shù) ,讀者類別 ,能否借書 ,欠費(fèi) from 讀者信息 where 證號 =證號 end 33 10) 讀者注冊 create procedure P_ 讀者注冊 證號 char(10), 姓名 varchar(20), 密碼 varchar(20)=123456,聯(lián)系方式 char(50)=NULL, 已借書數(shù)目 int=0,讀者類別 char(10)=39。 end end 8) 圖書賠償 CREATE procedure P_賠償圖書 證號 char(10),圖書編號 int,圖書價格 money,上交金額 money as begin if exists(select * from 借閱信息 where 證號 =證號 and 圖書編號 =圖書編號 ) begin update 讀者信息 set 欠費(fèi) =欠費(fèi) +圖書價格 上交金額 where 證號 =證號 exec P_刪 除書籍信息 圖書編號 end else begin print39。 end end 4) 添加書籍信息 CREATE procedure P_ 添加書籍信息 索 書 號 char(20), 叢書系列 nchar(50)=NULL, 作者 nchar(50)=NULL, 責(zé)任編輯 nchar(50)=NULL, 字?jǐn)?shù) int=NULL, 定價 money=NULL, 出版時間 datetime=NULL,主題分類 nchar(50)=NULL,二級分類 nchar(50)=NULL, 館內(nèi)借閱分類 int=NULL, 總冊數(shù) int=NULL, 庫存量 int=NULL, 出 版社 char(50)=NULL, 書名 char(50)=NULL as begin declare 圖書編號 int if exists(select * from 書籍信息 where 索書號 =索書號 ) begin update 書籍信息 set 總冊數(shù) =總冊數(shù) +總冊數(shù) ,庫存量 =庫存量 +庫存量 where 索書號 =索書號 end else begin if not Exists(select * from 出版社信息 where 出版社 =出版社 ) and 出版社 is not NULL begin insert into 出版社信息 values(出版社 ,NULL,NULL,NULL) insert into 書籍信息 (索書號 ,叢書系列 ,作者 ,責(zé)任編輯 ,字?jǐn)?shù) ,定價 ,出版時間 ,主題分類 ,二級分類 ,館內(nèi)借閱分類 ,總冊數(shù) ,庫存量 ,出版社 ,書名 ) values(索書號 ,叢書系列 ,作者 ,責(zé)任編輯 ,字?jǐn)?shù) ,定價 ,出版時間 ,主題分 25 類 ,二級分類 ,館內(nèi)借閱分類 ,總冊數(shù) ,庫存量 ,出版社 ,書名 ) end else begin insert into 書籍信息 (索書號 ,叢書系列 ,作者 ,責(zé)任編輯 ,字?jǐn)?shù) ,定價 ,出版時間 ,主題分類 ,二級分類 ,館內(nèi)借閱分類 ,總冊數(shù) ,庫存量 ,出版社 ,書名 ) values(索書號 ,叢書系列 ,作者 ,責(zé)任編輯 ,字?jǐn)?shù) ,定價 ,出版時間 ,主題分類 ,二級分類 ,館內(nèi)借閱分類 ,總冊數(shù) ,庫存量 ,出版社 ,書名 ) end end set 圖書編號 =(select max(圖書編號 ) from 圖書編號 ) while 總冊數(shù) 0 begin set 圖書編號 =圖書編號 +1 insert into 圖書編號 values(圖書編號 ,索書號 ,1) set 總冊數(shù) =總冊數(shù) 1 end end 5) 圖書查詢存儲過程 CREATE procedure P_圖書查詢 索書號 char(20)=NULL,書名 char(50)=NULL,作者 char(50)=NULL,出版社 char(50)=NULL as begin if 索書號 is not NULL begin if 書名 is not NULL begin if 作者 is not NULL begin if 出版社 is not NULL begin 索書號，書名，作者，出版社 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 26 from 書籍信息 ,圖書編號 where 書籍信息 .索書號 =圖書編號 .索書號 and 書籍信息 .索書號 =索書號 and 書名 =書名 and 作者 =作者 and 出版社 =出版社 and 圖書編號 .是否在庫=1 end else begin 索書號，書名，作者 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 from 書籍信息 ,圖書編號 where 書籍信息 .索書號 =圖書編號 .索書號 and 書籍信息 .索書號 =索書號 and 書名 =書名 and 作者 =作者 and 圖書編號 .是否在庫 =1 end end else begin if 出版社 is not NULL begin 索書號，書名，出版社 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 from 書籍信息 ,圖書編號 where 書籍信息 .索書號 =圖書編號 .索書號 and 書籍信息 .索書號 =索書號 and 書名 =書名 and 出版社 =出版社 and 圖書編號 .是否在庫 =1 end else begin 索書號， 書名 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 27 from 書籍信息 ,圖書編號 where 書籍信息 .索書號 =圖書編號 .索書號 and 圖書編號 .是否在庫=1 and 書籍信息 .索書號 =索書號 and 書名 =書名 end end end else begin if 作者 is not NULL begin if 出版社 is not NULL begin 索書號，作者，出版社 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 from 書籍信息 ,圖書編號 where 書籍信息 .索書號 =圖書編號 .索書號 and 書籍信息 .索書號 =索書號 and 作者 =作者 and 出版社 =出版社 and 圖書編號 .是否在庫=1 end else begin 索書號，作者 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 from 書籍信息 ,圖書編號 where 書籍信息 .索書號 =圖書編號 .索書號 and 圖書編號 .是否在庫=1 and 書籍信息 .索書號 =索書號 and 作者 =作者 end end else begin if 出版社 is not NULL begin 28 索書號，出版社 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 from 書籍信息 ,圖書編號 where 書籍信息 .索書號 =圖書編號 .索書號 and 圖書編號 .是否在庫=1 and 書籍信息 .索書號 =索書號 and 出版社 =出版社 end else begin 索書號 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 from 書籍信息 ,圖書編號 where 書籍信息 .索書號 =圖書編號 .索書號 and 圖書編號 .是否在庫=1 and 書籍信息 .索書號 =索書號 end end end end else begin if 書名 is not NULL begin if 作者 is not NULL begin if 出版社 is not NULL begin 書名，作者，出版社 select 書籍信息 .索書號 ,圖書編號 ,書名 ,作者 ,字?jǐn)?shù) ,出版時間 ,庫存量 ,總冊數(shù) ,定價 ,出版社 from 書籍信息 ,圖書編號 where 書籍 信息 .索書號 =圖書編號 .索書號 and 書名 =書名 and 圖書編號 .是否在庫 =1 and 作者 =作者 and 出