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

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
  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

首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/11/11