📄 first.frm
字号:
Left = 1920
TabIndex = 137
Top = 240
Width = 495
End
Begin VB.Label Label37
Caption = "项目"
Height = 255
Left = 120
TabIndex = 136
Top = 240
Width = 495
End
End
Begin VB.TextBox illman_chiefDoctor
Height = 270
IMEMode = 1 'ON
Left = -73440
TabIndex = 127
Top = 5940
Width = 1575
End
Begin VB.Frame Frame8
Caption = "病人基本信息"
Height = 1575
Left = 150
TabIndex = 73
Top = 480
Width = 10575
Begin VB.ComboBox illman_nation
Height = 300
ItemData = "First.frx":008C
Left = 1440
List = "First.frx":00A5
TabIndex = 320
Text = "汉族"
Top = 780
Width = 1005
End
Begin VB.ComboBox illman_employment
Height = 300
ItemData = "First.frx":00D7
Left = 4080
List = "First.frx":00ED
TabIndex = 319
Text = "农民"
Top = 540
Width = 975
End
Begin VB.TextBox illman_height
Height = 270
Left = 1440
TabIndex = 316
Top = 1080
Width = 615
End
Begin VB.TextBox illman_name
Height = 270
IMEMode = 1 'ON
Left = 1440
TabIndex = 309
Top = 240
Width = 975
End
Begin VB.ComboBox illman_marry
Height = 300
ItemData = "First.frx":0117
Left = 4080
List = "First.frx":0121
TabIndex = 79
Text = "已婚"
Top = 840
Width = 975
End
Begin VB.ComboBox illman_sex
Height = 300
ItemData = "First.frx":0131
Left = 4080
List = "First.frx":013B
TabIndex = 78
Text = "男"
Top = 240
Width = 975
End
Begin VB.TextBox illman_native_place
Height = 270
IMEMode = 1 'ON
Left = 6720
TabIndex = 77
Top = 240
Width = 3615
End
Begin VB.TextBox illman_nowLiveAddr
Height = 270
IMEMode = 1 'ON
Left = 6720
TabIndex = 76
Top = 540
Width = 3615
End
Begin VB.TextBox illman_age
Height = 270
Left = 1440
TabIndex = 75
Top = 520
Width = 975
End
Begin VB.TextBox illman_telephone
Height = 270
Left = 6720
TabIndex = 74
Top = 840
Width = 3615
End
Begin VB.Label tallLabe
Caption = "身高"
Height = 255
Left = 480
TabIndex = 318
Top = 1080
Width = 375
End
Begin VB.Label Label61
Caption = "M"
Height = 255
Index = 1
Left = 2160
TabIndex = 317
Top = 1200
Width = 135
End
Begin VB.Label Label88
Caption = "籍贯"
Height = 225
Left = 5760
TabIndex = 88
Top = 240
Width = 375
End
Begin VB.Label Label87
Caption = "现住址"
Height = 240
Left = 5760
TabIndex = 87
Top = 525
Width = 615
End
Begin VB.Label Label85
Alignment = 2 'Center
Caption = "婚否"
Height = 255
Left = 3360
TabIndex = 86
Top = 840
Width = 375
End
Begin VB.Label Label84
Alignment = 2 'Center
Caption = "民族"
Height = 240
Left = 480
TabIndex = 85
Top = 805
Width = 375
End
Begin VB.Label Label83
Alignment = 2 'Center
Caption = "职业"
Height = 240
Left = 3360
TabIndex = 84
Top = 540
Width = 375
End
Begin VB.Label Label82
Alignment = 2 'Center
Caption = "年龄"
Height = 240
Left = 480
TabIndex = 83
Top = 530
Width = 375
End
Begin VB.Label Label81
Alignment = 2 'Center
Caption = "性别"
Height = 240
Left = 3360
TabIndex = 82
Top = 240
Width = 375
End
Begin VB.Label Label80
Caption = "姓名"
Height = 255
Left = 480
TabIndex = 81
Top = 240
Width = 495
End
Begin VB.Label Label124
Caption = "联系电话"
Height = 255
Left = 5760
TabIndex = 80
Top = 840
Width = 735
End
End
Begin VB.ComboBox other_case
Height = 300
Left = -66600
TabIndex = 71
Text = "Combo5"
Top = 720
Visible = 0 'False
Width = 1455
End
Begin VB.Frame Frame13
Caption = "舌、脉"
Height = 1095
Left = -74640
TabIndex = 64
Top = 1320
Visible = 0 'False
Width = 3135
Begin VB.ComboBox illman_maixiang
Height = 300
Left = 2160
TabIndex = 67
Top = 240
Width = 855
End
Begin VB.ComboBox illman_shetai
Height = 300
Left = 600
TabIndex = 66
Top = 600
Width = 975
End
Begin VB.ComboBox illman_shezhi
Height = 300
Left = 600
TabIndex = 65
Top = 240
Width = 975
End
Begin VB.Label Label117
Caption = "脉象"
Height = 255
Left = 1680
TabIndex = 70
Top = 360
Width = 375
End
Begin VB.Label Label116
Caption = "舌苔"
Height = 255
Left = 120
TabIndex = 69
Top = 720
Width = 375
End
Begin VB.Label Label118
Caption = "舌质"
Height = 255
Left = 120
TabIndex = 68
Top = 360
Width = 495
End
End
Begin VB.Frame Frame14
Caption = "体重指数"
Height = 615
Left = -74640
TabIndex = 57
Top = 600
Visible = 0 'False
Width = 3135
Begin VB.TextBox tz_Text
Height = 270
Index = 0
Left = 480
TabIndex = 59
Top = 240
Width = 615
End
Begin VB.TextBox tz_Text
Height = 270
Index = 1
Left = 2040
TabIndex = 58
Top = 240
Width = 615
End
Begin VB.Label Label121
Caption = "原"
Height = 255
Left = 120
TabIndex = 63
Top = 240
Width = 255
End
Begin VB.Label Label119
Caption = "kg"
Height = 255
Left = 1200
TabIndex = 62
Top = 240
Width = 255
End
Begin VB.Label Label120
Caption = "现"
Height = 255
Left = 1680
TabIndex = 61
Top = 240
Width = 255
End
Begin VB.Label Label122
Caption = "kg"
Height = 255
Left = 2760
TabIndex = 60
Top = 240
Width = 255
End
End
Begin VB.Frame Frame15
Caption = "综合症状"
Height = 2895
Left = -74640
TabIndex = 28
Top = 3720
Visible = 0 'False
Width = 5655
Begin VB.CheckBox Check
Caption = "胁痛"
Height = 255
Index = 18
Left = 840
TabIndex = 56
Top = 2520
Width = 735
End
Begin VB.CheckBox Check
Caption = "皮肤瘙痒"
Height = 255
Index = 27
Left = 3120
TabIndex = 55
Top = 1980
Width = 1095
End
Begin VB.CheckBox Check
Caption = "视物不清"
Height = 255
Index = 26
Left = 3120
TabIndex = 54
Top = 1440
Width = 1095
End
Begin VB.CheckBox Check
Caption = "腰酸"
Height = 255
Index = 25
Left = 120
TabIndex = 53
Top = 2520
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -