评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB+通讯录信息管理系统+论文PPT及开题报告(一)(4)

2013-06-18 02:00 con.ucallbackMessage = WM_MOUSEMOVE
    TrayIcon.hIcon = Me.Icon ' 提供任务栏图标
    TrayIcon.szTip = "Mind's Tray Icon Example" & Chr$(0)
     '将图标放到任务栏
    Call Shell_NotifyIcon(NIM_ADD, TrayIcon)
    App.TaskVisible = False
End Sub

Private Sub About_Click() '关于版本
frmabout.Show vbModal
End Sub

Private Sub DeleteAll_Click()
     Dim Result
  If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then
         Result = MsgBox("所有记录将被删除！", vbYesNo, "警告")
          SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag '设置窗口在前
         If Result = vbYes Then
            frmData.Data1.Recordset.MoveLast
            frmData.Data1.Recordset.MoveFirst
             Dim i As Integer
             For i = 1 To frmData.Data1.Recordset.RecordCount
                 Data1.Recordset.Delete
                 frmData.Data1.Recordset.MoveNext
             Next i
            Data1.Refresh
            ListRefresh
          End If
  Else
    Result = MsgBox("无法删除记录！", vbOKOnly, "提示")

  End If
  SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag
End Sub

Private Sub DocuAdd_Click() '添加记录
Uo = False
  frmTJ.Command2.Enabled = False
  Load frmTJ
  frmTJ.Show vbModal
End Sub

Public Sub DocuDelete_Click() '删除记录
  Dim Result
  If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then
     If frmData.ListView1.ListItems.Count > 0 Then
       If ListView1.SelectedItem.Index > 0 Then
         Result = MsgBox("当前记录将被删除！", vbYesNo, "警告")
          SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag '设置窗口在前
         If Result = vbYes Then
             Data1.Recordset.Delete
             Data1.Refresh
             ListRefresh
         End If
       Else
         Result = MsgBox("请选择要删除的记录！", vbOKOnly, "警告")
       &n