📄 frmdrreg.frm
字号:
Top = 1335
Width = 810
End
Begin VB.TextBox txtCheckNumber
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1545
MaxLength = 50
TabIndex = 1
Top = 615
Width = 1995
End
Begin VB.TextBox txtPatientName
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 9600
MaxLength = 50
TabIndex = 3
Top = 615
Width = 1905
End
Begin VB.ComboBox cmbPatientSex
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "frmDrReg.frx":0054
Left = 1545
List = "frmDrReg.frx":0061
Style = 2 'Dropdown List
TabIndex = 4
Top = 1335
Width = 1995
End
Begin VB.TextBox txtMachineCheckNumber
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6000
MaxLength = 50
TabIndex = 2
Top = 615
Width = 1695
End
Begin VB.ComboBox cmbAgeWeigh
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "frmDrReg.frx":0073
Left = 10395
List = "frmDrReg.frx":0080
Style = 2 'Dropdown List
TabIndex = 7
Top = 1335
Width = 615
End
Begin MSComCtl2.DTPicker dtBirthday
Height = 375
Left = 6000
TabIndex = 5
Top = 1328
Width = 1725
_ExtentX = 3043
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 20971521
CurrentDate = 18172
MaxDate = 54788
MinDate = 3289
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 = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 15
Left = 8280
TabIndex = 33
Top = 1395
Width = 1065
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 = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 10
Left = 135
TabIndex = 32
Top = 675
Width = 1065
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 = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 1
Left = 8280
TabIndex = 31
Top = 675
Width = 1065
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 = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 6
Left = 4005
TabIndex = 30
Top = 1395
Width = 1455
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 = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 11
Left = 135
TabIndex = 29
Top = 1395
Width = 1065
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 = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 5
Left = 4005
TabIndex = 28
Top = 675
Width = 1545
End
Begin VB.Label Label7
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "*"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 0
TabIndex = 27
Top = 0
Width = 375
End
End
End
End
Attribute VB_Name = "frmDrReg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'----------------------------------------------------------------------------------------------------
'文件：frmDrReg.frm
'作者：冷家锋
'时间：2008-8-20
'说明：报告工作站登记，补充完善从DCM中获取的患者信息
'----------------------------------------------------------------------------------------------------
Option Explicit
Const SEX_MALE = "男"
Const SEX_FEMALE = "女"
Const SEX_UNKNOWN = "不详"
'最大检查部位数
Const CHECKPARTCOUNT = 10
'变量定义
Public CHECK_LIST_ID As String
'检查部位个数
Dim nCheckPartCount As Long
'检查部位数组
Dim CheckParts() As String
'分割符
Const SPLIT_SIGN = "/"
Private Sub InitPatientInfo()
On Error GoTo ErrHandler
Dim strSql As String
strSql = "SELECT ID, PATIENT_ID AS 编号, MACHINE_NAME || to_char(FILM_NO) as 检查设备编号, " _
+ " PATIENT_NAME AS 姓名,PATIENT_NAME_PHONETIC as 姓名拼音, PATIENT_SEX AS 性别, PATIENT_BIRTHDAY as 出生日期, " _
+ " to_char(PATIENT_AGE) || AGE_WEIGHT as 年龄, ALL_CHECK_PART as 拍片部位 " _
+ " FROM CHECK_LIST " _
+ "WHERE id = '" + CStr(CHECK_LIST_ID) + "'"
'+ " to_char(PATIENT_AGE) || AGE_WEIGHT as 年龄,GETCTPART(ID) as 拍片部位 " _
Dim rsPatient As New ADODB.Recordset
If rsPatient.State = adStateOpen Then
rsPatient.Close
End If
Dim myConn As New ADODB.Connection
myConn.CursorLocation = adUseClient
If myConn.State <> adStateOpen Then
myConn.Open modGlobalDbConnect.GetConnectionString
End If
rsPatient.Open strSql, myConn
If rsPatient.RecordCount > 0 Then
If Not IsNull(rsPatient.Fields("编号")) Then
txtCheckNumber.Text = rsPatient.Fields("编号")
End If
If Not IsNull(rsPatient.Fields("检查设备编号")) Then
txtMachineCheckNumber.Text = rsPatient.Fields("检查设备编号")
End If
If Not IsNull(rsPatient.Fields("姓名")) Then
txtPatientName.Text = rsPatient.Fields("姓名")
End If
' If Not IsNull(rsPatient.Fields("姓名拼音")) Then
' txtPatientPhonetic.Text = rsPatient.Fields("姓名拼音")
' End If
If Not IsNull(rsPatient.Fields("性别")) Then
If rsPatient.Fields("性别") = SEX_MALE Then
cmbPatientSex.ListIndex = 0
ElseIf rsPatient.Fields("性别") = SEX_FEMALE Then
cmbPatientSex.ListIndex = 1
Else
cmbPatientSex.ListIndex = 2
End If
End If
If Not IsNull(rsPatient.Fields("出生日期")) Then
dtBirthday.Value = rsPatient.Fields("出生日期")
End If
If Not IsNull(rsPatient.Fields("年龄")) Then
txtPatientAge.Text = rsPatient.Fields("年龄")
End If
'
' If Not IsNull(rsPatient.Fields("拍片部位")) Then
' txtCheckPart.Text = rsPatient.Fields("拍片部位")
' End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -