📄 frmmain.frm.bak
字号:
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 1035
Left = -30
TabIndex = 1
Top = 0
Width = 15255
Begin VB.Label lblPatientSex
BackStyle = 0 'Transparent
Caption = "未知"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6045
TabIndex = 14
Top = 330
Width = 1320
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "性 别"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5085
TabIndex = 13
Top = 330
Width = 900
End
Begin VB.Label lblPatientBirthday
BackStyle = 0 'Transparent
Caption = "未知"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 3960
TabIndex = 12
Top = 630
Width = 1320
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "出生日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 2625
TabIndex = 11
Top = 630
Width = 1320
End
Begin VB.Label lblPatientAge
BackStyle = 0 'Transparent
Caption = "未知"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1110
TabIndex = 10
Top = 630
Width = 1320
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "年 龄"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 75
TabIndex = 9
Top = 630
Width = 1005
End
Begin VB.Label lblPatientName
BackStyle = 0 'Transparent
Caption = "未知"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 3960
TabIndex = 8
Top = 330
Width = 1320
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 2625
TabIndex = 7
Top = 330
Width = 840
End
Begin VB.Label lblPatientID
BackStyle = 0 'Transparent
Caption = "未知"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1110
TabIndex = 6
Top = 330
Width = 1320
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "患者编号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 90
TabIndex = 5
Top = 330
Width = 1005
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid dgResult
Height = 3420
Left = 0
TabIndex = 2
Top = 2160
Visible = 0 'False
Width = 15120
_ExtentX = 26670
_ExtentY = 6033
_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
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'------------------------------------------------------------------------------------
'文件：frmMain.frm
'作者：刘辉
'时间：2009-02-02
'说明：主窗体
'接口：InitHT_Clinic
'------------------------------------------------------------------------------------
Option Explicit
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_THICKFRAME = &H40000
'患者基本信息
Private m_ptInfo As New ClsPatientInfo
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
Unload Me
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, "提示"
Exit Sub
End If
Dim nStart As Long
Dim nEnd As Long
Dim strRegStart As String
Dim strRegEnd As String
nStart = InStr(dtRegisterStart.Value, " ") '第1个空格位置
If nStart <= 0 Then
MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
Exit Sub
End If
strRegStart = left(dtRegisterStart.Value, nStart - 1) + CStr(" 00:00:00")
nEnd = InStr(dtRegisterEnd.Value, " ") '第1个空格位置
If nEnd <= 0 Then
MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
Exit Sub
End If
strRegEnd = left(dtRegisterEnd.Value, nEnd - 1) + CStr(" 23:59:59")
CHECK_LIST_SQL = CHECK_LIST_SQL + " and REG_DATE >= '" + strRegStart + "'"
CHECK_LIST_SQL = CHECK_LIST_SQL + " and REG_DATE <= '" + strRegEnd + "'"
' If btnDiagnosed.Value = True Then
' CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_CHECKED = '是'"
' End If
' If btnNoDiagnosed.Value = True Then
' CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_CHECKED = '否'"
' End If
'
CHECK_LIST_SQL = CHECK_LIST_SQL + modCheckList.CHECK_LIST_ORDER
If myDgCheckList.Rows <= 1 Then
Controls.Remove ("mydgCreate")
Set myDgCheckList = Controls.Add("MSHierarchicalFlexGridLib.MSHFlexGrid", "mydgCreate", picMdi)
myDgCheckList.Visible = True
myDgCheckList.SelectionMode = flexSelectionByRow
End If
Call Activate(CHECK_LIST_SQL)
tmrCheckPart.Enabled = False
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation, "提示"
End Sub
Private Sub btnShowReport_Click()
On Error GoTo ErrHandler
If myDgCheckList.Row < 1 Then
MsgBox "请选择一名患者!", vbExclamation, "提示"
Exit Sub
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -