form1.frm

银行储蓄系统,包括各种功能,能用于课程设计,相当不错

VERSION 5.00
Begin VB.Form cadh 
   Caption         =   "菜单导航"
   ClientHeight    =   6690
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   10650
   LinkTopic       =   "Form1"
   ScaleHeight     =   6690
   ScaleWidth      =   10650
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu Usem 
      Caption         =   "储户管理"
      Begin VB.Menu usead 
         Caption         =   "储户注册"
      End
      Begin VB.Menu msm 
         Caption         =   "信息管理"
      End
      Begin VB.Menu paw 
         Caption         =   "密码修改"
      End
   End
   Begin VB.Menu cqgl 
      Caption         =   "存取管理"
      Begin VB.Menu dqcgl 
         Caption         =   "定期存取业务管理"
      End
      Begin VB.Menu dqc 
         Caption         =   "存款"
      End
      Begin VB.Menu dqq 
         Caption         =   "取款"
      End
      Begin VB.Menu s 
         Caption         =   "-"
      End
      Begin VB.Menu hqcq 
         Caption         =   "活期存取业务管理"
      End
      Begin VB.Menu hqc 
         Caption         =   "存款"
      End
      Begin VB.Menu hqq 
         Caption         =   "取款"
      End
   End
   Begin VB.Menu bbgl 
      Caption         =   "报表管理"
      Begin VB.Menu lxjs 
         Caption         =   "利息计算"
      End
      Begin VB.Menu bddy 
         Caption         =   "报表打印"
      End
   End
   Begin VB.Menu sjkaq 
      Caption         =   "数据库安全管理"
      Begin VB.Menu bf 
         Caption         =   "备份"
      End
      Begin VB.Menu hy 
         Caption         =   "还原"
      End
   End
   Begin VB.Menu xt 
      Caption         =   "系统用户管理"
   End
   Begin VB.Menu tc 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "cadh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False





Private Sub bf_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)
        con.Open
        MousePointer = 11
        con.Execute "backup database weboy to disk='" & dlg.FileName & "'"
        con.Close
        MousePointer = 0
        MsgBox "备份成功"
    End If
End Sub

Private Sub dqcgl_Click()
dqcqgl.Show
End Sub









Private Sub dqc_Click()
dqck.Show
End Sub

Private Sub dqq_Click()
dqqk.Show
End Sub

Private Sub hqc_Click()
hqck.Show
End Sub

Private Sub hqcq_Click()
hqcqgl.Show
End Sub

Private Sub hqq_Click()
hqqk.Show
End Sub

Private Sub hy_Click()
 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
        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 "数据库还原成功"
    End If
errDB:
    If errDBV Then
        MsgBox "数据库还原失败，可能是因为此数据库正在使用，请试着在还原前重启 SQL 数据库！"
        MousePointer = 0
        Exit Sub
    End If
End Sub

Private Sub lxjs_Click()

End Sub

Private Sub msm_Click()
chxxgl.Show
End Sub

Private Sub paw_Click()
chmm.Show
End Sub

Private Sub usead_Click()
chzc.Show
End Sub

Private Sub xt_Click()

End Sub