【正文】 vbCrLf amp。另一種是醫(yī)院信息管理系統(tǒng)（ HIS）的軟件建設(shè)，以提高醫(yī)院的現(xiàn)代化管理形象。 167。 系統(tǒng)可行性研究 ..............................................................................錯(cuò)誤 !未定義書(shū)簽。智能醫(yī)院管理系統(tǒng)正是本著這個(gè)目的而開(kāi)發(fā)出來(lái) ,它 充分滿(mǎn)足了醫(yī)院管理 的各種需求， 從 醫(yī) 院 經(jīng)營(yíng) 管理 的 各個(gè)環(huán)節(jié) 醫(yī)院整體業(yè)務(wù) 進(jìn)行 統(tǒng)一系統(tǒng)的 管 理。真誠(ché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。 。 (提示 : 登記的信息不準(zhǔn)確 .), 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ù)庫(kù)文件不存在 . + vbCrLf + 請(qǐng)檢查，然后重新登錄 . + vbCrLf + vbCrLf + 更多信息請(qǐng)登錄枕善居 ( vbCritical, 錯(cuò)誤 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）的軟件建設(shè)，以提高醫(yī)院的現(xiàn)代化管理形象。 167。 系統(tǒng)可行性研究 ..............................................................................錯(cuò)誤 !未定義書(shū)簽。智能醫(yī)院管理系統(tǒng)正是本著這個(gè)目的而開(kāi)發(fā)出來(lái) ,它 充分滿(mǎn)足了醫(yī)院管理 的各種需求， 從 醫(yī) 院 經(jīng)營(yíng) 管理 的 各個(gè)環(huán)節(jié) 醫(yī)院整體業(yè)務(wù) 進(jìn)行 統(tǒng)一系統(tǒng)的 管 理。市場(chǎng)的需求和技術(shù)的支持，最終會(huì)導(dǎo)致越來(lái)越多的優(yōu)秀醫(yī)院 管理軟件的出現(xiàn)，并在競(jìng)爭(zhēng)中得到不斷的完善和優(yōu)化。 醫(yī)院管理系統(tǒng)業(yè)務(wù)流程分析 ...........................................................錯(cuò)誤 !未定義書(shū)簽。3. 1 數(shù)據(jù)庫(kù)設(shè)計(jì) ...........................................................................錯(cuò)誤 !未定義書(shū)簽。 第 二 章 系統(tǒng)分析 系統(tǒng)可行性研究 系統(tǒng)定義明確以后 ,應(yīng)該對(duì)系統(tǒng)可行性進(jìn)行研究 .可行性研究包括技術(shù)可行性 ,經(jīng)濟(jì)可行性以及社會(huì)可行性等方面 . 技術(shù)可行性研究是根據(jù)現(xiàn)有的和準(zhǔn)備充實(shí)的設(shè)備條件與技術(shù)力量來(lái)分析系統(tǒng)在技術(shù)上實(shí)現(xiàn)的可能性 ,弄清楚現(xiàn)有的技術(shù)條件能否保證順利完成開(kāi)發(fā)工作 . 醫(yī)院管理系統(tǒng)在技術(shù)可行性上完全可以勝任 ,由于本醫(yī)院管理系統(tǒng) ,采用單機(jī)版 ,對(duì)網(wǎng)絡(luò)的研究不高 ,采用 micorsof access 數(shù)據(jù)庫(kù) ,以及visual basic 結(jié)合操作系統(tǒng) . 在設(shè)備條件上 ,主要考慮計(jì)算機(jī)的內(nèi)存容量 ,外存容量 ,運(yùn)算速度 ,數(shù)據(jù)精度 ,漢字功能 ,多媒體功能 ,可靠性以及對(duì)數(shù)據(jù)傳送與通信 ,網(wǎng)絡(luò) ,數(shù)據(jù)庫(kù)的需求以及實(shí)現(xiàn)的可能性 . 醫(yī)院管理系統(tǒng)在如下平臺(tái)中經(jīng)過(guò)測(cè)試可以正常運(yùn)行 : 硬件平臺(tái) CPU Intel P4 主板 Intel 850芯片組的 GA8TXC 內(nèi)存 1 256的三星 Rambus內(nèi)存 硬盤(pán) Seagate Barracuda 80G 顯卡 Unika 小妖 G9800 顯示器 美格 770PF， 17寸純平顯示器 軟件環(huán)境 操作系統(tǒng) Microsoft WindowsXP 簡(jiǎn)體中文專(zhuān)業(yè)版＋ SP2 辦公軟件 Microsoft Office 2020 顯卡驅(qū)動(dòng) nVIDIA ForceWare 驅(qū)動(dòng) For Win2020/XP 經(jīng)濟(jì)可行性 研究的目的 ,是希望以最小的開(kāi)發(fā)成本取得具有最佳經(jīng)濟(jì)效益的軟件產(chǎn)品 ,它除了研究開(kāi)發(fā)與維護(hù)新系統(tǒng)所需要的費(fèi)用是否能夠可靠地提供外 ,主要研究新系統(tǒng)將來(lái)帶來(lái)地經(jīng)濟(jì)效益是否超過(guò)其開(kāi)發(fā)與維護(hù)所需要大的費(fèi)用 ,論證搞這樣的一個(gè)項(xiàng)目是否合算 . 醫(yī)院管理系統(tǒng)是方便醫(yī)院管理者 ,醫(yī)生 ,護(hù)士 ,等工作者完成日常工作的得力助手 ,由于輔助了計(jì)算機(jī)高科技技術(shù) ,大大的提高了員工 ,管理者的工作效率 .而且軟件產(chǎn)品的無(wú)損耗性 ,決定了此系統(tǒng)的低投入 ,高回報(bào)的特性 ,所以在經(jīng)濟(jì)上具有可行性 . 社會(huì)可行性是指所開(kāi)發(fā)的軟件項(xiàng)目是否涉及到知識(shí)產(chǎn)權(quán)的糾紛等法律問(wèn)題 ,這樣的軟件產(chǎn)品投入運(yùn)行后 ,對(duì)生產(chǎn) ,管理或經(jīng)營(yíng)體制帶來(lái)變革的社會(huì)影響以及社會(huì)承認(rèn)能力 . 醫(yī)院管理系統(tǒng)作為醫(yī)院的一套管理系統(tǒng) ,以提高醫(yī)院辦事效率 ,提高醫(yī)院辦事可靠性的方式 ,作為社會(huì)可行性的必要依據(jù) . 醫(yī)院管理系統(tǒng)業(yè)務(wù)流程分析 各模塊 功能需求分析 1,主界面模塊 : 界面 用戶(hù)登陸 病人登陸 資料搜索 住院 / 出院 診斷管理 幫助 關(guān)于系統(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 一個(gè)未知錯(cuò)誤 ., vbInformation, 未知錯(cuò)誤 ! 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。 致 謝 我首先感謝我的指導(dǎo)老師王老師，在他嚴(yán)格的要求下我懂得了開(kāi)發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。市場(chǎng)的需求和技術(shù)的支持，最終會(huì)導(dǎo)致越來(lái)越多的優(yōu)秀醫(yī)院 管理軟件的出現(xiàn)，并在競(jìng)爭(zhēng)中得到不斷的完善和優(yōu)化。 醫(yī)院管理系統(tǒng)業(yè)務(wù)流程分析 ...........................................................錯(cuò)誤 !未定義書(shū)簽。3. 1 數(shù)據(jù)庫(kù)設(shè)計(jì) ...........................................................................錯(cuò)誤 !未定義書(shū)簽。 第 二 章 系統(tǒng)分析 系統(tǒng)可行性研究 系統(tǒng)定義明確以后 ,