mainform.frm

这是一个银行IC卡门禁系统软件

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{1BE65FA0-CBF9-11D2-BBC7-00104B9E0792}#2.0#0"; "SSTBARS2.OCX"
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Object = "{5B537D57-99EB-435B-85F6-0FD6F9CB8CAA}#1.0#0"; "GUESTPWD.OCX"
Begin VB.MDIForm mainForm 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3825
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9735
   Icon            =   "mainForm.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin vb6projectPassword.PWD PWD1 
      Left            =   3840
      Top             =   600
      _ExtentX        =   2672
      _ExtentY        =   873
      Enable          =   -1  'True
   End
   Begin PicClip.PictureClip Pic 
      Left            =   1680
      Top             =   600
      _ExtentX        =   2566
      _ExtentY        =   2355
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog CD 
      Left            =   3210
      Top             =   1770
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin ActiveToolBars.SSActiveToolBars LockMenu 
      Left            =   600
      Top             =   1830
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   131083
      MenuAnimations  =   1
      PictureBackgroundStyle=   2
      ToolBarsCount   =   2
      ToolsCount      =   15
      PersonalizedMenus=   0
      PictureBackgroundUseMask=   -1  'True
      ShowShortcutsInToolTips=   -1  'True
      Tools           =   "mainForm.frx":030A
      ToolBars        =   "mainForm.frx":6A6A
   End
End
Attribute VB_Name = "mainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


'##ModelId=3D33858201FF
Private HavePrimaryPWD As Boolean
'##ModelId=3D3385820245
Private FormName As String
'##ModelId=3D338582028B
Private FirstRun As Boolean

'##ModelId=3D33858202D1
Private frm As Object

'Private mIwNet As New IWshNetwork_Class
Private m_AccountID As Long

Private Sub LockMenu_ToolClick(ByVal Tool As ActiveToolBars.SSTool)
On Error Resume Next
With LockMenu.Tools
   Select Case Tool.ID
      Case "ID_mnuExit"
         Unload Me
      Case "ID_NewCard"
         HideOtherForm
         Load frmAddLock
         frmAddLock.Show
         FormName = "addlock"
      Case "ID_ISTDCard"
         HideOtherForm
         Load frmTimeCard
         frmTimeCard.Show
         FormName = "timecard"
      Case "ID_ISDACard"
         HideOtherForm
         Load frmDataCard
         frmDataCard.Show
         FormName = "datacard"
      Case "ID_KeyRecords"
         HideOtherForm
         Load frmQuery
         frmQuery.Show
         FormName = "query"
      Case "ID_Duty"
         HideOtherForm
         Load frmLogin
         frmLogin.Show
         FormName = "login"
      Case "ID_mnuOperatorSetting"
         HideOtherForm
         Load frmAddOperator
         frmAddOperator.Show
         FormName = "addoperator"
      Case "ID_Restore"
         DBRestore
      Case "ID_AddLockArea"
         HideOtherForm
         Load frmAddLockArea
         frmAddLockArea.Show
         FormName = "addlockarea"
      Case "ID_Query"
         HideOtherForm
         Load frmQueryLock
         frmQueryLock.Show
         FormName = "querylock"
      Case Else
   End Select
End With
Exit Sub
End Sub

Private Sub HideOtherForm()
On Error Resume Next
   Select Case LCase(FormName)
       Case "querylock"
          Unload frmQueryLock
       Case "addlockarea"
          Unload frmAddLockArea
       Case "addlock"
          Unload frmAddLock
       Case "timecard"
          Unload frmTimeCard
       Case "datacard"
          Unload frmDataCard
       Case "query"
          Unload frmQuery
       Case "login"
          Unload frmLogin
       Case "addoperator"
          Unload frmAddOperator
       Case Else
  End Select
  Exit Sub
End Sub
Private Sub MDIForm_Activate()

    '<EhHeader>
    On Error GoTo MDIForm_Activate_Err
    '</EhHeader>
    
'        License

        
        If Operator = "" Then
    
            Load frmLogin
            frmLogin.Show vbModal
            Operator = frmLogin.Operator
            OperateLevel = frmLogin.OperateLevel
            captionShow

        End If
        
    '<EhFooter>
    Exit Sub

MDIForm_Activate_Err:
    LockErrorShow

    '</EhFooter>

End Sub

'##ModelId=3D3385820335
Private Sub captionShow()
  Me.Caption = "互锁联动门禁系统"
End Sub

'##ModelId=3D338582035D
Private Sub MDIForm_Load()

    '<EhHeader>
    On Error GoTo MDIForm_Load_Err
    
    captionShow
    
    If Not GetSetting("Lock", "Setting", "BackGround", "") = "" Then

        If FileExists(GetSetting("Lock", "Setting", "BackGround", "")) Then

            Me.Picture = LoadPicture(GetSetting("Lock", "Setting", "BackGround", ""))

        End If

    ElseIf FileExists(App.Path & "\BackGround.jpg") Then

        Me.Picture = LoadPicture(App.Path & "\BackGround.jpg")

    End If

    If Not GetSetting("Lock", "Setting", "WalletPaper", "") = "" Then

        If FileExists(GetSetting("Lock", "Setting", "WalletPaper", "")) Then
    
            Me.Pic.Picture = LoadPicture(GetSetting("Lock", "Setting", "WalletPaper", ""))

        End If
    
    ElseIf FileExists(App.Path & "\WalletPaper.bmp") Then

        Me.Pic.Picture = LoadPicture(App.Path & "\WalletPaper.bmp")

    End If
    
    Me.Show


    
    Me.LockMenu.PictureBackground = Me.Pic.Picture
    Me.LockMenu.PictureBackgroundStyle = ssPictureTiled
    Set dbcnn = New LockDBConnection
    Set cnnLock = New ADODB.Connection
    Set cnnLock = dbcnn.cnn


    '<EhFooter>
    Exit Sub

MDIForm_Load_Err:
    LockErrorShow

    '</EhFooter>

End Sub


'##ModelId=3D338582038F
Private Sub MDIForm_Unload(Cancel As Integer)


        Set cnnLock = Nothing
        Set dbcnn = Nothing
        frmBackup.Show vbModal

End Sub

Private Sub DBRestore()
    '<EhHeader>
    On Error GoTo DBRestore_Err
    '</EhHeader>


    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
            
    Dim fOriginal As File
    Dim fBackup As File
    Dim FileName As String
    Dim AccessPath As String
    Dim BackupPath As String
    
    BackupPath = GetSetting("LockDB", "CnnServer", "BackupPath", "")
    
    CD.InitDir = Left(BackupPath, Len(BackupPath) - InStrRev(BackupPath, "\"))
    
    CD.DialogTitle = "恢复系统数据库..."
    CD.Filter = "MS Access 97/2000(*.MDB)|*.MDB"
    
    CD.ShowOpen
    
    If CD.FileName = "" Then

        Exit Sub

    End If
    
    If Not FileExists(CD.FileName) Then

        MsgBox "文件不存在，请重新选择。", vbOKOnly, "提示"
        Exit Sub

    End If
        
    AccessPath = GetSetting("LockDB", "CnnServer", "AccessPath", "")
    FileName = Right(AccessPath, Len(AccessPath) - InStrRev(AccessPath, "\"))

    Set cnnLock = Nothing
    Set dbcnn = Nothing

    If FileExists(Replace(AccessPath, FileName, "~" & FileName)) Then

        Set fBackup = fso.GetFile(Replace(AccessPath, FileName, "~" & FileName))
        fBackup.Delete
        Set fBackup = Nothing

    End If
    
    Set fOriginal = fso.GetFile(AccessPath)
    fOriginal.Copy (Replace(AccessPath, FileName, "~" & FileName))
    fOriginal.Delete
            
    Set fBackup = fso.GetFile(CD.FileName)
    
    fBackup.Copy (AccessPath)
    

    End
    '<EhFooter>
    Exit Sub

DBRestore_Err:
    LockErrorShow

    '</EhFooter>
End Sub