【正文】 (Dp_no varchar(20) primary key, Dp_name varchar(20) not null, Dp_tel varchar(20) ) create table Doctor (Dno varchar(20) primary key, Dname varchar(20) not null, Dtitle varchar(20), Dp_no varchar(20) references Department(Dp_no), Dtel varchar(20) )create table Patient(Pno varchar(20) primary key, Pname varchar(20), Psex varchar(20), Page int check(Page=0 and Page=150), Dno varchar(20) references Doctor(Dno)) create table Medicine (Mno varchar(20) primary key, Mname varchar(20) not null, Mprice float, Mquantity int ) create table Bill (Bno varchar(20) primary key, Bdate date, Bmoney float, Bway varchar(20) ) create table Prescription (Pr_no varchar(20) primary key, Pr_date date, Mno varchar(20) references Medicine(Mno), Bno varchar(20) references Bill(Bno) ) create table Diagnose (Dno varchar(20) references Doctor(Dno), Pno varchar(20) references Patient(Pno), Iname varchar(20), Pr_no varchar(20) references Prescription(Pr_no), primary key(Dno,Pno) ) create table Register (Rno varchar(20) primary key, Rway varchar(20), Rdate date, Pno varchar(20) references Patient(Pno), Bno varchar(20) references Bill(Bno) )（1）收費細則視圖（BillDetail）create view BillDetailasselect distinct ,Bdate,Bmoney,Bwayfrom Prescription,Bill,Diagnose,Registerwhere = and (= and = or =)（2）病人藥品視圖（Patient_Med）create view Patient_Medasselect Pno,Mnamefrom Medicine,Prescription,Diagnosewhere = and =（3）診斷結果視圖（Patient_Diag）create view Patient_Diagasselect ,pname,inamefrom Patient,Diagnosewhere =（4）醫(yī)生病人視圖（Docter_Patient）create view Docter_Patientasselect ,dname,pnamefrom Patient,Doctorwhere =（5）科室醫(yī)生視圖（Dept_Doctor）create view Dept_Doctorasselect dno,dname,Dp_namefrom Doctor,Departmentwhere =（6）病人掛號視圖（Patient_Register）create view Patient_Registerasselect ,pname,rno,rway,rdatefrom Patient,Registerwhere =（1）當有患者通過不同的方式掛號時，要在Register新增一條掛號信息，同時在Patient表添加一個病人記錄，在Bill表中添加一條掛號收費記錄create or replace procedure addpatient(v_Rno varchar,v_Rway varchar,v_Pno varchar,v_Bno varchar,v_Pname varchar,v_Psex varchar,v_Page int,v_Dno varchar,v_Bmoney float)isbegin insert into Patient values(v_Pno,v_Pname,v_Psex,v_Page,v_Dno)。 insert into Register values(v_Rno,v_Rway,sysdate(),v_Pno,v_Bno)。,39。,39。,39。,21)。begin MedicineInsert(39。,200)。end change_tel。8705162139。 mit。,150)。 loop fetch c1 into Dp_name,rs。||rs)。declarea varchar(20)。（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)。 39。 39。張三39。d varchar(20)。（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)。 (pno||39。||psex||39。 close c1。a varchar(20)。begin D_Patient(f,a,b,c,d)。begin open c1。 end loop。begin Diag_p(a)。end p_Diag。,a)。 end p_Med。,a)。 (v_bway||39。declarea varchar(20)。,a,b)。 end pay。,a)。 end reg_way。,a)。所以從一開始我們就要花大量的時間去做需求分析。48。同時我學到了很多，也收獲了很多。 數(shù)據(jù)入庫數(shù)據(jù)庫基本表的部分數(shù)據(jù)如下：Bill表Department表Patient表Doctor表Medicine表Diagnose表Prescription表Register表 數(shù)據(jù)庫測試收費細則視圖（BillDetail）診斷結果視圖（Patient_Diag）醫(yī)生病人視圖（Docter_Patient）科室醫(yī)生視圖（Dept_Doctor）病人掛號視圖（Patient_Register）（1）當有患者通過不同的方式掛號時，要在Register新增一條掛號信息，同時在Patient表添加一個病人記錄，在Bill表中添加一條掛號收費記錄 （2）一個患者確診完畢,向Diagnose新增一條診斷結果記錄，同時在Prescription表添加一條處方記錄，并更新Bill表中相應收費信息（3）插入一條藥品信息（4）修改某一科室的電話（5）修改某一藥品剩余量（6）在Dept_Doctor查詢醫(yī)院門診部各個科室的醫(yī)生人數(shù)（7）在Docter_Patient查詢某一病人的主治醫(yī)生信息（8）在Docter_Patient查詢某一醫(yī)生主治的全部病人信息（9）在Patient_Diag查詢患感冒的病人姓名（10）在Patient_Diag查詢某一病人的診斷結果（11）在Patient_Med查詢某病人購買的藥品（12）在BillDetail查詢某病人購買的藥品總價（13）在BillDetail查詢某一病人的收費總和（=掛號+取藥）（14）在Patient_Register查詢某病人的掛號方式5． 總結通過本次為期三周的數(shù)據(jù)庫課程設計，我有以下心得及體會：1．在這學期的數(shù)據(jù)庫原理與應用課程的學習中，因為對數(shù)據(jù)庫系統(tǒng)的認識不夠深刻，以及平時所做的練習都是老師給定的表，自己只是做簡單的查詢，刪除，更新工作，而在這次實習中我遇到了很多的問題，比如：對于我的題目《醫(yī)院門診管理系統(tǒng)》，在對現(xiàn)實世界的抽象上我遇到了較多的問題，我覺得憑自己能力可以讓系統(tǒng)實現(xiàn)的業(yè)務一經老師指導才發(fā)現(xiàn)它的復雜。begin