📄 frmpatientbaseinfo.frm
字号:
VERSION 5.00
Object = "{33E9552B-797C-11D2-900E-444553540000}#27.0#0"; "LSTCTL.OCX"
Object = "{3656C817-4709-11D2-900E-444553540000}#59.0#0"; "MAINTAINCTL.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmPatientBaseInfo
BorderStyle = 1 'Fixed Single
Caption = "病人基本信息"
ClientHeight = 2748
ClientLeft = 1212
ClientTop = 3840
ClientWidth = 6924
Icon = "frmPatientBaseInfo.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2748
ScaleWidth = 6924
Begin VB.Frame Frame1
Caption = "病人信息"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 2010
Left = 30
TabIndex = 6
Top = 210
Width = 6000
Begin VB.ComboBox cboPtID
BackColor = &H8000000A&
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "frmPatientBaseInfo.frx":0442
Left = 1170
List = "frmPatientBaseInfo.frx":0444
Style = 2 'Dropdown List
TabIndex = 3
Top = 900
Width = 1725
End
Begin VB.ComboBox cboSex
BackColor = &H8000000A&
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "frmPatientBaseInfo.frx":0446
Left = 1170
List = "frmPatientBaseInfo.frx":0450
TabIndex = 4
Text = "cboSex"
Top = 1470
Width = 1740
End
Begin VB.TextBox txtName
BackColor = &H8000000A&
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
IMEMode = 1 'ON
Left = 4110
TabIndex = 1
Text = "txtName"
Top = 300
Width = 1725
End
Begin VB.TextBox txtID
BackColor = &H8000000A&
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1170
TabIndex = 0
Text = "txtID"
Top = 300
Width = 1725
End
Begin MSMask.MaskEdBox MskBirthDate
Height = 345
Left = 4110
TabIndex = 5
Top = 1470
Width = 1725
_ExtentX = 3027
_ExtentY = 593
_Version = 393216
ClipMode = 1
BackColor = -2147483638
MaxLength = 10
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mask = "####-##-##"
PromptChar = " "
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "病人类型:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 12
Top = 960
Width = 945
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "出生日期:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3075
TabIndex = 11
Top = 1530
Width = 945
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "性 别:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 10
Top = 1530
Width = 945
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "病人姓名:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3075
TabIndex = 9
Top = 360
Width = 945
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "病 人 ID:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 8
Top = 360
Width = 945
End
End
Begin UseMaintainCtl.MaiControl Mcr
Height = 2760
Left = 6060
TabIndex = 7
Top = 0
Width = 915
_ExtentX = 1609
_ExtentY = 4868
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -