initializemodule.bas

内窥镜图案工作站有说明 有文档 有应用程序

Attribute VB_Name = "InitializeModule"
Public PACSDataConn As ADODB.Connection    '管理整个图文工作站的数据库连接
Public DiagnoseRepositoryConn As ADODB.Connection     '[诊断编辑]查询的数据源

Public RegisterDoctor As String    '登记医生姓名,从登陆界面获取医生用户名

Public Type CurMaterial    '公共结构体变量，储存当前病人的相关数据

    NameInAll As String    '病人姓名
    SexInAll As String    '病人性别
    AgeInAll As String    '病人年龄
    CheckNumInAll As String    '病人档案号
    SourceInAll As String    '病人来源
    DepartInAll As String    '临床科室
    HospitalNum As String    '住院号
    BedNumber As String    '床号
    InstrumentInAll As String    '诊断设备
    DiagnoseInAll As String    '临床诊断
    CheckPartInAll As String    '病人检查部位
    CheckGetInAll As String    '检查所见
    CheckCueInAll As String    '检查提示
    CheckDocInAll As String    '记录医生
    CheckTimeInAll As String    '检查时间
    SaveImageNum As Integer    '病人图像文件数
    
End Type

Public CurPatientInAll As CurMaterial       '公共结构体变量，储存当前病人的相关数据
Public ImageFileNameIn4(100) As String    '[影像采集]中记录采集图像存储的绝对路径
Public DocReloadAfterIn8 As Boolean    '在[其它]中点击了[重新登陆]后,此变量的值为True,否则为False.作用,为了在DoctorReLoadForm中点击取消后执行第二种推出

Public Sub FreeType(ByRef FreeCurPatient As CurMaterial)      '清空结构体

    FreeCurPatient.NameInAll = ""
    FreeCurPatient.SexInAll = ""
    FreeCurPatient.AgeInAll = ""
    FreeCurPatient.CheckNumInAll = ""
    FreeCurPatient.SourceInAll = ""
    FreeCurPatient.DepartInAll = ""
    FreeCurPatient.HospitalNum = ""
    FreeCurPatient.BedNumber = ""
    FreeCurPatient.InstrumentInAll = ""
    FreeCurPatient.DiagnoseInAll = ""
    FreeCurPatient.CheckPartInAll = ""
    FreeCurPatient.CheckGetInAll = ""
    FreeCurPatient.CheckCueInAll = ""
    FreeCurPatient.CheckDocInAll = ""
    FreeCurPatient.CheckTimeInAll = ""
    FreeCurPatient.SaveImageNum = 0
    
End Sub