form1.frm

学生宿舍管理系统vb源码

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmServer 
   Caption         =   "DataServer"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin MSComDlg.CommonDialog dlgOpen 
      Left            =   120
      Top             =   2520
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu MyMenu 
      Caption         =   "菜单"
      Visible         =   0   'False
      Begin VB.Menu BackUp 
         Caption         =   "备份"
      End
      Begin VB.Menu Reduce 
         Caption         =   "还原"
      End
      Begin VB.Menu Sep2 
         Caption         =   "-"
      End
      Begin VB.Menu Quit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "frmServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'托盘程序相关定义
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONUP = &H205
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIF_MESSAGE = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_MOUSEMOVE = &H200

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim TrayIcon As NOTIFYICONDATA

Private Sub BackUp_Click()
    '备份
    Dim sBack As String
    sBack = fBackupDatabase_a(App.Path & "\" & fName, "ssgl")
    If sBack = "" Then
        MsgBox "备份完毕!" & vbCrLf & "数据库名:" & tNow, vbOKOnly + vbInformation, "信息"
    Else
        MsgBox sBack, vbOKOnly + vbExclamation, "信息"
    End If
End Sub

Private Sub Form_Load()
    '托盘程序
    TrayIcon.cbSize = Len(TrayIcon)
    TrayIcon.hWnd = hWnd
    TrayIcon.uId = vbNull
    TrayIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    TrayIcon.ucallbackMessage = WM_MOUSEMOVE
    TrayIcon.hIcon = Me.Icon
    TrayIcon.szTip = "MapServer" & Chr(0)
    
    '在系统栏添加拖盘
    Call Shell_NotifyIcon(NIM_ADD, TrayIcon)
    Me.Hide
End Sub

Private Sub Quit_Click()
    '退出
    End
End Sub

Private Sub Reduce_Click()
    '还原
    Dim sBack As String
    Dim backfile As String
    dlgOpen.DialogTitle = "选择备份文件"
    dlgOpen.ShowOpen
    backfile = dlgOpen.FileName
    If backfile = "" Then Exit Sub

    sBack = fRestoreDatabase_a(backfile, "ssgl", , , True)
    If sBack = "" Then
        MsgBox "恢复完毕!", vbOKOnly + vbInformation, "信息"
    Else
        MsgBox sBack, vbOKOnly + vbExclamation, "信息"
    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 Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Dim Message As Long

Message = X / Screen.TwipsPerPixelX

'判断鼠标消息,执行不同的功能
Select Case Message
Case WM_LBUTTONDOWN
SetForegroundWindow Me.hWnd
PopupMenu MyMenu
Case WM_RBUTTONUP
SetForegroundWindow Me.hWnd
'按右键弹出菜单
PopupMenu MyMenu
End Select
End Sub