当前位置: 网学 > 设计下载 > ASP.NET类别 > 正文

VB医院信息管理系统

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 佚名 来源: 网络 发布时间: 13/05/17

文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了ASP.NET类别-vb医院信息管理系统的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!

QQ交谈客服咨询,网学网竭诚为您服务,本站永久域名:myeducs.cn

 

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
论文文章部分只是部分简介,如需了解更多详情请咨询本站客服!QQ交谈QQ3710167

  • 下一篇资讯: C#编写的FTP客户端程序
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号