📄 frmorganilllist.frm
字号:
VERSION 5.00
Begin VB.Form frmOrganIllList
BorderStyle = 1 'Fixed Single
Caption = "描述语句列表项目"
ClientHeight = 4545
ClientLeft = 45
ClientTop = 330
ClientWidth = 9150
Icon = "frmOrganIllList.frx":0000
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4545
ScaleWidth = 9150
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdEditDetail
Caption = "编辑"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 8280
Picture = "frmOrganIllList.frx":014A
Style = 1 'Graphical
TabIndex = 16
Top = 3465
Width = 555
End
Begin VB.ListBox lstDetail
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2760
Left = 4620
TabIndex = 2
Top = 300
Width = 4215
End
Begin VB.CommandButton cmdEditIll
Caption = "编辑"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 3720
Picture = "frmOrganIllList.frx":024C
Style = 1 'Graphical
TabIndex = 15
Top = 3465
Width = 555
End
Begin VB.CommandButton cmdEditOrgan
Caption = "编辑"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 1500
Picture = "frmOrganIllList.frx":034E
Style = 1 'Graphical
TabIndex = 14
Top = 3465
Width = 555
End
Begin VB.CommandButton cmdAddIll
Caption = "添加"
Enabled = 0 'False
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 2400
Picture = "frmOrganIllList.frx":0450
Style = 1 'Graphical
TabIndex = 13
Top = 3465
Width = 555
End
Begin VB.CommandButton cmdDeleteIll
Caption = "删除"
Enabled = 0 'False
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 3060
Picture = "frmOrganIllList.frx":0552
Style = 1 'Graphical
TabIndex = 12
Top = 3465
Width = 555
End
Begin VB.Frame Frame1
Height = 75
Index = 0
Left = 240
TabIndex = 11
Top = 4080
Width = 8655
End
Begin VB.CommandButton cmdAddOrgan
Caption = "添加"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 300
Picture = "frmOrganIllList.frx":0654
Style = 1 'Graphical
TabIndex = 10
Top = 3465
Width = 555
End
Begin VB.CommandButton cmdDeleteOrgan
Caption = "删除"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 900
Picture = "frmOrganIllList.frx":0756
Style = 1 'Graphical
TabIndex = 9
Top = 3465
Width = 555
End
Begin VB.CommandButton cmdAddDetail
Caption = "添加"
Enabled = 0 'False
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 6945
Picture = "frmOrganIllList.frx":0858
Style = 1 'Graphical
TabIndex = 8
Top = 3465
Width = 555
End
Begin VB.CommandButton cmdDeleteDetail
Caption = "删除"
Enabled = 0 'False
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 7605
Picture = "frmOrganIllList.frx":095A
Style = 1 'Graphical
TabIndex = 7
Top = 3465
Width = 555
End
Begin VB.Frame Frame2
Height = 75
Left = 240
TabIndex = 6
Top = 3300
Width = 8655
End
Begin VB.ListBox lstIll
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2760
Left = 2400
TabIndex = 1
Top = 300
Width = 1875
End
Begin VB.ListBox lstOrgan
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2760
Left = 300
TabIndex = 0
Top = 300
Width = 1755
End
Begin VB.Label Label4
Caption = "添加—Insert 删除—Delete 编辑—E"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 300
TabIndex = 17
Top = 4260
Width = 5475
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "描述语句："
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 4620
TabIndex = 5
Top = 60
Width = 975
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "疾病："
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 2400
TabIndex = 4
Top = 60
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "部位："
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 300
TabIndex = 3
Top = 60
Width = 585
End
End
Attribute VB_Name = "frmOrganIllList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Organ_Name As String
Private Ill_Name As String
Private Code_Tip As String
Public Loaded As Boolean
Private Sub FillOrgan()
'------------------
'填充"器官"列表
'------------------
On Error Resume Next
Dim strSQL As String
Dim rsTemp As New ADODB.Recordset
strSQL = "SELECT * FROM US_CASE_ORGAN ORDER BY SERIAL_ID"
lstOrgan.Clear
With rsTemp
.Open strSQL, GDB
Do While Not .EOF
lstOrgan.AddItem !Organ_Name
.MoveNext
Loop
End With
lstOrgan.ListIndex = 0
Set rsTemp = Nothing
End Sub
Private Sub FillOrganIll(OrganName As String)
Dim strSQL As String
Dim rsTemp As New ADODB.Recordset
'填充器官项目列表
strSQL = "SELECT * FROM US_CASE_ILL WHERE ORGAN_NAME = '" & OrganName & "'"
lstIll.Clear
With rsTemp
.Open strSQL, GDB
Do While Not .EOF
lstIll.AddItem !ORGAN_ILL
.MoveNext
Loop
End With
Set rsTemp = Nothing
End Sub
Private Sub FillOrganIllDetail(IllName As String)
Dim strSQL As String
Dim rsTemp As New ADODB.Recordset
'填充器官项目列表
strSQL = "SELECT * FROM US_CASE_ILL_DETAIL WHERE ORGAN_ILL = '" & IllName & "'"
lstDetail.Clear
With rsTemp
.Open strSQL, GDB
Do While Not .EOF
lstDetail.AddItem !ILL_DETAIL
.MoveNext
Loop
End With
Set rsTemp = Nothing
End Sub
Private Sub lstOrgan_Click()
'--------------
'填充字段列表
'--------------
FillOrganIll lstOrgan.Text
lstDetail.Clear
'设置按钮状态
If frmReport.Loaded = True Then
cmdAddOrgan.Enabled = False
cmdDeleteOrgan.Enabled = False
cmdEditOrgan.Enabled = False
Else
cmdAddOrgan.Enabled = True
cmdDeleteOrgan.Enabled = True
cmdEditOrgan.Enabled = True
End If
cmdAddIll.Enabled = False
cmdDeleteIll.Enabled = False
cmdEditIll.Enabled = False
cmdAddDetail.Enabled = False
cmdDeleteDetail.Enabled = False
cmdEditDetail.Enabled = False
End Sub
Private Sub lstIll_GotFocus()
'设置按钮状态
cmdAddOrgan.Enabled = False
cmdDeleteOrgan.Enabled = False
cmdEditOrgan.Enabled = False
cmdAddDetail.Enabled = False
cmdDeleteDetail.Enabled = False
cmdEditDetail.Enabled = False
If frmReport.Loaded = True Then
cmdAddIll.Enabled = False
cmdDeleteIll.Enabled = False
cmdEditIll.Enabled = False
Else
cmdAddIll.Enabled = True
cmdDeleteIll.Enabled = True
cmdEditIll.Enabled = True
End If
End Sub
Private Sub lstIll_Click()
If lstIll.Text <> "" Then FillOrganIllDetail lstIll.Text
lstIll_GotFocus
End Sub
Private Sub lstDetail_GotFocus()
If lstOrgan.Text = "" Or lstIll.Text = "" Then Exit Sub
'设置按钮状态
cmdAddOrgan.Enabled = False
cmdDeleteOrgan.Enabled = False
cmdEditOrgan.Enabled = False
cmdAddIll.Enabled = False
cmdDeleteIll.Enabled = False
cmdEditIll.Enabled = False
If frmReport.Loaded = True Then
cmdAddDetail.Enabled = False
cmdDeleteDetail.Enabled = False
cmdEditDetail.Enabled = False
Else
cmdAddDetail.Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -