📄 frmdrreg.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmDrReg
BackColor = &H00E6DCBC&
BorderStyle = 0 'None
Caption = "登记"
ClientHeight = 8355
ClientLeft = 0
ClientTop = 0
ClientWidth = 12855
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 8355
ScaleWidth = 12855
ShowInTaskbar = 0 'False
Begin VB.Frame frmResult
BackColor = &H00E6DCBC&
Height = 8250
Left = 0
TabIndex = 0
Top = 0
Width = 12735
Begin VB.Frame frmCheck
BackColor = &H00E6DCBC&
Caption = "检 查"
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 5550
Left = 45
TabIndex = 34
Top = 2535
Width = 12690
Begin MSComCtl2.UpDown upDownFee
Height = 450
Left = 3225
TabIndex = 48
Top = 2325
Width = 240
_ExtentX = 423
_ExtentY = 794
_Version = 393216
Enabled = -1 'True
End
Begin VB.ComboBox cmbGosage
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmDrReg.frx":0000
Left = 1470
List = "frmDrReg.frx":0007
TabIndex = 13
Text = "cmbGosage"
Top = 3480
Width = 2055
End
Begin VB.ComboBox cmbAgensName
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmDrReg.frx":0012
Left = 1470
List = "frmDrReg.frx":0019
TabIndex = 12
Text = "cmbAgensName"
Top = 2925
Width = 2055
End
Begin VB.CommandButton btnAddParts
Caption = ">添加>"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1995
Left = 3930
TabIndex = 15
Top = 945
Width = 420
End
Begin VB.ComboBox cmbCharge
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1470
Style = 1 'Simple Combo
TabIndex = 11
Text = "cmbCharge"
Top = 2355
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "取消"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 8205
TabIndex = 24
Top = 4635
Width = 1440
End
Begin VB.TextBox txtFee
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 1470
MaxLength = 8
TabIndex = 14
Text = "0"
Top = 3975
Width = 2055
End
Begin VB.ComboBox cmbApplyDepartmentID
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 11505
Style = 2 'Dropdown List
TabIndex = 36
Top = 2355
Visible = 0 'False
Width = 615
End
Begin VB.ComboBox cmbApplyDoctorName
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 9705
Style = 2 'Dropdown List
TabIndex = 21
Top = 2925
Width = 1905
End
Begin VB.ComboBox cmbApplyDoctorID
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 11520
Style = 2 'Dropdown List
TabIndex = 35
Top = 2925
Visible = 0 'False
Width = 615
End
Begin VB.ComboBox cmbApplyDepartment
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 9705
Style = 2 'Dropdown List
TabIndex = 20
Top = 2355
Width = 1905
End
Begin VB.TextBox txtBedNumber
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 9705
MaxLength = 50
TabIndex = 19
Top = 1770
Width = 1905
End
Begin VB.ComboBox cmbState
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 9705
Style = 2 'Dropdown List
TabIndex = 17
Top = 585
Width = 1905
End
Begin VB.ComboBox cmbCheckPart1
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1470
Style = 2 'Dropdown List
TabIndex = 8
Top = 1185
Width = 2055
End
Begin VB.ComboBox cmbCheckPart2
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmDrReg.frx":0028
Left = 1470
List = "frmDrReg.frx":002A
Style = 2 'Dropdown List
TabIndex = 9
Top = 1770
Width = 2055
End
Begin VB.ComboBox cmbCheckMethod
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmDrReg.frx":002C
Left = 1470
List = "frmDrReg.frx":0039
TabIndex = 10
Text = "cmbCheckMethod"
Top = 585
Width = 2055
End
Begin VB.ListBox lstCheck
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2910
Left = 4530
TabIndex = 16
Top = 945
Width = 3495
End
Begin VB.TextBox txtHospitalNumber
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 9705
MaxLength = 50
TabIndex = 18
Top = 1185
Width = 1905
End
Begin VB.CommandButton btnSave
Caption = "保存"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 6645
TabIndex = 23
Top = 4635
Width = 1440
End
Begin VB.CommandButton btnExit
Caption = "返回"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -