【正文】 values(39。,39。,25) 基本查詢 用查詢查看曹操床位費(fèi)用詳情 select 病人 .病人號(hào) ,病人 .姓名 ,床位 .設(shè)備號(hào) ,床位 .價(jià)格 ,床位占用 .開(kāi)始時(shí)間 ,床位占用 .結(jié)束時(shí)間 ,convert(int,( (YEAR(床位占用 .結(jié)束時(shí)間 )YEAR(床位占用 .開(kāi)始時(shí)間 ))*365+ (month(床位占用 .結(jié)束時(shí)間 )month(床位占用 .開(kāi)始時(shí)間 ))*30+(day(床位占用 .結(jié)束時(shí)間 )day(床位占用 .開(kāi)始時(shí)間 ))),105)*價(jià)格單次總費(fèi)用 from 病人 join 床位占用 on (病人 .病人號(hào) =床位占用 .病人號(hào) )join 床位 on (床位占用 .設(shè)備號(hào) =.床位 .設(shè)備號(hào) ) where 姓名 =39。 用查詢查看曹操床位總費(fèi)用 select /*病人 .病人號(hào) ,病人 .姓名 ,床位 .設(shè)備號(hào) ,床位 .價(jià)格 ,床位占用 .開(kāi)始時(shí)間 ,床位占用 .結(jié)束時(shí)間 ,*/sum(convert(int,( (YEAR(床位占用 .結(jié)束時(shí)間 )YEAR(床位占用 .開(kāi)始時(shí)間 ))*365+ (month(床位占用 .結(jié)束時(shí)間 )month(床位占用 .開(kāi)始時(shí)間 ))*30+(day(床位占用 .結(jié)束時(shí)間 )day(床位占用 .開(kāi)始時(shí)間 ))),105)*價(jià)格 ) 總費(fèi)用 from 病人 join 床位占用 on (病人 .病人號(hào) =床位占用 .病人號(hào) )join 床位 on (床位占用 .設(shè)備號(hào) =.床位 .設(shè)備號(hào) ) where 姓名 =39。 存儲(chǔ)過(guò)程 /觸發(fā)器 /事務(wù) /* 我們要做的是： 查看某個(gè)病人的所有病歷信息 查看病人的費(fèi)用信息 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì) 說(shuō)明書(shū)（畢業(yè) 論文 ） 27 查看某個(gè)設(shè)備（床位，氧瓶，手術(shù)臺(tái)）的歷史使用情況 查看當(dāng)前某類所有設(shè)備的使用情況（被那個(gè)病人使用中 /未被使用） 查 看某個(gè)藥品信息（基本信息，庫(kù)存信息，） 查看藥品被購(gòu)買(mǎi)信息，處方使用信息 */ use 住院部數(shù)據(jù)庫(kù)系統(tǒng) go create proc 查找病人詳細(xì)信息 name char(15) as select 病人 .病人號(hào) ,姓名 ,性別 ,年齡 ,診斷結(jié)果信息 from 病人 join 診斷 on(病人 .病人號(hào) =診斷 .病人號(hào) ) join 病歷 on(診斷 .病歷號(hào) =病歷 .病歷號(hào) ) where 姓名 =name exec 查找病人詳細(xì)信息 39。 create proc 查找病人主治醫(yī)生信息 name char(15) as select 醫(yī)護(hù)人員 .工號(hào)醫(yī)生編號(hào) ,醫(yī)護(hù)人員 .姓名 ,醫(yī)護(hù)人員 .年齡 ,醫(yī)護(hù)人員 .畢業(yè)學(xué)校 ,病人 .病人號(hào)被治療過(guò)的病人號(hào) ,病人 .姓名被治療過(guò)的病人姓名 from 病人 ,醫(yī)生 ,醫(yī)護(hù)人員 where 病人 .姓名 =name and 病人 .主治醫(yī)生編號(hào) =醫(yī)生 .工號(hào) and 醫(yī)護(hù)人員 .工號(hào) =醫(yī)生 .工號(hào) exec 查找病人主治醫(yī)生信息 39。 create proc 查看當(dāng)前可用床位信息 time datetime as select distinct 床位 .設(shè)備號(hào)空閑床位號(hào) ,價(jià)格 from 床位 left join 床位占用 on (床位 .設(shè)備號(hào) =床位占用 .設(shè)備號(hào) ) where 結(jié)束時(shí)間 is null or 結(jié)束時(shí)間 getdate() time 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì) 說(shuō)明書(shū)（畢業(yè) 論文 ） 28 exec 查看當(dāng)前可用床位信息 創(chuàng)建觸發(fā)器 create trigger 藥品購(gòu)買(mǎi) on 購(gòu)買(mǎi)藥品 for insert as begin declare shuliang int declare yaopinhao char(10) select shuliang=數(shù)量 from inserted select yaopinhao=藥品號(hào) from inserted update 藥品存儲(chǔ) set 剩余量 =剩余量 shuliang where 藥品號(hào) =yaopinhao end insert 購(gòu)買(mǎi)藥品 values(39。,39。,39。,3,getdate()) create view 病人診斷信息表 as select 病人 .病人號(hào) ,姓名 ,診斷結(jié)果信息 from 病人 join 診斷 on(病人 .病人號(hào) =診斷 .病人號(hào) ) join 病歷 on(診斷 .病歷號(hào) =病歷 .病歷號(hào) ) create view 醫(yī)生治療信息表 as select 病人 .病人號(hào) ,診斷時(shí)間 ,醫(yī)護(hù)人員 .姓名 ,工號(hào) from 病人 join 診斷 on(病人 .病人號(hào) =診斷 .病人號(hào) ) join 醫(yī)護(hù)人員 on(診斷 .醫(yī)生號(hào) =醫(yī)護(hù)人員 .工號(hào) ) create proc 查看病人被診斷詳細(xì)信息 name char(15) as 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì) 說(shuō)明書(shū)（畢業(yè) 論文 ） 29 select distinct 病人診斷信息表 .病人號(hào) ,病人診斷信息表 .姓名病人姓名 ,工號(hào)診斷醫(yī)生編號(hào) ,醫(yī)生治療信息表 .姓名醫(yī)生姓名 ,診斷時(shí)間 ,診斷結(jié)果信息 from 病人診斷信息表 join 醫(yī)生治療信息表 on(病人診斷信息表 .病人號(hào) =醫(yī)生治療信息表 .病人號(hào) ) where 病人診斷信息表 .姓名 =name exec 查看病人被診斷詳細(xì)信息 39。 游標(biāo) declare emp_coursor scroll cursor for select 姓名 ,工號(hào) from 醫(yī)護(hù)人員 for read only 刪除游標(biāo) deallocate emp_coursor open emp_coursor declare emp_name char(20),number char(5) fetch from emp_coursor into emp_name,number while FETCH_STATUS=0 begin print N39。+emp_name+39。+N39。 +number fetch next from emp_coursor into emp_name,number END close emp_coursor 事務(wù) insert 購(gòu)買(mǎi)藥品 (購(gòu)藥單號(hào) ,病人號(hào) ,藥品號(hào) ,數(shù)量 ,時(shí)間 ) values(39。,39。,39。,3,getdate()) begin transaction declare gouyaodanhao char(5) declare shuliang int declare yaopinhao char(20) declare eerror int 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì) 說(shuō)明書(shū)（畢業(yè) 論文 ） 30 set eerror=0 set gouyaodanhao=39。 select shuliang=數(shù)量 ,yaopinhao=藥品號(hào) from 購(gòu)買(mǎi)藥品 where 購(gòu)藥單號(hào) =gouyaodanhao set eerror=eerror+error if(exists(select * from 藥品存儲(chǔ) where 藥品號(hào) =yaopinhao and 剩余量 shuliang )) begin set eerror=eerror+error update 藥品存儲(chǔ) set 剩余量 =剩余量 shuliang where 藥品號(hào) =yaopinhao print 39。 mit transaction end else begin set eerror=eerror+error print 39。 delete 購(gòu)買(mǎi)藥品 where 購(gòu)藥單號(hào) =gouyaodanhao set eerror=eerror+error if(eerror0) rollback tran else mit tran end 用查詢查看曹操床位費(fèi)用詳情 select 病人 .病人號(hào) ,病人 .姓名 ,床位 .設(shè)備號(hào) ,床位 .價(jià)格 ,床位占用 .開(kāi)始時(shí)間 ,床位 占用 .結(jié)束時(shí)間 ,convert(int,( (YEAR(床位占用 .結(jié)束時(shí)間 )YEAR(床位占用 .開(kāi)始時(shí)間 ))*365+ (month(床位占用 .結(jié)束時(shí)間 )month(床位占用 .開(kāi)始時(shí)間 ))*30+(day(床位占用 .結(jié)束時(shí)間 )day(床位占用 .開(kāi)始時(shí)間 ))),105)*價(jià)格單次總費(fèi)用 from 病人 join 床位占用 on (病人 .病人號(hào) =床位占用 .病人號(hào) )join 床位 on (床位占用 .設(shè)備號(hào) =.床位 .設(shè)備號(hào) ) where 姓名 =39。 用查詢查看曹操床位總費(fèi)用 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì) 說(shuō)明書(shū)（畢業(yè) 論文 ） 31 select /*病人 .病人號(hào) ,病人 .姓名 ,床位 .設(shè)備號(hào) ,床位 .價(jià)格 ,床位占用 .開(kāi)始時(shí)間 ,床位占用 .結(jié)束時(shí)間 ,*/sum(convert(int,( (YEAR(床位占用 .結(jié)束時(shí)間 )YEAR(床位占用 .開(kāi)始時(shí)間 ))*365+ (month(床位占用 .結(jié)束時(shí)間 )month(床位占用 .開(kāi)始時(shí)間 ))*30+(day(床位占用 .結(jié)束時(shí)間 )day(床位占用 .開(kāi)始時(shí)間 ))),105)*價(jià)格 ) 總費(fèi)用 from 病人 join 床位占用 on (病人 .病人號(hào) =床位占用 .病人號(hào) )join 床位 on (床位占用 .設(shè)備號(hào) =.床位 .設(shè)備號(hào) ) where 姓 名 =39。 用事務(wù)知識(shí)查看曹操床位總費(fèi)用 create proc 查看病人床位費(fèi)用 name char(15), tprice money output as declare name char(15) declare tprice money set tprice=0 set name=39。 declare tprice money select /*病人 .病人號(hào) ,病人 .姓名 ,床位 .設(shè)備號(hào) ,床位 .價(jià)格 ,床位占用 .開(kāi)始時(shí)間 ,床位占用 .結(jié)束時(shí)間 ,*/tprice= sum(convert(int,( (YEAR(床位占用 .結(jié)束時(shí)間 )YEAR(床位占用 .開(kāi)始時(shí)間 ))*365+ (month(床位占用 .結(jié)束時(shí)間 )month(床位占用 .開(kāi)始時(shí)間 ))*30+(day(床位占用 .結(jié)束時(shí)間 )day(床位占用 .開(kāi)始時(shí)間 ))),105)*價(jià)格 ) from 病人 join 床位占用 on (病人 .病人號(hào) =床位占用 .病人號(hào) )join 床位 on (床位占用 .設(shè)備號(hào) =.床位 .設(shè)備號(hào) ) where 姓名 =name declare price money exec 查看病人床位費(fèi)用 39。,price output select price as 曹操的病床總費(fèi) 用游標(biāo)知識(shí)查看費(fèi)用 declare name char(15) set name=39。 declare cur_病人床位費(fèi)用 cursor for select /*病人 .病人號(hào) ,病人 .姓名 ,床位 .設(shè)備號(hào) ,床位 .價(jià)格 ,床位占用 .開(kāi)始時(shí)間 ,床位占用 .結(jié)束時(shí)內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì) 說(shuō)明書(shū)（畢業(yè) 論文 ） 32 間 ,*/convert(int,( (YEAR(床位占用 .結(jié)束時(shí)間 )YEAR(床位占用 .開(kāi)始時(shí)間 ))*365+ (month(床位占用 .結(jié)束時(shí)間 )month(床位占用 .開(kāi)始時(shí)間 ))*30+(day(床位占用 .結(jié)束時(shí)間 )day(床位占用 .開(kāi)始時(shí)間 ))),105)*價(jià)格單次總費(fèi)用 from 病人 join 床位占用 on (病人 .病人號(hào) =床位占用 .病人號(hào) )join 床位 on (床位占用 .設(shè)備號(hào) =.床位 .設(shè)備號(hào) ) where 姓名 =name for read only go open cur_病人床位費(fèi)用 declare price money declare cprice money set cprice=0 fetch from cur_病人床位費(fèi)用 into price while FETCH_STATUS=0 begin print N39。+convert (char(10),price) set cprice=cprice+price fetch next from cur_病人床位費(fèi)用 into price END select cprice as 病人床位總費(fèi)用 go close cur_病人床位費(fèi)用 go deallocate cur_病人床位費(fèi)用 用查詢 查看曹操氧氣瓶費(fèi)用詳情 select 病人 .病人號(hào) ,病人 .姓名 ,氧氣瓶 .設(shè)備號(hào) ,氧氣瓶 .價(jià)格 ,氧氣瓶占用 .開(kāi)始時(shí)間 ,氧氣瓶占用 .結(jié)束時(shí)間 ,氧氣瓶占用 .使用量 ,使用量 *價(jià)格單次總費(fèi)用 from 病人 join 氧氣瓶占用 on (病人 .病人號(hào) =氧氣瓶占用 .病人號(hào) )join 氧氣瓶 on (氧氣瓶占用 .設(shè)備號(hào) =.氧氣瓶 .設(shè)備號(hào) ) where 姓名 =39。 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì) 說(shuō)明書(shū)（畢業(yè) 論文 ） 33 用查詢查看曹操藥品費(fèi)用詳情 select 病人 .病人號(hào) ,病人 .姓名 ,藥品 .藥品號(hào) ,藥品 .價(jià)格 ,購(gòu)買(mǎi)藥品 .時(shí)間 ,購(gòu)買(mǎi)藥品 .數(shù)量 ,數(shù)量 *價(jià)格單次總費(fèi)用 from 病人 join 購(gòu)買(mǎi)藥品 on (病人 .病人號(hào) =購(gòu)買(mǎi)藥品 .病人號(hào) )join 藥品 on (購(gòu)買(mǎi)藥品 .藥品號(hào) =.藥品 .藥品號(hào) ) where 姓名 =39。 用查詢查看曹操手術(shù)臺(tái)費(fèi)用詳情 select 病人 .病人號(hào) ,病人 .姓名 ,手術(shù)臺(tái) .設(shè)備號(hào) ,手術(shù)臺(tái) .價(jià)格 ,手術(shù) .開(kāi)始時(shí)間 ,手術(shù) .結(jié)束時(shí)間 ,價(jià)格單次總費(fèi)用 from 病人 jo