【文章內(nèi)容簡介】 基本信息： 表 3 Doctor 表 列名 數(shù)據(jù)類型 長度 允許空 SN int 4 Name varchar 20 Sex int 4 √ Age int 4 √ Province varchar 50 √ Mobile varchar 20 √ Dept varchar 50 √ Grade varchar 50 √ Patient_Hospital_History 表 此表是病人出院的時候的信息統(tǒng)計表，包括病歷號 (Case_Ref_No)、入院時的身體狀況 (Admission_Status)、入院的時間 (Date_of_Admission)、主治醫(yī)生的姓名 (Name_of_Doctor)、醫(yī)生的備注 (Doctors_Diagnosis)、出院的時間(Date_of_Discharge) 以及出院時病人的身體康復(fù)情況(Status_Upon_Discharge)： 表 3 Patient_Hospital_History 表 列名 數(shù)據(jù)類型 長度 允許空 Case_Ref_No int 4 Hosp_No int 4 Admission_Status varchar 10 Date_of_Admission datetime 8 Name_of_Doctor varchar 30 Doctors_Diagnosis varchar 20 Date_of_Discharge datetime 8 √ Status_Upon_Discharge varchar 30 √ Patient_Lab_Info 表 此表是病人的病歷表，包括病人的編號 (Hosp_No)、血型 (Blood_Group)、 RH因子 (RhFactor)以及過敏史 (Allergy)： 表 4 Patient_Lab_Info 表 第 8 頁 共 25 頁 列名 數(shù)據(jù)類型 長度 允許空 Lab_Ref_No int 4 Hosp_No int 4 Blood_Group varchar 10 RhFactor varchar 20 Allergy varchar 10 √ Patient_Personal_Info 表 此表是病人的基本信息表，包括病人的姓名 (SName,FName)、出生日期(Date_Of_Birth)、性別 (Sex)、家庭住 址 (Home_Add)和職業(yè) (Occupation)： 表 5 Patient_Lab_Info 表 列名 數(shù)據(jù)類型 長度 允許空 Hosp_No int 4 SName varchar 20 FName varchar 20 Date_Of_Birth datetime 8 Sex varchar 10 Home_Add varchar 80 State_of_Origin varchar 20 Occupation varchar 20 Symptoms 表 這是 “病情癥狀”表，對不同病癥的描述以便病人就診時能準(zhǔn)確判斷其病癥所在，包括癥狀編號 (Symptom_ID) 、疾 病 編 號 (Disease_ID) 、 癥狀 名(Symptom_Name)和描述 (Desrciption)幾個方面 ： 表 6 Symptoms 表 列名 數(shù)據(jù)類型 長度 允許空 Symptom_ID int 4 Disease_ID int 4 Symptom_Name varchar 80 Desrciption varchar 20 √ 系統(tǒng)登陸模塊 啟動界面 這是整個系統(tǒng) 開始運行時出現(xiàn)的第一個界面，是由 frmSplash 具體控制和實現(xiàn)的： 第 9 頁 共 25 頁 圖 2 系統(tǒng)啟動界面 在這個部分，系統(tǒng)會完成與數(shù)據(jù)庫的連接工作，具體的代碼實現(xiàn)如下： Private Sub Form_Load() ConnectString = Provider=。 Password=123。 Persist Security Info=True。 User ID=sa。 Initial Catalog=IHMS。Data Source=(local) = 11 Set somePatient = New CPatient End Sub 時鐘的設(shè)計，可以控制從 該初始 界面進(jìn)入到系統(tǒng)主界面的時間： Private Sub Timer1_Timer() Unload Me End Sub 然后，整個系統(tǒng)就進(jìn)入主界面。 系統(tǒng)主界面 所謂系統(tǒng)主界面，也就是程序主窗體 frmmain,它是整個系統(tǒng)的主要操作界面，也是在登陸之后首先出現(xiàn)的系統(tǒng)操作界面 (圖 3)，采用菜單結(jié)構(gòu)，簡單明了，操作方便 ： 第 10 頁 共 25 頁 圖 3 系統(tǒng)主界面 登陸界面 該模 塊具體是由 frmLogin 窗體控制并實現(xiàn)的。本 HIS 系統(tǒng)可供兩種身份的用戶登陸：一個是 Admin，另一個是醫(yī)生。二者唯一的權(quán)限區(qū)別就是 Admin 可以對醫(yī)生用戶進(jìn)行管理：添加、刪除、密碼修改。以下實現(xiàn)的是以醫(yī)生的身份登陸該系統(tǒng)： 圖 4 登陸對話框 Do While Not .EOF And Not LoginSucceeded If (cboUserName = .Fields(users)) And Trim(txtPassword) = .Fields(pass) Then TypeStr = .Fields(Type) 39。登陸生效 If (TypeStr = 醫(yī)生 ) Then Departments = .Fields(Departments) End If MsgBox 登陸成功，歡迎進(jìn)入系統(tǒng) ., vbInformation, 歡迎 LoginSucceeded = True Call ConfigMenus(cboUserName) 第 11 頁 共 25 頁 Unload Me End If .MoveNext Loop 系統(tǒng)管理員權(quán)限界面 Admin 可以對醫(yī)生用戶進(jìn)行管理：添加、刪除、密碼修改： 圖 5 權(quán)限管理 醫(yī)生信息模塊 本模塊的設(shè)計主要是對醫(yī)生的信息進(jìn)行收集管理，其中包括的項目有：醫(yī)生性命、醫(yī)生性別、醫(yī)生年齡、醫(yī)生籍貫、醫(yī)生手機號、醫(yī)生科室、醫(yī)生職稱七個項目，同時還可以進(jìn)行醫(yī)生賬戶的新增和依據(jù)生命對醫(yī)生信息進(jìn)行查詢等功能。frmDoctor 窗體具體負(fù)責(zé)這個模塊的設(shè)計和實現(xiàn)： Private Sub Command2_Click() (Name) = (Sex) = (Age) = Val() (Province) = (Mobile) = (Dept) = (Grade) = MsgBox 保存成功！ End Sub Do If Then Exit Do If ((Name) = ) Then find_flag = True Else End If Loop Until (find_flag) 第 12 頁 共 25 頁 If find_flag Then RefreshData MsgBox 查詢成 功！ Else MsgBox 沒有查到您要的記錄！ 圖 6 新增、查詢醫(yī)生信息對話框 病人登記管理模塊 病人到醫(yī)院就診，需要在 HIS 里建立一個屬于自己的“賬戶”，里面將包括病人最基本的一些信息。通過下圖，可以很清晰地看到，這個模塊主要使用了一些 TextBox 和 ComboBox 來進(jìn)行病人信息的錄入，其中“性別”、“血型”、“ Rh 因子”三項是由 ComboBox 控制實現(xiàn)的，其下拉菜單比較方便系統(tǒng)用戶的操作并可以防止錄入不合法的信息： 圖 7 病人注冊 Private Sub cmdRegAndAdmit_Click() Set thisNewPatient = New CPatient 39。新建一個病人對象 With thisNewPatient 39。向新建的病人對象寫入信息 .HospNo = Val(txtHospNo) .SName = Trim(txtSName) 第 13 頁 共 25 頁 .FName = Trim(txtFName) .DoB = Trim(txtDOB) .Sex = cboSex .HomeAdd = Trim(txtHomeAdd) .StateOfOrigin = Trim(txtStateOfOrigin) .Occupation = Trim(txtOccupation) .NameNoK = Trim(txtKinName) .RelaNok = Trim(txtRelationship) .AddNok = Trim(txtKinAddress) .SponsorName = Trim(txtNameOfSponsor) 39。寫入擔(dān)保人信息 .SponsorAdd = Trim(txtAddOfSponsor) .BloodGrp = Trim(cboBloodGrp) 39。寫入化驗室數(shù)據(jù)信息 .RHFactor = cboRHFactor .Allergy = Trim(txtAllergy) End With . 1 Call ClearRegForm Unload Me End Sub 病人就診信息模塊 按照正常的流程，成功登記的病人用戶應(yīng)該就診。以成功登記的病 人，可以通過對病癥的描述方式得出初步診斷結(jié)果。這部分工作 由 frmDiagnosis 窗體具體控制和實現(xiàn)。在這個模塊里，對于文本性的信息仍舊使用 TextBox 實現(xiàn)，而對于病癥的描述，采取了用五條病癥同時描述來實現(xiàn)，每一條病癥選擇出都采用ComboBox 來實現(xiàn)，其下拉菜單出將出現(xiàn) DB 表里所存儲的病癥的所有描述。 圖 8 診斷信息 Dim symptom(4) As String 第 14 頁 共 25 頁 Dim diseaseID(4) As Integer Dim diseaseName(4) As String Dim diagnosisResults(4) As String Dim X As Integer For X = 0 To 4 symptom(X) = cboSymptom(X) Next X If symptom(0) = N/A Or symptom(0) = Then 39。保證病人至少選擇一個病癥描述 ,否則退出 MsgBox You must specify AT LEAST one sign/symptom to diagnose a patient, starting with Symptom 1., vbInformation Exit Sub End If Call DiagnosePatient(symptom(0), diseaseID(0), diseaseName(0)) txtDisease(0).Text = diseaseName(0) For X = 1 To 4 39。根據(jù)描述的癥狀產(chǎn)生出一個診斷結(jié)果 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 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 txtDisease(1) = 39。顯示結(jié)果 For a = 1 To 4 If diagnosisResults(a) Then txt