📄 医生.frm
字号:
End
Begin VB.Label Label7
Caption = "病人id"
Height = 255
Index = 1
Left = 240
TabIndex = 103
Top = 360
Width = 615
End
End
Begin VB.Frame Frame4
Caption = " 患者就诊后恢复情况信息"
Height = 1575
Left = 120
TabIndex = 71
Top = 9240
Width = 10335
Begin VB.ComboBox Combo2
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 2
ItemData = "医生.frx":0D3C
Left = 1200
List = "医生.frx":0F05
TabIndex = 79
Top = 240
Width = 855
End
Begin VB.ComboBox Combo3
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 2
ItemData = "医生.frx":1293
Left = 2520
List = "医生.frx":12BB
TabIndex = 78
Top = 240
Width = 735
End
Begin VB.ComboBox Combo4
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 2
ItemData = "医生.frx":12E6
Left = 3840
List = "医生.frx":1347
TabIndex = 77
Top = 240
Width = 735
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 495
Left = 6000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 76
Top = 240
Width = 4095
End
Begin VB.ComboBox Combo2
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 3
ItemData = "医生.frx":13BE
Left = 1200
List = "医生.frx":1587
TabIndex = 75
Top = 720
Width = 855
End
Begin VB.ComboBox Combo3
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 3
ItemData = "医生.frx":1915
Left = 2520
List = "医生.frx":193D
TabIndex = 74
Top = 720
Width = 735
End
Begin VB.ComboBox Combo4
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 3
ItemData = "医生.frx":1968
Left = 3840
List = "医生.frx":19C9
TabIndex = 73
Top = 720
Width = 735
End
Begin VB.TextBox Text23
Enabled = 0 'False
Height = 495
Left = 6000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 72
Top = 840
Width = 4095
End
Begin VB.Label Label31
Caption = "复诊日期"
Height = 255
Left = 120
TabIndex = 89
Top = 360
Width = 855
End
Begin VB.Label Label8
Caption = "年"
Height = 375
Index = 2
Left = 2160
TabIndex = 88
Top = 240
Width = 495
End
Begin VB.Label Label9
Caption = "月"
Height = 375
Index = 2
Left = 3480
TabIndex = 87
Top = 240
Width = 615
End
Begin VB.Label Label10
Caption = "日"
Height = 255
Index = 2
Left = 4680
TabIndex = 86
Top = 240
Width = 375
End
Begin VB.Label Label32
Caption = "恢复情况"
Height = 375
Left = 5160
TabIndex = 85
Top = 240
Width = 855
End
Begin VB.Label Label33
Caption = "下次就诊时间"
Height = 375
Left = 120
TabIndex = 84
Top = 840
Width = 1095
End
Begin VB.Label Label8
Caption = "年"
Height = 375
Index = 3
Left = 2280
TabIndex = 83
Top = 720
Width = 495
End
Begin VB.Label Label9
Caption = "月"
Height = 375
Index = 3
Left = 3480
TabIndex = 82
Top = 720
Width = 615
End
Begin VB.Label Label10
Caption = "日"
Height = 255
Index = 3
Left = 4680
TabIndex = 81
Top = 720
Width = 375
End
Begin VB.Label Label34
Caption = "注意事项"
Height = 375
Left = 5160
TabIndex = 80
Top = 960
Width = 735
End
End
Begin VB.Frame Frame3
Caption = "患者就诊信息"
Height = 5055
Left = 120
TabIndex = 34
Top = 4320
Width = 10335
Begin VB.TextBox Text7
Enabled = 0 'False
Height = 375
Left = 1320
TabIndex = 51
Top = 240
Width = 1815
End
Begin VB.ComboBox Combo4
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 1
ItemData = "医生.frx":1A40
Left = 7320
List = "医生.frx":1AA1
TabIndex = 50
Top = 240
Width = 735
End
Begin VB.ComboBox Combo3
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 1
ItemData = "医生.frx":1B18
Left = 6000
List = "医生.frx":1B40
TabIndex = 49
Top = 240
Width = 735
End
Begin VB.ComboBox Combo2
BeginProperty DataFormat
Type = 4
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 8
EndProperty
Enabled = 0 'False
Height = 300
Index = 1
ItemData = "医生.frx":1B6B
Left = 4440
List = "医生.frx":1D34
TabIndex = 48
Top = 240
Width = 975
End
Begin VB.TextBox Text8
Enabled = 0 'False
Height = 735
Left = 960
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 47
Top = 960
Width = 2175
End
Begin VB.TextBox Text9
Enabled = 0 'False
Height = 735
Left = 4320
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 46
Top = 960
Width = 2175
End
Begin VB.TextBox Text15
Enabled = 0 'False
Height = 735
Left = 7560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 45
Top = 960
Width = 2175
End
Begin VB.TextBox Text16
Enabled = 0 'False
Height = 615
Left = 960
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 44
Top = 2040
Width = 2175
End
Begin VB.TextBox Text17
Enabled = 0 'False
Height = 615
Left = 4320
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 43
Top = 2040
Width = 2175
End
Begin VB.TextBox Text18
Enabled = 0 'False
Height = 615
Left = 7560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 42
Top = 2040
Width = 2175
End
Begin VB.TextBox Text19
Enabled = 0 'False
Height = 735
Left = 960
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 41
Top = 2760
Width = 2175
End
Begin VB.TextBox Text20
Enabled = 0 'False
Height = 735
Left = 4320
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 40
Top = 2760
Width = 5415
End
Begin VB.TextBox Text5
Enabled = 0 'False
Height = 735
Index = 0
Left = 960
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 39
Top = 3600
Width = 2295
End
Begin VB.TextBox Text6
Enabled = 0 'False
Height = 735
Left = 4320
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 38
Top = 3600
Width = 2535
End
Begin VB.TextBox Text10
Enabled = 0 'False
Height = 735
Left = 7800
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 37
Top = 3600
Width = 1935
End
Begin VB.TextBox Text21
Enabled = 0 'False
Height = 270
Left = 960
TabIndex = 36
Top = 4560
Width = 1455
End
Begin VB.TextBox Text24
Enabled = 0 'False
Height = 270
Left = 3600
TabIndex = 35
Top = 4560
Width = 855
End
Begin VB.Label Label13
Caption = "就诊科室"
Height = 375
Left = 240
TabIndex = 70
Top = 360
Width = 855
End
Begin VB.Label Label14
Caption = "就诊日期"
Height = 375
Left = 3600
TabIndex = 69
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -