📄 frmprecontract.frm
字号:
Width = 1575
End
Begin VB.Label Label23
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "五笔简码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4620
TabIndex = 45
Top = 6195
Visible = 0 'False
Width = 1575
End
Begin VB.Label Label22
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "拼音简码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4620
TabIndex = 44
Top = 5715
Visible = 0 'False
Width = 1575
End
Begin VB.Label Label21
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "预约人姓名："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 43
Top = 435
Width = 1575
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "档案号："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 42
Top = 846
Width = 1575
End
End
Begin VB.Frame fraTTi
BackColor = &H80000018&
Caption = "单位信息"
Height = 6945
Left = 180
TabIndex = 23
Top = 1140
Width = 9135
Begin VB.TextBox txtTEMail
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1980
TabIndex = 71
Top = 3647
Width = 1845
End
Begin VB.Frame Frame2
BackColor = &H80000018&
Caption = "项目选择"
Height = 5925
Left = 5700
TabIndex = 57
Top = 360
Width = 3285
Begin MSComctlLib.TreeView tvwTDXiang
Height = 3645
Left = 180
TabIndex = 62
Top = 270
Width = 2925
_ExtentX = 5159
_ExtentY = 6429
_Version = 393217
LabelEdit = 1
Style = 7
Checkboxes = -1 'True
Appearance = 1
End
Begin VB.ComboBox cmbTTCan
Height = 315
Left = 180
Style = 2 'Dropdown List
TabIndex = 21
Top = 4320
Width = 2925
End
Begin VB.Label Label36
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "选择体检套餐："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 1
Left = 210
TabIndex = 63
Top = 4020
Width = 1260
End
Begin VB.Label lblTInfo
BackStyle = 0 'Transparent
Height = 540
Left = 180
TabIndex = 58
Top = 4710
Width = 2925
End
End
Begin VB.ComboBox cmbTDWei
Height = 315
Left = 1980
TabIndex = 5
Top = 754
Width = 1845
End
Begin MSComCtl2.DTPicker dtpTTJRQ
Height = 285
Left = 1980
TabIndex = 19
Top = 6101
Width = 1845
_ExtentX = 3254
_ExtentY = 503
_Version = 393216
Format = 27066369
UpDown = -1 'True
CurrentDate = 37993
MaxDate = 73415
MinDate = 2
End
Begin VB.TextBox txtTDJRS
Height = 285
Left = 1980
TabIndex = 18
Top = 5692
Width = 1845
End
Begin VB.TextBox txtTQYXZ
Height = 285
Left = 1980
TabIndex = 17
Top = 5283
Width = 1845
End
Begin VB.TextBox txtTYHZH
Height = 285
Left = 1980
TabIndex = 16
Top = 4874
Width = 1845
End
Begin VB.TextBox txtTYWYH
Height = 285
Left = 1980
TabIndex = 15
Top = 4465
Width = 1845
End
Begin VB.TextBox txtTYZBM
Height = 285
Left = 1980
TabIndex = 14
Top = 4056
Width = 1845
End
Begin VB.TextBox txtTLXDZ
Height = 285
Left = 1980
TabIndex = 20
Top = 6510
Width = 7005
End
Begin VB.TextBox txtTFZRYDDH
Height = 285
Left = 1980
TabIndex = 13
Top = 3238
Width = 1845
End
Begin VB.TextBox txtTFZRBGDH
Height = 285
Left = 1980
TabIndex = 12
Top = 2829
Width = 1845
End
Begin VB.TextBox txtTFZR
Height = 285
Left = 1980
TabIndex = 11
Top = 2420
Width = 1845
End
Begin VB.TextBox txtTLXRYDDH
Height = 285
Left = 1980
TabIndex = 10
Top = 2011
Width = 1845
End
Begin VB.TextBox txtTLXRBGDH
Height = 285
Left = 1980
TabIndex = 9
Top = 1602
Width = 1845
End
Begin VB.TextBox txtTLXR
Height = 285
Left = 1980
TabIndex = 8
Top = 1193
Width = 1845
End
Begin VB.TextBox txtTWBSX
Height = 285
Left = 5670
TabIndex = 7
Top = 3540
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox txtTPYSX
Height = 285
Left = 5670
TabIndex = 6
Top = 3150
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox txtTYYID
Enabled = 0 'False
Height = 285
Left = 1980
TabIndex = 4
Top = 345
Width = 1845
End
Begin VB.Label Label33
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "电子邮件："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 300
TabIndex = 72
Top = 3648
Width = 1575
End
Begin VB.Label Label35
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "选择体检项目："
Height = 255
Left = 3810
TabIndex = 59
Top = 360
Width = 1815
End
Begin VB.Label Label18
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "体检日期："
Height = 255
Left = 300
TabIndex = 40
Top = 6114
Width = 1575
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "登记人数："
Height = 255
Left = 300
TabIndex = 39
Top = 5703
Width = 1575
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "企业性质："
Height = 255
Left = 300
TabIndex = 38
Top = 5292
Width = 1575
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "银行帐号："
Height = 255
Left = 300
TabIndex = 37
Top = 4881
Width = 1575
End
Begin VB.Label Label13
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "业务银行："
Height = 255
Left = 300
TabIndex = 36
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -