⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mdiform1.frm

📁 一个银行的管理系统
💻 FRM
字号:
🔍 
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000006&
   Caption         =   "银行储蓄系统"
   ClientHeight    =   6450
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   15240
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList3 
      Left            =   2880
      Top             =   4320
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   120
      ImageHeight     =   40
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   4
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":3E61
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":7C73
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":C49D
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   2160
      Top             =   4320
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   120
      ImageHeight     =   40
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":1024E
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":156A7
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":1AF90
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":21657
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":26F23
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":2D0FD
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   1320
      Top             =   4320
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   120
      ImageHeight     =   40
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":32BC5
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":3769B
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":3C3AF
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":415FD
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":46182
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":4B412
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   975
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   15240
      _ExtentX        =   26882
      _ExtentY        =   1720
      ButtonWidth     =   3360
      ButtonHeight    =   1561
      Appearance      =   1
      ImageList       =   "ImageList2"
      DisabledImageList=   "ImageList1"
      HotImageList    =   "ImageList3"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "开 户"
            Object.ToolTipText     =   "开户"
            ImageIndex      =   4
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "存 款"
            ImageIndex      =   2
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "取 款"
            ImageIndex      =   1
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查 询 利 率"
            ImageIndex      =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "关 于"
            ImageIndex      =   5
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退 出 系 统"
            ImageIndex      =   6
            MixedState      =   -1  'True
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin MSComctlLib.StatusBar zhuangTaiLan 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   6075
      Width           =   15240
      _ExtentX        =   26882
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Enabled         =   0   'False
            Object.Width           =   1058
            MinWidth        =   1058
            Text            =   "日期"
            TextSave        =   "日期"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Object.Width           =   1058
            MinWidth        =   1058
            Text            =   "时间"
            TextSave        =   "时间"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   2
            AutoSize        =   1
            Object.Width           =   13732
            Text            =   "中北大学 计算机科学与技术系 2005年 版权所有"
            TextSave        =   "中北大学 计算机科学与技术系 2005年 版权所有"
         EndProperty
      EndProperty
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   0
      Top             =   4320
   End
   Begin VB.Menu xiTongGuanLi 
      Caption         =   " 系 统 管 理 "
      NegotiatePosition=   2  'Middle
      Begin VB.Menu addYongHu 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu alterMima 
         Caption         =   "修改密码"
         Shortcut        =   ^B
      End
      Begin VB.Menu zhuXiao 
         Caption         =   "注销"
         Shortcut        =   ^C
      End
      Begin VB.Menu tuiChu 
         Caption         =   "退出"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu addNew 
      Caption         =   " 开 户 "
   End
   Begin VB.Menu cashIn 
      Caption         =   " 存 款 "
   End
   Begin VB.Menu cashOut 
      Caption         =   " 取 款 "
   End
   Begin VB.Menu chaXun 
      Caption         =   " 查 询 "
      Begin VB.Menu xinXiChaXun 
         Caption         =   "信息查询"
      End
      Begin VB.Menu liLvChaXun 
         Caption         =   "利率查询"
         Shortcut        =   ^F
      End
   End
   Begin VB.Menu shuJuBeiFen 
      Caption         =   " 数 据 备 份 "
      Begin VB.Menu Beifen 
         Caption         =   "备份"
      End
      Begin VB.Menu huanYuan 
         Caption         =   "还原"
      End
   End
   Begin VB.Menu 消户 
      Caption         =   "消户"
   End
   Begin VB.Menu help 
      Caption         =   " 帮 助 "
      Begin VB.Menu about 
         Caption         =   "关于"
         Shortcut        =   ^Y
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub about_Click()
    aboutUsForm.Show
End Sub


Private Sub addNew_Click()
  addNewForm.Show
  addNewForm.Text1.Text = ""
  addNewForm.Text2.Text = ""
  addNewForm.Text3.Text = ""
  addNewForm.Text4.Text = ""
  addNewForm.Combo1.Text = "选择"
  Randomize
  z = Str(Int(Rnd * 1000 + 1000))
  addNewForm.Label7.Caption = "A1234" + Trim(z)
End Sub

Private Sub addYongHu_Click()
    If admin Then
            addYongHuForm.Show
        Else
        MsgBox "您没有权利添加帐户", vbOKOnly + vbExclamation, ""
    End If
    
End Sub

Private Sub alterMima_Click()
  alterMiMaForm.Show
End Sub

Private Sub Beifen_Click()
   If admin Then
            saveAsForm.Show
            Else
                MsgBox "对不起，您没有权限！", vbOKOnly + vbExclamation, "错误"
    End If
End Sub

Private Sub cashIn_Click()
  xuanZe.Show
End Sub

Private Sub cashOut_Click()
  cashOutForm1.Show
End Sub

Private Sub huanYuan_Click()
  If admin Then
            openFileForm.Show
            Else
                MsgBox "对不起，您没有权限！", vbOKOnly + vbExclamation, "错误"
    End If
End Sub

Private Sub liLvChaXun_Click()
  liLvChaXunForm.Show
  
End Sub

Private Sub MDIForm_Load()
Dim adString As String
    zhuangTaiLan.Panels(2) = Date
    If admin = True Then
        adString = "（管理员）"
        Else
        adString = "（普通帐号）"
    End If
    
    zhuangTaiLan.Panels(5) = "当前用户：" & userName & adString
    
End Sub

Private Sub Timer1_Timer()
    zhuangTaiLan.Panels(4) = Time
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Index
    Case 1
      addNewForm.Show
        addNewForm.Text1.Text = ""
        addNewForm.Text2.Text = ""
        addNewForm.Text3.Text = ""
        addNewForm.Text4.Text = ""
        addNewForm.Combo1.Text = "选择"
        Randomize
        z = Str(Int(Rnd * 1000 + 1000))
        addNewForm.Label7.Caption = "A1234" + Trim(z)
    Case 2
      xuanZe.Show
    Case 3
      cashOutForm1.Show
    Case 4
      liLvChaXunForm.Show
    Case 5
        aboutUsForm.Show
    Case 6
        End
        
End Select

  
End Sub

Private Sub tuiChu_Click()
  End
End Sub

Private Sub xinXiChaXun_Click()
   If admin Then
            xinxichaxunform.Show
             Else
        MsgBox "您没有权利查询帐户信息！", vbOKOnly + vbExclamation, "错误"
    End If
  
End Sub

Private Sub zhuXiao_Click()
  userName = ""
  userID = ""
  admin = False
  Unload Me
  logIn.Show
End Sub

Private Sub 消户_Click()
  xiaochu.Show
End Sub

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -