VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.MDIForm MDIFrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "華工銀行儲蓄管理系統(tǒng)"
   ClientHeight    =   6150
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   9510
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog dlg 
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu mnuAccount 
      Caption         =   "帳戶"
      Begin VB.Menu mnuFileAccrual 
         Caption         =   "利率"
      End
      Begin VB.Menu mnuAccountNew 
         Caption         =   "新建"
      End
      Begin VB.Menu mnuAccountUpdata 
         Caption         =   "修改"
      End
      Begin VB.Menu mnuAccountDelete 
         Caption         =   "刪除"
      End
      Begin VB.Menu mnuAccountUpdatePW 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu mnuFileLine1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileLogout 
         Caption         =   "注銷"
      End
      Begin VB.Menu mnuFileOut 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuWork 
      Caption         =   "操作"
      Begin VB.Menu mnuWorkOAA 
         Caption         =   "開戶(活期)"
      End
      Begin VB.Menu mnuWorkDeposit 
         Caption         =   "存款(活期)"
      End
      Begin VB.Menu mnuWorkFetch 
         Caption         =   "取款(活期)"
      End
      Begin VB.Menu mnuWorkLine1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQuery 
         Caption         =   "余額查詢(活期)"
      End
      Begin VB.Menu mnuQueryAll 
         Caption         =   "全部查詢(活期)"
      End
      Begin VB.Menu mnuWorkFQuery 
         Caption         =   "查詢(定期)"
      End
      Begin VB.Menu mnuWorkLine2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFixDeposit 
         Caption         =   "存款(定期)"
      End
      Begin VB.Menu mnuFixFetch 
         Caption         =   "取款(定期)"
      End
   End
   Begin VB.Menu mnuFile 
      Caption         =   "安全"
      Begin VB.Menu mnuFileForBackup 
         Caption         =   "備份數(shù)據(jù)庫"
      End
      Begin VB.Menu mnuFileBackup 
         Caption         =   "還原數(shù)據(jù)庫"
      End
   End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rst As Recordset

Private Sub MDIForm_Load()
    If userPower <> "admin" Then
        mnuFileForBackup.Enabled = False
        mnuFileBackup.Enabled = False
        mnuQueryAll.Enabled = False
        mnuAccountNew.Enabled = False
        mnuAccountDelete.Enabled = False
        mnuAccountUpdata.Enabled = False
        mnuWorkFQuery.Enabled = False
        mnuFileAccrual.Enabled = False
    End If
End Sub

Private Sub mnuAccountDelete_Click()
    frmDeleteUser.Show
End Sub

Private Sub mnuAccountNew_Click()
    frmNewUser.Show
End Sub

Private Sub mnuAccountUpdata_Click()
    Set rst = New Recordset
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    rst.Open "select * from users", con, adOpenDynamic, adLockOptimistic
    rst.MoveFirst
    Do While Not rst.EOF
        frmUpdateUser.lst.AddItem (rst!name)
        rst.MoveNext
    Loop
    rst.Close
    con.Close
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    frmUpdateUser.cmb.AddItem ("admin")
    frmUpdateUser.cmb.AddItem ("user")
    frmUpdateUser.Show
End Sub

Private Sub mnuAccountUpdatePW_Click()
    frmUpdatePW.Show
End Sub

Private Sub mnuFileAccrual_Click()
    frmAccrual.Show
End Sub

