📄 dlgaffirm.frm
字号:
Left = 4500
TabIndex = 23
Top = 120
Width = 9480
Begin VB.TextBox Text1
Height = 315
Left = 3480
TabIndex = 77
Top = 300
Width = 1575
End
Begin VB.TextBox txt_p
Height = 315
Left = 3540
TabIndex = 75
Top = 1560
Width = 1215
End
Begin VB.TextBox TxtCXM
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 2
Top = 732
Width = 2160
End
Begin VB.TextBox TxtGBeiZhu
Height = 285
Left = 1470
TabIndex = 19
Top = 7470
Width = 3420
End
Begin VB.TextBox txtSerialNum
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 21
Top = 315
Width = 1140
End
Begin VB.TextBox txtHealthID
Enabled = 0 'False
Height = 300
Left = 720
TabIndex = 3
Top = -270
Visible = 0 'False
Width = 2160
End
Begin VB.Frame Frame5
BackColor = &H00D3DABC&
Caption = "项目选择"
Height = 7560
Left = 5070
TabIndex = 26
Top = 210
Width = 4215
Begin VB.ComboBox cmbGTCan
Enabled = 0 'False
Height = 315
Left = 1155
Style = 2 'Dropdown List
TabIndex = 28
Top = 7140
Width = 2865
End
Begin MSComctlLib.TreeView tvwGDXiang
Height = 6585
Left = 180
TabIndex = 27
Top = 240
Width = 3840
_ExtentX = 6773
_ExtentY = 11615
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
LineStyle = 1
Style = 7
Checkboxes = -1 'True
Appearance = 1
End
Begin VB.Label lblCurrentPrice
BackStyle = 0 'Transparent
Height = 255
Left = 180
TabIndex = 72
Top = 6840
Width = 3495
End
Begin VB.Label lblGInfo
BackStyle = 0 'Transparent
Height = 480
Left = 330
TabIndex = 30
Top = 4020
Width = 2985
End
Begin VB.Label Label65
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "体检套餐："
Height = 345
Left = 180
TabIndex = 29
Top = 7200
Width = 915
End
End
Begin VB.TextBox txtGYYID
Enabled = 0 'False
Height = 300
Left = 4950
TabIndex = 25
Top = 135
Visible = 0 'False
Width = 1740
End
Begin VB.TextBox txtGYYRXM
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 5
Top = 1566
Width = 1260
End
Begin VB.TextBox txtGYYRJTDH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 12
Top = 4545
Width = 2160
End
Begin VB.TextBox txtGYYRBGDH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 13
Top = 4962
Width = 2160
End
Begin VB.TextBox txtGYYRYDDH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 14
Top = 5379
Width = 2160
End
Begin VB.TextBox txtGLXDZ
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 18
Top = 7047
Width = 2190
End
Begin VB.TextBox txtGYZBM
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 16
Top = 6198
Width = 2160
End
Begin VB.TextBox txtGYYRSFZH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 11
Top = 4125
Width = 2160
End
Begin VB.TextBox txtGAGE
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 10
Top = 3711
Width = 705
End
Begin VB.ComboBox cmbGSEX
Enabled = 0 'False
Height = 315
ItemData = "dlgAffirm.frx":1982
Left = 1470
List = "dlgAffirm.frx":198C
Style = 2 'Dropdown List
TabIndex = 8
Top = 2847
Width = 960
End
Begin VB.ComboBox cmbGHF
Enabled = 0 'False
Height = 315
ItemData = "dlgAffirm.frx":1998
Left = 1470
List = "dlgAffirm.frx":19A2
Style = 2 'Dropdown List
TabIndex = 9
Top = 3279
Width = 960
End
Begin VB.ComboBox cmbGDWei
Enabled = 0 'False
Height = 315
Left = 1470
Style = 2 'Dropdown List
TabIndex = 6
Top = 1983
Width = 2160
End
Begin VB.TextBox txtGEMail
Enabled = 0 'False
Height = 285
Left = 1470
TabIndex = 15
Top = 5796
Width = 2160
End
Begin VB.TextBox TxtGSelfBH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 4
Top = 1149
Width = 2160
End
Begin VB.TextBox txtTJXH
Enabled = 0 'False
Height = 300
Left = 3840
TabIndex = 24
Top = -60
Visible = 0 'False
Width = 1740
End
Begin VB.ComboBox CmbFZ
Enabled = 0 'False
Height = 315
Left = 1470
Style = 2 'Dropdown List
TabIndex = 7
Top = 2415
Width = 2160
End
Begin MSComCtl2.DTPicker dtpGTJRQ
Height = 315
Left = 1470
TabIndex = 17
Top = 6615
Width = 2160
_ExtentX = 3810
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 61603841
CurrentDate = 37993
MaxDate = 109939
MinDate = 2
End
Begin XPControls.XPCommandButton cmdPrintBarCode
Height = 285
Left = 3660
TabIndex = 65
Top = 1140
Visible = 0 'False
Width = 1125
_ExtentX = 1984
_ExtentY = 503
Caption = "打印(条形码)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label4
BackColor = &H00D3DABC&
Caption = "医疗号"
Height = 255
Left = 2820
TabIndex = 78
Top = 360
Width = 615
End
Begin VB.Label Label3
BackColor = &H00D3DABC&
Caption = "拼音全称"
ForeColor = &H0000C000&
Height = 255
Left = 2760
TabIndex = 74
Top = 1620
Width = 795
End
Begin VB.Label Label40
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "查询码："
Height = 255
Index = 2
Left = 15
TabIndex = 61
Top = 795
Width = 1365
End
Begin VB.Label Label23
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "备注："
Height = 255
Left = 15
TabIndex = 60
Top = 7515
Width = 1365
End
Begin VB.Label Label40
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "体检序号："
Height = 255
Index = 1
Left = 15
TabIndex = 59
Top = 375
Width = 1365
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "档案号："
Height = 255
Index = 1
Left = -735
TabIndex = 58
Top = -195
Width = 1365
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "系统档案号："
Height = 255
Index = 0
Left = 3540
TabIndex = 49
Top = 180
Visible = 0 'False
Width = 1425
End
Begin VB.Label Label21
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "姓名："
ForeColor = &H0000C000&
Height = 255
Left = 15
TabIndex = 48
Top = 1635
Width = 1365
End
Begin VB.Label Label24
Alignment = 1 'Right Justify
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -