DEMO:通讯录（五）

⑤删除联系人窗口代码：

Option Explicit
Dim ObjCn As Connection
Dim ObjRs As Recordset
Dim ObjCmd As Command
Dim list As ListItem
Private Sub Command1_Click()
    Dim i As Integer
    If Text1.Text = "" Then
        MsgBox "请输入您要删除的联系人！"
        Text1.SetFocus
    Else
        ObjRs.Open "select * from message where 姓名='" & Text1.Text & "'", ObjCn, 3, 1
'        ObjRs.Open "select * from message where 姓名='" & Text1 & "'", ObjCn, 3, 1
        If ObjRs.BOF And ObjRs.EOF Then
            ObjRs.Close
            MsgBox "没有找到您要删除的联系人！"
            Text1.Text = ""
            Text1.SetFocus
        Else
            ObjRs.MoveFirst
            Do While ObjRs.EOF = False
                Set list = ListView1.ListItems.Add(, , ObjRs.Fields(0))
                For i = 1 To ObjRs.Fields.Count - 1
                    list.SubItems(i) = ObjRs.Fields(i)
                Next
                ObjRs.MoveNext
            Loop
            ObjRs.Close
            MsgBox "您要删除的联系人" & Text1.Text & "已经全部显示！"
            Command1.Enabled = False
            Command2.Enabled = True
        End If
    End If
End Sub

Private Sub Command2_Click()
    Dim a As Integer
    If FormTJ.TextBH.Text = "" Then
        MsgBox "请您选中要删除的联系人！"
    Else
        a = MsgBox("您确定要删除" & Text1.Text & "这个联系人吗？", 32 + vbYesNo)
        If a = vbYes Then
            ObjRs.Open "select * from message where 编号='" & Text1.Text & "'", ObjCn, 3, 1
            ObjCmd.ActiveConnection = ObjCn
            ObjCmd.CommandText = "delete from message where 编号='" & FormTJ.TextBH.Text & "'"
            ObjCn.BeginTrans
            ObjCmd.Execute
            ObjCn.CommitTrans
            ObjRs.Close
            MsgBox "您选中的联系人" & Text1.Text & "已经全部删除！"
            Unload Me
            FormMain.Timer2.Enabled = True
        End If
    End If
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim l1
    ListView1.GridLines = True
    ListView1.FullRowSelect = True
    ListView1.View = lvwReport
    Set l1 = ListView1.ColumnHeaders.Add(, , "编号", 0)
    Set l1 = ListView1.ColumnHeaders.Add(, , "姓名", 1000)
    Set l1 = ListView1.ColumnHeaders.Add(, , "年龄", 700)
    Set l1 = ListView1.ColumnHeaders.Add(, , "性别", 700)
    Set l1 = ListView1.ColumnHeaders.Add(, , "住宅电话", 1300)
    Set l1 = ListView1.ColumnHeaders.Add(, , "手机号码", 1300)
    Set l1 = ListView1.ColumnHeaders.Add(, , "家庭住址", 1400)
    Set l1 = ListView1.ColumnHeaders.Add(, , "工作单位", 1800)
    Set ObjRs = New Recordset
    Set ObjCn = New Connection
    Set ObjCmd = New Command
    ObjCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=txl.mdb;Persist Security Info=False"

End Sub

Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
    Cancel = True
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    FormTJ.TextBH.Text = Item.Text
    FormTJ.TextName.Text = Item.SubItems(1)
    FormTJ.TextNL.Text = Item.SubItems(2)
    FormTJ.Combo1.Text = Item.SubItems(3)
    FormTJ.TextDH.Text = Item.SubItems(4)
    FormTJ.TextSJ.Text = Item.SubItems(5)
    FormTJ.TextDZ.Text = Item.SubItems(6)
    FormTJ.TextDW.Text = Item.SubItems(7)
End Sub