📄 main_fzgj_addresslist.frm
字号:
EndProperty
BeginProperty Column09
ColumnWidth = 884.976
EndProperty
BeginProperty Column10
ColumnWidth = 1184.882
EndProperty
BeginProperty Column11
ColumnWidth = 1154.835
EndProperty
BeginProperty Column12
ColumnWidth = 1379.906
EndProperty
BeginProperty Column13
ColumnWidth = 2085.166
EndProperty
EndProperty
End
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Height = 2595
Left = 0
ScaleHeight = 2535
ScaleWidth = 10605
TabIndex = 0
Top = 0
Width = 10665
Begin VB.CommandButton cmdURL2
Caption = "URL"
Height = 270
Left = 10080
TabIndex = 39
Top = 2160
Width = 510
End
Begin VB.CommandButton cmdURL
Caption = "URL"
Height = 270
Left = 10020
TabIndex = 38
Top = 870
Width = 510
End
Begin VB.TextBox txtCompanyNet
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
ForeColor = &H00C00000&
Height = 270
Left = 7605
TabIndex = 13
Top = 2145
Width = 2445
End
Begin VB.TextBox txtCompanyName
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
ForeColor = &H00C00000&
Height = 270
Left = 3705
TabIndex = 12
Top = 2130
Width = 2880
End
Begin VB.TextBox txtOffice
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
ForeColor = &H00C00000&
Height = 270
Left = 6270
TabIndex = 9
Top = 1740
Width = 1275
End
Begin VB.TextBox txtDept
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
ForeColor = &H00C00000&
Height = 270
Left = 3720
TabIndex = 8
Top = 1740
Width = 1575
End
Begin VB.TextBox txtDuty
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
ForeColor = &H00C00000&
Height = 270
Left = 1050
TabIndex = 7
Top = 1740
Width = 1575
End
Begin VB.TextBox txtFax
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
ForeColor = &H00C00000&
Height = 270
Left = 1050
TabIndex = 11
Top = 2175
Width = 1575
End
Begin VB.TextBox txtOperation
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
ForeColor = &H00C00000&
Height = 270
Left = 8715
TabIndex = 10
Top = 1740
Width = 1845
End
Begin VB.TextBox txtPersonNet
Appearance = 0 'Flat
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 6045
TabIndex = 6
Top = 870
Width = 3930
End
Begin VB.TextBox txtMobile
Appearance = 0 'Flat
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 3645
TabIndex = 5
Top = 900
Width = 1275
End
Begin VB.TextBox txtPhone
Appearance = 0 'Flat
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 1050
TabIndex = 4
Top = 915
Width = 1575
End
Begin VB.TextBox txtEmail
Appearance = 0 'Flat
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 6045
TabIndex = 3
Top = 405
Width = 4485
End
Begin VB.TextBox txtSex
Appearance = 0 'Flat
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 3630
TabIndex = 2
Top = 435
Width = 1275
End
Begin VB.TextBox txtName
Appearance = 0 'Flat
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 1050
TabIndex = 1
Top = 465
Width = 1575
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "通讯主要信息"
ForeColor = &H00800000&
Height = 180
Left = 450
TabIndex = 41
Top = 135
Width = 1080
End
Begin VB.Line Line4
BorderColor = &H00C00000&
X1 = 90
X2 = 10605
Y1 = 240
Y2 = 240
End
Begin VB.Line Line3
BorderColor = &H00C00000&
X1 = 90
X2 = 10605
Y1 = 195
Y2 = 195
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "通讯详细信息"
ForeColor = &H00800000&
Height = 180
Left = 450
TabIndex = 40
Top = 1440
Width = 1080
End
Begin VB.Line Line2
BorderColor = &H00C00000&
X1 = 60
X2 = 10575
Y1 = 1545
Y2 = 1545
End
Begin VB.Line Line1
BorderColor = &H00C00000&
X1 = 60
X2 = 10575
Y1 = 1500
Y2 = 1500
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "公司网页："
Height = 180
Left = 6720
TabIndex = 28
Top = 2190
Width = 900
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "公司名称："
Height = 180
Left = 2760
TabIndex = 27
Top = 2205
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "办公室："
Height = 180
Left = 5415
TabIndex = 26
Top = 1740
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "部 门："
Height = 180
Left = 2760
TabIndex = 25
Top = 1740
Width = 810
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "职 务："
Height = 180
Left = 105
TabIndex = 24
Top = 1740
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "业务传真："
Height = 180
Left = 105
TabIndex = 23
Top = 2205
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "业务电话："
Height = 180
Left = 7725
TabIndex = 22
Top = 1740
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "个人网页："
Height = 180
Left = 5025
TabIndex = 21
Top = 960
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "移动电话："
Height = 180
Left = 2760
TabIndex = 20
Top = 960
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "住址电话："
Height = 180
Left = 105
TabIndex = 19
Top = 960
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "电子邮件："
Height = 180
Left = 5025
TabIndex = 18
Top = 510
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "性 别："
Height = 180
Left = 2760
TabIndex = 17
Top = 510
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "姓 名："
Height = 180
Left = 105
TabIndex = 16
Top = 510
Width = 720
End
End
Begin VB.CommandButton cmdFind
Caption = "查询(&F)"
Height = 375
Left = 2535
TabIndex = 36
Top = 2670
Width = 1170
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "输入姓名："
Height = 180
Left = 105
TabIndex = 37
Top = 2775
Width = 900
End
Begin VB.Menu OP
Caption = "操作"
Visible = 0 'False
Begin VB.Menu Updata
Caption = "--修改--"
End
Begin VB.Menu Del
Caption = "--删除--"
End
End
End
Attribute VB_Name = "main_fzgj_addressList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -