📄 frmorgantemp.frm
字号:
X2 = 7860
Y1 = 2820
Y2 = 3120
End
Begin VB.Line Line1
Index = 39
X1 = 6300
X2 = 6300
Y1 = 2820
Y2 = 3120
End
Begin VB.Line Line1
Index = 38
X1 = 4740
X2 = 4740
Y1 = 2820
Y2 = 3120
End
Begin VB.Line Line1
Index = 37
X1 = 3180
X2 = 3180
Y1 = 2820
Y2 = 3120
End
Begin VB.Line Line1
Index = 36
X1 = 1620
X2 = 1620
Y1 = 2820
Y2 = 3120
End
Begin VB.Line Line1
Index = 35
X1 = 9420
X2 = 9420
Y1 = 2400
Y2 = 2700
End
Begin VB.Line Line1
Index = 34
X1 = 7860
X2 = 7860
Y1 = 2400
Y2 = 2700
End
Begin VB.Line Line1
Index = 33
X1 = 6300
X2 = 6300
Y1 = 2400
Y2 = 2700
End
Begin VB.Line Line1
Index = 32
X1 = 4740
X2 = 4740
Y1 = 2400
Y2 = 2700
End
Begin VB.Line Line1
Index = 31
X1 = 3180
X2 = 3180
Y1 = 2400
Y2 = 2700
End
Begin VB.Line Line1
Index = 30
X1 = 1620
X2 = 1620
Y1 = 2400
Y2 = 2700
End
Begin VB.Line Line1
Index = 29
X1 = 9420
X2 = 9420
Y1 = 1980
Y2 = 2280
End
Begin VB.Line Line1
Index = 28
X1 = 7860
X2 = 7860
Y1 = 1980
Y2 = 2280
End
Begin VB.Line Line1
Index = 27
X1 = 6300
X2 = 6300
Y1 = 1980
Y2 = 2280
End
Begin VB.Line Line1
Index = 26
X1 = 4740
X2 = 4740
Y1 = 1980
Y2 = 2280
End
Begin VB.Line Line1
Index = 25
X1 = 3180
X2 = 3180
Y1 = 1980
Y2 = 2280
End
Begin VB.Line Line1
Index = 24
X1 = 1620
X2 = 1620
Y1 = 1980
Y2 = 2280
End
Begin VB.Line Line1
Index = 23
X1 = 9420
X2 = 9420
Y1 = 1560
Y2 = 1860
End
Begin VB.Line Line1
Index = 22
X1 = 7860
X2 = 7860
Y1 = 1560
Y2 = 1860
End
Begin VB.Line Line1
Index = 21
X1 = 6300
X2 = 6300
Y1 = 1560
Y2 = 1860
End
Begin VB.Line Line1
Index = 20
X1 = 4740
X2 = 4740
Y1 = 1560
Y2 = 1860
End
Begin VB.Line Line1
Index = 19
X1 = 3180
X2 = 3180
Y1 = 1560
Y2 = 1860
End
Begin VB.Line Line1
Index = 18
X1 = 1620
X2 = 1620
Y1 = 1560
Y2 = 1860
End
Begin VB.Line Line1
Index = 17
X1 = 9420
X2 = 9420
Y1 = 1140
Y2 = 1440
End
Begin VB.Line Line1
Index = 16
X1 = 7860
X2 = 7860
Y1 = 1140
Y2 = 1440
End
Begin VB.Line Line1
Index = 15
X1 = 6300
X2 = 6300
Y1 = 1140
Y2 = 1440
End
Begin VB.Line Line1
Index = 14
X1 = 4740
X2 = 4740
Y1 = 1140
Y2 = 1440
End
Begin VB.Line Line1
Index = 13
X1 = 3180
X2 = 3180
Y1 = 1140
Y2 = 1440
End
Begin VB.Line Line1
Index = 12
X1 = 1620
X2 = 1620
Y1 = 1140
Y2 = 1440
End
Begin VB.Line Line1
Index = 11
X1 = 9420
X2 = 9420
Y1 = 720
Y2 = 1020
End
Begin VB.Line Line1
Index = 10
X1 = 7860
X2 = 7860
Y1 = 720
Y2 = 1020
End
Begin VB.Line Line1
Index = 9
X1 = 6300
X2 = 6300
Y1 = 720
Y2 = 1020
End
Begin VB.Line Line1
Index = 8
X1 = 4740
X2 = 4740
Y1 = 720
Y2 = 1020
End
Begin VB.Line Line1
Index = 7
X1 = 3180
X2 = 3180
Y1 = 720
Y2 = 1020
End
Begin VB.Line Line1
Index = 6
X1 = 1620
X2 = 1620
Y1 = 720
Y2 = 1020
End
Begin VB.Line Line1
Index = 5
X1 = 9420
X2 = 9420
Y1 = 300
Y2 = 600
End
Begin VB.Line Line1
Index = 4
X1 = 7860
X2 = 7860
Y1 = 300
Y2 = 600
End
Begin VB.Line Line1
Index = 3
X1 = 6300
X2 = 6300
Y1 = 300
Y2 = 600
End
Begin VB.Line Line1
Index = 2
X1 = 4740
X2 = 4740
Y1 = 300
Y2 = 600
End
Begin VB.Line Line1
Index = 1
X1 = 3180
X2 = 3180
Y1 = 300
Y2 = 600
End
Begin VB.Line Line1
Index = 0
X1 = 1620
X2 = 1620
Y1 = 300
Y2 = 600
End
End
End
Begin VB.CommandButton cmdAdd
Caption = "确定(F2)"
Height = 435
Left = 6600
TabIndex = 1
Top = 3600
Width = 1515
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消(Esc)"
CausesValidation= 0 'False
Height = 435
Left = 8280
TabIndex = 0
Top = 3600
Width = 1455
End
End
Attribute VB_Name = "frmOrganTemp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Loaded As Boolean
Private OrganListArray(40)
Private OrganNumberArray(40, 2)
Public Sub cmdAdd_Click()
Dim i As Integer
Dim j As Integer
'加入
ORGAN_STRING = ""
TEMP_STRING = ""
j = 0
For i = 0 To 41
If Check1(i).Value Then
If i + 1 > (OrganNumberArray(j, 0) + OrganNumberArray(j, 1)) Then
Do While True
If i + 1 >= OrganNumberArray(j, 0) And i + 1 <= (OrganNumberArray(j, 0) + OrganNumberArray(j, 1)) Then
Exit Do
Else
j = j + 1
End If
Loop
If ORGAN_STRING <> "" Then
Mid$(ORGAN_STRING, Len(ORGAN_STRING)) = "|"
TEMP_STRING = TEMP_STRING & OrganListArray(j) & "|"
End If
End If
If ORGAN_STRING = "" Then
ORGAN_STRING = Check1(i).Caption & ";"
TEMP_STRING = OrganListArray(j) & "|"
frmReport.cboOrganName.Text = frmReport.cboOrganName.Text & Check1(i).Caption
Else
ORGAN_STRING = ORGAN_STRING & Check1(i).Caption & ";"
frmReport.cboOrganName.Text = frmReport.cboOrganName.Text & Check1(i).Caption
End If
End If
Next
ORGAN_STRING = Left(ORGAN_STRING, Len(ORGAN_STRING) - 1)
TEMP_STRING = Left(TEMP_STRING, Len(TEMP_STRING) - 1)
PopOrganTemp (" ")
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub Form_Load()
Loaded = True
ComboOrgan
' Form_Resize
End Sub
Private Function ComboOrgan()
'将器官模版组合起来
Dim OT As New ADODB.Recordset
Dim strTempList() As String
Dim i As Integer
Dim j As Integer
Dim TempNumber As Integer
Set OT = OpenRS("SELECT * FROM US_ORGAN_TEMP")
For j = 0 To 39
OrganListArray(j) = ""
OrganNumberArray(j, 0) = 0
OrganNumberArray(j, 1) = 0
Next
OT.MoveFirst
i = 0
j = 0
With OT
While Not .EOF
strTempList() = Split(OT!TEMP_COMB_STRING, ";")
OrganListArray(j) = OT!TEMP_NAME
If j <> 0 Then OrganNumberArray(j, 0) = OrganNumberArray(j - 1, 0) + OrganNumberArray(j - 1, 1)
OrganNumberArray(j, 1) = UBound(strTempList()) + 1
j = j + 1
For TempNumber = 0 To UBound(strTempList())
If strTempList(TempNumber) <> "" Then
Check1(i).Caption = strTempList(TempNumber)
Line1(i).Visible = False
End If
i = i + 1
If i > 41 Then Exit Function
Next
Line1(i - 1).Visible = True
.MoveNext
Wend
End With
Set OT = Nothing
For TempNumber = i To 41
Check1(TempNumber).Visible = False
Line1(TempNumber).Visible = False
Next
End Function
Private Sub Form_Unload(Cancel As Integer)
Loaded = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -