📄 lwjledit.frm
字号:
EndProperty
Height = 285
Left = 1635
TabIndex = 6
Top = 465
Width = 1140
End
End
Begin VB.Frame Frame2
BackColor = &H80000013&
BorderStyle = 0 'None
Caption = "联系人信息"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 975
Left = 510
TabIndex = 13
Top = 540
Width = 10950
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 = &H00FF0000&
Height = 300
Left = 2730
TabIndex = 19
Top = 405
Width = 810
End
Begin VB.Label Label12
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 = &H00FF0000&
Height = 300
Left = 330
TabIndex = 18
Top = 390
Width = 780
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 = &H00FF0000&
Height = 300
Left = 5250
TabIndex = 17
Top = 405
Width = 765
End
Begin VB.Label labBH
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 1185
TabIndex = 16
Top = 450
Width = 105
End
Begin VB.Label labXM
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3615
TabIndex = 15
Top = 450
Width = 105
End
Begin VB.Label labDH
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6075
TabIndex = 14
Top = 450
Width = 105
End
End
Begin VB.Shape Shape1
BorderColor = &H80000013&
Height = 5340
Left = 345
Top = 330
Width = 11250
End
End
Attribute VB_Name = "LWJLedit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClear_Click()
Combo1.Text = ""
txtTime = ""
txtPlace = ""
txtWhat = ""
txtBZ = ""
End Sub
Private Sub cmdEdit_Click()
Call OpenConn
sql = "select * from 来往记录 where 记录序号=" & labJLXH.Caption
rs.Open sql, cn, 3, 3
If rs.RecordCount > 0 Then
rs!联系形式 = Combo1.Text
rs!时间 = txtTime
rs!地点 = txtPlace
rs!事件 = txtWhat
rs!备注 = txtBZ
rs.Update
MsgBox "修改成功", 0 + 64, "提示"
Else
MsgBox "请先在列表中选中记录再进行此操作", 0 + 64, "操作提示"
End If
Call CloseConn
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub form_activate()
On Error GoTo err
Call comboAdd1
Call OpenConn
sql = "select * from 来往记录 where 记录序号=" & labJLXH
rs.Open sql, cn, 3, 3
labBH = IIf(IsNull(rs!编号), "", rs!编号)
Call CloseConn
Call OpenConn
sql = "select * from 联系人档案 where 编号=" & labBH
rs.Open sql, cn, 3, 3
labXM = IIf(IsNull(rs!姓名), "", rs!姓名)
Me.Caption = "修改" & labXM & "来往记录"
labDH = IIf(IsNull(rs!电话), "", rs!电话)
Call CloseConn
Call OpenConn
sql = "select * from 来往记录 where 记录序号=" & labJLXH
rs.Open sql, cn, 3, 3
If rs.RecordCount > 0 Then
Combo1.Text = IIf(IsNull(rs!联系形式), "", rs!联系形式)
txtTime = IIf(IsNull(rs!时间), "", rs!时间)
txtPlace = IIf(IsNull(rs!地点), "", rs!地点)
txtWhat = IIf(IsNull(rs!事件), "", rs!事件)
txtBZ = IIf(IsNull(rs!备注), "", rs!备注)
End If
Call CloseConn
err:
If err.Description <> "" Then
MsgBox "列表中项目为空或其他不可预料的错误", vbOKOnly, "错误"
End If
End Sub
Private Sub Form_Load()
On Error GoTo err
Me.Width = 12030
Me.Height = 6435
Me.Top = Screen.Height / 2 - Me.Height / 2 - 800
Me.Left = Screen.Width / 2 - Me.Width / 2
labJLXH.Caption = hNO
err:
If err.Description <> "" Then
MsgBox "列表中项目为空或其他不可预料的错误", vbOKOnly, "错误"
End If
End Sub
Sub comboAdd1()
Combo1.clear
Combo1.AddItem "手机"
Combo1.AddItem "座机"
Combo1.AddItem "面谈"
Combo1.AddItem "传真"
Call OpenConn
sql = "select distinct 联系形式 from 来往记录"
rs.Open sql, cn, 3, 3
If rs.RecordCount > 0 Then
Do While Not rs.EOF
If rs!联系形式 <> "手机" And rs!联系形式 <> "座机" And rs!联系形式 <> "面谈" And rs!联系形式 <> "传真" Then
Combo1.AddItem rs!联系形式
End If
rs.MoveNext
Loop
End If
Call CloseConn
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -