📄 frmaffirmlvw.frm
字号:
VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "ReSize32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Begin VB.Form FrmAffirmLvw
BackColor = &H00D3DABC&
Caption = "体检登记"
ClientHeight = 8985
ClientLeft = 450
ClientTop = 1515
ClientWidth = 13860
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmAffirmLvw.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 8985
ScaleWidth = 13860
WindowState = 2 'Maximized
Begin VB.Frame fraGRen
BackColor = &H00D3DABC&
Caption = "个人信息"
Height = 7860
Left = 4380
TabIndex = 21
Top = 60
Width = 9330
Begin VB.TextBox Text1
Height = 315
Left = 3300
TabIndex = 76
Top = 300
Visible = 0 'False
Width = 1575
End
Begin VB.TextBox txt_p
Height = 315
Left = 3540
TabIndex = 48
Top = 1560
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox TxtCXM
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 47
Top = 732
Width = 2160
End
Begin VB.TextBox TxtGBeiZhu
Height = 285
Left = 1470
TabIndex = 46
Top = 7470
Width = 3420
End
Begin VB.TextBox txtSerialNum
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 45
Top = 315
Width = 1140
End
Begin VB.TextBox txtHealthID
Enabled = 0 'False
Height = 300
Left = 720
TabIndex = 44
Top = -270
Visible = 0 'False
Width = 2160
End
Begin VB.Frame Frame5
BackColor = &H00D3DABC&
Caption = "项目选择"
Height = 7560
Left = 5070
TabIndex = 38
Top = 210
Width = 4155
Begin VB.ComboBox cmbGTCan
Enabled = 0 'False
Height = 300
Left = 1155
Style = 2 'Dropdown List
TabIndex = 39
Top = 7140
Width = 2865
End
Begin MSComctlLib.TreeView tvwGDXiang
Height = 6585
Left = 180
TabIndex = 40
Top = 240
Width = 3840
_ExtentX = 6773
_ExtentY = 11615
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
LineStyle = 1
Style = 7
Checkboxes = -1 'True
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblCurrentPrice
BackStyle = 0 'Transparent
Height = 255
Left = 180
TabIndex = 43
Top = 6840
Width = 3495
End
Begin VB.Label lblGInfo
BackStyle = 0 'Transparent
Height = 480
Left = 330
TabIndex = 42
Top = 4020
Width = 2985
End
Begin VB.Label Label65
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "体检套餐："
Height = 345
Left = 180
TabIndex = 41
Top = 7200
Width = 915
End
End
Begin VB.TextBox txtGYYID
Enabled = 0 'False
Height = 300
Left = 4950
TabIndex = 37
Top = 135
Visible = 0 'False
Width = 1740
End
Begin VB.TextBox txtGYYRXM
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 36
Top = 1566
Width = 1260
End
Begin VB.TextBox txtGYYRJTDH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 35
Top = 4545
Width = 2160
End
Begin VB.TextBox txtGYYRBGDH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 34
Top = 4962
Width = 2160
End
Begin VB.TextBox txtGYYRYDDH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 33
Top = 5379
Width = 2160
End
Begin VB.TextBox txtGLXDZ
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 32
Top = 7047
Width = 2190
End
Begin VB.TextBox txtGYZBM
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 31
Top = 6198
Width = 2160
End
Begin VB.TextBox txtGYYRSFZH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 30
Top = 4125
Width = 2160
End
Begin VB.TextBox txtGAGE
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 29
Top = 3711
Width = 705
End
Begin VB.ComboBox cmbGSEX
Enabled = 0 'False
Height = 300
ItemData = "FrmAffirmLvw.frx":1982
Left = 1470
List = "FrmAffirmLvw.frx":198C
Style = 2 'Dropdown List
TabIndex = 28
Top = 2847
Width = 960
End
Begin VB.ComboBox cmbGHF
Enabled = 0 'False
Height = 300
ItemData = "FrmAffirmLvw.frx":1998
Left = 1470
List = "FrmAffirmLvw.frx":19A2
Style = 2 'Dropdown List
TabIndex = 27
Top = 3279
Width = 960
End
Begin VB.ComboBox cmbGDWei
Enabled = 0 'False
Height = 300
Left = 1470
Style = 2 'Dropdown List
TabIndex = 26
Top = 1983
Width = 2160
End
Begin VB.TextBox txtGEMail
Enabled = 0 'False
Height = 285
Left = 1470
TabIndex = 25
Top = 5796
Width = 2160
End
Begin VB.TextBox TxtGSelfBH
Enabled = 0 'False
Height = 300
Left = 1470
TabIndex = 24
Top = 1149
Width = 2160
End
Begin VB.TextBox txtTJXH
Enabled = 0 'False
Height = 300
Left = 3840
TabIndex = 23
Top = -60
Visible = 0 'False
Width = 1740
End
Begin VB.ComboBox CmbFZ
Enabled = 0 'False
Height = 300
Left = 1470
Style = 2 'Dropdown List
TabIndex = 22
Top = 2415
Width = 2160
End
Begin MSComCtl2.DTPicker dtpGTJRQ
Height = 315
Left = 1470
TabIndex = 49
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 = 49676289
CurrentDate = 37993
MaxDate = 109939
MinDate = 2
End
Begin XPControls.XPCommandButton cmdPrintBarCode
Height = 285
Left = 3660
TabIndex = 50
Top = 1140
Visible = 0 'False
Width = 1125
_ExtentX = 1984
_ExtentY = 503
Caption = "打印(条形码)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
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 = 2640
TabIndex = 77
Top = 360
Visible = 0 'False
Width = 615
End
Begin VB.Label Label3
BackColor = &H00D3DABC&
Caption = "拼音全称"
ForeColor = &H0000C000&
Height = 255
Left = 2760
TabIndex = 74
Top = 1620
Visible = 0 'False
Width = 795
End
Begin VB.Label Label40
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "查询码："
Height = 255
Index = 2
Left = 15
TabIndex = 73
Top = 795
Width = 1365
End
Begin VB.Label Label23
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "备注："
Height = 255
Left = 15
TabIndex = 72
Top = 7515
Width = 1365
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -