📄 frmsick_tnb_list.frm
字号:
Caption = "参考值（ul/ml）"
Height = 270
Left = 90
TabIndex = 125
Top = 1575
Width = 1620
End
Begin VB.Label Label16
BorderStyle = 1 'Fixed Single
Caption = "参考值（pmol/ml）"
Height = 270
Left = 90
TabIndex = 124
Top = 2145
Width = 1620
End
Begin VB.Label Label21
BorderStyle = 1 'Fixed Single
Caption = "葡萄糖耐量实验"
Height = 270
Left = 90
TabIndex = 123
Top = 735
Width = 1620
End
Begin VB.Label Label22
BorderStyle = 1 'Fixed Single
Caption = "胰岛素释放实验"
Height = 270
Left = 90
TabIndex = 122
Top = 1290
Width = 1620
End
Begin VB.Label Label23
BorderStyle = 1 'Fixed Single
Caption = "C-肽兴奋实验"
Height = 270
Left = 90
TabIndex = 121
Top = 1860
Width = 1620
End
Begin VB.Label Label24
BorderStyle = 1 'Fixed Single
Caption = "胰岛素抗体"
Height = 270
Index = 0
Left = 90
TabIndex = 120
Top = 2970
Width = 1620
End
Begin VB.Label Label25
BorderStyle = 1 'Fixed Single
Caption = "胰高血糖素"
Height = 270
Left = 90
TabIndex = 119
Top = 3240
Width = 1620
End
Begin VB.Label Label26
BorderStyle = 1 'Fixed Single
Caption = "糖化血红蛋白"
Height = 270
Left = 90
TabIndex = 118
Top = 3525
Width = 1620
End
Begin VB.Label Label27
BorderStyle = 1 'Fixed Single
Caption = "血淀粉酶"
Height = 270
Left = 90
TabIndex = 117
Top = 3810
Width = 1620
End
Begin VB.Label Label28
BorderStyle = 1 'Fixed Single
Caption = "尿淀粉酶"
Height = 270
Left = 90
TabIndex = 116
Top = 4095
Width = 1620
End
Begin VB.Label Label29
BorderStyle = 1 'Fixed Single
Caption = "24小时尿糖定量"
Height = 270
Left = 90
TabIndex = 115
Top = 4380
Width = 1620
End
Begin VB.Label Label30
BorderStyle = 1 'Fixed Single
Caption = "尿常规"
Height = 270
Left = 90
TabIndex = 114
Top = 4650
Width = 1620
End
Begin VB.Label Label31
BorderStyle = 1 'Fixed Single
Caption = "血常规"
Height = 270
Left = 90
TabIndex = 113
Top = 4935
Width = 1620
End
Begin VB.Label Label32
BorderStyle = 1 'Fixed Single
Caption = "眼底"
Height = 270
Left = 90
TabIndex = 112
Top = 5220
Width = 1620
End
Begin VB.Label Label33
BorderStyle = 1 'Fixed Single
Caption = "超声"
Height = 270
Left = 90
TabIndex = 111
Top = 5505
Width = 1620
End
Begin VB.Label Label34
BorderStyle = 1 'Fixed Single
Caption = "肌电图"
Height = 270
Left = 90
TabIndex = 110
Top = 5790
Width = 1620
End
Begin VB.Label Label35
BorderStyle = 1 'Fixed Single
Caption = "心电图"
Height = 270
Left = 90
TabIndex = 109
Top = 6090
Width = 1620
End
Begin VB.Label Label36
BorderStyle = 1 'Fixed Single
Caption = "微循环"
Height = 270
Left = 90
TabIndex = 108
Top = 6375
Width = 1620
End
Begin VB.Label Label38
BorderStyle = 1 'Fixed Single
Caption = "X线"
Height = 270
Left = 90
TabIndex = 107
Top = 6660
Width = 1620
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "空腹"
Height = 270
Left = 1710
TabIndex = 106
Top = 450
Width = 960
End
Begin VB.Label Label4
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "2小时"
Height = 270
Left = 3630
TabIndex = 105
Top = 450
Width = 960
End
Begin VB.Label Label5
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "3小时"
Height = 270
Left = 4590
TabIndex = 104
Top = 450
Width = 960
End
Begin VB.Label Label7
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "3.9-6.1"
Height = 270
Left = 1710
TabIndex = 103
Top = 1020
Width = 960
End
Begin VB.Label Label9
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "<7.2"
Height = 270
Left = 3630
TabIndex = 102
Top = 1020
Width = 960
End
Begin VB.Label Label10
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "<6.1"
Height = 270
Index = 1
Left = 4590
TabIndex = 101
Top = 1020
Width = 960
End
Begin VB.Label Label12
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "12.7±7.1"
Height = 270
Left = 1710
TabIndex = 100
Top = 1575
Width = 960
End
Begin VB.Label Label14
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "46.9±26.7"
Height = 270
Left = 3630
TabIndex = 99
Top = 1575
Width = 960
End
Begin VB.Label Label15
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "14.9±9.9"
Height = 270
Left = 4590
TabIndex = 98
Top = 1575
Width = 960
End
Begin VB.Label Label17
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "0.38±0.15"
Height = 270
Left = 1710
TabIndex = 97
Top = 2145
Width = 960
End
Begin VB.Label Label19
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "1.06±0.58"
Height = 270
Left = 3630
TabIndex = 96
Top = 2145
Width = 960
End
Begin VB.Label Label20
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "0.25±0.25"
Height = 270
Left = 4590
TabIndex = 95
Top = 2145
Width = 960
End
Begin VB.Label Label18
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "1.38±0.47"
Height = 270
Left = 2670
TabIndex = 94
Top = 2145
Width = 960
End
Begin VB.Label Label13
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "71.6±33.8"
Height = 270
Left = 2670
TabIndex = 93
Top = 1575
Width = 960
End
Begin VB.Label Label8
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "<10.5"
Height = 270
Left = 2670
TabIndex = 92
Top = 1020
Width = 960
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "1小时"
Height = 270
Index = 0
Left = 2670
TabIndex = 91
Top = 450
Width = 960
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "项目"
Height = 270
Left = 90
TabIndex = 90
Top = 450
Width = 1620
End
End
End
Attribute VB_Name = "FrmSick_Tnb_List"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim FStrDaID As String
Private Sub CmdCzSave_Click()
Dim IntTmp As Integer
PCnnHisDB.BeginTrans
PCnnHisDB.Execute " DELETE FROM jkda_sick_tnb_check_list_num WHERE daid='" + FStrDaID + "' "
For IntTmp = 0 To TxtNum.Count - 1
PCnnHisDB.Execute " INSERT INTO jkda_sick_tnb_check_list_num(daid, xmid, CheckValue) VALUES( " _
& " '" + FStrDaID + "','" + TxtNum(IntTmp).Tag + "', " + CStr(TxtNum(IntTmp)) + ") "
Next IntTmp
For IntTmp = 0 To TxtChar.Count - 1
PCnnHisDB.Execute " INSERT INTO jkda_sick_tnb_check_list_num(daid, xmid, CheckValue) VALUES( " _
& " '" + FStrDaID + "','" + TxtChar(IntTmp).Tag + "', " + CStr(TxtChar(IntTmp)) + ") "
Next IntTmp
'判断事务状态
If CBool(PCnnHisDB.State And adStateExecuting) Then
PCnnHisDB.Cancel
PCnnHisDB.RollbackTrans
MsgBox "操作失败，请重试。", vbCritical, "提示"
Exit Sub
Else
PCnnHisDB.CommitTrans
MsgBox "保存成功，请继续。", vbInformation, "提示"
End If
End Sub
Private Sub Form_Load()
Dim IntTmp As Integer
Dim AdoRsSeek As ADODB.Recordset
Set AdoRsSeek = New ADODB.Recordset
FStrDaID = FrmSick_Tnb_main.PStrDaID
AdoRsSeek.Open "SELECT daid, xmid, CheckValue FROM jkda_sick_tnb_check_list_num WHERE daid='" + FStrDaID + "' ORDER BY xmid ", PCnnHisDB, adOpenKeyset
If Not (AdoRsSeek.EOF Or AdoRsSeek.BOF) Then
AdoRsSeek.MoveLast: AdoRsSeek.MoveFirst
For IntTmp = 0 To 11
AdoRsSeek.Find " xmid = '" + Trim(TxtNum(IntTmp).Tag) + "' "
If Not (AdoRsSeek.EOF Or AdoRsSeek.BOF) Then TxtNum(IntTmp) = AdoRsSeek.Fields("CheckValue")
Next IntTmp
End If
AdoRsSeek.Close
AdoRsSeek.Open "SELECT daid, xmid, CheckValue FROM jkda_sick_tnb_check_list_char WHERE daid='" + FStrDaID + "' ORDER BY xmid ", PCnnHisDB, adOpenKeyset
If Not (AdoRsSeek.EOF Or AdoRsSeek.BOF) Then
AdoRsSeek.MoveLast: AdoRsSeek.MoveFirst
For IntTmp = 0 To TxtChar.Count - 1
AdoRsSeek.Find " xmid = '" + Trim(TxtNum(IntTmp).Tag) + "' "
If Not (AdoRsSeek.EOF Or AdoRsSeek.BOF) Then TxtChar(IntTmp) = AdoRsSeek.Fields("CheckValue")
Next IntTmp
End If
AdoRsSeek.Close: Set AdoRsSeek = Nothing
Me.Move 0, 1150
End Sub
Private Sub CmdExit_Click(Index As Integer)
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -