?? frmsick_tnb_main.frm
字號:
Begin VB.Frame Frame11
Caption = "診斷："
Height = 585
Left = 150
TabIndex = 65
Top = 3870
Width = 10125
Begin VB.ComboBox CmbChina_diagnose
Height = 300
IMEMode = 2 'OFF
Left = 870
TabIndex = 67
Top = 180
Width = 4185
End
Begin VB.ComboBox CmbWestern_diagnose
Height = 300
IMEMode = 2 'OFF
ItemData = "FrmSick_Tnb_main.frx":0406
Left = 5910
List = "FrmSick_Tnb_main.frx":0410
TabIndex = 66
Top = 180
Width = 4065
End
Begin VB.Label Label98
AutoSize = -1 'True
Caption = "中醫診斷"
Height = 180
Left = 120
TabIndex = 69
Top = 240
Width = 720
End
Begin VB.Label Label105
AutoSize = -1 'True
Caption = "西醫診斷"
Height = 180
Left = 5160
TabIndex = 68
Top = 240
Width = 720
End
End
Begin VB.TextBox TxtNumber
Height = 300
Left = 3480
TabIndex = 64
Top = 180
Width = 1605
End
Begin VB.TextBox TxtCourse
Height = 300
IMEMode = 1 'ON
Left = 6090
MultiLine = -1 'True
TabIndex = 63
Top = 180
Width = 4185
End
Begin MSComCtl2.DTPicker DtpSeeDcotordate
Height = 300
Left = 870
TabIndex = 73
Top = 180
Width = 1305
_ExtentX = 2302
_ExtentY = 529
_Version = 393216
Format = 24444929
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":042C
Left = 6480
List = "FrmSick_Tnb_main.frx":0448
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":0480
Left = 1590
List = "FrmSick_Tnb_main.frx":049C
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":04D4
Left = 6480
List = "FrmSick_Tnb_main.frx":04F0
Style = 2 'Dropdown List
TabIndex = 28
Top = 4095
Width = 3255
End
Begin VB.ComboBox CmbYbDW1
BeginProperty Font
Name = "宋體"
Size = 12
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -