mdifrm.frm

部门在用的用户申告系统

      Begin VB.Menu numshdjcx 
         Caption         =   "收货登记查询"
      End
      Begin VB.Menu numfhdjcx 
         Caption         =   "发货登记查询"
      End
      Begin VB.Menu numsftj 
         Caption         =   "收发货统计"
      End
      Begin VB.Menu numbjmctj 
         Caption         =   "按备件名称统计"
      End
   End
   Begin VB.Menu numabout 
      Caption         =   "关于"
   End
   Begin VB.Menu numpopup 
      Caption         =   "popup"
      Begin VB.Menu numhf 
         Caption         =   "恢复"
      End
      Begin VB.Menu nummi 
         Caption         =   "最小化"
      End
      Begin VB.Menu numzd 
         Caption         =   "最大化"
      End
      Begin VB.Menu num5 
         Caption         =   "-"
      End
      Begin VB.Menu numexit2 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "MDIFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim bjbeifen As Boolean '点击备份或恢复按钮标记
Dim bjexit As Boolean '点击退出按钮标记
Dim bf As Boolean
Private Sub MDIForm_Load()
Me.WindowState = 2
bf = False
bjexit = False
bjbeifen = False
numpopup.Visible = False
LastState = WindowState
AddToTray Me, numpopup '添加右键，图标
SetTrayTip "工程部综合管理系统" '显示提示文本

End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If bjbeifen = False Then
    If bjexit = False Then
        MDIFrm.WindowState = vbMinimized
        Cancel = -1
        Me.Hide
    Else
        Unload Me
    End If
End If
End Sub

Private Sub MDIForm_Resize()
Select Case WindowState
        Case vbMinimized
            numhf.Enabled = True
            numzd.Enabled = False
            nummi.Enabled = False
            'Me.Hide '任务栏显示窗体
        Case vbMaximized
            numhf.Enabled = True
            nummi.Enabled = True
            numzd.Enabled = False
        Case vbNormal
            numhf.Enabled = False
            nummi.Enabled = True
            numzd.Enabled = True
End Select

If WindowState <> vbMinimized Then _
        LastState = WindowState

'LastState = WindowState
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)

If bjbeifen = False Then
    If MsgBox("确认要退出吗？", vbQuestion + vbYesNo, "询问") = vbYes Then
        RemoveFromTray '卸载图标
        MousePointer = vbhourlass
        If bf = False Then
           Call beifen
        End If
    Else
        MDIFrm.WindowState = vbMinimized
        Cancel = -1
        Me.Hide
        bjexit = False
    End If
End If

End Sub

Private Sub numabout_Click()
MousePointer = vbhourlass
frmAbout.Show
MousePointer = vbDefault
End Sub

Private Sub numbeifen_Click()
MousePointer = vbhourlass
Call beifen
MousePointer = vbDefault
bjexit = True
Unload Me
End Sub

Private Sub numbjmc_Click()
Frmbjmc.Show
End Sub

Private Sub numbjmctj_Click()
MousePointer = vbHourglass
Frmbjmctj.Show
MousePointer = vbDefault
End Sub

Private Sub numexit_Click()
Unload Me
End Sub

Private Sub numexit2_Click()
bjexit = True
Unload Me
End Sub

Private Sub numfhdjcx_Click()
MousePointer = vbHourglass
Frmfhdj.Show
MousePointer = vbDefault
End Sub

Private Sub numhf_Click()
SendMessage hwnd, WM_SYSCOMMAND, SC_RESTORE, 0&

End Sub

Private Sub numhuifu_Click()
If MsgBox("数据库将恢复为最后一次保存时的数据，确认吗？", 36, "询问") = vbYes Then
    MousePointer = vbHourglass
    db.Close
    FileCopy App.Path & "\yhsg备份.mdb", App.Path & "\yhsg.mdb"
    MousePointer = vbDefault
    MsgBox "恢复完毕,请重新进入程序！", vbInformation, "信息"
    bf = True
    Unload Me
Else
    bjbeifen = False
End If
End Sub
Public Sub beifen()
db.Close
MousePointer = vbHourglass
FileCopy App.Path & "\yhsg.mdb", App.Path & "\yhsg备份.mdb"
FileCopy App.Path & "\yhsg.mdb", App.Path & "\rpt\yhsg备份.mdb"
MousePointer = vbDefault
MsgBox "备份完毕！", vbInformation, "信息"
bf = True
'Call MDIForm_Unload
MousePointer = vbDefault
End Sub

Private Sub numlxr_Click()
Frmlxr.Show
End Sub

Private Sub nummi_Click()
WindowState = vbMinimized
End Sub

Private Sub numsftj_Click()
MousePointer = vbHourglass
Frmsftj.Show
MousePointer = vbDefault
End Sub

Private Sub numsgcx_Click()
MousePointer = vbHourglass
Frmsgcx.Show
MousePointer = vbDefault
End Sub

Private Sub numsgdj_Click()
MousePointer = vbHourglass
Frmsgdj.Show
MousePointer = vbDefault
End Sub


Private Sub numshdjcx_Click()
MousePointer = vbHourglass
Frmshdj.Show
MousePointer = vbDefault
End Sub

Private Sub numzd_Click()
WindowState = vbMaximized
End Sub

Private Sub numzhgl_Click()
Frmzhgl.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
        Case "zhgl"
            Frmzhgl.Show
        Case "beifen"
            bjbeifen = True
            Call numbeifen_Click
        Case "huifu"
            bjbeifen = True
            Call numhuifu_Click
        Case "shdj"
            Call numshdjcx_Click
        Case "fhdj"
            Call numfhdjcx_Click
        Case "sftj"
            Call numsftj_Click
        Case "sgdj"
            Frmsgdj.Show
        Case "sgcx"
            Frmsgcx.Show
        Case "exit"
            bjexit = True
            Unload Me
        Case "lxr"
            Frmlxr.Show
        Case "anbj"
            Call numbjmctj_Click
    End Select
End Sub