📄 frmmdimain.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 7080
TabIndex = 14
Top = 990
Width = 855
End
Begin VB.Label lblCheckNumber
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "患者编号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 7080
TabIndex = 12
Top = 270
Width = 855
End
Begin VB.Label lblPatientName
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "患者姓名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 7080
TabIndex = 11
Top = 600
Width = 855
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid dgResult
Height = 4695
Left = 0
TabIndex = 7
Top = 1800
Visible = 0 'False
Width = 15255
_ExtentX = 26908
_ExtentY = 8281
_Version = 393216
BackColor = 14737632
BackColorFixed = 16777215
BackColorBkg = 16777215
BackColorUnpopulated= 16777215
FocusRect = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty FontFixed {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_NumberOfBands = 1
_Band(0).Cols = 2
End
End
Begin VB.PictureBox picTop
Align = 1 'Align Top
BackColor = &H00E6DCBC&
Height = 975
Left = 0
ScaleHeight = 915
ScaleWidth = 15180
TabIndex = 1
Top = 0
Width = 15240
Begin VB.CommandButton btnExit
Caption = "退出系统"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 13680
TabIndex = 29
Top = 360
Width = 1215
End
Begin VB.CommandButton btnAboutHT
Caption = "HT-PACS"
Height = 375
Left = 360
TabIndex = 4
Top = 480
Width = 1095
End
Begin VB.Label lblHospitalName
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "**省**市人民医院"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 615
Left = 0
TabIndex = 2
Top = 0
Width = 15015
End
End
Begin VB.PictureBox picBottom
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 3225
Left = 0
ScaleHeight = 3195
ScaleWidth = 15210
TabIndex = 0
Top = 7890
Width = 15240
Begin DICOMax.DICOMX dcmList
Height = 3255
Index = 0
Left = 0
TabIndex = 28
Top = 0
Width = 3375
Object.Visible = -1 'True
BorderStyle = 0
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
End
End
Attribute VB_Name = "frmMdiMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'------------------------------------------------------------------------------------
'文件：frmMdiMain.frm
'作者：刘辉
'时间：2008-3-31
'说明：主窗体
'最后更新：冷家锋--2008-4-10
'------------------------------------------------------------------------------------
Option Explicit
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_THICKFRAME = &H40000
Dim CHECK_LIST_SQL As String
Const SQL_CHECKLIST = "SELECT " + modCheckList.CHECK_LIST_FILELDS _
+ " From CHECK_LIST "
Const DEFAULT_CHECK_LIST = "SELECT A.ID, A.PATIENT_ID AS 编号,to_char(A.MACHINE_NAME) || A.FILM_NO AS 设备检查序号," _
+ " A.PATIENT_NAME AS 姓名," _
+ " A.PATIENT_NAME_PHONETIC AS 姓名拼音, A.PATIENT_SEX AS 性别, " _
+ "to_char(A.PATIENT_AGE) || A.AGE_WEIGHT as 年龄," _
+ " MERGEPARTS(A.ID) as 拍片部位,A.STATE AS 状态, A.HOSPITAL_NUM AS 住院号, " _
+ " A.REG_DATE AS 登记日期, A.CHECK_DOCT_ID as 检查医生 , " _
+ " A.IS_CHECKED AS 已写报告,'否' AS 已印报告 , " _
+ " '否' AS 提请审核,'否' AS 已审核, " _
+ " '否' AS 审核医生,A.CHECK_DATE AS 报告日期 FROM CHECK_LIST A " _
+ " WHERE A.REG_DATE<SYSDATE AND A.REG_DATE>SYSDATE-1 "
Dim WithEvents myDgCheckList As MSHFlexGrid
Attribute myDgCheckList.VB_VarHelpID = -1
'患者记录ID
Dim m_strCurList_ID As String
'患者信息
'Dim m_ptInfo As TypePatientInfo
'患者部位路径信息
Dim m_strCheckPartsPaths() As String
'患者部位路径个数
Dim m_nCheckPartsCount As Long
'默认图象的路径
Dim DEFAULT_IMAGE As String
Dim myConn As New ADODB.Connection
'按钮事件--关于HT-PACS
Private Sub btnAboutHT_Click()
On Error GoTo ErrHandler
Load frmListAbout
frmListAbout.Show
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation, "提示"
End Sub
Private Sub btnExit_Click()
On Error GoTo ErrHandler
End
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation, "提示"
End Sub
Private Sub btnRefurbish_Click()
On Error GoTo ErrHandler
tmrCheckPart.Enabled = True
tmrCheckPart.Interval = 1000 * 30
Dim strSql As String
If cmbCheckItemID.Text <> "" Then
strSql = DEFAULT_CHECK_LIST + " AND PHOTO_DEPT_ID='" + Trim(cmbCheckItemID.Text) + "'"
End If
strSql = strSql + CHECK_LIST_ORDER
Call Activate(strSql)
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation, "提示"
End Sub
'按钮事件--查询患者
Private Sub btnSearch_Click()
On Error GoTo ErrHandler
'CHECK_LIST_SELECT = True
CHECK_LIST_SQL = SQL_CHECKLIST + "WHERE 1=1 "
If cmbCheckItemID.Text <> "" Then
CHECK_LIST_SQL = CHECK_LIST_SQL + "AND PHOTO_DEPT_ID ='" + Trim(cmbCheckItemID.Text) + "'"
Else
MsgBox "检查项目不能为空!", vbExclamation, "提示"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -