醫(yī)院管理系統(tǒng)課程設(shè)計(jì)方案說明書

PAGE11一、系統(tǒng)需求與功能分析1．系統(tǒng)需求分析醫(yī)院信息化是醫(yī)院應(yīng)用信息技術(shù)及其產(chǎn)品的過程，是信息技術(shù)由局部到全局、由戰(zhàn)術(shù)層次到戰(zhàn)略層次向醫(yī)院的全面滲透,運(yùn)用于流程管理、支持醫(yī)院經(jīng)營(yíng)管理的過程。信息化的實(shí)施從自上而下的角度說,必須與醫(yī)院的制度創(chuàng)新、組織創(chuàng)新和管理創(chuàng)新結(jié)合；從自上而下的角度說,必須以作為醫(yī)院主體的業(yè)務(wù)人員直接受益及其使用水平的逐步提高為基礎(chǔ)。調(diào)查用戶需求：本系統(tǒng)的最終用戶為醫(yī)院,我們根據(jù)從醫(yī)院方面取得的圖表資料、文字資料以及其他細(xì)節(jié)方面的信息，根據(jù)我們?nèi)粘Ｉ钪械慕?jīng)驗(yàn)，根據(jù)我們所做的其他詢問和調(diào)查，得出用戶的下列實(shí)際要求:用戶對(duì)系統(tǒng)的要求:信息要求：由于系統(tǒng)的使用主體是醫(yī)院的管理人員，因此對(duì)系統(tǒng)的信息要求可分為以下方面：（1)病人信息①:首先是病人的基本信息，主要包括病人的姓名，性別，出生年月,年齡，家庭住址,聯(lián)系方式等；②：對(duì)于住院病人,還需要入院時(shí)間，所在病區(qū),所在醫(yī)科，床位等。（2)處理要求：系統(tǒng)應(yīng)當(dāng)完成以下的信息處理：①:存儲(chǔ)病人信息,供相應(yīng)的人員查詢；②：對(duì)病人信息進(jìn)行及時(shí)的更新和統(tǒng)計(jì)；(3)安全性要求：系統(tǒng)應(yīng)設(shè)置訪問用戶的標(biāo)識(shí)以鑒別是否是合法用戶，并要求合法用戶設(shè)置其密碼，保證用戶身份不被盜用.2．功能分析?（1）信息錄入處理：住院病人信息錄入、住院病人治療費(fèi)用錄入、住院病人藥品費(fèi)用錄入。?住院病人信息錄入就是將源數(shù)據(jù)庫(kù)中沒有的病人信息重新錄入進(jìn)去，并且可以錄入病人姓名。住院病人費(fèi)用錄入和住院病人藥品錄入功能相近，都是將病人在住院期間的所花的費(fèi)用進(jìn)行錄入保存，方便以后進(jìn)行查詢。?（2）信息查詢處理：住院病人信息查詢和住院病人費(fèi)用查詢。?住院病人信息查詢和住院病人費(fèi)用查詢功能相似，從數(shù)據(jù)庫(kù)中將病人信息和費(fèi)用顯示到前臺(tái)，讓病人及時(shí)了解自己的個(gè)人信息和消費(fèi)情況。?（3）信息統(tǒng)計(jì)處理：住院病人總費(fèi)用統(tǒng)計(jì)按大類科、專科、病區(qū)及指定的病人進(jìn)行查詢統(tǒng)計(jì)（４)信息打印處理：住院病人信息打印住院病人信息報(bào)表打印用于顯示病人的住院號(hào)、床位號(hào)、床位費(fèi)、病人姓名、性別編碼出生日期、民族、籍貫和病癥等詳細(xì)信息。?（5）系統(tǒng)維護(hù)處理:病人信息維護(hù)、大類科編碼維護(hù)、?？凭幋a維護(hù)、病區(qū)編碼維護(hù)、治療項(xiàng)目編碼維護(hù)、藥品編碼維護(hù)醫(yī)生編碼維護(hù)和用戶編碼維護(hù).系統(tǒng)編碼維護(hù)時(shí)分別對(duì)病人信息、大類科、?？?、病區(qū)、治療項(xiàng)目、藥品信息、醫(yī)生信息和用戶信息進(jìn)行錄入、查詢與修改等操作，數(shù)據(jù)編碼表維護(hù)是對(duì)各類數(shù)據(jù)編碼表中的記錄進(jìn)行錄入、查詢與修改等操作。3．系統(tǒng)功能菜單由此方案設(shè)計(jì)的系統(tǒng)功能菜單如下表所示。信息錄入信息查詢信息統(tǒng)計(jì)數(shù)據(jù)打印系統(tǒng)維護(hù)信息復(fù)制病人信息錄入病人信息查詢病人總費(fèi)用統(tǒng)計(jì)病人信息打印系統(tǒng)維護(hù)批量復(fù)制病人治療費(fèi)用錄入病人費(fèi)用查詢大類科編碼維護(hù)病人藥品費(fèi)用錄入?？凭幋a維護(hù)病區(qū)編碼維護(hù)治療項(xiàng)目維護(hù)藥品編碼維護(hù)醫(yī)生編碼維護(hù)用戶編碼維護(hù)表學(xué)生成績(jī)管理功能菜單二、數(shù)據(jù)庫(kù)設(shè)計(jì)設(shè)計(jì)系統(tǒng)的數(shù)據(jù)庫(kù)結(jié)構(gòu)、數(shù)據(jù)表結(jié)構(gòu)包含序號(hào)、數(shù)據(jù)項(xiàng)名、含義、數(shù)據(jù)項(xiàng)類型、長(zhǎng)度、非空、索引、主鍵、外鍵、引用字段、數(shù)據(jù)來源等。１。大類科編碼表Cateｇoｒy表１大類科編碼表tbｌCａt(yī)ｅgｏry序號(hào)字段名含義類型寬度小數(shù)主／外鍵１Ｃａt(yī)e＿Ｉd大類科編碼Ｖaｒｃhaｒ10PK２Cａt(yī)e_Namｅ大類科名稱Varcｈａｒ２０３Cａt(yī)e_Ｄean大類科主任Varchar102。?？凭幋a表Sｐec表2專科編碼表ｔbｌSpec序號(hào)字段名含義類型寬度小數(shù)主／外鍵關(guān)聯(lián)表／字段1Ｓpec_Ｉd專科編碼Ｖarｃhar10PＫ２Speｃ_Ｎaｍe?？泼QＶaｒｃｈａr３03Spｅｃ_Ｃatｅ所屬大類科編碼Vａrｃｈaｒ１0FKｔｂlCatｅgoｒy/Ｃａt(yī)e_IＤ3。病區(qū)編碼表Ｗarｄ表3病區(qū)編碼表tblWａrｄ序號(hào)字段名含義類型寬度小數(shù)主／外鍵關(guān)聯(lián)表/字段1Ｗard_Id病區(qū)編碼Varchaｒ１0PK2Wａrd＿Ｎaｍe病區(qū)名稱Vａｒchar203Wａｒd_Ｐos病區(qū)位置Vａrｃｈar20４Ｗaｒd_Bedｓ總床位數(shù)Ｉnt５Ｗａｒｄ＿Usｅd已用床位數(shù)Int6Waｒd_Resｔ剩余床位數(shù)fｌaoｔ7Ward_Heaｄ病區(qū)主任Vａｒcｈar1０8Ｗａrｄ_Speｃ所屬?？凭幋aＶａrchar２FＫtｂlSｐeｃ/Speｃ＿ＩＤ4.病人信息表Patｉeｎt表4病人信息表tｂｌPatient序號(hào)字段名含義類型寬度小數(shù)主/外鍵關(guān)聯(lián)表／字段1Pａｔ_Ｉd住院號(hào)Ｖarchar10PK２Ｐaｔ_Bed床位號(hào)Vａrchar503Ｐat_BedFｅe(cuò)床位費(fèi)ｍoney2４Pat＿Nａｍｅ病人姓名Varchar85Ｐat_Ｓex性別編碼Ｖarcｈａr1ｔblSeｘ/Seｘ＿ID6Pat_Birth出生日期Ｄatetime７Paｔ_Natiｏn民族Varchａｒ2tbｌNatｉｏｎ/Natioｎ_ＩD8Paｔ＿NtvPlc籍貫Ｖａrｃｈａr6ｔbｌＮtｖPｌｃ／ＮtvPlc_ID9Paｔ_Ｓｙｍptｏn病癥Vaｒchar2０10Paｔ_Ｗｏrk工作單位Ｖarｃｈａr2011Pａｔ＿CｈarＩd身份證號(hào)Vａrchar4012Pat＿Wａｒd病區(qū)編碼Ｖarｃhaｒ10tblＷａrd/Ｗard＿IＤ１３Paｔ_ZipCｏｄe住宅郵編Ｖarｃhaｒ61４Paｔ＿Phone住宅電話Varｃｈar20１5Pat_Ａｄdr戶口地址Vａrｃhar5016Ｐat＿Ａdmit入院日期Dａt(yī)eｔimｅ17Pat＿Lｅavｅ出院日期Dａｔeｔｉｍe１８Pａｔ_PayAｄ預(yù)交費(fèi)money2１9Paｔ_PaｙSｕm費(fèi)用總額moｎeｙ220Paｔ_PayＲｅｓｔ費(fèi)用結(jié)余ｍonｅy２２１Ｐat_Iｍagｅ病人照片Imａge5．性別編碼表Ｓex表5性別編碼表ｔｂlSeｘ序號(hào)字段名含義類型寬度小數(shù)主/外鍵1Ｓｅｘ＿Id性別編碼Varchａr1PK２Sex＿Name性別Varcｈａｒ1０6.民族編碼表Nａt(yī)ion表6民族編碼表ｔblNaｔiｏn序號(hào)字段名含義類型寬度小數(shù)主外鍵１Natioｎ_Ｉd民族編碼Ｖａrcｈａｒ2ＰK2Nａｔion_Ｎａmｅ民族名稱Ｖaｒcｈar２０7。籍貫編碼表ＮtvPlc表7籍貫編碼表tblＮtvＰｌc序號(hào)字段名含義類型寬度小數(shù)主/外鍵1NtvPlc＿Id籍貫編碼Ｖarchar6PＫ２ＮｔvPlc_Ｎａｍｅ籍貫名稱Varchar2０８.治療項(xiàng)目編碼表Ｉteｍ表８治療項(xiàng)目編碼表tblＩtem序號(hào)字段名含義類型寬度小數(shù)主/外鍵關(guān)聯(lián)表/字段1Iｔｅm_Ｉd項(xiàng)目編碼Varｃｈaｒ1０PK２Ｉtｅm_Ｎame項(xiàng)目名稱Varｃhar63Ｉtem_Ｔｙｐe項(xiàng)目類別Varｃhａr64Iteｍ_Wbｍ五筆碼Varcｈaｒ30５Ｉteｍ_Pyｍ拼音碼Vaｒcｈａr1０６Ｉteｍ＿PeｒＰｒiｃe項(xiàng)目單價(jià)fｌoａt(yī)２７Ｉtem_Maｒk備注Varchａr20９。病人治療項(xiàng)目費(fèi)用表MｅdItｅm表９病人治療項(xiàng)目費(fèi)用表tblMｅｄＩｔem序號(hào)字段名含義類型寬度小數(shù)主/外鍵關(guān)聯(lián)表／字段１Mi_PatIｄ住院號(hào)Ｖａｒchar10PKtbｌPatiｅｎｔ/Pat＿Ｉｄ２Mi_ItemＩｄ項(xiàng)目編碼Vａrcｈar10tbｌIteｍ/Iteｍ_ＩD3Mi_Quaｎtｉｔｙ數(shù)量ｆloａｔ４Ｍｉ_Amoｕnｔ金額inｔ5Mｉ_Daｔe使用日期Varchar１06Mi＿Tiｍe使用時(shí)間Vａｒchａr５0７Mi_DocＩd醫(yī)生編碼Varｃhar１0ｔｂlＤｏcｔor／Doｃt_Iｄ8Mi_Ａdviｃｅ醫(yī)囑號(hào)Varchar1010。藥品編碼表Meｄiｃiｎｅ表1０藥品編碼表tblＭeｄiｃine序號(hào)字段名含義類型寬度小數(shù)主/外鍵關(guān)聯(lián)表／字段1Ｍed＿Ｉd藥品編碼Vａrchar17PＫ2Mｅd_Wbm五筆編碼Varｃhar63Ｍed_Pｙm拼音編碼Vaｒｃｈar６４Ｍｅd_Nａme藥品名稱Vaｒｃhar305Mｅd_Sｐeｃ藥品規(guī)格Vａrcｈaｒ1６6Ｍｅd＿Ｕniｔ計(jì)量單位Varchar67Mｅd＿PｅrＰriｃｅ藥品單價(jià)float28Meｄ＿Expiｒyｄatｅ藥品有效期Varchar１1.病人藥品費(fèi)用表ＭeｄFeｅ表１１病人藥品費(fèi)用表ｔbｌＭedFｅｅ序號(hào)字段名含義類型寬度小數(shù)主/外鍵關(guān)聯(lián)表/字段1Mｆ_Pａt(yī)Id住院號(hào)Ｖaｒｃhaｒ1０PKtbｌPａt(yī)ient／Ｐａｔ_Id2Mｆ_ItemＩd藥品編碼Vaｒchaｒ17ｔbｌＭedｉcｉne/Ｍeｄ_Ｉd3Mf_Uniｔ藥品單位Varｃｈａr44Mｆ_Ｑuantｉtｙ數(shù)量ｆｌｏat５Mｆ＿Aｍount金額floａt(yī)6Ｍf_Ｄａｔｅ使用日期Vａrchar１07Ｍｆ_Tｉmｅ使用時(shí)間Varchａr５８Mf＿ＤocId醫(yī)生編碼Vaｒcｈａr5tｂlDoｃtor/Doｃｔ＿Id9Mf_Advice醫(yī)囑號(hào)Varcｈａr1０１2．醫(yī)生編碼表Ｄｏctoｒ序號(hào)字段名含義類型寬度小數(shù)主鍵表１2醫(yī)生編碼表tｂlＤoctｏr序號(hào)字段名含義類型寬度小數(shù)主/外鍵關(guān)聯(lián)表／字段１Docｔ_ID醫(yī)生編碼Ｖarchar5PK2Doｃt_Name醫(yī)生名稱Ｖaｒchａｒ８3Ｄoct_Ｓpec所屬專科編碼Varchar8tblＳpｅｃ／Spｅｃ_Ｉd4Doｃt＿Ｗard所屬病區(qū)編碼Vａrchar10tbｌWard/Warｄ_Ｉd1３。用戶表User表1３用戶表tblＵｓer序號(hào)字段名含義類型寬度小數(shù)主/外鍵關(guān)聯(lián)表／字段１Uｓer_ＩD用戶名Varchar1０PＫ2Useｒ_Ｐsw用戶密碼Ｖaｒｃhaｒ２03Usｅr_Ｆlag用戶權(quán)限標(biāo)志Ｖaｒｃhar1三、程序設(shè)計(jì)１。系統(tǒng)登錄（主）圖1用戶登錄界面在登錄界面的設(shè)計(jì)中,我采用的是有連接訪問數(shù)據(jù)庫(kù)，這樣數(shù)據(jù)并發(fā)性問題更容易控制，數(shù)據(jù)也是當(dāng)前的和及時(shí)更新的;此外還設(shè)有用戶權(quán)限，權(quán)限不同登錄成功后呈現(xiàn)出的主界面也不同；并且使用DａｔａReaｄer組件來以只讀和僅轉(zhuǎn)發(fā)的方式從數(shù)據(jù)源檢索數(shù)據(jù)；核心代碼如下：／／有連接訪問ｓｔatｉcｓtriｎgstｒ＝”Dａt(yī)aSｏurce＝ASUＳ—PC＼\SQLEXＰＲＥＳS；ＩnitiａlＣａt(yī)alog=Hospｉｔａｌ;UseｒＩd＝sa；Password＝sａ”；SｑlCｏnnectioｎcoｎ＝neｗSqlＣonnection(str）；ｐrｉvaｔｅｖｏｉｄbtn_Lｏgin_Ｃlick（ｏbjｅcｔsenｄｅr,ＥｖeｎtＡrgｓｅ）｛sｔrｉngcｍdStr="Selｅｃt＊FrｏmtblＬｏｇiｎWｈｅｒｅUｓer＿Nａmｅ＝@ａaｎdUser＿Pwd=@ｂ＂;SqｌCommandcmd=newSqlＣommａｎd(ｃmｄＳｔｒ，con）;SqｌＰａrａmeｔeｒs1，s2;ｓ１＝cmd.Ｐaraｍｅters。Aｄｄ(”＠ａ＂,SqlDbＴype．ＶarＣhar,2０）；s2=cmd.Pａｒaｍetｅrs．Add（"@b”,SqlDｂTyｐｅ．VaｒＣｈａｒ，20);ｓ１。Valｕe=ｔｘt_UserＮａmｅ．Text;s2。Ｖａｌuｅ=ｔxt_UｓerPwd．Tｅxt;／/打開連接con。Opｅn(）;/／定義SqｌDatａＲｅａdｅr對(duì)象SqｌDataReaderｄr=cmd。EｘecｕteReaｄer(）;??／／只讀的方式從數(shù)據(jù)源檢索數(shù)據(jù)if(dr。Ｒeａd（）)｛／／用戶權(quán)限登錄Common．Usｅr_Flaｇ=dｒ[”Ｕsｅr＿Flag＂]。TｏStrinｇ（);/／顯示主窗體Ｆｏｒm＿M(jìn)aｉnfｒm＝newＦorm_Mａｉn(）;ｆrm．Show（);｝elsｅ｛MessageBoｘ．Ｓhｏｗ("用戶名或密碼錯(cuò)誤?。ⅲ?｝／/關(guān)閉連接con.Closｅ(）；｝２.主界面(主)圖2醫(yī)院住院信息管理系統(tǒng)在主界面設(shè)計(jì)，為了將所有界面以整體的方式全部實(shí)現(xiàn)出來,即執(zhí)行一次就能看到全部效果，我在主界面添加了MeｎｕStｒip控件并且在ＭeｎｕSｔｒiｐ控件上添加了MeauItem控件，雙擊MeａuIteｍ控件添加代碼實(shí)現(xiàn)主／子窗體連接;而且把界面設(shè)計(jì)的漂亮、規(guī)范,我把Fｏrｍ窗體的IsMdｉＣｏｎｔａｉｎｅr屬性設(shè)置為Ｔｒue，ＢacｋgrｏunｄImaｇe屬性導(dǎo)入一張圖片，加入一個(gè)ｔimｅｒ控件在ｓｔatusSｔｒｉｐ顯示時(shí)間；此外涉及到用戶權(quán)限問題，我在Fｏrｍ＿Ｌoad事件中添加代碼，用戶權(quán)限不同登錄后訪問的主界面也不同。核心代碼如下：／/單擊主界面上住院病人藥品費(fèi)用錄入時(shí)，將顯示出住院病人藥品費(fèi)用錄入的Foｒm子窗體pｒivatｅvoidtsmiMfInpｕt_Clｉｃk（ｏbjｅcｔsｅｎｄer，EvenｔArgse）{Ｆｏｒm＿M(jìn)edFeefｒm＝ｎewＦorｍ_MedFｅe(cuò)()；frm.MdｉPａrent=ｔhis;ｆrｍ．Sｈow（）；ｓlｂl_wiｎdow.Tｅｘt="當(dāng)前窗體：＂＋fｒm。Ｔexｔ；｝/／用戶權(quán)限設(shè)置prｉvatevoidFｏrm_Maiｎ_Loａd（objｅctsｅｎder,EventArgse)｛?/／調(diào)用Ｃommｏn類的靜態(tài)變量Ｕser＿Flａｇ，當(dāng)用戶權(quán)限為0時(shí)，系統(tǒng)維護(hù)界面失效,但可見ｉf（Ｃomｍｏn.User_Flａg=＝"0”）｛ ?//系統(tǒng)維護(hù)界面失效MenuＭaintａin．Enabｌed=ｆalse;}｝//timer控件顯示時(shí)間privａt(yī)eｖoidｔiｍeｒ１＿Ｔiｃｋ(obｊectsenｄｅｒ，EventAｒｇse）｛slbl_ｔimｅ．Teｘｔ="日期：時(shí)間："＋Cｏｎvert.TｏSｔｒｉng（Dａt(yī)eTｉme.Nｏｗ）；｝／/單擊主界面上住院病人總費(fèi)用錄入時(shí),將顯示出住院病人總費(fèi)用錄入的Form子窗體pｒｉｖａｔevoid住院病人總費(fèi)用統(tǒng)計(jì)ToolSｔｒipMｅnｕItem_Ｃlｉck（obｊectsender,EｖentArgse）｛Ｆorｍ_FeeＳtatfｒm＝ｎewＦorm＿Fｅe(cuò)Ｓtａｔ(）;frm。MｄｉPareｎt=thiｓ;frm.Sｈow（);slbl_wｉndow．Ｔeｘt="當(dāng)前窗體:”+frm。Ｔexｔ;}//單擊主界面上批量復(fù)制時(shí)，將顯示出批量復(fù)制的Foｒｍ子窗體ｐriｖaｔｅｖｏidtoｏlStriｐＢutｔon１_Clｉcｋ（ｏｂjectseｎdｅr,ＥvenｔＡrgｓｅ）｛Form_Coｐyfrm=newFoｒm_Copy（);frｍ。ＭdiParent=this；ｆrｍ.Shｏｗ（)；slbl＿windｏｗ。Ｔeｘt＝＂當(dāng)前窗體：＂+ｆｒm。Text；｝／／單擊主界面上住院病人信息打印時(shí)，將顯示出住院病人信息打印的Ｆｏrｍ子窗體prｉｖaｔeｖoidtsｍｉPaｔPｉｎｔ_Ｃlｉck（ｏbｊecｔseｎｄer，EvｅｎｔArgsｅ）{Fｏrm_PaｔＢbfrm=nｅwFｏrm＿Pａt(yī)Bb(）；ｆｒm.MdｉPａrent=thiｓ;frm．Sｈow（）;ｓｌｂl_window。Tｅxt=＂當(dāng)前窗體:"+ｆｒm.Tｅxｔ;｝3。病人信息錄入(次)圖3病人信息錄入?病人信息用于對(duì)病人信息的錄入、查詢和顯示等操作,并且可以插入病人照片。主要代碼如下:ｗｈile（mｙRｅａdeｒ。Rｅad()）{filｅ=ｎewＦｉlｅStream（saｖｅｄImaｇｅＮaｍe，F(xiàn)ileＭｏde。OpｅnOｒCｒeatｅ，ＦilｅＡcｃeｓs。Ｗrｉtｅ);ｂw=nｅｗBinａｒｙWｒｉtｅr(fｉle）；sｔａrｔIｎｄeｘ＝0；//讀取的起點(diǎn)位置retvaｌ=myReader.ＧetＢｙｔｅs(0,sｔａrtIndex，ｏuｔbyｔe,0,bufferSiｚe);／/返回實(shí)際讀取的字節(jié)數(shù)/／當(dāng)圖片大小大于或等于數(shù)組大小時(shí)，需分塊寫入到文件中ｗhiｌe(rｅtvａl=＝buｆfeｒＳizｅ）{bｗ．Ｗriｔｅ（outbｙte)；bw.Ｆｌuｓｈ()；sｔartIndex＋=buｆｆerSiｚe;//重置讀取的起點(diǎn)位置rｅｔvaｌ=myＲeaｄer.ＧeｔBｙtes（0，ｓtaｒtIｎdeｘ，ｏutｂytｅ，0，buffｅrSize）;}bｗ．Wriｔe（outｂyte，0,（ｉnt）ｒeｔval—1）；ｂw.Ｆlｕｓｈ（)；ｂw。Ｃlose（）；fｉｌe.Ｃlose（）；｝４。住院病人信息查詢（次)圖4住院病人信息查詢從數(shù)據(jù)庫(kù)中將病人信息和費(fèi)用顯示到前臺(tái),讓病人及時(shí)了解自己的個(gè)人信息。代碼:pｒivateｖoｉdcbo_Catｅ＿SeleｃtedＩｎdｅｘChａｎged(oｂjｅctsｅｎdeｒ，EｖｅntArgse）｛?//無連接訪問實(shí)現(xiàn)?？票砗痛箢惪票淼慕壎ǎ髏ringｃmdＳtr=”Select*ＦｒｏmtbｌＳpｅｃwhｅreSｐｅc_Ｃａt(yī)e＝@a"；SqｌCｏｍmandｃmｄ=ｎewSqlCoｍmａnｄ(ｃmdStr，con）;SqlPaｒaｍeters1;s1＝ｃmd.Ｐaraｍeterｓ.Aｄｄ（”@a"，SqlＤbＴｙpe.VaｒＣhar，２）；ｓ1．Ｖalｕe＝ｃbｏ_Ｃate．ＳelｅｃtedＶaluｅ。ToＳtrｉng（）;SqｌDaｔaＡdaptｅrdｐ=nｅｗSｑlDaｔａAｄapteｒ();dp.SelｅcｔＣommand=cmｄ；DataＳetdｓ=newDataSｅt();dｐ．Fｉｌｌ（dｓ,"Sｐec")；cbo＿Spec。DataＳource=ｄs。Tａbｌｅs［”Sｐeｃ"]；if（ｄs．Ｔables［"Spec”］．Rｏws.Couｎt=＝0）｛ｃbｏ＿Sｐｅc。DisｐlａyMeｍbeｒ=”＂;ｃbo_Spec。ＶalｕｅＭemｂｅr＝＂"；}ｅlse｛ｃbｏ_Ｓpec.DiｓplayMeｍbｅr=＂Spｅｃ＿Naｍｅ＂；ｃbo＿Spｅc。ValueＭembｅr＝"Sｐec_Iｄ”;｝｝5.住院病人總費(fèi)用統(tǒng)計(jì)（次)圖5住院病人總費(fèi)用統(tǒng)計(jì) 住院病人總費(fèi)用統(tǒng)計(jì)時(shí)用于統(tǒng)計(jì)病人住院治療等項(xiàng)目的總費(fèi)用，及其消費(fèi)藥品名稱、數(shù)量、金額、使用時(shí)間等，都會(huì)相信的顯示出來，一目了然.主要代碼如下:ｗｈｉｌｅ（rd_Ｃate.Ｒｅａd（))｛//定義樹結(jié)點(diǎn)TｒeeNodenode_Ｃatｅ＝newTrｅe(cuò)Node(rd_Cａt(yī)e．GetVaｌue(0)。ToＳｔｒinｇ（)）；if（rd_Cate.GetVaｌue(1)．TｏString(）!=sｔrｉｎg．Empty）｛strｉｎｇstrSpｅc＝＂sｅleｃtSpec_Nａme,Spec_IｄｆｒｏmｔｂlSpeｃｗhｅrｅSpeｃ_Cate=＇"；ｓｔrSpeｃ＋=rd_Cate。GｅｔVaｌue(１）．ToStｒing（)；strSｐec＋="'”；ＳｑlＣoｍmandcｍd_Sｐec=neｗＳｑｌＣｏmmａnd(ｓtrSpeｃ,cｏｎ);SqlDataＲeaderｒd_Sｐｅc=cmｄ_Spec．EｘｅcuｔｅReａdｅｒ(）；ｗhilｅ(rd_Spｅc．Read（))｛TｒeeNｏdenodｅ_Spec=newＴreｅNoｄe(rd_Ｓpeｃ.GeｔＶaｌue（０).ToＳｔrｉnｇ（）)；if（rｄ_Spｅc．GetValｕe（１).ToStｒiｎg（)！=sｔriｎg。Ｅｍｐty）｛stringｓtrWarｄ＝＂seｌeｃtＷard_Ｎaｍe,Wａrd＿ＩdfｒｏmｔblWａrｄwｈeｒeWard_Ｓpec=＇";strＷarｄ＋＝ｒd_Ｓｐec。GｅｔＶａｌue(1）。ToSｔrｉnｇ()；strWａrｄ+＝”'”；SqlCｏｍmａndcｍｄ＿Ward=ｎewSqｌＣｏmmand（strWarｄ，coｎ);ＳqlDataRｅaｄｅrｒｄ_Wａｒｄ＝cmd_Ward.EｘeｃｕteＲeadeｒ(）；wｈile（rd_Ｗard.Ｒead(））｛Tｒｅe(cuò)Nodenode_Ward＝neｗTrｅe(cuò)Noｄｅ（rd_Warｄ。GetValue(0）.ＴoSｔｒing（）);iｆ（rｄ_Ｗard.GｅtＶaｌue(1）.ＴｏＳｔrinｇ(）!＝sｔｒiｎｇ．Ｅmptｙ)｛stringstrPaｔ="ｓeｌｅctPａt(yī)_NamｅfromtblPatiｅnｔｗｈeｒePａｔ＿Wａrｄ=’＂；ｓtｒPaｔ＋＝ｒｄ_Ｗａrd.GｅtValue(1）．TｏString(）；ｓtrＰat+=”’”；ＳqｌCｏｍmandcmd_Pat=ｎeｗSｑlCｏｍｍａｎd(ｓtrPat，cｏn)；SqlDataＲｅaｄerrd_Ｐaｔ=cmｄ＿Pａｔ。EｘecuteＲeader(）；while（rd_Pat.Ｒｅad（)）｛TreeＮodenｏｄe＿Ｐat＝ｎｅｗTreｅＮoｄe（ｒd_Pａｔ．GetＶａlｕe（0）。TｏString（）);noｄｅ＿Ｗarｄ.Nｏｄeｓ.Ａｄd(ｎｏｄe_Pａt(yī)）；}rd＿Pat。Ｃｌoｓe(）；｝nodｅ_Sｐec．Nｏdeｓ．Add(node_Waｒd)；}rｄ_Ｗａrd。Cｌｏse（）;｝noｄｅ_Cａt(yī)e.Nodes.Ａdd(ｎoｄe＿Speｃ）；}ｒd＿Sｐｅｃ.Cloｓe（）;｝tｒeeＶｉew_Ｐａt(yī)ｉenｔ．Ｎoｄes.Ａdd(ｎｏde＿Ｃａt(yī)ｅ);}６．住院病人報(bào)表打印(主）圖6病人信息報(bào)表打印病人信息報(bào)表打印是我們組的重頭戲，在HIＳＤatａＳeｔ內(nèi)存數(shù)據(jù)集中添加一個(gè)內(nèi)存表，相比其他內(nèi)存數(shù)據(jù)表,這個(gè)內(nèi)存數(shù)據(jù)表不是建立連接從外存數(shù)據(jù)庫(kù)中拉入的,而是我用Selecｔ語句編寫的即Ｐａｔient；在解決方案資源管理器中新建Cryｓtal報(bào)表并且從HISDaｔａSeｔ內(nèi)存數(shù)據(jù)集中導(dǎo)入用Paｔient內(nèi)存表的數(shù)據(jù)信息;另外在Ｆorm窗體上添加ｃryｓtａlＲeｐorｔVｉeｗｅr窗體，作用是在運(yùn)行時(shí)，使Ｆｒom窗體上查詢的信息顯示在crｙstaｌRepｏｒtＶｉewer窗體上，形成報(bào)表的格式；此外在代碼上也有做修改，當(dāng)具體不知道病人的姓名時(shí)可采用模糊查詢,當(dāng)點(diǎn)擊顯示和預(yù)覽兩個(gè)按鈕時(shí)出現(xiàn)的界面，這些都是通過代碼實(shí)現(xiàn)的，具體代碼如下:／/預(yù)覽按鈕ｐrｉｖaｔeｖoidtsＢtｎ＿Ｐreviｅw＿Ｃｌick（oｂjecｔsｅｎdｅr,EｖenｔAｒgse){//顯示ｃrystａlRepｏrｔVｉewerｃryｓtalRｅｐｏｒtViewｅr1．Visibｌe＝tｒue;/／定義一個(gè)CｒysｔaｌReｐｏｒt＿Ｐatient對(duì)象crCｒｙstａlReport_Patientcr＝newＣｒｙsｔaｌＲeｐｏrt_Ｐａｔｉeｎｔ（）；ｃr。ＳetDataSourｃｅ(ds．Tables［”Ｐaｔieｎt"］）;crysｔalRｅｐoｒtVｉｅｗeｒ1．RｅportSourｃｅ=ｃr;｝／/顯示按鈕prｉvatｅｖｏiｄtsBｔn＿Displaｙ＿Ｃｌicｋ(ｏｂjｅｃｔｓeｎder，EｖｅntArgｓe)｛／/不顯示ｃｒysｔalＲepoｒｔＶiｅwｅr控件cryｓtａｌRｅｐoｒtVｉeｗｅr1。Ｖｉsｉble=ｆalｓe；}prｉｖaｔeｖoｉdＦoｒm＿PatBb_Ｌoaｄ(obｊｅctsendeｒ，ＥｖentＡrｇse){cｍｄ。ＣommａndTｙpe=ＣoｍmaｎdＴypｅ.Ｔｅxt;ｃｍｄ。Conneｃtioｎ=ｃon；ｃmｄ.ＣｏmｍａndTimeｏｕｔ=15；/／不顯示cryｓtaｌRepoｒtViｅwer控件crystalReportVieｗer1。Vｉsiｂｌｅ＝falｓe;｝//寫一個(gè)私有的BindｉngPatient（）方法ｐrｉvaｔevｏidBindiｎgＰaｔienｔ（）｛//打開連接cｏn.Oｐeｎ（）；／/使用Seｌeｃt語句從內(nèi)存數(shù)據(jù)集ＨＩSDatａSｅt中的Paｔient數(shù)據(jù)表中選擇信息strｉｎｇcmdＳtｒ=＂ＳｅlｅｃｔPaｔ_Id,Pａｔ_Bed,Pat_ＢedFeｅ,"；ｃｍdSｔr+="Pat_Ｎame,Pat_Sｅx,Pａt(yī)＿Birth，Paｔ_Ｎatｉon，Pａt(yī)＿ＮtｖＰl(wèi)c，Pat_Symｐton"；ｃmdStｒ＋＝"ｆroｍＰaｔiｅｎｔ"；／/模糊查詢ｃmdStｒ＋＝"Pat＿Nａmeｌiｋe’”+textBｏx1.Ｔeｘt＋”％’";cmｄ。CoｍmaｎｄTｅxｔ=cmｄＳtr；da．SelecｔＣｏmｍanｄ＝ｃmｄ；／/關(guān)閉連接con。Ｃlose(）；da．Ｆilｌ(ds，”Patient＂）;//定義一個(gè)臨時(shí)保存數(shù)據(jù)的HＹPEＲLIＮK"http：//baiｋe．bａidｕ．cｏm/view／10755.hｔm＂網(wǎng)格虛擬表的對(duì)象taｂｌe_PatienｔDaｔａＴａｂlｅｔaｂlｅ＿Patｉｅnt=neｗDataTabｌｅ（);taｂle_Paｔｉenｔ=ds.Ｔablｅs［”Ｐaｔｉent"］；daｔaGridVｉew１.DaｔaSoｕｒｃｅ＝dｓ．Tａbles["Patｉent"]；txt＿Ｉd。DataＢｉｎｄｉnｇｓ。Cｌｅar(）;ｔxｔ＿Ｉd．DataＢindiｎgs.Ａdd(”Teｘt”，table_Paｔiｅnt，”Pat＿Ｉd＂）;ｔxｔ_Bｅd.DatａＢinｄｉngｓ.Clear（）；tｘt_Bed。ＤaｔａBinｄings．Ａdd(”Tｅxt”，tａble＿Ｐatiｅnt，＂Ｐat_Beｄ”）;txt＿BｅｄFee．Ｄａt(yī)aBindings．Clｅaｒ(）;tｘt＿BedFee．Dａt(yī)aＢｉndiｎgｓ。Aｄｄ（＂Teｘt＂，tａbｌe_Ｐatｉeｎt，"Pａｔ_ＢeｄFee”）;ｔｘt＿Nａme．Dａt(yī)ａBiｎｄinｇs.Cｌｅar（）;txｔ＿Naｍe.ＤatａＢindingｓ。Ａdd（＂Ｔexｔ”,tabｌｅ＿Ｐａt(yī)ienｔ，"Pat＿Name");ｔｘt＿Sｅx。Ｄａt(yī)aBiｎdｉngs．Ｃｌｅaｒ（）;txt＿Sex．DａｔaBｉndinｇs。Ａｄd（＂Texｔ＂,ｔａｂlｅ_Ｐａｔiｅｎt,”Pat＿Sｅx")；txt_Bｉrth.DataＢｉｎdings.Cleａr(）；txt_Ｂirtｈ．DataBｉndiｎｇｓ.Add("Texｔ”,ｔablｅ_Patｉｅnt,”Pａt(yī)_Ｂirth”)；txt＿Naｔｉｏn。DataBiｎdｉnｇs.Clear（）;txt_Nａt(yī)iｏｎ.DatａBindingｓ.Aｄd(”Tｅxt＂,ｔablｅ_Patient，”Ｐat_Natｉｏn”）;tｘｔ_ＮｔvPlｃ。DataBｉndingｓ．Cleaｒ（);ｔxt＿NtvPｌc。DatａBiｎdings．Ａdd（”Tｅxｔ",ｔａble_Patieｎｔ，"Pａt(yī)＿NtvＰl(wèi)ｃ”)；tｘt＿Sｖmｐton.DａｔaＢinｄiｎgｓ.Ｃlｅａr（）；txt_Ｓｖmpｔon.ＤaｔａBindiｎｇｓ。Adｄ（"Ｔeｘt”,table_Patｉｅnｔ,＂Ｐat_Symptｏｎ"）;｝／/查詢按鈕pｒivatevoiｄBtn_Fｉnd_Click（obｊeｃtsｅnｄｅr,EvenｔAｒｇse)｛ｃｏｎ。Oｐen（）；／/打開連接//使用Ｓｅｌｅｃt語句從內(nèi)存數(shù)據(jù)集HIＳDａｔａSeｔ中的Patient數(shù)據(jù)表中選擇信息sｔｒiｎgcmdＳtr=＂SeｌectＰaｔ＿Id，Pat_Beｄ，Ｐat＿ＢｅdFee,Ｐat_Ｎame，Sex＿Namｅ，Pａt(yī)_Ｂirth，Ｎａt(yī)ioｎ_Name,ＮtvPlc_Ｎaｍe，Paｔ＿Sｙmpton＂；cmdＳｔｒ+＝”fromPatｉeｎｔ”；cｍｄSｔr+=＂wherｅＰａt(yī)＿Namelike'”＋tｅxtBｏx1．Ｔexｔ＋＂％＇”;cmd。CoｍｍaｎdText=cmdSｔr；da.SelectＣoｍmａnd=ｃｍd；con。Ｃlose（）；／／關(guān)閉連接/／再次查詢時(shí)原來顯示信息將被清除if(dｓ。Ｔabｌｅs．Ｃonｔaｉns（＂Ｐatient")）｛ds.Ｔableｓ［”Pａt(yī)ｉeｎt"]。Clｅar();}//調(diào)用Fill方法將外存數(shù)據(jù)庫(kù)中的信息填充到內(nèi)存數(shù)據(jù)集中da。Fiｌｌ（ds,"Ｐaｔiｅnｔ”）;//定義一個(gè)臨時(shí)保存數(shù)據(jù)的HＹPERLINK”http:/／bａike.ｂａidu．ｃoｍ/vｉew／１0755。hｔｍ"\t"_blank”網(wǎng)格虛擬表的對(duì)象table_PatiｅntDａt(yī)aTaｂleｔable＿Ｐaｔｉent=nｅwDａt(yī)ａTable（）;ｔabｌe＿Pａt(yī)ienｔ＝dｓ.Tabｌｅs［＂Ｐatiｅnt”］;dａｔaGrｉdView1。DataＳource＝ds。Taｂlｅｓ[＂Patient"]；txt_Id．Dａt(yī)aBindings．Clear（)；ｔxt＿Ｉd。DatａBiｎｄiｎgs.Add（”Tｅxt”,ｔabｌｅ_Ｐaｔienｔ,"Pat_Ｉd＂）；tｘt＿Bed．ＤatａＢiｎdingｓ。Clｅaｒ()；txt_Beｄ．DａｔaBiｎｄiｎｇs．Aｄd（"Ｔext",taｂｌe_Patｉenｔ,＂Pａｔ＿Ｂed"）；ｔxt＿ＢedFee。ＤatａBiｎｄinｇs.Cｌｅaｒ（）；ｔxｔ_BeｄFｅe(cuò)．ＤaｔaBinｄinｇs．Ａdd("Text＂，ｔaｂle_Ｐatienｔ，"Pat_BedFee＂）；tｘt_Ｎamｅ。DatａBｉｎdings。Ｃleaｒ（）;txt_Ｎａｍｅ。Dａt(yī)aBindiｎgs。Add（”Text",taｂle＿Patｉenｔ，"Ｐaｔ_Ｎaｍe＂）；txｔ_Ｓeｘ．Ｄａt(yī)aＢiｎｄings．Cｌeａｒ（);txｔ_Ｓｅx．ＤatａＢindｉnｇｓ．Ａdｄ(＂Ｔeｘt",tａｂle_Ｐａt(yī)ｉenｔ，”Sex_Nａme"）;txt_Birｔh.Dａt(yī)aBiｎdinｇs。Clear()；ｔｘｔ_Bｉｒtｈ。ＤataＢindiｎgs.Ａdｄ（”Tｅxｔ＂,taｂle_Ｐａｔieｎｔ，”Pａt(yī)＿Biｒtｈ”）；txt_Natiｏn。DatａBｉｎdｉngs.Clｅａr(）;ｔｘt_Nation．DaｔaBindingｓ。Add(＂Ｔext”,table_Patienｔ,"Ｎaｔion＿Naｍe"）；txt_NtvPｌc.DaｔaＢindings.Cｌeａr(）；txt＿ＮtｖＰl(wèi)ｃ。DataBｉｎｄinｇs。Aｄd（＂Ｔext"，ｔａble_Pａｔiｅｎt，"NtvＰｌc_Nａme”);ｔxｔ_Svmｐton.DataＢiｎｄｉngs.Clear（）;ｔxt＿Ｓｖｍpton.Dａt(yī)ａＢindinｇs。Ａdd（”Tｅｘt＂，table_Paｔiｅｎｔ,"Ｐat_Ｓymptoｎ")；}7.病人編碼維護(hù)（主)圖7病人編碼維護(hù)病人編碼維護(hù)窗體是通過控件綁定實(shí)現(xiàn)起功能的；其功能有：保存病人的住院號(hào)、病人姓名、性別和出生日期等信息，還設(shè)有查詢病人信息功能；首先在Forｍ窗體添加ＢｉｎｄｉngSｏurcｅ窗體,重命名為BiｎdｉngSourｃｅ_Pａｔ,將BindinｇSoｕrce的DａｔaSoｕrce屬性與內(nèi)存數(shù)據(jù)集HISDataSeｔ綁定、DataMemｂer屬性與內(nèi)存數(shù)據(jù)表ｔblPaｔｉeｎt綁定；其次因?yàn)門exｔBox綁定屬于簡(jiǎn)單數(shù)據(jù)綁定，所以只要將基本信息（GroupBox)中的ＴｅxtＢoｘ控件的(DataBindｉｎgs）－-Text屬性分別與BinｄｉngSource_Pａt(yī)對(duì)應(yīng)綁定即可，例子：【ｔｘtＰat_Id（住院號(hào)）的（Dａt(yī)aBinｄｉnｇs)—Ｔeｘt屬性與BｉnｄinｇＳouｒcｅ＿Ｐat－Pat＿Ｉd綁定】；此外將病人編碼維護(hù)的Fｒom窗體上的DatａＧrｉｄＶiew控件的DaｔaSourｃｅ屬性與BinｄinｇＳouｒｃｅ_Pat進(jìn)行綁定、cｏlumｎ屬性改為對(duì)應(yīng)的中文漢字；最后保存、退出和查詢是由代碼實(shí)現(xiàn)的，代碼如下：//保存按鈕ｐriｖaｔevoｉdtsＢｔn_Saｖe＿Clｉｃｋ（ｏｂｊｅcｔｓendｅr，EvｅｎtAｒｇsｅ）{tｈiｓ．tｂlPatieｎtTａblｅAｄaｐter．Ｕpdaｔe(this。hＩSDａt(yī)aSet。tblPatient);｝/／退出按鈕privatevoidtsＢｔn_Ｅxiｔ__Ｃｌick（objｅcｔsｅnｄeｒ,EvenｔＡrｇse){tｈis。Ｃｌosｅ（）；｝//查詢按鈕privatevoｉdＢtn＿Cheｃk_Cliｃk(oｂjｅctsｅnｄｅr，ＥvｅnｔArｇse）｛biｎdｉngＳouｒce_Pat.Filter=”Pａt(yī)_namｅlike＇"+txt_Pat。Texｔ+”％＇＂;}８。大類科編碼維護(hù)(主）圖8大類科編碼維護(hù)大類科編碼維護(hù)的實(shí)現(xiàn)功能也是通過編碼綁定實(shí)現(xiàn)的，同樣在大類科編碼維護(hù)Fｏrｍ窗體上添加BindingSource窗體name屬性改為BindiｎgSｏurｃe＿Cａt(yī)e、Ｄａt(yī)aSourｃe屬性與內(nèi)存數(shù)據(jù)集HＩSDataSeｔ綁定和Dａt(yī)aMｅmbeｒ?qū)傩耘c內(nèi)存數(shù)據(jù)表tbｌＣａｔegorｙ綁定；我還添加了binｄｉngNavigaｔoｒ控件namｅ屬性命名為ｂinｄingNavigaｔor_Cate，目的是為了用戶一目了然,并且將其的BｉｎｄingSoｕrce屬性與BindｉｎｇＳourｃe_Catｅ綁定，這樣運(yùn)行時(shí)就直接點(diǎn)擊bindｉnｇNaｖigａt(yī)or的關(guān)鍵幀就可以查看信息，方便；另外窗體上還添加listBｏx控件，其數(shù)據(jù)綁定是屬于復(fù)雜數(shù)據(jù)綁定，因此其ＤataSｏuｒｃｅ屬性與BindｉngSourcｅ_Cate綁定、DｉspｌayMｅｍｂeｒ?qū)傩?/p>