form3.frm

简单的银行管理系统代码,适合学生课程设计用

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form 主界面 
   BackColor       =   &H00C0C0FF&
   Caption         =   "界面"
   ClientHeight    =   5370
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8265
   ForeColor       =   &H00C0FFFF&
   LinkTopic       =   "Form3"
   Picture         =   "Form3.frx":0000
   ScaleHeight     =   5370
   ScaleWidth      =   8265
   StartUpPosition =   3  '窗口缺省
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   9360
      Top             =   1200
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu a 
      Caption         =   "管理员信息查询"
      Begin VB.Menu A2 
         Caption         =   "添加管理员"
      End
      Begin VB.Menu deladmin 
         Caption         =   "删除管理员"
      End
      Begin VB.Menu mnuFileLine3 
         Caption         =   "-"
      End
      Begin VB.Menu 查看操作明细 
         Caption         =   "查看操作明细表"
      End
      Begin VB.Menu a3 
         Caption         =   "利率设置"
      End
   End
   Begin VB.Menu b 
      Caption         =   "用户管理信息"
      Begin VB.Menu B1 
         Caption         =   "添加用户"
      End
      Begin VB.Menu b8 
         Caption         =   "删除用户"
      End
      Begin VB.Menu mnuFileLine1 
         Caption         =   "-"
      End
      Begin VB.Menu B2 
         Caption         =   "存款(活期)"
      End
      Begin VB.Menu B3 
         Caption         =   "取款(活期)"
      End
      Begin VB.Menu b6 
         Caption         =   "查询(活期)"
      End
      Begin VB.Menu mnuFileLine2 
         Caption         =   "-"
      End
      Begin VB.Menu b4 
         Caption         =   "存款(定期)"
      End
      Begin VB.Menu b5 
         Caption         =   "取款(定期)"
      End
      Begin VB.Menu b7 
         Caption         =   "查询(定期)"
      End
   End
   Begin VB.Menu anquan 
      Caption         =   "安全"
      Begin VB.Menu out 
         Caption         =   "数据库恢复"
         Shortcut        =   ^R
      End
      Begin VB.Menu in 
         Caption         =   "数据库备份"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu E 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub A2_Click()
添加管理员.Show
End Sub

Private Sub a3_Click()
利率设置.Show
End Sub

Private Sub B1_Click()
添加用户.Show
End Sub

Private Sub B2_Click()
活期存.Show
End Sub

Private Sub B3_Click()
活期取.Show
End Sub

Private Sub b4_Click()
定期存储.Show
End Sub

Private Sub b5_Click()
定期取.Show
End Sub

Private Sub b6_Click()
查询活期.Show

End Sub

Private Sub b7_Click()
查询定期.Show
End Sub

Private Sub b8_Click()
删除用户.Show
End Sub

Private Sub deladmin_Click()
删除管理员.Show
End Sub

Private Sub E_Click()
If MsgBox("确定退出？", vbOKCancel, "提示") = vbOK Then

Unload Me
End If
End Sub


Private Sub in_Click() '数据库备份按钮
Dim mfile As String, mfile2 As String
On Error Resume Next
CommonDialog1.Filter = "Access文件(*.mdb)|*.mdb"
CommonDialog1.ShowSave
mfile = App.Path & "\银行管理系统.mdb" '要备份的文件为当前文件夹下的 db1.mdb
mfile2 = CommonDialog1.FileName '得到目标文件的路径
If Trim(mfile2) = "" Then Exit Sub
If Dir(mfile2) <> "" Then
If MsgBox(Dir(mfile2) & " 文件已经存在，是否替换？", vbYesNo, "警告") = vbNo Then Exit Sub
End If
Dim buff() As Byte, i As Long

i = FileLen(mfile)
ReDim buff(i - 1)

Open mfile For Binary As #1
Get #1, , buff
Close #1

Open mfile2 For Binary As #1
Put #1, , buff
Close #1

MsgBox "备份完毕！"
End Sub


Private Sub out_Click()
Dim mfile As String, mfile2 As String
On Error Resume Next
CommonDialog1.Filter = "Access文件(*.mdb)|*.mdb"
CommonDialog1.ShowOpen
mfile = CommonDialog1.FileName '得到别处的Access文件的路径
mfile2 = App.Path & "\银行管理系统.mdb" '要覆盖掉当前文件夹下的 银行管理系统.mdb

If Trim(mfile) = "" Then Exit Sub

If MsgBox("是否恢复数据库？", vbYesNo, "警告") = vbNo Then Exit Sub

Dim buff() As Byte, i As Long

i = FileLen(mfile)
ReDim buff(i - 1)

Open mfile For Binary As #1
Get #1, , buff
Close #1

Open mfile2 For Binary As #1
Put #1, , buff
Close #1

MsgBox "恢复完毕！"
End Sub

Private Sub 查看操作明细_Click()
查看帐目明细表.Show
End Sub