成果：之老陽三干創(chuàng)作創(chuàng)作時(shí)間：六月三十日數(shù)據(jù)庫技術(shù)與應(yīng)用課程設(shè)計(jì)題目：醫(yī)院門診掛號(hào)系統(tǒng)班級(jí)：軟件2班姓名：林苾湲學(xué)號(hào)：2723日期：評(píng)語：簽字：1系統(tǒng)總體設(shè)計(jì)方案本系統(tǒng)是一種功效強(qiáng)年夜、把持使用簡樸、智能化、可擴(kuò)展性、集成有效性和垮平臺(tái)的醫(yī)院門診掛號(hào)系統(tǒng).醫(yī)院門診掛號(hào)系統(tǒng)醫(yī)院門診掛號(hào)系統(tǒng)信息維護(hù)門診管理院長查詢醫(yī)生信息維護(hù)科室信息維護(hù)初次掛號(hào)就診卡掛號(hào)科室掛號(hào)量后臺(tái)信息維護(hù)圖1.2.1功效模塊其中各模塊的信息維護(hù)還涉及對(duì)各類信息的增刪改查把持.后臺(tái)管理（權(quán)限管理）若為超級(jí)管理員,則可進(jìn)行顧客的增刪改查由于多組合查詢功效比力簡樸,只需輸入有關(guān)查詢的條件即可進(jìn)行多組合含糊查詢,因此在此并沒有畫出查詢子系統(tǒng)的總體構(gòu)造.數(shù)據(jù)庫表的命名是用表名的英文或英文縮寫,編程實(shí)現(xiàn)簡樸易記.(1)顧客信息表Tuser：保管系統(tǒng)使用者的信息,涉及顧客名及其密碼.(2)醫(yī)生資料表TDoctor:保管醫(yī)生信息,涉及醫(yī)生所屬的科室.(3)科室資料表TDepartment:保管科室分類信息,如分為內(nèi)科、外科.(4)病人信息表TPatient:保管病人的基本信息,后來能夠重復(fù)使用.(5)門診掛號(hào)表TRegister:保管門診病人掛號(hào)的信息.(6)門診掛號(hào)類型表TRegisterType:保管門診掛號(hào)類型分類信息及其掛號(hào)價(jià)格,如普通號(hào)、專家號(hào).在前章介紹的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上,形成數(shù)據(jù)庫中表以及各個(gè)表之間的關(guān)系.醫(yī)院門診管理系統(tǒng)數(shù)據(jù)庫中各個(gè)表格的設(shè)計(jì)成果以下面的幾個(gè)表格所示.每個(gè)表格暗示在數(shù)據(jù)庫中的一種表.表1-1顧客信息表Tuser編號(hào)字段名字段代碼字段類型允許為空主鍵外鍵1顧客名UidVarchar(50)NY2姓名UnameVarchar(50)Y3密碼UpwdVarchar(50)N4身份證UIDcardVarchar(50)Y表1-2醫(yī)生資料表TDoctor編號(hào)字段名字段代碼字段類型允許為空主鍵外鍵1醫(yī)生編號(hào)DidVarchar(10)NY2姓名DnameVarchar(50)Y3性別DgenderVarchar(10)Y4身份證DidcardVarchar(20)Y5出身日期DbirthdaydateY6所屬科室編號(hào)DpmtidVarchar(5)YY7德律風(fēng)DtelVarchar(11)Y表1-3科室資料表TDepartment編號(hào)字段名字段代碼字段類型允許為空主鍵外鍵1科室編號(hào)DpmtidVarchar(50)NY2科室名稱DpmtnameWarchar(50)N表1-4病人信息表TPatient編號(hào)字段名字段代碼字段類型允許為空主鍵外鍵1病人編號(hào)（就診卡號(hào)）PidVarchar(20)NY2姓名PnameVarchar(50)Y3性別PgenderVarchar(10)Y4身份證PidcardVarchar(20)Y5出身日期PbirthdaydateY7德律風(fēng)PtelVarchar(11)Y表1-5門診掛號(hào)表TRegister編號(hào)字段名字段代碼字段類型允許為空主鍵外鍵1掛號(hào)RidVarchar(20)NY2病人編號(hào)PidVarchar(20)YY3掛號(hào)類型編號(hào)RtypeidVarchar(10)YY4科室編號(hào)DpmtidVarchar(5)YY5醫(yī)生編號(hào)DidVarchar(10)YY6掛號(hào)日期RegistDateDatetimeY表1-6門診掛號(hào)類型表TRegisterType編號(hào)字段名字段代碼字段類型允許為空主鍵外鍵1類型編號(hào)RtypeidVarchar(10)NY2類型名稱Rtypenamevarchar(50)Y3價(jià)格RegpriceMoneyY2系統(tǒng)實(shí)現(xiàn)2.1PB11.5和SQLSERVER連接PB11.5和SQLSERVER連接方式有兩種,一種是通過ODBC數(shù)據(jù)源連接數(shù)據(jù)庫,另一種是MSSSQLSERVER專用接口連接數(shù)據(jù)庫.前者首先在計(jì)算機(jī)ODBC數(shù)據(jù)源管理器中創(chuàng)立新的數(shù)據(jù)源,設(shè)立好DataSourceName(數(shù)據(jù)源名稱)和DataBase（數(shù)據(jù)庫文獻(xiàn)名）,然后在PB中建立數(shù)據(jù)庫配備文獻(xiàn)（配備文獻(xiàn)就是命名了的一組連接到特定命據(jù)源或數(shù)據(jù)庫的參數(shù)）,輸入ProfileName(配備文獻(xiàn)的名字)和DataSource（界說好的ODBC數(shù)據(jù)源）,點(diǎn)擊Connect按鈕即可.另外,在通過專用接口連接數(shù)據(jù)庫時(shí)還能夠使用配備參數(shù)文獻(xiàn)連接數(shù)據(jù)庫.配備參數(shù)文獻(xiàn)重要涉及數(shù)據(jù)庫名,服務(wù)器地址,登錄名,登錄密碼等外容.在應(yīng)使用方法式對(duì)象的Open事件中輸入以下代碼：SQLCA.DBMS="ODBC"SQLCA.AutoCommit=FalseSQLCA.DBParm="ConnectString='DSN=hmis;UID=hisl;PWD=123456'"http://連接數(shù)據(jù)庫ConnectusingSQLCA;ifsqlca.sqlcode<>0THEN messagebox("數(shù)據(jù)庫連接出錯(cuò)",SQLCA.SQLerrtext)else open(w_login)endif應(yīng)使用方法式運(yùn)行后連接數(shù)據(jù)庫,數(shù)據(jù)庫連接好后就呈現(xiàn)系統(tǒng)登錄界面,否則退出系統(tǒng),直至數(shù)據(jù)庫連接勝利.在應(yīng)使用方法式對(duì)象的變量界說窗口中,界說全局變量用于應(yīng)使用方法式分歧對(duì)象間參數(shù)的傳遞.顧客登錄系統(tǒng)窗口是顧客進(jìn)入系統(tǒng)的唯一通道,它是進(jìn)入應(yīng)用系統(tǒng)的喉舌,在平安保密、系統(tǒng)維護(hù)中占有重要的位置,登錄系統(tǒng)在外觀界面上一定要美觀、和諧,登錄系統(tǒng)就是要驗(yàn)證后來的顧客名與否與該顧客密碼一致,顧客類型與否對(duì)的,限制顧客登錄出錯(cuò)的次數(shù),保管登錄痕跡等工作.(1)保管登錄痕跡根據(jù)把持局部性原理,普通狀況下顧客上次登錄之后還會(huì)繼續(xù)登錄,因此在法式中能夠根據(jù)人機(jī)交互界面和諧性原則保管顧客登錄時(shí)的顧客名,控件sle_1用來顯示顧客名,profilestring是一種函數(shù),用來讀取profile文獻(xiàn)中一組參數(shù),核心代碼以下://將登錄名寫入配備文獻(xiàn)SetProfileString("user.ini","user","username",sle_1.text)//將配備文獻(xiàn)中的登錄名寫到顧客名的編纂框中sle_1.text=profilestring("user.ini","user","username","")iftrim(sle_1.text)<>""then sle_2.setfocus()else sle_1.setfocus()endif(2)友情提示顧客登錄出錯(cuò)的因素顧客登錄毛病的因素可能涉及顧客名不存在,密碼毛病等等核心代碼以下：t//判斷輸入的顧客名與否存在.密碼與否對(duì)的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()returnendif醫(yī)院門診掛號(hào)系統(tǒng)的主窗口是信息管理系統(tǒng)的重要部份,勾勒出整個(gè)應(yīng)使用方法式的概況,系統(tǒng)的重要功效為：病人初次就診（即需要填寫病人信息來規(guī)畫就診卡）、就診卡就診、后來科室掛號(hào)量以及掛號(hào)信息的查詢醫(yī)生信息管理（涉及增刪查改）、科室信息管理（涉及增刪查改）、顧客信息管理,注銷（能夠切換顧客）.(1)對(duì)主窗口中的功效按鍵進(jìn)行了權(quán)限管理在本系統(tǒng)中實(shí)現(xiàn)的是當(dāng)?shù)卿浀念櫩筒皇浅?jí)管理員,即顧客名為000的顧客使,顧客無法使用后臺(tái)信息管理功效.核心代碼以下：stringuseruser=profilestring("user.ini","user","username","")ifuser="000"thenm_main.m_后臺(tái)管理.enabled=trueelse m_main.m_后臺(tái)管理.enabled=falseendif(2)界說了計(jì)時(shí)器,能夠隨系統(tǒng)顯示后來時(shí)間和后來使用這個(gè)系統(tǒng)的顧客名核心代碼以下datetimed1selectgetdate()into:d1fromTuser;this.title="醫(yī)院門診掛號(hào)系統(tǒng)"+""+gs_username+""+string(d1)初次就診卡就診是門診掛號(hào)管理中比力重要的模塊,由于病人沒有就診卡號(hào)故先進(jìn)行信息錄入,并賦予一種就診卡號(hào),隨之,即可進(jìn)行掛號(hào),選擇掛號(hào)科室,類型,醫(yī)生,還能夠查詢后來該科室的掛號(hào)人數(shù),全部這些信息均會(huì)在一種框內(nèi)打印出來,顧客能夠檢查這些信息.(1)掛號(hào)功效由于該功效是將錄入病人信息和掛號(hào)結(jié)合合在一起,故使得把持更為簡便.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就診卡號(hào)："+sle_1.text+"~r~n掛號(hào)："+rid+"~r~n掛號(hào)科室："+ddlb_1.text+"~r~n掛號(hào)類型："+ddlb_2.text+"~r~n掛號(hào)醫(yī)生："+ddlb_3.text+"~r~n掛號(hào)費(fèi)用："+regprice+"~r~n~r~n前面尚有"+string(num)+"人掛號(hào)"+"~r~n~r~n時(shí)間：~r~n"+string(regdt)該功效也是門診掛號(hào)系統(tǒng)的重要功效,顧客只需要輸入就診卡號(hào)就可獲得,該病人的重要信息,然后再進(jìn)行掛號(hào)科室,掛號(hào)類型,掛號(hào)醫(yī)生的選擇,掛號(hào)的功效與初次掛號(hào)的功效類似.（1）輸入就診卡號(hào)獲得病人信息輸入就診卡號(hào)獲得病人信息的功效是通過數(shù)據(jù)庫查詢技術(shù)實(shí)現(xiàn)的.SQL語句使用SELECT子句,FROM子句,WHERE子句.核心代碼以下：ifsle_1.text=''then messagebox("提示","就診卡號(hào)不能為空！") 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("提示","無后來就診卡號(hào)！") sle_1.text='' sle_1.setfocus()returnendif(2)游標(biāo)技術(shù)調(diào)入基本信息掛號(hào)科室,醫(yī)生等值是通過游標(biāo)技術(shù)來實(shí)現(xiàn),掛號(hào)科室是在窗口的open事件中從數(shù)據(jù)庫讀取業(yè)務(wù)系統(tǒng)名,醫(yī)生再通過科室信息那個(gè)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;顧客能夠通過該功效來檢查后來各科室的掛號(hào)量或者全部科室的掛號(hào)量以及具體的掛號(hào)信息.(1)實(shí)現(xiàn)數(shù)據(jù)窗口對(duì)象的靜態(tài)加載在檢查界面中只有一種數(shù)據(jù)窗口,而數(shù)據(jù)窗口對(duì)象根據(jù)分歧的查詢方式實(shí)時(shí)靜態(tài)地加載.核心代碼以下：dw_1.settransobject(SQLCA)ifddlb_1.text<>"[全部]"thendw_1.retrieve(ls_did)else dw_1.retrieve("%")endif實(shí)現(xiàn)在datasourse設(shè)立了查詢功效SELECTtregister.rid,tregister.pid,tregister.rtypeid,tregister.dpmtid,tregister.did,tregister.registdateFROMtregisterWHEREtregister.dpmtidlike:dpmtid(2)總的掛號(hào)量的統(tǒng)計(jì)通過SQL語句中的Count(*)子句來統(tǒng)計(jì)全部科室的掛號(hào)量以及各個(gè)科室的掛號(hào)量stringls_didselectDpmtidinto:ls_didfromTDeptmentwhereDpmtname=:ddlb_1.text; intnumselectcount(*)into:numfromTRegisterwhereDpmtid=:ls_did;st_5.text=string(num)該功效模塊涉及對(duì)醫(yī)生信息的添加和修改,刪除以及查詢.查詢能夠通過輸入任何有關(guān)醫(yī)生信息的子集,通過含糊查找即可查找跟該檢索信息有關(guān)的醫(yī)生信息(1)添加,修改,刪除的數(shù)據(jù)庫把持在本應(yīng)用中采納數(shù)據(jù)庫SQL語句的INSERT子句,UPDATE子句,DELETE子句,并且實(shí)現(xiàn)了數(shù)據(jù)窗口的實(shí)時(shí)更新,當(dāng)作了諸如增刪改的把持后.核心代碼以下：stringreg_genderifrb_1.checked=truethen//將復(fù)選框中的選中轉(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ù)窗口的過濾條件是能夠?qū)ψ址偷淖侄芜M(jìn)行過濾的.對(duì)多個(gè)字段的過濾條件是通過OR邏輯關(guān)系進(jìn)行連接.以此實(shí)現(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í)時(shí)更新當(dāng)顧客在數(shù)據(jù)窗口中選中了某條統(tǒng)計(jì),并雙擊該條統(tǒng)計(jì),其具體信息關(guān)聯(lián)顯示到各對(duì)應(yīng)的編纂框,并變化刪除,修改按鈕的使用狀態(tài)為True,顧客即可對(duì)信息進(jìn)行編纂或刪除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