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

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

2013-06-18 02:00 sp;             WindowState = 0 'Me.Show
                 Me.Visible = True
                 SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag '设置窗口在前
               Else
                 WindowState = 1
                 Me.Visible = False
               End If
            Case WM_RBUTTONUP
                Me.PopupMenu numFile
        End Select
        RR = False
    End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    TrayIcon.cbSize = Len(TrayIcon)
    TrayIcon.hwnd = Me.hwnd
    TrayIcon.uId = vbNull
    '删除任务栏图标
    Call Shell_NotifyIcon(NIM_DELETE, TrayIcon)
End Sub

Private Sub numPass_Click()
     frmLog.Show vbModal
End Sub

Private Sub numRem_Click() '刷新数据窗口
 '把数据库显示恢复到原来形式
  frmData.Data1.DatabaseName = frmData.mdbFile 'App.Path + "\MyNote.mdb"
  SQLadd = " where Name=Name"
 frmData.Data1.RecordSource = SQLoriginal + SQLadd + SQLorder
  frmData.Data1.Refresh

（科教范文网 lw.AsEac.com编辑整理）

  ListRefresh
  Unload frmCX
End Sub

Private Sub numUo_Click() '修改记录
If ListView1.ListItems.Count < 1 Then Exit Sub
If ListViewItem > 0 Then
ListView_Name = ListView1.ListItems(ListViewItem).SubItems(1)
  ListView_QQ = ListView1.ListItems(ListViewItem).SubItems(2)
  ListView_Love = ListView1.ListItems(ListViewItem).SubItems(3)
   Uo = True
   frmTJ.Command1.Enabled = False
   frmTJ.Show vbModal
Else
   MsgBox "请选择要修改的记录！", vbOKOnly, "警告"
   SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag
   SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag
End If
End Sub
'-------------------------------------------------------------------------
'**********************************************************

Private Sub Frm_Load()
Dim clmX As ColumnHeader
App.Title = "ListView Sample"
  Set clmX = ListView1.ColumnHeaders.Add(, , "编号", 100)
  Set clmX = ListView1.ColumnHeaders.Add(, , "姓名", ListView1.Width / 3 - 750)
  Set clmX = ListView1.ColumnHeaders.Add(, , "QQ", ListView1.Width / 3 - 550)
   Set clmX = ListView1.ColumnHeaders.Add(, , "昵称", ListView1.Width / 3 - 330)
End Sub

Private Sub AddRead_Numbel()
 On Error GoTo ErrHandle
 frmData.Caption = "信息管理 -- " & mdbFile & "[mdbNumel]"
'设置字符串变量来调用SQL语句
 
  SQLoriginal