醫(yī)院門診掛號系統(tǒng)數(shù)據(jù)庫設(shè)計與應用課程設(shè)計報告書

1、word格式文檔專業(yè)整理成績題目 班級 姓名 學號 日期數(shù)據(jù)庫技術(shù)與應用課程設(shè)計醫(yī)院門診掛號系統(tǒng)軟件2班林芯溪20112723評語:簽字：1系統(tǒng)總體設(shè)計方案1.1系統(tǒng)實現(xiàn)目標本系統(tǒng)是一個功能強大、操作使用簡單、智能化、可擴展性、集成有效性和垮平臺的醫(yī) 院門診掛號系統(tǒng)。1.2系統(tǒng)功能模塊設(shè)計醫(yī)院門診掛號系統(tǒng)院 長 查 詢信 息 維 護醫(yī) 生 信 息 維 護后 臺 信 息 維 護圖1.2.1 功能模塊其中各模塊的信息維護還包括對各類信息的增刪改查操作。后臺管理（權(quán)限管理）若為超級管理員，則可進行用戶的增刪改查由于多組合查詢功能比較簡單，只需輸入相關(guān)查詢的條件即可進行多組合模糊查詢, 此在此并沒有畫

2、出查詢子系統(tǒng)的總體結(jié)構(gòu)。1.3數(shù)據(jù)庫設(shè)計1.3.1數(shù)據(jù)庫表設(shè)計數(shù)據(jù)庫表的命名是用表名的英文或英文縮寫，編程實現(xiàn)簡單易記。(2)(5)(6)用戶信息表 醫(yī)生資料表 科室資料表 病人信息表 門診掛號表Tuser：保存系統(tǒng)使用者的信息，包括用戶名及其密碼。TDoctor:保存醫(yī)生信息，包括醫(yī)生所屬的科室。TDepartment:保存科室分類信息，如分為內(nèi)科、外科。 TPatient:保存病人的基本信息，以后可以重復使用。 TRegister:保存門診病人掛號的信息。門診掛號類型表 TRegisterType:保存門診掛號類型分類信息及其掛號價格，如普通號、專家號。1.3.2數(shù)據(jù)庫表設(shè)計格式說明在前章

3、介紹的實體以及實體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫中表以及各個表之間的關(guān)系。醫(yī)院門診管理系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面的幾個表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。表1-1用戶信息表Tuser編P字段名字段代碼字段類型允許為空主鍵外鍵1用戶名UidVarchar(50)NY2姓名UnameVarchar(50)Y3密碼UpwdVarchar(50)N4身份證UIDcardVarchar(50)Y表1-2醫(yī)生資料表TDoctor編p字段名字段代碼字段類型允許為空主鍵外鍵1醫(yī)生編pDidVarchar(10)NY2姓名DnameVarchar(50)Y3性別DgenderVarchar(10)

4、Y4身份證DidcardVarchar(20)Y5出生日期DbirthdaydateY6所屬科室編號DpmtidVarchar(5)YY7電話DtelVarchar(11)Y表1-3科室資料表TDepartment編p字段名字段代碼字段類型允許為空主鍵外鍵1科至編RDpmtidVarchar(50)NY2科室名稱DpmtnameWarchar(50)N表1-4病人信息表TPatient編p字段名字段代碼字段類型允許為空主鍵外鍵1病人編號（就診PidVarchar(20)NY2姓名PnameVarchar(50)Y3性別PgenderVarchar(10)Y4身份證PidcardVarchar(

5、20)Y5出生日期PbirthdaydateY7電話PtelVarchar(11)Y表1-5門診掛號表TRegister編p字段名字段代碼字段類型允許為空主鍵外鍵1心RidVarchar(20)NY2病人編號PidVarchar(20)YY3掛號類型編號RtypeidVarchar(10)YY4科至編RDpmtidVarchar(5)YY5醫(yī)生編PDidVarchar(10)YY6掛號日期RegistDateDatetimeY表1-6門診掛號類型表 TRegisterType編p字段名字段代碼字段類型允許為空主鍵外鍵1類型編號RtypeidVarchar(10)NY2類型名稱Rtypename

6、varchar(50)Y3價格RegpriceMoneyY2系統(tǒng)實現(xiàn)2.1 PB11.5 和 SQL SERVER 201連接PB11.5和SQL SERVER 201旌接方式有兩種，一種是通過ODB嗷據(jù)源連接數(shù)據(jù)庫，另一種是MSSSQLSERVE4用接口連接數(shù)據(jù)庫。前者首先在計算機ODB嗷據(jù)源管理器中創(chuàng)建新的數(shù)據(jù)源，設(shè)置好 Data Source Name徵據(jù)源名稱）和DataBase （數(shù)據(jù)庫文件名），然后在 PB中建立數(shù)據(jù)庫配置文件（配置文件就是命名了的一組連接到特定數(shù)據(jù)源或數(shù)據(jù)庫的參 數(shù)），輸入ProfileName（配置文件的名字）和Data Source （定義好的 ODBCB據(jù)源

