【正文】 p fetch c1 into Dp_name,rs。 exit when c1%notfound。 (Dp_name||39。 39。||rs)。 end loop。 close c1。 end Dept_Doc。declarea varchar(20)。b number。begin Dept_Doc(a,b)。end。（6）在Docter_Patient查詢某一病人的主治醫(yī)生信息create or replace procedure p_doctor(v_pname varchar,v_dno out varchar,v_dname out varchar,v_dtitle out varchar,v_dp_no out varchar,v_dtel out varchar)isbegin select dno,dname,dtitle,dp_no,dtel into v_dno,v_dname,v_dtitle,v_dp_no,v_dtel from Doctor where Dno =(select Dno from Docter_Patient where pname=v_pname)。 (v_dno||39。 39。||v_dname||39。 39。||v_dtitle||39。 39。||v_dp_no||39。 39。||v_dtel)。end p_doctor。declaref varchar(20):=39。張三39。a varchar(20)。b varchar(20)。c varchar(20)。d varchar(20)。e varchar(20)。begin p_doctor(f,a,b,c,d,e)。end。（7）在Docter_Patient查詢某一醫(yī)生主治的全部病人信息create or replace procedure D_Patient(v_dno varchar,pno out varchar,pname out varchar,psex out varchar,page out varchar) iscursor c1 is select pno,pname,psex,page from Patientwhere pname in(select pname from Docter_Patient where dno=v_dno)。begin open c1。 loop fetch c1 into pno,pname,psex,page。 exit when c1%notfound。 (pno||39。 39。||pname||39。 39。||psex||39。 39。||page)。 end loop。 close c1。 end D_Patient。declaref varchar(20):=39。D01739。a varchar(20)。b varchar(20)。c varchar(20)。d varchar(20)。begin D_Patient(f,a,b,c,d)。end。（8）在Patient_Diag查詢患感冒的病人姓名create or replace procedure Diag_p(pname out varchar) iscursor c1 is select pname from Patient_Diag where iname=39。感冒39。begin open c1。 loop fetch c1 into pname。 exit when c1%notfound。 (pname)。 end loop。 close c1。 end Diag_p。declarea varchar(20)。begin Diag_p(a)。end。（9）在Patient_Diag查詢某一病人的診斷結(jié)果create or replace procedure p_Diag(v_pno varchar,v_iname out varchar) isbegin select iname into v_iname from Patient_Diag where pno=v_pno。 (v_iname)。end p_Diag。declare a varchar(20)。beginp_Diag(39。P01939。,a)。end。 （10）在Patient_Med查詢某病人購買的藥品create or replace procedure p_Med(v_pno varchar,v_mname out varchar) isbegin select mname into v_mname from Patient_Med where pno=v_pno。 (v_mname)。 end p_Med。declarea varchar(20)。beginp_Med(39。P02039。,a)。end。（11）在BillDetail查詢某病人購買的藥品總價create or replace procedure medpay(v_pno varchar,v_Bway out varchar,v_bmoney out varchar) isbegin select Bway,bmoney into v_bway,v_bmoney from BillDetail where pno=v_pno and Bway=39。藥品收費39。 (v_bway||39。 39。||v_bmoney)。 end medpay。declarea varchar(20)。b varchar(20)。beginmedpay(39。P00239。,a,b)。end。（12）在BillDetail查詢某一病人的收費總和（=掛號+取藥）create or replace procedure pay(v_pno varchar,v_total out number) isbegin select sum(bmoney) as total into v_total from BillDetail where pno=v_pno group by pno。 (v_total)。 end pay。declarea number。beginpay(39。P00539。,a)。end。（13）在Patient_Register查詢某病人的掛號方式create or replace procedure reg_way(v_pno varchar,v_rway out varchar) isbegin select rway into v_rway from Patient_Register where pno=v_pno。 (v_rway)。 end reg_way。declarea varchar(20)。begin reg_way(39。P01139。,a)。end。 數(shù)據(jù)入庫數(shù)據(jù)庫基本表的部分?jǐn)?shù)據(jù)如下：Bill表Department表Patient表Doctor表Medicine表Diagnose表Prescription表Register表 數(shù)據(jù)庫測試收費細(xì)則視圖（BillDetail）診斷結(jié)果視圖（Patient_Diag）醫(yī)生病人視圖（Docter_Patient）科室醫(yī)生視圖（Dept_Doctor）病人掛號視圖（Patient_Register）（1）當(dāng)有患者通過不同的方式掛號時，要在Register新增一條掛號信息，同時在Patient表添加一個病人記錄，在Bill表中添加一條掛號收費記錄 （2）一個患者確診完畢,向Diagnose新增一條診斷結(jié)果記錄，同時在Prescription表添加一條處方記錄，并更新Bill表中相應(yīng)收費信息（3）插入一條藥品信息（4）修改某一科室的電話（5）修改某一藥品剩余量（6）在Dept_Doctor查詢醫(yī)院門診部各個科室的醫(yī)生人數(shù)（7）在Docter_Patient查詢某一病人的主治醫(yī)生信息（8）在Docter_Patient查詢某一醫(yī)生主治的全部病人信息（9）在Patient_Diag查詢患感冒的病人姓名（10）在Patient_Diag查詢某一病人的診斷結(jié)果（11）在Patient_Med查詢某病人購買的藥品（12）在BillDetail查詢某病人購買的藥品總價（13）在BillDetail查詢某一病人的收費總和（=掛號+取藥）（14）在Patient_Register查詢某病人的掛號方式5． 總結(jié)通過本次為期三周的數(shù)據(jù)庫課程設(shè)計，我有以下心得及體會：1．在這學(xué)期的數(shù)據(jù)庫原理與應(yīng)用課程的學(xué)習(xí)中，因為對數(shù)據(jù)庫系統(tǒng)的認(rèn)識不夠深刻，以及平時所做的練習(xí)都是老師給定的表，自己只是做簡單的查詢，刪除，更新工作，而在這次實習(xí)中我遇到了很多的問題，比如：對于我的題目《醫(yī)院門診管理系統(tǒng)》，在對現(xiàn)實世界的抽象上我遇到了較多的問題，我覺得憑自己能力可以讓系統(tǒng)實現(xiàn)的業(yè)務(wù)一經(jīng)老師指導(dǎo)才發(fā)現(xiàn)它的復(fù)雜。2．實習(xí)時，我深刻的感受到了數(shù)據(jù)庫設(shè)計是環(huán)環(huán)嵌套的，只有做好了需求分析，有了好的數(shù)據(jù)流圖，并根據(jù)它畫出ER圖，抽象出實體間的聯(lián)系，列出關(guān)系模型，才會使后期的工作順利的展開，否則如果像我一樣輕視了第一個環(huán)節(jié)，就會在以后的實施階段發(fā)現(xiàn)漏洞白醋于是只好折回來接著做需求分析。所以從一開始我們就要花大量的時間去做需求分析。在此次實習(xí)中我按時完成了數(shù)據(jù)庫課程設(shè)計的要求。同時我學(xué)到了很多，也收獲了很多。在不斷的實踐中我也發(fā)現(xiàn)了數(shù)據(jù)庫領(lǐng)域的高深莫測，真心希望以后能有機(jī)會進(jìn)入這個領(lǐng)域深入探究。48