VB+通讯录信息管理系统+文档PPT及开题报告(七)
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
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语句