7、），點擊 Connect按鈕即可。此外，在通過專用接口連接數(shù)據(jù)庫時還可以使用配置參數(shù)文件連接數(shù)據(jù) 庫。配置參數(shù)文件主要包含數(shù)據(jù)庫名，服務(wù)器地址，登錄名，登錄密碼等內(nèi)容。2.2 應用系統(tǒng)的對象在應用程序?qū)ο蟮?Open事件中輸入如下代碼：SQLCA.DBMS = "ODBC"SQLCA.AutoCommit = FalseSQLCA.DBParm = "ConnectString='DSN=hmis;UID=hisl;PWD=123456'”/連接數(shù)據(jù)庫Connect using SQLCA;if sqlca.sqlcode<>0 THE

8、Nmessagebox（"數(shù)據(jù)庫連接出錯",SQLCA.SQLerrtext）elseopen(w_login) end if應用程序運行后連接數(shù)據(jù)庫，數(shù)據(jù)庫連接好后就出現(xiàn)系統(tǒng)登錄界面，否則退出系統(tǒng)，直至數(shù)據(jù)庫連接成功.在應用程序?qū)ο蟮淖兞慷x窗口中，定義全局變量用于應用程序不同對 象間參數(shù)的傳遞。2.3 登錄模塊2.3.1 功能概述用戶登錄系統(tǒng)窗口是用戶進入系統(tǒng)的唯一通道，它是進入應用系統(tǒng)的喉舌， 在安全保密、系統(tǒng)維護中占有重要的地位，登錄系統(tǒng)在外觀界面上一定要美觀、友好，登錄系統(tǒng)就是要驗證當前的用戶名是否與該用戶密碼一致，用戶類型是否正確，限制用戶登錄出錯的次數(shù)，保留登

9、錄痕跡等工作。2.3.2 主要技術(shù)要點（1）保留登錄痕跡根據(jù)操作局部性原理，一般情況下用戶上次登錄之后還會繼續(xù)登錄，因此在程序中可以依照人機交互界面友好性原則保留用戶登錄時的用戶名，控件sle_1用來顯示用戶名，profilestring是一個函數(shù)，用來讀取 profile 文件中一組參數(shù)，核心代碼如下：/將登錄名寫入配置文件SetProfileString("user.ini","user","username",sle_1.text)gs_username=sle_1.text/將配置文件中的登錄名寫到用戶名的編輯框中sle_1.

10、text=profilestring("user.ini","user","username","")if trim(sle_1.text)<>"" thensle_2.setfocus()elsesle_1.setfocus()end if(2)友情提示用戶登錄出錯的原因用戶登錄錯誤的原因可能包括用戶名不存在，密碼錯誤等等核心代碼如下：t /判斷輸入的用戶名是否存在。密碼是否正確select Uid,Upwd into :lg_uid,:lg_upwd from TUser whe

11、re Uid=:sle_1.text;if lg_uid=""thenst_4.text=" 提示：當前輸入的用戶名不存在！”sle_1.text="sle_2.text=''sle_1.setfocus()returnend ifif lg_upwd<>sle_2.text thenst_4.text=" 提示：輸入的密碼錯誤！ "sle_2.text=''sle_1.setfocus()returnend if2.4 系統(tǒng)主窗口和菜單的設(shè)計2.4.1 功能概述醫(yī)院門診掛號系統(tǒng)的主窗口是信

