校醫(yī)院門診管理信息系統(tǒng)實(shí)驗(yàn)報(bào)告

. .一．需求分析設(shè)計(jì)這個(gè)校醫(yī)院門診管理信息系統(tǒng)的目的是為了規(guī)范校醫(yī)院門診過程中處要功能是實(shí)現(xiàn)各項(xiàng)相關(guān)信息(包括病人的相關(guān)信息、費(fèi)用標(biāo)準(zhǔn)的相關(guān)信息)(1)醫(yī)生。在本系統(tǒng)中，醫(yī)生的用戶類型被定義為“1”。“醫(yī)生”類型的b.創(chuàng)建維護(hù)學(xué)生的診療記錄，如癥狀、診療結(jié)果等。(即進(jìn)行編輯)c.創(chuàng)建維護(hù)學(xué)生的處方單。(即進(jìn)行編輯) (2)掛號人員。在本系統(tǒng)中，掛號人員的用戶類型被定義為“2”。“掛號醫(yī)保類型等。(即進(jìn)行編輯) (3)財(cái)務(wù)人員。在本系統(tǒng)中，財(cái)務(wù)人員的用戶類型被定義為“3”?！柏?cái)務(wù)d.維護(hù)學(xué)生的醫(yī)藥費(fèi)報(bào)銷記錄。(即進(jìn)行編輯)人員”類型的用戶在本系統(tǒng)中具有如下權(quán)限；d.創(chuàng)建、維護(hù)學(xué)生的交費(fèi)費(fèi)用單據(jù)。(即進(jìn)行編輯).(1)病人管理。病人管理的功能是供用戶對病人的掛號記錄、診療記錄、(2)費(fèi)用標(biāo)準(zhǔn)管理。費(fèi)用標(biāo)準(zhǔn)管理的功能是供用戶對治療費(fèi)用標(biāo)準(zhǔn)(對于診療項(xiàng)目而言的)、藥品價(jià)格記錄等信息進(jìn)行編輯和查詢。(3)添加新用戶。用戶可以添加新用戶的信息來創(chuàng)建與自己用戶類型即使(4)退出系統(tǒng)。用戶在結(jié)束使用之后可以主界面選擇“退出系統(tǒng)”，進(jìn)而(1)操作系統(tǒng)：Windows7。(2)數(shù)據(jù)庫：MicrosoftSQLServer2008.二．系統(tǒng)設(shè)計(jì)(1)病人(學(xué)號，姓名，性別，年齡，學(xué)院，學(xué)歷，醫(yī)保類型)(2)藥品(藥品編號，藥品名稱，進(jìn)貨價(jià)格，出售價(jià)格，保質(zhì)期，庫存量，.(3)診療項(xiàng)目(診療項(xiàng)目編號，收費(fèi)標(biāo)準(zhǔn)，診療項(xiàng)目名稱)(4)費(fèi)用(學(xué)號，醫(yī)保報(bào)銷費(fèi)用，需交費(fèi)用，診療項(xiàng)目花費(fèi)，藥品費(fèi)用，(5)醫(yī)生(醫(yī)生編號，醫(yī)生姓名，所屬科室)(6)劃價(jià)人員(劃價(jià)人員編號，劃價(jià)人員姓名)(7)財(cái)務(wù)人員(財(cái)務(wù)人員編號，財(cái)務(wù)人員姓名)(8)掛號人員(掛號人員姓名，掛號人員編號)(9)處方(學(xué)號，醫(yī)生編號，處方，開具日期，診療結(jié)果，病人癥狀)(10)診療記錄(學(xué)號，醫(yī)生編號，癥狀，診療結(jié)果)(I)E-R圖如下：劃價(jià)人員醫(yī)生財(cái)務(wù)人員掛號人員診療記錄產(chǎn)生包含藥品診療項(xiàng)目費(fèi)用處方.性別年齡學(xué)歷醫(yī)保類型財(cái)務(wù)人員姓名開具日期診療結(jié)果癥狀診療項(xiàng)目花費(fèi)藥品費(fèi)用實(shí)交費(fèi)用.劃價(jià)人員姓名保質(zhì)期庫存量診療結(jié)果項(xiàng)目診療項(xiàng)目名稱..IUse系統(tǒng).ETABLE(掛號人員姓名nchar(10)NOTNULL,Y.VB過程這個(gè)程序的功能是通過各類用戶實(shí)現(xiàn)各項(xiàng)相關(guān)信息(包括病人的相關(guān)信息、圖一學(xué)生處方編輯.圖二病人掛號記錄查詢b中所用到的查詢語句ELECTFromFormSELECTFromForm)SELECTFromFormECTFromFormLECTFromFormECTFromFormTFromForm.(I)實(shí)現(xiàn)查詢功能的代碼(以Form9為例)：e要查詢的學(xué)號輸入名為“Text1”的文本框中。此時(shí)該窗體的代PrivateSubCommand1_Click()Adodc1.RecordSource="SELECT*From費(fèi)用Where學(xué)號='"&Trim(Text1.Text)&"'"Adodc1.RefreshdSubPrivateSubCommand2_Click()nloadMedSub(II)實(shí)現(xiàn)編輯功能的代碼(以Form2為例).ewtexttetestxtnstEndIfousnstEndIfst(III)實(shí)現(xiàn)權(quán)限設(shè)置的代碼er.PrivateSubClick)MsgBox對不起，您沒有訪問權(quán)限",,"提示"EndIfEndSub三．程序運(yùn)行