Private Sub mnuFileBackup_Click()
    Set rst = New Recordset
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If MsgBox("真的要恢復(fù)數(shù)據(jù)庫嗎？數(shù)據(jù)恢復(fù)操作將會覆蓋以前的所有數(shù)據(jù)并且覆蓋后無法恢復(fù)，您確定要進行恢復(fù)操作嗎？", vbOKCancel + vbInformation, "提示") = vbOK Then     '如果確定提示
        ''''''''''''''''''''''''''''''''''''''''''' 初始化打開文件對話框↓
        dlg.CancelError = False
        dlg.Filter = "(*.bak)|*.bak"
        dlg.ShowOpen
        ''''''''''''''''''''''''''''''''''''''''''' 如果選擇的文件為空，則退出
        If dlg.FileName = "" Then
            Exit Sub
        End If
        ''''''''''''''''''''''''''''''''''''''''''' 如果選擇的文件不存在，則退出
        If Dir(dlg.FileName) = "" Then
            MsgBox "文件" & dlg.FileName & "不存在！", vbOKOnly + vbInformation, "提示"
            Exit Sub
        End If
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '還原數(shù)據(jù)庫↓
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        On Error GoTo errDB
        Dim errDBV As Boolean
        errDBV = True
        Call LinkDB(landWay, SName, "master", SUName, SUPw)
        con.Open
        MousePointer = 11
        con.Execute "RESTORE DATABASE weboy FROM disk='" & dlg.FileName & "' WITH replace"
        con.Close
        errDBV = False
        MousePointer = 0
        MsgBox "數(shù)據(jù)庫還原成功"
    End If
errDB:
    If errDBV Then
        MsgBox "數(shù)據(jù)庫還原失敗，可能是因為此數(shù)據(jù)庫正在使用，請試著在還原前重啟 SQL 數(shù)據(jù)庫！"
        MousePointer = 0
        Exit Sub
    End If
End Sub

Private Sub mnuFileForBackup_Click()
    If MsgBox("真的要執(zhí)行備份嗎？", vbOKCancel + vbInformation, "提示") = vbOK Then
        dlg.CancelError = False
        dlg.Filter = "(*.bak)|*.bak"
        dlg.ShowSave
        If dlg.FileName = "" Then   '
            Exit Sub
        End If
        If Dir(dlg.FileName) <> "" Then
            If MsgBox("文件" & dlg.FileName & "已存在！要替換嗎？", vbOKCancel + vbInformation, "提示") = vbOK Then
                Kill dlg.FileName
            Else
                Exit Sub
            End If
        End If
        Call LinkDB(landWay, SName, "master", SUName, SUPw)
        con.Open
        MousePointer = 11
        con.Execute "backup database weboy to disk='" & dlg.FileName & "'"
        con.Close
        MousePointer = 0
        MsgBox "備份成功"
    End If
End Sub

Private Sub mnuFileLogout_Click()
    Unload Me
    frmLand.cmbSName.Text = SName
    frmLand.Show
End Sub

Private Sub mnuFileOut_Click()
    Unload Me
End Sub

Private Sub mnuFixDeposit_Click()
    frmFixDeposit1.Show
End Sub

Private Sub mnuFixFetch_Click()
    frmFixFetch1.Show
End Sub

Private Sub mnuHelpAbout_Click()
    frmAbout.Show
End Sub

Private Sub mnuQuery_Click()
    frmQuery.Show
End Sub

Private Sub mnuQueryAll_Click()
    Set rst = New Recordset
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    On Error GoTo errFind
    rst.Open "select id from CConsumers", con, adOpenDynamic, adLockOptimistic
    rst.MoveFirst
    Do While Not rst.EOF
        frmQueryAll.lst.AddItem (rst!id)
        rst.MoveNext
    Loop
errFind:
    rst.Close
    con.Close
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    frmQueryAll.Show
End Sub

Private Sub mnuWorkDeposit_Click()
    frmDeposit.Show
End Sub

Private Sub mnuWorkFetch_Click()
    frmFetch.Show
End Sub

Private Sub mnuWorkFQuery_Click()
    On Error Resume Next
    Dim rst As New Recordset
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    rst.Open "select * from FConsumers", con, adOpenDynamic, adLockOptimistic
    rst.MoveFirst
    Do While Not rst.EOF
        frmFixQuery.lst().AddItem (rst!id)
        rst.MoveNext
    Loop
    rst.Close
    con.Close
    frmFixQuery.Show
End Sub

Private Sub mnuWorkOAA_Click()
    If MsgBox("你好，華工銀行歡迎你！", vbOKCancel, "提示") = vbOK Then
        frmOAA1.Show
    End If
End Sub

Private Sub mnuWorkRemit_Click()
    frmRemit.Show
End Sub