VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIFrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "銀行管理系統"
   ClientHeight    =   7215
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9015
   LinkTopic       =   "MDIForm1"
   MousePointer    =   2  'Cross
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   7215
      Left            =   0
      Picture         =   "MDIFrmMain.frx":0000
      ScaleHeight     =   7155
      ScaleWidth      =   8955
      TabIndex        =   0
      Top             =   0
      Width           =   9015
      Begin MSComDlg.CommonDialog dlg 
         Left            =   0
         Top             =   0
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuFileLogout 
         Caption         =   "注銷"
      End
      Begin VB.Menu mnurestore 
         Caption         =   "還原數據庫"
      End
      Begin VB.Menu mnubackup 
         Caption         =   "備份數據庫"
      End
      Begin VB.Menu mnuFileOut 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuWork 
      Caption         =   "操作(&W)"
      Begin VB.Menu newaccount 
         Caption         =   "開戶"
      End
      Begin VB.Menu deleteaccount 
         Caption         =   "銷戶"
      End
      Begin VB.Menu line 
         Caption         =   "-"
      End
      Begin VB.Menu deposit 
         Caption         =   "存款"
      End
      Begin VB.Menu fetch 
         Caption         =   "取款"
      End
      Begin VB.Menu transfer 
         Caption         =   "轉帳"
      End
   End
   Begin VB.Menu mnuAccount 
      Caption         =   "用戶(&A)"
      Begin VB.Menu mnuAccountNew 
         Caption         =   "新建"
      End
      Begin VB.Menu mnuAccountDelete 
         Caption         =   "刪除"
      End
      Begin VB.Menu mnuAccountUpdata 
         Caption         =   "修改"
      End
   End
   Begin VB.Menu query 
      Caption         =   "查詢(&E)"
      Begin VB.Menu queryaccount 
         Caption         =   "銀行用戶"
      End
      Begin VB.Menu queryclerk 
         Caption         =   "職員信息"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "幫助(&H)"
      Begin VB.Menu mnuHelpDocument 
         Caption         =   "文檔"
      End
      Begin VB.Menu mnuHelpLine1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "關于"
      End
   End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Private Sub deleteaccount_Click()
deleteaccoun.Show
End Sub

Private Sub deposit_Click()
deposit1.Show
End Sub

Private Sub fetch_Click()
If MsgBox("您好！請根據提示取款！", vbOKCancel, "提示") = vbOK Then
fetch1.Show
End If
End Sub

Private Sub mnuAccountDelete_Click()

deleteSysacc.Show
End Sub

Private Sub mnuAccountNew_Click()

newSysacc.Show
End Sub

Private Sub mnuAccountUpdata_Click()
If power = "common" Then
modification.Label7.Visible = False
modification.Combo1.Visible = False
End If
modification.Show
End Sub

Private Sub mnubackup_Click()
  If MsgBox("真的要執行備份嗎？", 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)     '此語句用于連接數據庫，具體可以到 shareFunction 模塊中找到說明
        cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bank;Data Source=(local)"
        cn.Open
        MousePointer = 11
        cn.Execute "backup database bank to disk='" & dlg.FileName & "'"  '備份數據庫到指定文件
        cn.Close
        MousePointer = 0
        MsgBox "備份成功"
    End If
End Sub

Private Sub mnuFileLogout_Click()
Unload Me
landForm1.Show
End Sub

Private Sub mnuFileOut_Click()
Unload Me
End Sub

Private Sub mnuHelpDocument_Click()
MsgBox ("對不起！本系統還未建立幫助文件！")
End Sub

Private Sub mnurestore_Click()
Dim rst As Recordset
Set cn = New Connection
Set rst = New Recordset
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If MsgBox("真的要恢復數據庫嗎？數據恢復操作將會覆蓋以前的所有數據并且覆蓋后無法恢復，您確定要進行恢復操作嗎？", 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
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '還原數據庫↓
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        On Error GoTo errDB
        Dim errDBV As Boolean
        errDBV = True
        cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=(local)"
        cn.Open
        rst.Open "select spid from sysprocesses where dbid=db_id('bank')", cn
       Do While Not rst.EOF
       cn.Execute "kill " & rst("spid")
       rst.MoveNext
       Loop
       rst.Close
       'cn.Close
       
        'cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=(local)"

        'cn.Open
        MousePointer = 11
        cn.Execute "RESTORE DATABASE bank FROM disk='" & dlg.FileName & "' WITH replace"
      ' cn.Execute "RESTORE DATABASE bank FROM disk='d:\aa.bak' with replace"
        cn.Close
        errDBV = False
        MousePointer = 0
        MsgBox "數據庫還原成功"
    End If
errDB:
    If errDBV Then  '如果還原失敗，則給出提示
        MsgBox "數據庫還原失敗，可能是因為此數據庫正在使用，請試著在還原前重啟 SQL 數據庫！"
        MousePointer = 0
        Exit Sub
    End If
End Sub

Private Sub newaccount_Click()
newaccount1.Text1(4).Text = sid        '將操作員的卡號傳給開戶下一步
newaccount1.Text1(4).Enabled = False
If MsgBox("您好！歡迎您成為本銀行的用戶，請根據提示開戶！", vbOKCancel, "提示") = vbOK Then
newaccount1.Show
End If
End Sub

Private Sub queryaccount_Click()
queryaccount1.Show
End Sub

Private Sub queryclerk_Click()
queryclerk1.Show
End Sub

Private Sub transfer_Click()
'If MsgBox("您好！請根據提示轉帳！", vbOKCancel, "提示") = vbOK Then
transfer1.Show
End Sub