📄 tjlxr.frm
字号:
Caption = "自动编号："
Height = 180
Left = 390
TabIndex = 30
Top = 5175
Width = 900
End
Begin MSForms.CommandButton cmdAddnext
Height = 480
Left = 6285
TabIndex = 29
Top = 6585
Width = 1440
VariousPropertyBits= 19
Caption = "继续增加联系人"
Size = "2540;847"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label txtBH
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 180
Left = 1395
TabIndex = 28
Top = 5130
Width = 90
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "省市："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 8190
TabIndex = 27
Top = 2130
Width = 945
End
Begin VB.Label Labtime
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 390
TabIndex = 16
Top = 6015
Width = 630
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "当前时间："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 375
TabIndex = 15
Top = 5640
Width = 1380
End
Begin MSForms.CommandButton cmdClear
Height = 480
Left = 10395
TabIndex = 14
Top = 6570
Width = 1440
VariousPropertyBits= 19
Caption = "清空"
Size = "2540;847"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdCancel
Height = 480
Left = 4770
TabIndex = 13
Top = 6585
Width = 975
VariousPropertyBits= 19
Caption = "取消"
Size = "1720;847"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdSave
Height = 480
Left = 3315
TabIndex = 12
Top = 6585
Width = 990
VariousPropertyBits= 19
Caption = "保存"
Size = "1746;847"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdAddh
Height = 480
Left = 8100
TabIndex = 11
Top = 6570
Width = 1740
VariousPropertyBits= 19
Caption = "添加来往记录"
Size = "3069;847"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "公司："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 3315
TabIndex = 10
Top = 2775
Width = 945
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "生日："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 3315
TabIndex = 9
Top = 1470
Width = 945
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "性别："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 8175
TabIndex = 8
Top = 840
Width = 945
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "性格爱好"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 765
Left = 3300
TabIndex = 7
Top = 5415
Width = 780
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "传真："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 3300
TabIndex = 6
Top = 3450
Width = 945
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电话："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 3330
TabIndex = 5
Top = 4095
Width = 945
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "地址："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 3300
TabIndex = 4
Top = 4710
Width = 945
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓名："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 3315
TabIndex = 3
Top = 840
Width = 945
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "职务："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 8160
TabIndex = 2
Top = 2850
Width = 945
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "籍贯："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 8190
TabIndex = 1
Top = 1485
Width = 795
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "分类"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 3315
TabIndex = 0
Top = 2085
Width = 630
End
Begin VB.Menu ImageMenu
Caption = "菜单组"
Begin VB.Menu Poper
Caption = "适合图像"
End
Begin VB.Menu picOldSize
Caption = "原始大小"
End
Begin VB.Menu ee
Caption = "-"
End
Begin VB.Menu lookPath
Caption = "查看原图"
End
Begin VB.Menu rr
Caption = "-"
End
Begin VB.Menu SaveImage
Caption = "保存当前"
End
Begin VB.Menu dfdE
Caption = "-"
End
Begin VB.Menu picFresh
Caption = "刷新"
End
Begin VB.Menu dfd
Caption = "-"
End
Begin VB.Menu picClear
Caption = "清除"
End
End
End
Attribute VB_Name = "AddLXR"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim actF
Dim gx
Dim gy
Dim r
Private Sub cmdAddh_Click()
Call OpenConn
sql = "select 编号 from 联系人档案 where 编号=" & txtBH
rs.Open sql, cn, 3, 3
If rs.RecordCount > 0 Then
Dim i As Long
AddNO = txtBH
ReDim infoarr(i)
Set infoarr(i) = New Class1
Set infoarr(i).newForm = New LWJL
Load infoarr(i).newForm
Else
MsgBox "记录中找不到对应编号，请先保存再添加其来往记录！", vbOKOnly, "提示"
End If
End Sub
Private Sub cmdAddnext_Click()
Dim txt As Control
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -