30/30HYPERLINK"/"《vf程序設計》綜合性實驗實驗報告題目：醫院住院治理系統姓名：李典班級：國會0906學號：200948990620指導教師：李周芳完成時刻：2011-1-8一、實驗題目醫院住院治理系統二、實驗目的鞏固學生對數據庫差不多原理和基礎理論的理解，掌握數據庫應用系統設計開發的差不多方法，進一步提高學生綜合運用所學知識的能力。設計一個小型的完整、簡單的醫院住院治理系統。三、系統分析1、功能分析系統開發的總體任務是實現各種信息的系統化、規范化和自動化。系統功能分析是在系統開發的總體任務的基礎上完成。醫院住院治理信息系統需要完成功能要緊有：（1）錄入模塊：●用戶信息的輸入，包括病人編號、姓名、密碼、身份等。●病人入院、出院登記，包括病人編號、姓名、性不、年齡、是否辦理出院、病因等。（2）修改模塊：●病人差不多信息的查詢和修改，包括病人編號、姓名、性不、年齡、入院日期、出院日期、病因等。（3）查詢模塊：●病人差不多信息的查詢，包括病人編號、姓名、性不、年齡、入院日期、出院日期、是否辦理出院、病因等。統計模塊： ●信息的統計，包括病人信息、病房信息、住房信息、用戶信息等。（5）報表打印模塊：●病人差不多信息報表，包括病人編號、姓名、性不、年齡、入院日期、出院日期、是否辦理出院、病因等。●病房差不多信息報表，包括病房號碼、病房等級稱、每日價格、床位等。四、數據庫設計1、概念設計（E-R圖）2、實現設計（關系模式）病房信息表｛病房號碼，病房級不，每日價格，病床數｝病人信息表｛編號，姓名，性不，年齡，入院日期，出院日期，是否出院，病因｝住房信息表｛編號，性不，病房號碼，病房級不，床位｝病人，病房號碼為外鍵，分不依靠于病人編號，病房號碼用戶信息表｛編號，姓名，密碼，身份｝3、物理設計（1）、病房信息表：（2）、病人信息表：（3）、住房信息表：（4）、用戶信息表：五、系統設計1、概要設計醫院住院治理系統醫院住院治理系統病人信息治理入院信息登記病房分類入住情況出院信息登記用戶治理密碼治理病房信息治理系統治理住院業務治理病人信息查詢入住情況查詢六、實現過程1、菜單設計2、界面設計，控件屬性設計，添加程序代碼（1）登錄界面對象名屬性屬性值Form1CaptionForm1Lable1Caption歡迎訪問醫院住院治理系統Lable2Caption姓名Lable3caption密碼Command1caption登錄Command2caption退出optiongroup1buttoncount2（治理員或病人）Text2passwordchar用戶信息表密碼Text1namechar用戶信息表姓名“登陸”按鈕的click事件代碼如下：use用戶信息locateforalltrim(姓名)==alltrim(thisform.text1.value)if.not.found()messagebox("沒有該用戶！")elseifthisform.optiongroup1.option1.value=1ifalltrim(身份)=="治理員"ifalltrim(密碼)==alltrim(thisform.text2.value)messagebox("歡迎訪問系統！")doform治理員主頁elsemessagebox("密碼錯誤！")endifelsemessagebox("身份不匹配！")endifelseifalltrim(身份)=="病人"if密碼==alltrim(thisform.text2.value)messagebox("歡迎訪問系統！")doform病人主頁elsemessagebox("密碼錯誤！")endifelsemessagebox("身份不匹配！")endifendifendif“退出”的事件代碼如下：thisform.release（2）主菜單（治理員登錄）對象名屬性屬性值Form1Caption治理員主頁（主界面）Lable1Caption歡迎使用住院系統Command1caption添加Command2caption修改Command3caption查詢Command4caption統計Command5caption系統信息Command6caption退出2-1住院業務治理功能選擇入院登記，進入如下界面：s對象屬性屬性值Text1controlsource姓名Text2controlsource編號Text3controlsource性不Text4controlsource年齡Edit1病因Label1Caption入院登記Form1Caption入院登記Command1Caption查上一個編號Command2Caption確定Command3Caption退出“查上一個編號”按鈕的click事件代碼如下：goreccount()-1thisform.label5.caption=編號“確定”按鈕的click事件代碼如下：appendblankreplace編號withthisform.Text2.valuereplace年齡withthisform.text4.valuereplace性不withthisform.text3.valuereplace姓名withthisform.Text1.valuereplace病因withthisform.edit1.valuemessagebox("已登記！")thisform.refresh“退出”的click事件代碼如下：thisform.release選擇出院登記，進入如下界面：對象屬性屬性值Text1controlsource姓名Text2controlsource編號Text3Controlsource是否辦理出院Command1Caption確定Command2Caption退出“確定”按鈕的click事件代碼如下：locatefor編號=alltrim(thisform.text1.text)iffound()thisform.Text1.value=姓名replace病人信息.是否已辦理出院withthisform.text3.valuemessagebox("是否辦理出院："+alltrim(thisform.text3.value))elsemessagebox("編號輸入有誤！")endifthisform.refresh“退出”按鈕的click事件代碼如下：thisform.release2-2、病人信息治理功能對象屬性屬性值Form1Caption病人差不多信息查詢Command1caption第一個Command2caption上一個Command3caption下一個Command4caption最后一個Command5caption修改Text1Caption姓名Text2Caption編號Text3Caption年齡Text4Caption性不Text5Caption入院日期Text6Caption出院日期Text7Caption病因“第一個”按鈕的click事件代碼如下：gotopthisform.refresh“上一個”按鈕的click事件代碼如下：ifbof().or.recno()=1messagebox("已到首記錄",48,"退出")elseskip-1endifthisform.refresh“下一個”按鈕的click事件代碼如下：ifeof().or.recno()=reccount()messagebox("已到末記錄",48,"返回")elseskipendifthisform.refresh“最后一個”按鈕的click事件代碼如下：gobottomthisform.refresh“修改”按鈕的click事件代碼如下：editthisform.refresh“添加”按鈕大的click事件代碼如下：appendblankeditthisform.refresh“刪除”按鈕的click事件代碼如下：deletepackthisform.refresh“退出”按鈕的click事件代碼如下：thisform.release“查詢”按鈕的click事件代碼如下：doform病人信息查詢點擊“查詢”，進入如下界面：“查詢”按鈕的click事件代碼如下：locatefor編號==alltrim(thisform.text1.value)thisform.refreshifnotfound()messagebox("輸入編號有誤！")endif“退出”的click事件代碼如下：Thisform.release2-3、病房信息治理功能對象屬性屬性值Form1Caption病房登記text1controlsource編號Text2controlsource姓名Text3controlsource病房號碼Text4controlsource病房級不Text5controlsource床位Command1caption確定Command2caption退出“確定”按鈕的click事件代碼如下：appendblankreplace編號withthisform.text1.valuereplace病房號碼withthisform.text3.valuereplace床位withthisform.text5.valuereplace姓名withthisform.text2.valuereplace病房等級withthisform.text4.valuethisform.refreshmessagebox("已登記！")“退出”的click事件代碼如下：thisform.release對象屬性屬性值Form1Caption病房查詢text1controlsource請輸入編號Text2controlsource姓名Text3controlsource性不Text4controlsource入院日期Text5controlsource出院日期Command1caption查詢Command2caption刪除Command3caption退出“查詢”按鈕的click事件代碼如下：locatefor編號==alltrim(thisform.text1.value)thisform.refreshifnotfound()messagebox("沒有該病人！")endif“刪除”按鈕的click事件代碼如下：deletepackthisform.refreshmessagebox("已刪除！")“退出”按鈕的click事件代碼如下：thisform.release2-4、信息統計功能點擊“病人統計”進入如下界面：點擊“病房統計”進入如下界面：點擊“病人病房統計”進入如下界面：點擊“本系統用戶統計”進入如下界面：（3）、主菜單（病人治理功能）選擇身份為：病人，姓名為：李儒，密碼為：123456.進入如下界面：3-1、點擊“病人信息查詢”進入如下界面（代碼及控件屬性如前）：3-2、點擊“病人病房查詢”進入如下界面（代碼及控件屬性如前）：七、調試過程八、總結本設計報告以醫院住院治理系統為背景，論述了開發醫院住院治理系統的結構，系統開發的差不多步驟和方法．該系統的開發要緊是采納面向對象開發模型，依照需要進行了較詳細的講明．通過開發那個醫院住院治理系統，進一步明確了開發研制一個治理信息系統的方法和思想，加深了對治理信息系統的認識，提高了學習治理信息系統的興趣，鞏固了往常學到的信息系系統開