【正文】 vbCrLf amp。另一種是醫(yī)院信息管理系統(tǒng)（ HIS）的軟件建設，以提高醫(yī)院的現(xiàn)代化管理形象。 167。 系統(tǒng)可行性研究 ..............................................................................錯誤 !未定義書簽。智能醫(yī)院管理系統(tǒng)正是本著這個目的而開發(fā)出來 ,它 充分滿足了醫(yī)院管理 的各種需求， 從 醫(yī) 院 經(jīng)營 管理 的 各個環(huán)節(jié) 醫(yī)院整體業(yè)務 進行 統(tǒng)一系統(tǒng)的 管 理。真誠的希望你的參與。Task 1: Locate the disease_ID in the Symptoms table Dim flgFoundSymptom As Boolean With .MoveFirst flgFoundSymptom = False Do If symptomX = .Fields(Symptom_Name) Then flgFoundSymptom = True Else .MoveNext End If Loop Until flgFoundSymptom = True 39。 \ = Diseases = amp。Sort the 4 resulting disease names in descending order, and eliminate duplicates 39。Display information that39。 。 (提示 : 登記的信息不準確 .), vbCritical + vbYesNo, 提示 ) = vbYes Then Unload Me End If End Sub Private Sub cmdConfirmAdmission_Click() 39。Patient is currently NOT admitted. therefore, the admit mand is 39。f3: Search for record by hospital number. patientNumberX = 0 39。 \) = Then MsgBox 需要工作的數(shù)據(jù)庫文件不存在 . + vbCrLf + 請檢查，然后重新登錄 . + vbCrLf + vbCrLf + 更多信息請登錄枕善居 ( vbCritical, 錯誤 39。 vbCrLf amp。clear form Call ClearRegForm End If End Sub Private Sub Form_Load() 39。S INFO .Fields(Name_of_NoK) = Trim(txtKinName) .Fields(Relationship_to_NoK) = Trim(txtRelationship) .Fields(Add_of_NoK) = Trim(txtKinAddress) 39。SPONSOR39。 \ = IHMS_Users 39。 when = 1 End If Case 6 39。User selects cancel Unload frmOldPatient 1 Case 5 39。 vbCrLf amp。另一種是醫(yī)院信息管理系統(tǒng)（ HIS）的軟件建設，以提高醫(yī)院的現(xiàn)代化管理形象。 167。 系統(tǒng)可行性研究 ..............................................................................錯誤 !未定義書簽。智能醫(yī)院管理系統(tǒng)正是本著這個目的而開發(fā)出來 ,它 充分滿足了醫(yī)院管理 的各種需求， 從 醫(yī) 院 經(jīng)營 管理 的 各個環(huán)節(jié) 醫(yī)院整體業(yè)務 進行 統(tǒng)一系統(tǒng)的 管 理。市場的需求和技術(shù)的支持，最終會導致越來越多的優(yōu)秀醫(yī)院 管理軟件的出現(xiàn)，并在競爭中得到不斷的完善和優(yōu)化。 醫(yī)院管理系統(tǒng)業(yè)務流程分析 ...........................................................錯誤 !未定義書簽。3. 1 數(shù)據(jù)庫設計 ...........................................................................錯誤 !未定義書簽。 第 二 章 系統(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。 Are you sure you want to Log Out?, vbQuestion + vbYesNo) = vbNo Then Exit Sub LoginSucceeded = False Call ConfigMenus End If Case 3 39。Admit/Discharge this patient. 39。Diagnose this patient. 1 39。populate cboUserName Dim x As Integer With .MoveFirst x = 0 Do (x) = .Fields(user) .MoveNext x = x + 1 Loop Until .EOF End With End Sub 三 .病人登記界面 : 病人登記模塊代碼分析 : Private Sub cmdCancelReg_Click() If MsgBox(Are you sure you want to abort the current patient registration? amp。S INFO .SponsorName = Trim(txtNameOfSponsor) .SponsorAdd = Trim(txtAddOfSponsor) 39。SPONSOR39。On Error Resume Next = amp。 (NOTE: You will loose all information you have entered.), vbCritical + vbYesNo) = vbYes Then Cancel = 0 Else Cancel = 1 End If End Sub Private Sub Form_Unload(Cancel As Integer) = True 39。End Else 1 End If Else 39。hosp number being sought for patientNumberX = Val(InputBox(Please enter the patient39。available, but the discharge mand is not. 39。On Error GoTo errHnd With 39。 MsgBox 一個未知錯誤 ., vbInformation, 未知錯誤 ! Resume Next End Sub Private Sub Form_Load() = amp。s already been collected. 39。MsgBox diseaseName(0) + vbCrLf + diseaseName(1) + vbCrLf + diseaseName(2) + vbCrLf + diseaseName(3) + vbCrLf + diseaseName(4) Dim a As Integer, b As Integer Dim temp As String For a = 1 To 3 For b = 1 To 4 a If diagnosisResults(b) diagnosisResults(b + 1) Then temp = diagnosisResults(b) diagnosisResults(b) = diagnosisResults(b + 1) diagnosisResults(b + 1) = temp ElseIf diagnosisResults(b) = diagnosisResults(b + 1) Then 39。 \ = Patient_Hospital_History = + Str() txtHospNo = txtCaseRefNo = txtDoctorInCharge = 39。Or .EOF d_ID = .Fields(Disease_ID) End With 39。 致 謝 我首先感謝我的指導老師王老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責的態(tài)度。市場的需求和技術(shù)的支持，最終會導致越來越多的優(yōu)秀醫(yī)院 管理軟件的出現(xiàn)，并在競爭中得到不斷的完善和優(yōu)化。 醫(yī)院管理系統(tǒng)業(yè)務流程分析 ...........................................................錯誤 !未定義書簽。3. 1 數(shù)據(jù)庫設計 ...........................................................................錯誤 !未定義書簽。 第 二 章 系統(tǒng)分析 系統(tǒng)可行性研究 系統(tǒng)定義明確以后 ,