12、息管理系統(tǒng)的重要部分，勾勒出整個應用程序的概況， 系統(tǒng)的主要功能為：病人首次就診(即需要填寫病人信息來辦理就診卡)、就診卡就診、當前科室掛號量以及掛號信息的查詢醫(yī)生信息管理(包括增刪查改)、科室信息管理(包括增刪查改)、用戶信息管理，注銷(可以切換用戶) 。2.4.2 主要技術(shù)要點(1)對主窗口中的功能按鍵進行了權(quán)限管理在本系統(tǒng)中實現(xiàn)的是當?shù)卿浀挠脩舨皇浅壒芾韱T，即用戶名為000的用戶使，用戶無法使用后臺信息管理功能。核心代碼如下：string useruser=profilestring("user.ini","user","usernam

13、e","")if user="000" thenm_main.m_ 后臺管理.enabled=true else m_main.m#臺管理.enabled=false end if(2)定義了計時器，可以隨系統(tǒng)顯示當前時間和當前使用這個系統(tǒng)的用戶名 核心代碼如下datetime diselect getdate() into : di from Tuser;this.title="醫(yī)院門診掛號系統(tǒng)"+" "+gs_username+" "+string(d1)2.5 首次就診卡就診2.

14、5.1 功能概述首次就診卡就診是門診掛號管理中比較重要的模塊，由于病人沒有就診卡號故先進行信息錄入，并賦予一個就診卡號，隨之，即可進行掛號，選擇掛號科室，類型，醫(yī)生，還可以 查詢當前該科室的掛號人數(shù)，所有這些信息均會在一個框內(nèi)打印出來，用戶可以查看這些信息。2.5.2 主要技術(shù)要點掛號功能由于該功能是將錄入病人信息和掛號結(jié)合合在一起，故使得操作更為簡便。string reg_genderif rb_1.checked=true then reg_gender="男" end ifif rb_2.checked=true then reg_gender="女&quo

15、t; end if date dt dt=date(dp_1.text)insert into TPatient(Pid,Pname,Pgender,Pidcard,Pbirthday,Ptel)values(:sle_3.text,:sle_2.text,:reg_gender,:sle_5.text,:dt,:sle_1.text); datetime regdt string reg_deptid,reg_docid,regtype,regprice select getdate() into : regdt from Tuser; string times,rid,rst int i

16、times=string(regdt) for i=1 to 19 rst=mid(times,i,1) if isnumber(rst)=true then rid=rid+rst end ifnextselect Dpmtid into :reg_deptid from TDeptment where Dpmtname=:ddlb_1.text;select Did into :reg_docid from TDoctor where Dname=:ddlb_3.text;select Rtypeid,Regprice into :regtype,:regprice from TRegis

17、terType where RTypename=:ddlb_2.text; int numselect count(*) into :num from TRegister where Did=:reg_docid;insertintoTRegister(Rid,Pid,Rtypeid,Dpmtid,Did,RegistDate)values(:rid,:sle_3.text,:regtype,:reg_deptid,:reg_docid,:regdt);mle_1.text=" 姓名："+sle_2.text+"rn 就診卡號："+sle_1.text+

18、”rn 掛號："+rid+”rn 掛號科室："+ddlb_1.text+"rn 掛號類型："+ddlb_2.text+"rn 掛號醫(yī)生： "+ddlb_3.text+"rn掛號費用："+regprice+"rnrn前面還有"+string(num)+"人掛號"+"rnrn 時間：rn"+string(regdt)2.6 就診卡就診2.6.1 功能概述該功能也是門診掛號系統(tǒng)的重要功能，用戶只需要輸入就診卡號就可得到，該病人的主要信息，然后再進行掛號科室，掛號

19、類型，掛號醫(yī)生的選擇，掛號的功能與首次掛號的功能類似。2.6.2 主要技術(shù)要點(1)輸入就診卡號得到病人信息輸入就診卡號得到病人信息的功能是通過數(shù)據(jù)庫查詢技術(shù)實現(xiàn)的。 子句，F(xiàn)ROMF句，WHER子句。核心代碼如下：if sle_1.text='' thenmessagebox("提示","就診卡號不能為空!sle_1.setfocus()")returnend ifstring reg_pid,reg_pname,reg_gender,reg_idcarddate reg_birthday selectPid,Pname,Pgender

20、,Pidcardinto :reg_pid ，:reg_pname,:reg_gender,:reg_idcard,:reg_birthday where Pid=:sle_1.text;if reg_pid=""thenmessagebox("提示","無當前就診卡號!sle_1.text="sle_1.setfocus()returnend if")(2)游標技術(shù)調(diào)入基本信息掛號科室，醫(yī)生等值是通過游標技術(shù)來實現(xiàn)，掛號科室是在窗口的據(jù)庫讀取業(yè)務(wù)系統(tǒng)名，醫(yī)生再通過科室信息那個ddlb的selectchangeSQL語句使用

21、SELECT,Pbirthday from TPatientopen事件中從數(shù) 事件中從數(shù)據(jù)庫根據(jù)選擇科室的類型讀取該科室下的醫(yī)生的姓名。核心代碼如下：string ls_doctorstring ls_didselect Dpmtid into :ls_did from TDeptment where Dpmtname=:ddlb_1.text;ddlb_3.reset()declare get_doc cursor forSELECT distinct DnameFROM TDoctor where Dpmtid=:ls_did;open get_doc;fetch get_doc int

22、o:ls_doctor;do while sqlca.sqlcode=0ddlb_3.additem(ls_doctor)fetch get_doc into :ls_doctor;loopclose get_doc;2.7 科室掛號量查詢功能2.7.1 功能概述用戶可以通過該功能來查看當前各科室的掛號量或者所有科室的掛號量以及詳細的掛 號信息。2.7.2 主要技術(shù)要點(1)實現(xiàn)數(shù)據(jù)窗口對象的動態(tài)加載在查看界面中只有一個數(shù)據(jù)窗口，而數(shù)據(jù)窗口對象根據(jù)不同的查詢方式實時動態(tài)地加 載。核心代碼如下：dw_1.settransobject(SQLCA)if ddlb_1.text<>&qu

23、ot; 全部"thendw_1.retrieve(ls_did)elsedw_1.retrieve("%")end if實現(xiàn)在datasourse設(shè)置了查詢功能SELECT tregister.rid,tregister.pid,tregister.rtypeid,tregister.dpmtid,tregister.did,tregister.registdateFROM tregisterWHERE tregister.dpmtid like :dpmtid(2)總的掛號量的統(tǒng)計通過SQL語句中的Count(*)子句來統(tǒng)計所有科室的掛號量以及各個科室的掛號量s

24、tring ls_didselect Dpmtid into :ls_did from TDeptment where Dpmtname=:ddlb_1.text;int numselect count(*) into :num from TRegister where Dpmtid=:ls_did;st_5.text=string(num)2.8 醫(yī)生信息管理2.8.1 功能概述該功能模塊包括對醫(yī)生信息的添加和修改，刪除以及查詢。查詢可以通過輸入任何有關(guān)醫(yī)生信息的子集，通過模糊查找即可查找跟該檢索信息有關(guān)的醫(yī)生信息2.8.2 主要技術(shù)要點(1)添加，修改，刪除的數(shù)據(jù)庫操作在本應用中采用數(shù)據(jù)庫

25、SQL語句的INSERT子句，UPDATE, DELETE?句，并且實現(xiàn)了數(shù)據(jù)窗口的實時更新，當做了諸如增刪改的操作后。核心代碼如下：string reg_genderif rb_1.checked=true then /將復選框中的選中轉(zhuǎn)換為可輸入數(shù)據(jù)庫的字符串reg_gender="男"end ifif rb_2.checked=true thenreg_gender="女"end if date dtdt=date(dp_1.text)string reg_deptid /醫(yī)生信息插入數(shù)據(jù)庫select Dpmtid into :reg_depti

26、d from TDeptment where Dpmtname=:ddlb_2.text;insertintoTDoctorvalues(:sle_2.text,:sle_1.text,:reg_gender,:dt,:ddlb_1.text,:reg_deptid,:sle_4.text,:sle_3.text);/更新數(shù)據(jù)窗口dw_1.retrieve()修改信息update TDoctor set Did=:sle_2.text, Dname=:sle_1.text, Dgender=:reg_gender,Dbirthday=:dt, Dgrade=:ddlb_1.text, Dpmt

27、id=:reg_deptid, Dtel=:sle_4.text, Didcard=:sle_3.text where Did=:st_id.text;/刪除信息if messagebox(' 提示： 是否刪除？ ',sle_1.text,question!,yesno!)=2 then returnDELETE FROM TDoctor WHERE Did=:st_id.text;dw_1.retrieve()(2)信息的模糊查詢數(shù)據(jù)窗口的過濾條件是可以對字符串型的字段進行過濾的。對于多個字段的過濾條件是通過OR邏輯關(guān)系進行連接。以此實現(xiàn)多角度的查詢。核心代碼如下：strin

28、g ls_filterif trim(sle_5.text尸""thenls_filter="" elsels_filter="Pos(Dname,"'+sle_5.text+”',1)>0"+"orPos(Did,”'+sle_5.text+"',1)>0"+"orPos(Dpmtid,”'+sle_5.text+"',1)>0"+"orPos(Dgrade,”'+sle_5.te

29、xt+"',1)>0" end if dw_1.setfilter(ls_filter) dw_1.filter()(3)編輯框的實時更新當用戶在數(shù)據(jù)窗口中選中了某條記錄，并雙擊該條記錄，其詳細信息關(guān)聯(lián)顯示到各對應的編輯框，并改變刪除，修改按鈕的使用狀態(tài)為True,用戶即可對信息進行編輯或刪除string ch_dpmtid,ch_dpmtname,ch_dgender if row>0 thensle_1.text=dw_1.object.dnamerow sle_2.text=dw_1.object.didrow sle_3.text=dw_1.object.didcardrow sle_4.text=dw_1.object.dtelrow ddlb_1.text=dw_1.object.dgraderow ch_dpmtid=dw_1.object.dpmtidrow ch_dgender=dw_1.object.dgenderrow if ch_dgender=" 男"then rb_1.checked=true else rb_2.checked=true end if s