📄 formfzdj.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Formfzbl
Caption = "糖尿病医院复诊病历"
ClientHeight = 9810
ClientLeft = 60
ClientTop = 345
ClientWidth = 14535
LinkTopic = "Form2"
ScaleHeight = 9810
ScaleWidth = 14535
StartUpPosition = 3 '窗口缺省
Begin TabDlg.SSTab candy_stale_ill_resee
Height = 9615
Left = 0
TabIndex = 0
Top = 120
Width = 14535
_ExtentX = 25638
_ExtentY = 16960
_Version = 393216
Tabs = 2
Tab = 1
TabHeight = 520
TabCaption(0) = "病人信息"
TabPicture(0) = "Formfzdj.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Label55"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label56"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label57"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "tallLabe"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label59"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label60"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label61"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "illman_name"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "illman_age"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "illman_height"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "illman_recordsON"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "illman_number"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "illman_sex"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "MSFlexGrid1"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "illman_query"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).ControlCount= 15
TabCaption(1) = "病情基本信息"
TabPicture(1) = "Formfzdj.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Frame1"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "quit"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "affirm_fillin"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "cler_fillin"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
Begin VB.CommandButton cler_fillin
Caption = "清除"
Height = 375
Left = 7680
TabIndex = 183
Top = 9120
Width = 855
End
Begin VB.CommandButton affirm_fillin
Caption = "确认复诊结果"
Height = 375
Left = 9240
TabIndex = 181
Top = 9120
Width = 1455
End
Begin VB.CommandButton quit
Caption = "退出"
Height = 375
Left = 6480
TabIndex = 180
Top = 9120
Width = 735
End
Begin VB.CommandButton illman_query
Caption = "查询"
Height = 375
Left = -62640
TabIndex = 179
Top = 720
Width = 855
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 8295
Left = -74880
TabIndex = 177
Top = 1200
Width = 14295
_ExtentX = 25215
_ExtentY = 14631
_Version = 393216
End
Begin VB.ComboBox illman_sex
Height = 300
ItemData = "Formfzdj.frx":0038
Left = -72120
List = "Formfzdj.frx":0042
TabIndex = 151
Text = "男"
Top = 720
Width = 735
End
Begin VB.TextBox illman_number
Height = 375
Left = -64560
TabIndex = 150
Top = 720
Width = 975
End
Begin VB.TextBox illman_recordsON
Height = 390
Left = -66600
TabIndex = 148
Top = 720
Width = 1095
End
Begin VB.TextBox illman_height
Height = 375
Left = -68760
TabIndex = 146
Top = 720
Width = 615
End
Begin VB.TextBox illman_age
Height = 375
Left = -70440
TabIndex = 144
Top = 720
Width = 735
End
Begin VB.TextBox illman_name
Height = 375
Left = -74280
TabIndex = 141
Top = 720
Width = 1215
End
Begin VB.Frame Frame1
Caption = "疾病详情"
Height = 8655
Left = 120
TabIndex = 1
Top = 360
Width = 14295
Begin VB.ComboBox illman_other_case
Height = 300
Left = 8280
TabIndex = 178
Text = "Combo5"
Top = 240
Width = 1455
End
Begin VB.Frame Frame12
Caption = "血糖（mmol/l）"
Height = 1335
Left = 240
TabIndex = 168
Top = 1080
Width = 3135
Begin VB.TextBox xt_Text
Height = 270
Index = 3
Left = 1800
TabIndex = 176
Top = 840
Width = 975
End
Begin VB.TextBox xt_Text
Height = 270
Index = 2
Left = 1800
TabIndex = 175
Top = 360
Width = 975
End
Begin VB.TextBox xt_Text
Height = 270
Index = 1
Left = 480
TabIndex = 174
Top = 840
Width = 855
End
Begin VB.TextBox xt_Text
Height = 270
Index = 0
Left = 480
TabIndex = 173
Top = 360
Width = 855
End
Begin VB.Label Label114
Caption = "1h"
Height = 255
Left = 1560
TabIndex = 172
Top = 840
Width = 255
End
Begin VB.Label Label113
Caption = "2h"
Height = 255
Left = 240
TabIndex = 171
Top = 840
Width = 255
End
Begin VB.Label Label112
Caption = "3h"
Height = 255
Left = 1560
TabIndex = 170
Top = 360
Width = 255
End
Begin VB.Label Label111
Caption = "oh"
Height = 255
Left = 240
TabIndex = 169
Top = 360
Width = 255
End
End
Begin VB.Frame Frame11
Caption = "舌、脉"
Height = 1095
Left = 240
TabIndex = 161
Top = 2520
Width = 3135
Begin VB.ComboBox sm_Combo
Height = 300
Index = 1
Left = 2160
TabIndex = 167
Top = 240
Width = 855
End
Begin VB.ComboBox sm_Combo
Height = 300
Index = 2
Left = 600
TabIndex = 166
Top = 600
Width = 975
End
Begin VB.ComboBox sm_Combo
Height = 300
Index = 0
Left = 600
TabIndex = 165
Top = 240
Width = 975
End
Begin VB.Label Label117
Caption = "脉象"
Height = 255
Left = 1680
TabIndex = 164
Top = 360
Width = 375
End
Begin VB.Label Label116
Caption = "舌苔"
Height = 255
Left = 120
TabIndex = 163
Top = 720
Width = 375
End
Begin VB.Label Label115
Caption = "舌质"
Height = 255
Left = 120
TabIndex = 162
Top = 360
Width = 495
End
End
Begin VB.Frame Frame10
Caption = "体重指数"
Height = 735
Left = 240
TabIndex = 154
Top = 3720
Width = 3135
Begin VB.TextBox tz_Text
Height = 270
Index = 0
Left = 480
TabIndex = 156
Top = 240
Width = 615
End
Begin VB.TextBox tz_Text
Height = 270
Index = 1
Left = 2040
TabIndex = 155
Top = 240
Width = 615
End
Begin VB.Label Label121
Caption = "原"
Height = 255
Left = 120
TabIndex = 160
Top = 240
Width = 255
End
Begin VB.Label Label1
Caption = "kg"
Height = 255
Left = 1200
TabIndex = 159
Top = 240
Width = 255
End
Begin VB.Label Label2
Caption = "现"
Height = 255
Left = 1680
TabIndex = 158
Top = 240
Width = 255
End
Begin VB.Label Label3
Caption = "kg"
Height = 255
Left = 2760
TabIndex = 157
Top = 240
Width = 255
End
End
Begin MSComCtl2.DTPicker reseedoctordata
Height = 375
Left = 1680
TabIndex = 153
Top = 480
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
Format = 24510465
CurrentDate = 38719
End
Begin VB.Frame Frame9
Caption = "处理"
Height = 6615
Left = 6600
TabIndex = 62
Top = 1920
Width = 6975
Begin VB.TextBox doctorer
Height = 270
Index = 6
Left = 1920
TabIndex = 88
Top = 6120
Width = 2295
End
Begin VB.TextBox yd_power
Height = 270
Left = 1920
TabIndex = 87
Top = 5760
Width = 1455
End
Begin VB.TextBox ydsj_Check
Height = 270
Index = 4
Left = 3360
TabIndex = 86
Top = 5280
Width = 375
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -