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

成績：數(shù)據(jù)庫技術與應用課程設計題目：醫(yī)院門診掛號系統(tǒng)班級：軟件2班姓名：林苾湲學號：20112723日期：評語：簽字：

1系統(tǒng)總體設計方案1.1系統(tǒng)實現(xiàn)目標本系統(tǒng)是一個功能強大、操作使用簡單、智能化、可擴展性、集成有效性和垮平臺的醫(yī)院門診掛號系統(tǒng)。1.2系統(tǒng)功能模塊設計醫(yī)院門診掛號系統(tǒng)醫(yī)院門診掛號系統(tǒng)信息維護門診管理院長查詢醫(yī)生信息維護科室信息維護首次掛號就診卡掛號科室掛號量后臺信息維護圖1.2.1功能模塊其中各模塊的信息維護還包括對各類信息的增刪改查操作。后臺管理（權限管理）若為超級管理員，則可進行用戶的增刪改查由于多組合查詢功能比較簡單，只需輸入相關查詢的條件即可進行多組合模糊查詢，因此在此并沒有畫出查詢子系統(tǒng)的總體結構。1.3數(shù)據(jù)庫設計1.3.1數(shù)據(jù)庫表設計數(shù)據(jù)庫表的命名是用表名的英文或英文縮寫，編程實現(xiàn)簡單易記。(1)用戶信息表Tuser：保存系統(tǒng)使用者的信息，包括用戶名及其密碼。(2)醫(yī)生資料表TDoctor:保存醫(yī)生信息，包括醫(yī)生所屬的科室。(3)科室資料表TDepartment:保存科室分類信息，如分為內(nèi)科、外科。(4)病人信息表TPatient:保存病人的基本信息，以后可以重復使用。(5)門診掛號表TRegister:保存門診病人掛號的信息。(6)門診掛號類型表TRegisterType:保存門診掛號類型分類信息及其掛號價格，如普通2系統(tǒng)實現(xiàn)2.1PB11.5和SQLSERVER2012連接PB11.5和SQLSERVER2012連接方式有兩種，一種是通過ODBC數(shù)據(jù)源連接數(shù)據(jù)庫，另一種是MSSSQLSERVER專用接口連接數(shù)據(jù)庫。前者首先在計算機ODBC數(shù)據(jù)源管理器中創(chuàng)建新的數(shù)據(jù)源，設置好DataSourceName(數(shù)據(jù)源名稱)和DataBase（數(shù)據(jù)庫文件名），然后在PB中建立數(shù)據(jù)庫配置文件（配置文件就是命名了的一組連接到特定數(shù)據(jù)源或數(shù)據(jù)庫的參數(shù)），輸入ProfileName(配置文件的名字)和DataSource（定義好的ODBC數(shù)據(jù)源），點擊Connect按鈕即可。此外，在通過專用接口連接數(shù)據(jù)庫時還可以使用配置參數(shù)文件連接數(shù)據(jù)庫。配置參數(shù)文件主要包含數(shù)據(jù)庫名，服務器地址，登錄名，登錄密碼等內(nèi)容。2.2應用系統(tǒng)的對象在應用程序?qū)ο蟮腛pen事件中輸入如下代碼：SQLCA.DBMS="ODBC"SQLCA.AutoCommit=FalseSQLCA.DBParm="ConnectString='DSN=hmis;UID=hisl;PWD=123456'"http://連接數(shù)據(jù)庫ConnectusingSQLCA;ifsqlca.sqlcode<>0THEN messagebox("數(shù)據(jù)庫連接出錯",SQLCA.SQLerrtext)else open(w_login)endif應用程序運行后連接數(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ù)，保留登錄痕跡等工作。2.3.2主要技術要點(1)保留登錄痕跡根據(jù)操作局部性原理，一般情況下用戶上次登錄之后還會繼續(xù)登錄，因此在程序中可以依照人機交互界面友好性原則保留用戶登錄時的用戶名，控件sle_1用來顯示用戶名，profilestring是一個函數(shù)，用來讀取profile文件中一組參數(shù)，核心代碼如下://將登錄名寫入配置文件SetProfileString("user.ini","user","username",sle_1.text)gs_username=sle_1.text//將配置文件中的登錄名寫到用戶名的編輯框中sle_1.text=profilestring("user.ini","user","username","")iftrim(sle_1.text)<>""then sle_2.setfocus()else sle_1.setfocus()endif(2)友情提示用戶登錄出錯的原因用戶登錄錯誤的原因可能包括用戶名不存在，密碼錯誤等等核心代碼如下：t//判斷輸入的用戶名是否存在。密碼是否正確selectUid,Upwdinto:lg_uid,:lg_upwdfromTUserwhereUid=:sle_1.text;iflg_uid=""then st_4.text="提示：當前輸入的用戶名不存在！" sle_1.text='' sle_2.text='' sle_1.setfocus()returnendififlg_upwd<>sle_2.textthen st_4.text="提示：輸入的密碼錯誤！" sle_2.text='' sle_1.setfocus()returnendif2.4系統(tǒng)主窗口和菜單的設計2.4.1功能概述醫(yī)院門診掛號系統(tǒng)的主窗口是信息管理系統(tǒng)的重要部分，勾勒出整個應用程序的概況，系統(tǒng)的主要功能為：病人首次就診（即需要填寫病人信息來辦理就診卡）、就診卡就診、當前科室掛號量以及掛號信息的查詢醫(yī)生信息管理（包括增刪查改）、科室信息管理（包括增刪查改）、用戶信息管理，注銷（可以切換用戶）。2.4.2主要技術要點(1)對主窗口中的功能按鍵進行了權限管理在本系統(tǒng)中實現(xiàn)的是當?shù)卿浀挠脩舨皇浅壒芾韱T，即用戶名為000的用戶使，用戶無法使用后臺信息管理功能。核心代碼如下：stringuseruser=profilestring("user.ini","user","username","")ifuser="000"thenm_main.m_后臺管理.enabled=trueelse m_main.m_后臺管理.enabled=falseendif(2)定義了計時器，可以隨系統(tǒng)顯示當前時間和當前使用這個系統(tǒng)的用戶名核心代碼如下datetimed1selectgetdate()into:d1fromTuser;this.title="醫(yī)院門診掛號系統(tǒng)"+""+gs_username+""+string(d1)2.5首次就診卡就診2.5.1功能概述首次就診卡就診是門診掛號管理中比較重要的模塊，由于病人沒有就診卡號故先進行信息錄入，并賦予一個就診卡號，隨之，即可進行掛號，選擇掛號科室，類型，醫(yī)生，還可以查詢當前該科室的掛號人數(shù)，所有這些信息均會在一個框內(nèi)打印出來，用戶可以查看這些信息。2.5.2主要技術要點(1)掛號功能由于該功能是將錄入病人信息和掛號結合合在一起，故使得操作更為簡便。stringreg_genderifrb_1.checked=truethen reg_gender="男"endififrb_2.checked=truethen reg_gender="女"endifdatedtdt=date(dp_1.text)insertintoTPatient(Pid,Pname,Pgender,Pidcard,Pbirthday,Ptel)values(:sle_3.text,:sle_2.text,:reg_gender,:sle_5.text,:dt,:sle_1.text);datetimeregdtstringreg_deptid,reg_docid,regtype,regpriceselectgetdate()into:regdtfromTuser;stringtimes,rid,rstintitimes=string(regdt)fori=1to19rst=mid(times,i,1)ifisnumber(rst)=truethenrid=rid+rstendifnextselectDpmtidinto:reg_deptidfromTDeptmentwhereDpmtname=:ddlb_1.text;selectDidinto:reg_docidfromTDoctorwhereDname=:ddlb_3.text;selectRtypeid,Regpriceinto:regtype,:regpricefromTRegisterTypewhereRTypename=:ddlb_2.text;intnumselectcount(*)into:numfromTRegisterwhereDid=: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+"~r~n就診卡號："+sle_1.text+"~r~n掛號："+rid+"~r~n掛號科室："+ddlb_1.text+"~r~n掛號類型："+ddlb_2.text+"~r~n掛號醫(yī)生："+ddlb_3.text+"~r~n掛號費用："+regprice+"~r~n~r~n前面還有"+string(num)+"人掛號"+"~r~n~r~n時間：~r~n"+string(regdt)2.6就診卡就診2.6.1功能概述該功能也是門診掛號系統(tǒng)的重要功能，用戶只需要輸入就診卡號就可得到，該病人的主要信息，然后再進行掛號科室，掛號類型，掛號醫(yī)生的選擇，掛號的功能與首次掛號的功能類似。2.6.2主要技術要點（1）輸入就診卡號得到病人信息輸入就診卡號得到病人信息的功能是通過數(shù)據(jù)庫查詢技術實現(xiàn)的。SQL語句使用SELECT子句，F(xiàn)ROM子句，WHERE子句。核心代碼如下：ifsle_1.text=''then messagebox("提示","就診卡號不能為空！") sle_1.setfocus() returnendifstringreg_pid,reg_pname,reg_gender,reg_idcarddatereg_birthdayselectPid,Pname,Pgender,Pidcard,Pbirthdayinto:reg_pid,:reg_pname,:reg_gender,:reg_idcard,:reg_birthdayfromTPatientwherePid=:sle_1.text;ifreg_pid=""then messagebox("提示","無當前就診卡號！") sle_1.text='' sle_1.setfocus()returnendif(2)游標技術調(diào)入基本信息掛號科室，醫(yī)生等值是通過游標技術來實現(xiàn)，掛號科室是在窗口的open事件中從數(shù)據(jù)庫讀取業(yè)務系統(tǒng)名，醫(yī)生再通過科室信息那個ddlb的selectchange事件中從數(shù)據(jù)庫根據(jù)選擇科室的類型讀取該科室下的醫(yī)生的姓名。核心代碼如下：stringls_doctorstringls_didselectDpmtidinto:ls_didfromTDeptmentwhereDpmtname=:ddlb_1.text; ddlb_3.reset()declareget_doccursorforSELECTdistinctDnameFROMTDoctorwhereDpmtid=:ls_did;openget_doc;fetchget_docinto:ls_doctor;dowhilesqlca.sqlcode=0ddlb_3.additem(ls_doctor)fetchget_docinto:ls_doctor;loopcloseget_doc;2.7科室掛號量查詢功能2.7.1功能概述用戶可以通過該功能來查看當前各科室的掛號量或者所有科室的掛號量以及詳細的掛號信息。2.7.2主要技術要點(1)實現(xiàn)數(shù)據(jù)窗口對象的動態(tài)加載在查看界面中只有一個數(shù)據(jù)窗口，而數(shù)據(jù)窗口對象根據(jù)不同的查詢方式實時動態(tài)地加載。核心代碼如下：dw_1.settransobject(SQLCA)ifddlb_1.text<>"[全部]"thendw_1.retrieve(ls_did)else dw_1.retrieve("%")endif實現(xiàn)在datasourse設置了查詢功能SELECTtregister.rid,tregister.pid,tregister.rtypeid,tregister.dpmtid,tregister.did,tregister.registdateFROMtregisterWHEREtregister.dpmtidlike:dpmtid(2)總的掛號量的統(tǒng)計通過SQL語句中的Count(*)子句來統(tǒng)計所有科室的掛號量以及各個科室的掛號量stringls_didselectDpmtidinto:ls_didfromTDeptmentwhereDpmtname=:ddlb_1.text; intnumselectcount(*)into:numfromTRegisterwhereDpmtid=:ls_did;st_5.text=string(num)2.8醫(yī)生信息管理2.8.1功能概述該功能模塊包括對醫(yī)生信息的添加和修改，刪除以及查詢。查詢可以通過輸入任何有關醫(yī)生信息的子集，通過模糊查找即可查找跟該檢索信息有關的醫(yī)生信息2.8.2主要技術要點(1)添加，修改，刪除的數(shù)據(jù)庫操作在本應用中采用數(shù)據(jù)庫SQL語句的INSERT子句，UPDATE子句，DELETE子句，并且實現(xiàn)了數(shù)據(jù)窗口的實時更新，當做了諸如增刪改的操作后。核心代碼如下：stringreg_genderifrb_1.checked=truethen//將復選框中的選中轉(zhuǎn)換為可輸入數(shù)據(jù)庫的字符串 reg_gender="男"endififrb_2.checked=truethen reg_gender="女"endifdatedtdt=date(dp_1.text)stringreg_deptid//醫(yī)生信息插入數(shù)據(jù)庫selectDpmtidinto:reg_deptidfromTDeptmentwhereDpmtname=: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()//修改信息updateTDoctorsetDid=:sle_2.text,Dname=:sle_1.text,Dgender=:reg_gender,Dbirthday=:dt,Dgrade=:ddlb_1.text,Dpmtid=:reg_deptid,Dtel=:sle_4.text,Didcard=:sle_3.textwhereDid=:st_id.text;//刪除信息ifmessagebox('提示：是否刪除？',sle_1.text,question!,yesno!)=2thenreturnDELETEFROMTDoctorWHEREDid=:st_id.text;dw_1.retrieve()(2)信息的模糊查詢數(shù)據(jù)窗口的過濾條件是可以對字符串型的字段進行過濾的。對于多個字段的過濾條件是通過OR邏輯關系進行連接。以此實現(xiàn)多角度的查詢。核心代碼如下：stringls_filteriftrim(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.text+"',1)>0"endifdw_1.setfilter(ls_filter)dw_1.filter()(3)編輯框的實時更新當用戶在數(shù)據(jù)窗口中選中了某條記錄，并雙擊該條記錄，其詳細信息關聯(lián)顯示到各對應的編輯框，并改變刪除，修改按鈕的使用狀態(tài)為True，用戶即可對信息進行編輯或刪除stringch_dpmtid,ch_dpmtname,ch_dgenderifrow>0thensle_1.text=dw_1.object.dname[row]sle_2.text=dw_1.object.did[row]sle_3.text=dw_1.object.didcard[row]sle_4.text=dw_1.object.dtel[row] ddlb_1.text=dw_1.object.dgrade[row] ch_dpmt