modother.bas

来自「图书管理系统需求规格说明书.doc」· BAS 代码 · 共 48 行

Attribute VB_Name = "modOther"




Option Explicit

Public sUserName As String '定义在右下角欢迎信息中显示的用户名
Public flagCloseAll As Boolean



Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40

Public Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)



Public Function ApplicationUnload() As Integer
    Dim check
    If flagCloseAll = False Then
    check = MsgBox("你确定要退出本系统吗？", vbExclamation + vbOKCancel, "地大图书馆")
        If check = vbOK Then
         
           ApplicationUnload = 1
           End
        End If
    Else
        ApplicationUnload = 0
    End If
End Function

'注销用户代码
Public Sub loggedOff()
    Call main
    DoEvents
    frmMain.Hide
    DoEvents
    frmLogin.Show
    DoEvents
End Sub