📄 frmrxpc_main.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmRxpc_Main
BorderStyle = 0 'None
Caption = "乳腺检查"
ClientHeight = 24180
ClientLeft = 15
ClientTop = 15
ClientWidth = 9435
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmRxpc_Main.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 24180
ScaleWidth = 9435
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton CmdDel
BackColor = &H00FFC0C0&
Caption = "删除[&D]"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1650
Style = 1 'Graphical
TabIndex = 50
Top = 6900
Width = 1215
End
Begin VB.CommandButton CmdNew
BackColor = &H00FFC0C0&
Caption = "新增[&N]"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 270
Style = 1 'Graphical
TabIndex = 77
Top = 6900
Width = 1215
End
Begin VB.CommandButton CmdExit
BackColor = &H00FFC0C0&
Caption = "退出[&E]"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7860
Style = 1 'Graphical
TabIndex = 49
Top = 6900
Width = 1215
End
Begin VB.CommandButton CmdSeek
BackColor = &H00FFC0C0&
Caption = "查询[&F]"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4170
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 48
Top = 6900
Width = 1215
End
Begin VB.CommandButton CmdUpdate
BackColor = &H00FFC0C0&
Caption = "修改[&R]"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5550
Style = 1 'Graphical
TabIndex = 47
Top = 6900
Width = 1215
End
Begin VB.PictureBox PicMain
BackColor = &H00FFC0C0&
Height = 23790
Left = 0
ScaleHeight = 23730
ScaleWidth = 9375
TabIndex = 51
Top = 360
Width = 9435
Begin VB.VScrollBar VScMain
Height = 6285
LargeChange = 6000
Left = 9060
SmallChange = 1000
TabIndex = 126
Top = 90
Width = 255
End
Begin VB.PictureBox PicMove
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 23450
Left = 0
ScaleHeight = 23445
ScaleWidth = 8985
TabIndex = 52
Top = 270
Width = 8985
Begin VB.Frame Frame3
BackColor = &H00FFC0C0&
Height = 675
Left = 120
TabIndex = 205
Top = 22530
Width = 8835
Begin VB.ComboBox Cmbfdcdoctor
Height = 330
Left = 1470
Style = 2 'Dropdown List
TabIndex = 206
Top = 240
Width = 1485
End
Begin MSComCtl2.DTPicker Dtpfddpcdate
Height = 330
Left = 4320
TabIndex = 207
Top = 240
Width = 1815
_ExtentX = 3201
_ExtentY = 582
_Version = 393216
CalendarBackColor= 16761024
CalendarForeColor= 0
CalendarTitleBackColor= 33023
CalendarTitleForeColor= 0
CalendarTrailingForeColor= 255
Format = 24510464
CurrentDate = 38197
End
Begin VB.Label LabTitle
AutoSize = -1 'True
BackColor = &H00FFC0C0&
Caption = "日期"
ForeColor = &H00C00000&
Height = 210
Index = 127
Left = 3750
TabIndex = 209
Top = 300
Width = 420
End
Begin VB.Label LabTitle
AutoSize = -1 'True
BackColor = &H00FFC0C0&
Caption = "医生"
ForeColor = &H00C00000&
Height = 210
Index = 126
Left = 840
TabIndex = 208
Top = 300
Width = 420
End
End
Begin VB.Frame Frame2
BackColor = &H00FFC0C0&
Caption = "8、锁骨上淋巴结"
ForeColor = &H00FF0000&
Height = 645
Left = 120
TabIndex = 198
Top = 18690
Width = 8835
Begin VB.ComboBox CmbfdcclaviceleL
Height = 330
Left = 1920
Style = 2 'Dropdown List
TabIndex = 200
Top = 210
Width = 1605
End
Begin VB.ComboBox CmbfdcclaviceleR
Height = 330
Left = 5580
Style = 2 'Dropdown List
TabIndex = 199
Top = 210
Width = 1605
End
Begin VB.Label LabTitle
BackColor = &H00FFC0C0&
Caption = "右：锁骨淋巴结"
Height = 210
Index = 88
Left = 3990
TabIndex = 202
Top = 300
Width = 1470
End
Begin VB.Label LabTitle
BackColor = &H00FFC0C0&
Caption = "左：锁骨淋巴结"
Height = 210
Index = 90
Left = 330
TabIndex = 201
Top = 300
Width = 1470
End
End
Begin VB.Frame Frame1
BackColor = &H00FFC0C0&
Caption = "7、腋淋巴结"
ForeColor = &H00FF0000&
Height = 675
Left = 120
TabIndex = 193
Top = 17940
Width = 8835
Begin VB.ComboBox CmbfdcarmpitL
Height = 330
Left = 1920
Style = 2 'Dropdown List
TabIndex = 195
Top = 240
Width = 1605
End
Begin VB.ComboBox CmbfdcarmpitR
Height = 330
Left = 5550
Style = 2 'Dropdown List
TabIndex = 194
Top = 240
Width = 1605
End
Begin VB.Label LabTitle
BackColor = &H00FFC0C0&
Caption = "右：腋淋巴结"
Height = 210
Index = 91
Left = 3990
TabIndex = 197
Top = 300
Width = 1350
End
Begin VB.Label LabTitle
BackColor = &H00FFC0C0&
Caption = "左：腋淋巴结"
Height = 210
Index = 92
Left = 330
TabIndex = 196
Top = 300
Width = 1410
End
End
Begin VB.CheckBox ChkfdbfitMamma
BackColor = &H00FFC0C0&
ForeColor = &H00FF0000&
Height = 210
Left = 1050
TabIndex = 192
Top = 17640
Width = 255
End
Begin VB.Frame FramTmp
BackColor = &H00FFC0C0&
Height = 6615
Index = 10
Left = 120
TabIndex = 104
Top = 0
Width = 8835
Begin VB.ComboBox CmbFdcFeedHabit
Height = 330
Left = 2460
Style = 2 'Dropdown List
TabIndex = 16
Top = 5805
Width = 2835
End
Begin VB.ComboBox CmbfdcrxMarryID
Height = 330
Left = 2460
Style = 2 'Dropdown List
TabIndex = 12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -