formquit.frm

适合乡镇供电所使用电费处理系统v3 软件

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form FormQuit 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "请选择退出选项："
   ClientHeight    =   2670
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6270
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   2670
   ScaleWidth      =   6270
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.Toolbar Toolbar4 
      Height          =   570
      Left            =   4725
      TabIndex        =   5
      Top             =   1335
      Width           =   1380
      _ExtentX        =   2434
      _ExtentY        =   1005
      ButtonWidth     =   2408
      ButtonHeight    =   1005
      Style           =   1
      TextAlignment   =   1
      ImageList       =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   1
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "重新登录"
            ImageIndex      =   5
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Height          =   570
      Left            =   4725
      TabIndex        =   2
      Top             =   90
      Width           =   1380
      _ExtentX        =   2434
      _ExtentY        =   1005
      ButtonWidth     =   2408
      ButtonHeight    =   1005
      Style           =   1
      TextAlignment   =   1
      ImageList       =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   1
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "备份退出"
            ImageIndex      =   3
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame1 
      Height          =   2370
      Left            =   195
      TabIndex        =   0
      Top             =   120
      Width           =   4335
      Begin MSComctlLib.ImageList ImageList2 
         Left            =   2040
         Top             =   1380
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   32
         ImageHeight     =   32
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   6
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "FormQuit.frx":0000
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "FormQuit.frx":0452
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "FormQuit.frx":076C
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "FormQuit.frx":0A86
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "FormQuit.frx":0DA0
               Key             =   ""
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "FormQuit.frx":3552
               Key             =   ""
            EndProperty
         EndProperty
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   150
         Picture         =   "FormQuit.frx":5D04
         Top             =   270
         Width           =   480
      End
      Begin VB.Label Label1 
         Caption         =   "    推荐您在退出“乡镇供电所电费处理系统”电费处理系统之前备份数据，以防意外掉电等事故后能完全恢复您的数据！"
         ForeColor       =   &H00000000&
         Height          =   690
         Left            =   420
         TabIndex        =   1
         Top             =   735
         Width           =   3390
      End
   End
   Begin MSComctlLib.Toolbar Toolbar2 
      Height          =   570
      Left            =   4725
      TabIndex        =   3
      Top             =   705
      Width           =   1380
      _ExtentX        =   2434
      _ExtentY        =   1005
      ButtonWidth     =   2408
      ButtonHeight    =   1005
      Style           =   1
      TextAlignment   =   1
      ImageList       =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   1
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "直接退出"
            ImageIndex      =   2
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar3 
      Height          =   570
      Left            =   4725
      TabIndex        =   4
      Top             =   1980
      Width           =   1380
      _ExtentX        =   2434
      _ExtentY        =   1005
      ButtonWidth     =   2408
      ButtonHeight    =   1005
      Style           =   1
      TextAlignment   =   1
      ImageList       =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   1
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "放弃退出"
            ImageIndex      =   1
         EndProperty
      EndProperty
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H80000005&
      Height          =   2595
      Left            =   15
      Top             =   45
      Width           =   6240
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H80000003&
      Height          =   2625
      Left            =   0
      Top             =   30
      Width           =   6240
   End
End
Attribute VB_Name = "FormQuit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    DataBackUp.Show vbModal
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
     Unload Me
     End
End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
     Unload Me
End Sub

Private Sub Toolbar4_ButtonClick(ByVal Button As MSComctlLib.Button)
   Unload Me
   Operator = ""
   XzCode = ""
   XcCode = ""
   GzNian = ""
   GzYue = ""
   frmMain.StatusBar1.Panels(1).Text = ""
   frmMain.StatusBar1.Panels(2).Text = ""
   frmMain.StatusBar1.Panels(3).Text = ""
   frmLogin.Show vbModal
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    Dim I As Integer
    OpenMdb
    Set MdbR = NdMd.OpenRecordset("操作纪录")
    With MdbR
         .Index = "操作员"
         .Seek "=", Operator & ""
         If Not .NoMatch Then
                .Edit
                .Fields("退出日期") = Now
                .Update
                .Close
         End If
    End With
    MdbR.Close
    Set MdbR = Nothing
    NdMd.Close
    Set NdMd = Nothing
    For I = Forms.Count - 1 To 1 Step -1
        Unload Forms(I)
    Next
    If frmMain.WindowState <> vbMinimized Then
        SaveSetting App.EXEName, "Settings", "MainLeft", frmMain.Left
        SaveSetting App.EXEName, "Settings", "MainTop", frmMain.Top
        SaveSetting App.EXEName, "Settings", "MainWidth", frmMain.Width
        SaveSetting App.EXEName, "Settings", "MainHeight", frmMain.Height
    End If
End Sub