frmcheckresult.frm

1、以DLL形式提供医生工作站 2、 根据【检查项目】

         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   10380
         TabIndex        =   9
         Top             =   1050
         Width           =   1950
      End
      Begin VB.Label lblDisChkDoctor 
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "诊断医生"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   9285
         TabIndex        =   8
         Top             =   1125
         Width           =   1080
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "出生日期"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   330
         Index           =   6
         Left            =   3150
         TabIndex        =   7
         Top             =   660
         Width           =   975
      End
      Begin VB.Label lblCheckNumber 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   1350
         TabIndex        =   6
         Top             =   180
         Width           =   1695
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "病 床 号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Index           =   7
         Left            =   3150
         TabIndex        =   5
         Top             =   1125
         Width           =   975
      End
      Begin VB.Label Label2 
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "姓名拼音"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   6150
         TabIndex        =   4
         Top             =   240
         Width           =   960
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "住 院 号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Index           =   5
         Left            =   150
         TabIndex        =   3
         Top             =   1125
         Width           =   975
      End
   End
   Begin VB.Frame frmPatientFilm_Report 
      BackColor       =   &H00E6DCBC&
      Height          =   7455
      Left            =   75
      TabIndex        =   0
      Top             =   1500
      Width           =   13215
      Begin DICOMax.DICOMX dcmResult 
         Height          =   7230
         Left            =   0
         TabIndex        =   1
         Top             =   135
         Width           =   7155
         Object.Visible         =   -1  'True
         BorderStyle     =   2
         Enabled         =   -1  'True
         ImageSlicesCurrent=   0
         ImageZoomPct    =   100
         ImageSmoothOn   =   -1  'True
         ImageWinCenter  =   0
         ImageWinWidth   =   0
         ImageOverlayOn  =   0   'False
         ImageOverlayColor=   1
         ImageColorScheme=   1
         ImageTool       =   1
         ToolBarVisible  =   0   'False
         ImageZoomBestFit=   0   'False
         ImageUseRefContrast=   -1  'True
         ImageShowHeaderInfo=   0   'False
         OpenFileName    =   ""
         ToolBarPos      =   1
         DICOMInstitutionName=   "Anonymous"
         DICOMCityName   =   "Unknow"
         DICOMStudyDescrp=   "Functional"
         DICOMManufacturer=   "http://www.dicom3.cn/"
         DICOMSeriesTag  =   ""
         DICOMPatientName=   "NO Name"
         DICOMPatientID  =   "No ID"
         DICOMModality   =   "OT"
         DICOMSOPClassUID=   ""
         DICOMSOPInstanceUID=   ""
         ImagePOS        =   5
         ImageVScrollPosition=   17
         ImageHScrollPosition=   10
         DICOMPatientBirthDate=   "Unknow"
         DICOMPatientSex =   "Unknow"
         ImageOverlayLanguage=   1
         ImageMagnifyZoomSize=   2
         DICOMStudyDate  =   ""
         DICOMSeriesDate =   ""
         DICOMImageDate  =   ""
         DICOMStudyTime  =   ""
         DICOMSeriesTime =   ""
         DICOMImageTime  =   ""
         DICOMSeriesNumber=   0
         DICOMImageNumber=   0
         OpenUrlFileName =   ""
         DICOMRefPhyName =   ""
         DICOMStudyInstanceUID=   ""
         DICOMSeriesInstanceUID=   ""
         DICOMStudyID    =   ""
         ImageMeasureMaxItem=   8
         ImageMeasureResultIndex=   1
         ImageXGRGBColor =   1
         DICOMDirStudyPos=   0
         DICOMDirSeriesPos=   0
         DICOMDirImagePos=   0
         DICOMImplementationClassUID=   ""
         DICOMImplementationVersionName=   ""
         DICOMSourceApplicationEntityTitle=   ""
         FrameOfReferenceUID=   ""
         ImageMeasureFontSize=   8
         ImageMeasureTextPreSet=   ""
         ImageMeasureTextFontSize=   8
         ImageMeasureSelectIndex=   0
         OCXLanguage     =   1
         ImageMagnifySize=   60
         ImageOverlayFontSize=   10
         ImageOverlayFontName=   "Arial"
         ImageOverlayShowRuler=   0   'False
         EnableMouseScroll=   -1  'True
         DICOMPixelSpaceWidth=   0
         DICOMPixelSpaceHeight=   0
         ShowRealTimeImage=   -1  'True
         ImageSortByFileName=   0   'False
         ImageXGPaletteColor=   2
         ImageMagnifyProcess=   0
         DICOMSeriesDescrp=   "Functional"
         DICOMProtocolName=   "ProtocolName"
         DICOMMModelName =   ""
         ImagePreviewDataAddress=   0
         LicenseCode     =   ""
      End
      Begin VB.Frame frmReport 
         BackColor       =   &H00E6DCBC&
         Enabled         =   0   'False
         Height          =   7230
         Left            =   7425
         TabIndex        =   15
         Top             =   105
         Width           =   4830
         Begin VB.TextBox txtDiagnoseResult 
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   3540
            Left            =   60
            MultiLine       =   -1  'True
            TabIndex        =   17
            Top             =   3600
            Width           =   4710
         End
         Begin VB.TextBox txtFilmInformation 
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   2580
            Left            =   60
            MultiLine       =   -1  'True
            TabIndex        =   16
            Top             =   585
            Width           =   4710
         End
         Begin VB.Label Label7 
            BackStyle       =   0  'Transparent
            Caption         =   "诊断结果"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   60
            TabIndex        =   19
            Top             =   3315
            Width           =   2130
         End
         Begin VB.Label Label5 
            BackStyle       =   0  'Transparent
            Caption         =   "影像所见"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   60
            TabIndex        =   18
            Top             =   225
            Width           =   2130
         End
      End
   End
End