【正文】 s cancel Unload frmOldPatient 1 Case 5 39。not available, but the discharge mand is. 1 Else 39。 when = 1 End If Case 6 39。 vbCrLf amp。NEXT OF KIN39。LABORATORY INFO .Fields(Hosp_No) = .Fields(Blood_Group) = .Fields(RhFactor) = .Fields(Allergy) = End With With .Fields(Hosp_No) = Val(txtHospNo) .Fields(Admission_Status) = IN .Fields(Date_of_Admission) = txtDateOfAdmission .Fields(Name_of_Doctor) = txtDoctorInCharge .Fields(Doctors_Diagnosis) = txtDoctorsDiag End With MsgBox 新病人的住院手續(xù)登記成功 ., vbInformation, 成功 Unload Me Exit Sub errhnd: 。 vbCrLf amp。s MOST RECENT record: With Do If .Fields(Hosp_No) = Then flgFound = True Else .MovePrevious End If Loop Until (.BOF) Or (flgFound) End With 39。Although highly unlikely With somePatient txtAdmissionDate = .AdmissionDate txtCaseRefNo = (Case_Ref_No) txtDoctorInCharge = .DocName txtDoctorsDiag = .Diagnosis End With End Sub 六 .診斷管理界面 代碼分析 : Private Sub cmdClose_Click() If MsgBox(不保存信息就退出診斷助手嗎 ?, vbCritical + vbYesNo, 提示 ) = vbYes Then Unload Me End If End Sub Private Sub cmdDiagnose_Click() Dim symptom(4) As String Dim diseaseID(4) As Integer Dim diseaseName(4) As String Dim diagnosisResults(4) As String Dim x As Integer 39。Generate results for any other symptoms specified. For x = 1 To 4 If symptom(x) Then Call DiagnosePatient(symptom(x), diseaseID(x), diseaseName(x)) If diseaseName(x) diseaseName(0) Then diagnosisResults(x) = diseaseName(x) End If Next x 39。Display the results. txtDisease(1) = For a = 1 To 4 If diagnosisResults(a) Then txtDisease(1) = txtDisease(1) + diagnosisResults(a) + vbCrLf Next a = False = False = True End Sub Private Sub cmdSave_Click() Dim flgFound As Boolean 39。 \ = Symptoms = amp。This procedure does the following: 39。 to the calling procedure. 39。Task 3: Return the name of the disease d_Name = .Fields(Diseases_Name) Else .MoveNext End If Loop Until d_Name = .Fields(Diseases_Name) 39。 雖然軟件基本達到設計要求并且達到同行的先進水平，但由于作者水平有限，軟件 存在 bug 也是在所難免的 ，您的意見和建議將極大的幫助我改進并完善軟件。 在這里我還要感謝我們宿舍的其它 3 個同學。這就要求醫(yī)院 管理擺脫過去人手操作的煩瑣 ,以計算機管理替代人工管理是時代發(fā)展的趨勢 ,從而開發(fā)一套合適的醫(yī)院管理 系統(tǒng)也是當務之急。 167。 第 2 章 系統(tǒng)分析 錯誤 !未定義書簽。 運行環(huán)境需求 ..................................................................................錯誤 !未定義書簽。 第 3 章 系統(tǒng)設計 錯誤 !未定義書簽。 167。在醫(yī)學領域內(nèi)，計算機的應用已經(jīng)十分廣泛，各種智能診斷設備都與計算機緊密結(jié)合在一起，主要應用于兩個方面：一是醫(yī)療設備智能化，以硬件為主，如核磁共振成像系統(tǒng)、彩色 B 超、 CT 等。The user is currently logged out 39。The user is currently logged in If MsgBox(Logging out will abort all tasks in progress. Data and files might be lost. amp。New Patient toolbar。 Are you sure you want to Log Out?, vbQuestion + vbYesNo) = vbNo Then Exit Sub LoginSucceeded = False Call ConfigMenus End If Case 3 39。 \) = Then MsgBox 需要工作的數(shù)據(jù)庫文件不存在 . + vbCrLf + 請檢查，然后重新登錄 . + vbCrLf + vbCrLf + 更多信息請登錄枕善居 ( vbCritical, 錯誤 39。 第 二 章 系統(tǒng)分析 系統(tǒng)可行性研究 系統(tǒng)定義明確以后 ,應該對系統(tǒng)可行性進行研究 .可行性研究包括技術(shù)可行性 ,經(jīng)濟可行性以及社會可行性等方面 . 技術(shù)可行性研究是根據(jù)現(xiàn)有的和準備充實的設備條件與技術(shù)力量來分析系統(tǒng)在技術(shù)上實現(xiàn)的可能性 ,弄清楚現(xiàn)有的技術(shù)條件能否保證順利完成開發(fā)工作 . 醫(yī)院管理系統(tǒng)在技術(shù)可行性上完全可以勝任 ,由于本醫(yī)院管理系統(tǒng) ,采用單機版 ,對網(wǎng)絡的研究不高 ,采用 micorsof access 數(shù)據(jù)庫 ,以及visual basic 結(jié)合操作系統(tǒng) . 在設備條件上 ,主要考慮計算機的內(nèi)存容量 ,外存容量 ,運算速度 ,數(shù)據(jù)精度 ,漢字功能 ,多媒體功能 ,可靠性以及對數(shù)據(jù)傳送與通信 ,網(wǎng)絡 ,數(shù)據(jù)庫的需求以及實現(xiàn)的可能性 . 醫(yī)院管理系統(tǒng)在如下平臺中經(jīng)過測試可以正常運行 : 硬件平臺 CPU Intel P4 主板 Intel 850芯片組的 GA8TXC 內(nèi)存 1 256的三星 Rambus內(nèi)存 硬盤 Seagate Barracuda 80G 顯卡 Unika 小妖 G9800 顯示器 美格 770PF， 17寸純平顯示器 軟件環(huán)境 操作系統(tǒng) Microsoft WindowsXP 簡體中文專業(yè)版＋ SP2 辦公軟件 Microsoft Office 2020 顯卡驅(qū)動 nVIDIA ForceWare 驅(qū)動 For Win2020/XP 經(jīng)濟可行性 研究的目的 ,是希望以最小的開發(fā)成本取得具有最佳經(jīng)濟效益的軟件產(chǎn)品 ,它除了研究開發(fā)與維護新系統(tǒng)所需要的費用是否能夠可靠地提供外 ,主要研究新系統(tǒng)將來帶來地經(jīng)濟效益是否超過其開發(fā)與維護所需要大的費用 ,論證搞這樣的一個項目是否合算 . 醫(yī)院管理系統(tǒng)是方便醫(yī)院管理者 ,醫(yī)生 ,護士 ,等工作者完成日常工作的得力助手 ,由于輔助了計算機高科技技術(shù) ,大大的提高了員工 ,管理者的工作效率 .而且軟件產(chǎn)品的無損耗性 ,決定了此系統(tǒng)的低投入 ,高回報的特性 ,所以在經(jīng)濟上具有可行性 . 社會可行性是指所開發(fā)的軟件項目是否涉及到知識產(chǎn)權(quán)的糾紛等法律問題 ,這樣的軟件產(chǎn)品投入運行后 ,對生產(chǎn) ,管理或經(jīng)營體制帶來變革的社會影響以及社會承認能力 . 醫(yī)院管理系統(tǒng)作為醫(yī)院的一套管理系統(tǒng) ,以提高醫(yī)院辦事效率 ,提高醫(yī)院辦事可靠性的方式 ,作為社會可行性的必要依據(jù) . 醫(yī)院管理系統(tǒng)業(yè)務流程分析 各模塊 功能需求分析 1,主界面模塊 : 界面 用戶登陸 病人登陸 資料搜索 住院 / 出院 診斷管理 幫助 關于系統(tǒng) 推出程序 代碼分析 : Private Sub tbrMainToolbar_ButtonClick(ByVal Button As ) Select Case Case 1 39。 開發(fā)總結(jié) 致謝 參 考 文 獻 錯誤 !未定義書簽。3. 1 數(shù)據(jù)庫設計 ...........................................................................錯誤 !未定義書簽。 界面要求 .........................................................................................錯誤 !未定義書簽。 醫(yī)院管理系統(tǒng)業(yè)務流程分析 ...........................................................錯誤 !未定義書簽。 167。市場的需求和技術(shù)的支持，最終會導致越來越多的優(yōu)秀醫(yī)院 管理軟件的出現(xiàn)，并在競爭中得到不斷的完善和優(yōu)化。 參考文獻 [1] 劉萌，周學明，郭安源，《 Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實例導航》，人民 郵電出版社， 2020 [2] 求是科技，《 Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實踐》，人民郵電出版社， 2020 [3] 張瀚文 ,齊錦剛，《 Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實例與解析》，高等教育出版社， 2020 [4] 劉瑞新，汪遠征，《 Visual Basic 程序設計教程》，機械工業(yè)出版社， 2020 [5] 孟小峰，王珊，《數(shù)據(jù)庫系統(tǒng)導論》，機械工業(yè)出版社， 2020 [6] Hector GarciaMolina/, 《 Database system inplementation》 , 機械工業(yè)出版社 [7] , 《 An introduction to Database System(Seventh Edition)》 , 機械工業(yè)出版社 [8] 姚巍，《 Visual Basic 數(shù)據(jù)庫開發(fā)及工程實例》，人民郵電出版社 [9] 伍俊良，《 VB 課程設計與系統(tǒng)開發(fā)安例》，清華大學出版社 [10] 張紅軍，王虹，《 Visual Basic 中文版高級應用與開發(fā)指南》，人民郵電出版社 醫(yī)院管理系統(tǒng) 【摘 要】 在我國，隨著醫(yī)藥衛(wèi)生體制改革的深入，醫(yī)藥連鎖經(jīng)營的推行以及日趨激烈的商業(yè)角逐，越來越多的醫(yī)藥經(jīng)營企業(yè)意識到提高企業(yè)管理水平的重要性 ,也迫切要求加快管理信息化的進程。 致 謝