📄 frmsick_tnb_main.frm
字号:
_ExtentY = 529
_Version = 393216
Format = 68616193
CurrentDate = 38716
End
Begin VB.Label Label1
Caption = "处理内容"
Height = 255
Left = 120
TabIndex = 108
Top = 4590
Width = 735
End
Begin VB.Label Label106
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "医师"
Height = 180
Left = 8700
TabIndex = 107
Top = 5760
Width = 375
End
Begin VB.Label Label89
AutoSize = -1 'True
Caption = "主诉:"
Height = 180
Left = 315
TabIndex = 83
Top = 510
Width = 540
End
Begin VB.Label Label90
AutoSize = -1 'True
Caption = "现病史:"
Height = 180
Left = 135
TabIndex = 82
Top = 1530
Width = 720
End
Begin VB.Label Label91
AutoSize = -1 'True
Caption = "最高血糖值"
Height = 180
Left = 870
TabIndex = 81
Top = 1260
Width = 900
End
Begin VB.Label Label92
AutoSize = -1 'True
Caption = "mmol/l"
Height = 180
Left = 2550
TabIndex = 80
Top = 1260
Width = 540
End
Begin VB.Label Label93
AutoSize = -1 'True
Caption = "是否用过胰岛素:"
Height = 180
Left = 3510
TabIndex = 79
Top = 1260
Width = 1440
End
Begin VB.Label Label95
AutoSize = -1 'True
Caption = "既往史:"
Height = 180
Left = 135
TabIndex = 78
Top = 2220
Width = 720
End
Begin VB.Label Label96
AutoSize = -1 'True
Caption = "家族史:"
Height = 180
Left = 150
TabIndex = 77
Top = 2970
Width = 720
End
Begin VB.Label Label77
Caption = "就诊时间"
Height = 255
Left = 120
TabIndex = 76
Top = 203
Width = 735
End
Begin VB.Label Label79
Alignment = 2 'Center
Caption = "病历号:"
Height = 255
Left = 2790
TabIndex = 75
Top = 210
Width = 735
End
Begin VB.Label Label86
AutoSize = -1 'True
Caption = "病程"
Height = 180
Left = 5700
TabIndex = 74
Top = 240
Width = 360
End
End
Begin VB.CommandButton CmdBaseSave
Caption = "保存[&S]"
Height = 405
Left = -64320
TabIndex = 61
Top = 5340
Width = 1155
End
Begin VB.CommandButton CmdExit
Caption = "退出[&E]"
Height = 405
Index = 0
Left = -64320
TabIndex = 60
Top = 5760
Width = 1155
End
Begin VB.Frame Frame6
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6135
Left = -74850
TabIndex = 7
Top = 30
Width = 10365
Begin VB.TextBox TxtSSM
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3840
TabIndex = 112
Top = 900
Width = 1005
End
Begin VB.TextBox TxtDaH
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1590
TabIndex = 32
Tag = "建档日期"
Top = 480
Width = 3255
End
Begin VB.TextBox TxtSfZh
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6480
TabIndex = 31
Top = 480
Width = 3255
End
Begin VB.ComboBox CmbYbDW4
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmSick_Tnb_main.frx":0410
Left = 6480
List = "FrmSick_Tnb_main.frx":042C
Style = 2 'Dropdown List
TabIndex = 30
Top = 4485
Width = 3255
End
Begin VB.ComboBox CmbYbDW3
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmSick_Tnb_main.frx":0464
Left = 1590
List = "FrmSick_Tnb_main.frx":0480
Style = 2 'Dropdown List
TabIndex = 29
Top = 4485
Width = 3255
End
Begin VB.ComboBox CmbYbDW2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmSick_Tnb_main.frx":04B8
Left = 6480
List = "FrmSick_Tnb_main.frx":04D4
Style = 2 'Dropdown List
TabIndex = 28
Top = 4095
Width = 3255
End
Begin VB.ComboBox CmbYbDW1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmSick_Tnb_main.frx":050C
Left = 1590
List = "FrmSick_Tnb_main.frx":0528
Style = 2 'Dropdown List
TabIndex = 27
Top = 4095
Width = 3255
End
Begin VB.ComboBox CmbXb
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmSick_Tnb_main.frx":0540
Left = 6480
List = "FrmSick_Tnb_main.frx":054D
Style = 2 'Dropdown List
TabIndex = 26
Top = 885
Width = 3255
End
Begin VB.TextBox TxtYbh
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6480
TabIndex = 25
Top = 3690
Width = 3255
End
Begin VB.ComboBox CmbJtZz
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1590
Style = 1 'Simple Combo
TabIndex = 24
Top = 2880
Width = 3255
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -