文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了ASP.NET类别-VB医院信息管理系统的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！
4.3 医生信息模块 本模块的设计主要是对医生的信息进行收集管理，其中包括的项目有：医生性命、医生性别、医生年龄、医生籍贯、医生手机号、医生科室、医生职称七个项目，同时还可以进行医生账户的新增和依据生命对医生信息进行查询等功能。frmDoctor窗体具体负责这个模块的设计和实现： Private Sub Command2_Click() datDoctors.Recordset.Fields("Name") = TextName.Text datDoctors.Recordset.Fields("Sex") = ComboSex.ListIndex datDoctors.Recordset.Fields("Age") = Val(TextAge.Text) datDoctors.Recordset.Fields("Province") = TextProvince.Text datDoctors.Recordset.Fields("Mobile") = TextMobile.Text datDoctors.Recordset.Fields("Dept") = TextDept.Text datDoctors.Recordset.Fields("Grade") = TextGrade.Text datDoctors.Recordset.Save MsgBox "保存成功！" End Sub Do If datDoctors.Recordset.EOF Then Exit Do If (datDoctors.Recordset.Fields("Name") = TextSearch.Text) Then find_flag = True Else datDoctors.Recordset.MoveNext End If Loop Until (find_flag) If find_flag Then RefreshData MsgBox "查询成功！" Else MsgBox "没有查到您要的记录！" 图6 新增、查询医生信息对话框 4.4 病人登记管理模块 病人到医院就诊，需要在HIS里建立一个属于自己的“账户”，里面将包括病人最基本的一些信息。通过下图，可以很清晰地看到，这个模块主要使用了一些TextBox和ComboBox来进行病人信息的录入，其中“性别”、“血型”、“Rh因子”三项是由ComboBox控制实现的，其下拉菜单比较方便系统用户的操作并可以防止录入不合法的信息： 图7 病人注册 Private Sub cmdRegAndAdmit_Click() Set thisNewPatient = New CPatient ''新建一个病人对象 With thisNewPatient ''向新建的病人对象写入信息 .HospNo = Val(txtHospNo) .SName = Trim(txtSName) .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) ''写入担保人信息 .SponsorAdd = Trim(txtAddOfSponsor) .BloodGrp = Trim(cboBloodGrp) ''写入化验室数据信息 .RHFactor = cboRHFactor .Allergy = Trim(txtAllergy) End With .frmAdmission.Show 1 Call ClearRegForm Unload Me End Sub 4.5 病人就诊信息模块 按照正常的流程，成功登记的病人用户应该就诊。以成功登记的病人，可以通过对病症的描述方式得出初步诊断结果。这部分工作由frmDiagnosis窗体具体控制和实现。在这个模块里，对于文本性的信息仍旧使用TextBox实现，而对于病症的描述，采取了用五条病症同时描述来实现，每一条病症选择出都采用ComboBox来实现，其下拉菜单出将出现DB表里所存储的病症的所有描述。 图8 诊断信息 Dim symptom(4) As String 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 ''保证病人至少选择一个病症描述,否则退出 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 ''根据描述的症状产生出一个诊断结果 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) = "" ''显示结果 For a = 1 To 4 If diagnosisResults(a) <> "" Then txtDisease(1) = txtDisease(1) + diagnosisResults(a) + vbCrLf Next a End Sub 4.6 病人住院信息管理模块 经过了医生的诊断，就可以得出病人的病症情况，也就可以决定改病人是否需要住院治疗。这个模块主要是由frmAdmitExisting窗体控制和实现的。这个窗体的设计比较简单明了，由病人的主治医师填入住院时间、医师姓名以及一些备注信息后就可以成功给病人办理住院手续。该窗体由几个简单的TextBox实现所对应的也都是一些文本信息。 图9 病人病例 Private Sub cmdConfirmAdmission_Click() With Me.datHospHist.Recordset .Fields("Hosp_No") = somePatient.HospNo .Fields("Admission_Status") = "IN" .Fields("Date_of_Admission") = txtDateOfAdmission .Fields("Name_of_Doctor") = txtDoctorInCharge .Fields("Doctors_Diagnosis") = txtDoctorsComments .Update End With MsgBox "住院手续登记成功.", vbInformation, "成功" Unload frmOldPatient Unload Me Exit Sub errhnd: Debug.Print Err.Number; " "; Err.Description MsgBox "一个未知错误.", vbInformation, "未知错误!" Resume Next End Sub Private Sub datHospHist_1_Validate(Action As Integer, Save As Integer) End Sub Private Sub Form_Load() lblHeading.Caption = lblHeading.Caption + Str(somePatient.HospNo) datHospHist.ConnectionString = ConnectString datHospHist.RecordSource = "Patient_Hospital_History" datHospHist.Refresh datHospHist.Recordset.AddNew ''显示保存的结果 txtCaseRefNo = datHospHist.Recordset.Fields("Case_Ref_No") End Sub 图10 住院信息 Private Sub cmdConfirmAdmission_Click() With frmNewReg.datPerInfo.Recordset .Fields("Hosp_No") = frmNewReg.thisNewPatient.HospNo ''病人信息 .Fields("SName") = frmNewReg.thisNewPatient.SName .Fields("FName") = frmNewReg.thisNewPatient.FName .Fields("Sex") = frmNewReg.thisNewPatient.Sex .Fields("Home_Add") = frmNewReg.thisNewPatient.HomeAdd .Fields("State_of_Origin") = frmNewReg.thisNewPatient.StateOfOrigin .Fields("Occupation") = frmNewReg.thisNewPatient.Occupation .Fields("Name_of_NoK") = frmNewReg.thisNewPatient.NameNoK ''亲属信息 .Fields("Relationship_to_NoK") = frmNewReg.thisNewPatient.RelaNok .Fields("Add_of_NoK") = frmNewReg.thisNewPatient.AddNok .Fields("Name_of_Sponsor") = frmNewReg.thisNewPatient.SponsorName ''担保人信息 .Fields("Add_of_Sponsor") = frmNewReg.thisNewPatient.SponsorAdd End With With frmNewReg.datLabInfo.Recordset .Fields("Hosp_No") = frmNewReg.thisNewPatient.HospNo ''化验室信息 .Fields("Blood_Group") = frmNewReg.thisNewPatient.BloodGrp .Fields("RhFactor") = frmNewReg.thisNewPatient.RHFactor .Fields("Allergy") = frmNewReg.thisNewPatient.Allergy End With With Me.datHospHist.Recordset .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 frmNewReg.datPerInfo.Recordset.Update frmNewReg.datLabInfo.Recordset.Update Me.datHospHist.Recordset.Update MsgBox "新病人的入院手续登记成功.", vbInformation, "成功" Unload Me Exit Sub 4.7 病人出院信息管理模块 住院的病人总有出院的时候，这个模块就是控制病人出院的。frmOldPatient窗体主要包括病人的一下基本信息，“住院”、“诊断”和“出院”三个按钮分别可以在不同的时期进行不同的操作，前二者回到了前面已经介绍过的“诊断”和“住院”模块，而“出院”按钮则是控制出院的信息管理。 而点击“出院”按钮则进入“出院手续办理”页面，这部分主要是frmDischarge窗体控制并实现的，从下图可以看到，几个TextBox和一个ComboBox完成了这一模块的信息记录：  |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
