📄 dlgxtcs.frm
字号:
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "建议名称"
Object.Width = 4304
EndProperty
End
Begin VB.Frame FrameCmd
BackColor = &H00D3DABC&
Caption = "操作"
Height = 1275
Index = 3
Left = 3390
TabIndex = 112
Top = 3210
Width = 3525
Begin XPControls.XPCommandButton cmdJYiSave
Height = 375
Left = 2190
TabIndex = 108
Top = 780
Width = 825
_ExtentX = 1455
_ExtentY = 661
Caption = "保 存"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdJYiModify
Height = 375
Left = 480
TabIndex = 107
Top = 780
Width = 825
_ExtentX = 1455
_ExtentY = 661
Caption = "修 改"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdJYiDelete
Height = 375
Left = 2190
TabIndex = 109
Top = 270
Width = 825
_ExtentX = 1455
_ExtentY = 661
Caption = "删 除"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdJYiAdd
Height = 375
Left = 480
TabIndex = 106
Top = 270
Width = 825
_ExtentX = 1455
_ExtentY = 661
Caption = "添 加"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame2
BackColor = &H00D3DABC&
Caption = "自定义建议信息"
Height = 2565
Index = 2
Left = 3390
TabIndex = 101
Top = 240
Width = 3525
Begin VB.TextBox txtJYiPYSX
Height = 300
Left = 1110
TabIndex = 103
Top = 745
Width = 1455
End
Begin VB.ComboBox cmbJYiSXH
Height = 315
Left = 1110
Style = 2 'Dropdown List
TabIndex = 104
Top = 1145
Width = 855
End
Begin VB.TextBox txtJYiDescription
Height = 885
Left = 1110
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 105
Top = 1560
Width = 2295
End
Begin VB.TextBox txtJYiName
Height = 315
Left = 1110
TabIndex = 102
Top = 330
Width = 2295
End
Begin VB.Label lblJYiPYSX
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "拼音简码："
Height = 195
Left = 120
TabIndex = 115
Top = 770
Width = 900
End
Begin VB.Label lblJYiSXH
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "显示顺序："
Height = 195
Left = 120
TabIndex = 114
Top = 1150
Width = 900
End
Begin VB.Label lblJYiDescription
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "描述："
Height = 195
Left = 480
TabIndex = 111
Top = 1530
Width = 540
End
Begin VB.Label lblJYiName
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "建议名称："
Height = 195
Left = 120
TabIndex = 110
Top = 390
Width = 900
End
End
End
Begin VB.Frame fraHealthIDShow
BackColor = &H00D3DABC&
Height = 4665
Left = -74820
TabIndex = 82
Top = 420
Width = 7065
Begin VB.Frame Frame8
BackColor = &H00D3DABC&
Caption = "生成科室小结的参数"
Height = 915
Left = 150
TabIndex = 118
Top = 3600
Width = 3525
Begin VB.CheckBox chkKSXJWithXMu
BackColor = &H00D3DABC&
Caption = "生成科室小结时带上项目名称"
Height = 405
Left = 150
TabIndex = 119
Top = 330
Width = 3105
End
End
Begin VB.Frame Frame7
BackColor = &H00D3DABC&
Caption = "身份证扫描与摄像"
Height = 825
Left = 3870
TabIndex = 116
Top = 2130
Width = 3045
Begin VB.CheckBox chkIDCard
BackColor = &H00D3DABC&
Caption = "启用身份证扫描与摄像"
Height = 495
Left = 360
TabIndex = 117
Top = 270
Width = 1725
End
End
Begin VB.Frame Frame5
BackColor = &H00D3DABC&
Caption = "生成总检结论的过滤设置"
Height = 1725
Left = 3870
TabIndex = 95
Top = 210
Width = 3045
Begin VB.CheckBox chkZCFilter
BackColor = &H00D3DABC&
Caption = "去掉“正常”"
Height = 315
Left = 360
TabIndex = 99
Top = 1010
Width = 2235
End
Begin VB.CheckBox chkNULLFilter
BackColor = &H00D3DABC&
Caption = "去掉空结论"
Height = 315
Left = 360
TabIndex = 98
Top = 1350
Width = 2235
End
Begin VB.CheckBox chkWJMXYCFilter
BackColor = &H00D3DABC&
Caption = "去掉“未见明显异常”"
Height = 315
Left = 360
TabIndex = 97
Top = 670
Width = 2235
End
Begin VB.CheckBox chkWJYCFilter
BackColor = &H00D3DABC&
Caption = "去掉“未见异常”"
Height = 315
Left = 360
TabIndex = 96
Top = 330
Width = 2235
End
End
Begin VB.Frame fraHealthIDSelect
BackColor = &H00D3DABC&
Caption = "档案号显示选择"
Height = 3105
Left = 150
TabIndex = 86
Top = 210
Width = 3525
Begin VB.Frame fraSelf
BackColor = &H00D3DABC&
Caption = "自定义设置"
Height = 1815
Left = 450
TabIndex = 89
Top = 1170
Width = 2865
Begin VB.Frame fraAuto
BackColor = &H00D3DABC&
Caption = "自动加1"
Height = 735
Left = 540
TabIndex = 92
Top = 960
Width = 2205
Begin VB.CheckBox chkFixedLength
BackColor = &H00D3DABC&
Caption = "固定长度"
Height = 315
Left = 180
TabIndex = 94
Top = 300
Width = 1095
End
Begin VB.TextBox txtFixedLength
Height = 315
Left = 1410
TabIndex = 93
Text = "5"
Top = 300
Width = 675
End
End
Begin VB.OptionButton optAuto
BackColor = &H00D3DABC&
Caption = "自动生成"
Height = 285
Left = 210
TabIndex = 91
Top = 660
Width = 1215
End
Begin VB.OptionButton optHand
BackColor = &H00D3DABC&
Caption = "手工输入"
Height = 285
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -