frmmain.frm

储蓄管理演示系统.rar 用Visual Basic语言为某储蓄所建立一个“储蓄管理系统”

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmMain 
   Caption         =   "储蓄管理（作者：芦鹏宇）"
   ClientHeight    =   8520
   ClientLeft      =   1710
   ClientTop       =   1740
   ClientWidth     =   12000
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "frmMain.frx":0442
   ScaleHeight     =   8520
   ScaleWidth      =   12000
   Begin MSComDlg.CommonDialog dlgCommonDialog 
      Left            =   6120
      Top             =   1680
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComctlLib.ImageList imlIcons 
      Left            =   5280
      Top             =   1680
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   10
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1A094
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1A4E6
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1A938
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1AD8A
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1B1DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1B62E
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1BA80
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1BED2
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1C324
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1C776
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar tbToolbar 
      Align           =   1  'Align Top
      Height          =   660
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   12000
      _ExtentX        =   21167
      _ExtentY        =   1164
      ButtonWidth     =   1032
      ButtonHeight    =   1005
      Wrappable       =   0   'False
      Appearance      =   1
      ImageList       =   "imlIcons"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "新建储户"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "修改储户"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "删除储户"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "存取业务处理"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "结存金额统计"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "参加储蓄人数统计"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "储户存款情况查询"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "查找存款最多的储户"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "管理员登记"
            ImageIndex      =   9
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   390
      Left            =   0
      TabIndex        =   0
      Top             =   8130
      Width           =   12000
      _ExtentX        =   21167
      _ExtentY        =   688
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   15505
            Text            =   "状态"
            TextSave        =   "状态"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2004-6-27"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "12:40"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuChgl 
      Caption         =   "储户管理(&U)"
      Begin VB.Menu mnuXjch 
         Caption         =   "新建储户(&N)"
         Shortcut        =   {F4}
      End
      Begin VB.Menu mnuChxg 
         Caption         =   "储户修改(&M)"
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuScch 
         Caption         =   "删除储户(&D)"
         Shortcut        =   {F6}
      End
   End
   Begin VB.Menu mnuCQcl 
      Caption         =   "存取业务处理(&Y)"
   End
   Begin VB.Menu mnuCount 
      Caption         =   "统计(&C)"
      Begin VB.Menu mnuYe 
         Caption         =   "结存金额(&J)"
         Shortcut        =   {F7}
      End
      Begin VB.Menu mnuCxrs 
         Caption         =   "参加储蓄人数(&R)"
         Shortcut        =   {F8}
      End
   End
   Begin VB.Menu mnuQuery 
      Caption         =   "查询(&Q)"
      Begin VB.Menu mnuCkqk 
         Caption         =   "储户存款情况(&K)"
         Shortcut        =   {F11}
      End
      Begin VB.Menu mnuZdch 
         Caption         =   "存款金额最多的储户(&L)"
         Shortcut        =   {F12}
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWindowToolbar 
         Caption         =   "工具栏(&T)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuWindowStatusBar 
         Caption         =   "状态栏(&S)"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu mnuXtGLYZC 
      Caption         =   "管理员登记(&G)"
   End
   Begin VB.Menu mnuQKSJ 
      Caption         =   "系统初始化(&K)"
   End
   Begin VB.Menu mnuXtExit 
      Caption         =   "退出(&X)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)

Option Explicit
Dim WithEvents adoPrimaryRS As Recordset
Attribute adoPrimaryRS.VB_VarHelpID = -1

Private Sub MDIForm_Load()
    '从Windows注册表返回主窗体状态值，设置主窗体打开后的位置、大小
    Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    
End Sub


Private Sub MDIForm_Unload(Cancel As Integer)
    '在Windows注册表中保存主窗体状态
    If WindowState <> vbMinimized Then
       SaveSetting App.Title, "Settings", "MainLeft", Left
       SaveSetting App.Title, "Settings", "MainTop", Top
       SaveSetting App.Title, "Settings", "MainWidth", Width
       SaveSetting App.Title, "Settings", "MainHeight", Height
    End If
    
    EndApp      '退出应用程序
End Sub

Private Sub mnuChxg_Click()
    Dim fChxg As New frmChxg
    fChxg.Show vbModal      '显示储户信息修改窗口
    Set fChxg = Nothing
End Sub

Private Sub mnuCkqk_Click()
    Dim fCkqk As New frmCkqk
    fCkqk.Show vbModal      '显示储户存款情况窗口
    Set fCkqk = Nothing
End Sub

Private Sub mnuCQcl_Click()
    Dim fCQcl As New frmCQcl
    fCQcl.Show vbModal      '显示存取处理窗口
    Set fCQcl = Nothing
End Sub

Private Sub mnuCxrs_Click()
  '显示储户人数

  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "Select * from 储户", db, adOpenStatic, adLockOptimistic

  Dim intRsCount As Integer
  intRsCount = adoPrimaryRS.RecordCount
    
  MsgBox Space(15) & "参加储蓄人数：" & intRsCount & Space(15)
  adoPrimaryRS.Close
  Set adoPrimaryRS = Nothing
End Sub

Private Sub mnuQKSJ_Click()
'系统初始化
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "Delete * from 储户", db, adOpenStatic, adLockOptimistic
  adoPrimaryRS.Open "Insert into 储户(帐号,姓名,住址,电话) values('04003','张怡然','赣水路324号','75489845')", db, adOpenStatic, adLockOptimistic
  adoPrimaryRS.Open "Insert into 储户(帐号,姓名,住址,电话) values('04004','赵小红','中山路67号','78935643')", db, adOpenStatic, adLockOptimistic
  adoPrimaryRS.Open "Insert into 储户(帐号,姓名,住址,电话) values('04005','李明','红霞街1号','84659523')", db, adOpenStatic, adLockOptimistic
  
  adoPrimaryRS.Open "Delete * from 储蓄管理员", db, adOpenStatic, adLockOptimistic
  adoPrimaryRS.Open "Insert into 储蓄管理员(编号,姓名,性别,年龄,职称,密码,超级用户) values('admin','李晓明','男',25,'会计师','admin','是')", db, adOpenStatic, adLockOptimistic
  Set adoPrimaryRS = Nothing
  
  MsgBox "系统初始化完毕！"
End Sub

Private Sub mnuScch_Click()
    Dim fScch As New frmScch
    fScch.Show vbModal        '显示删除储户窗口
    Set fScch = Nothing
End Sub

Private Sub mnuWindowStatusBar_Click()
    '显示或隐藏状态栏
    If mnuWindowStatusBar.Checked Then
        sbStatusBar.Visible = False
        mnuWindowStatusBar.Checked = False
    Else
        sbStatusBar.Visible = True
        mnuWindowStatusBar.Checked = True
    End If
End Sub

Private Sub mnuWindowToolbar_Click()
    '显示或隐藏工具栏
    If mnuWindowToolbar.Checked Then
        tbToolbar.Visible = False
        mnuWindowToolbar.Checked = False
    Else
        tbToolbar.Visible = True
        mnuWindowToolbar.Checked = True
    End If
End Sub

Private Sub mnuXjch_Click()
    Dim fXjch As New frmXjch
    fXjch.Show vbModal        '显示新建储户窗口
    Set fXjch = Nothing
End Sub

Private Sub mnuXtExit_Click()
    Unload Me
End Sub

Public Sub RsPC(strTag As String)
    sbStatusBar.Panels(1).Text = strTag
End Sub

Private Sub mnuXtGLYZC_Click()
       
    If gstrQX = "是" Then
        Dim fGLYZC As New frmGLYZC
        fGLYZC.Show vbModal      '显示存款登记窗口
        Set fGLYZC = Nothing
    Else
        MsgBox Space(10) & "对不起，您无权进行此项操作！" & Space(10)
    End If
 
End Sub

Private Sub mnuYe_Click()
  '统计结存金额

  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "Select 结存金额 from 储蓄帐 where 备注=True", db, adOpenStatic, adLockOptimistic
  
  Dim Jcje As Currency
  
  Jcje = 0
  
  Do While Not adoPrimaryRS.EOF
    Jcje = Jcje + adoPrimaryRS("结存金额")
    adoPrimaryRS.MoveNext
  Loop
    
  MsgBox Space(10) & "结存金额总数为：" & Str(Jcje) & "元" & Space(10)
  
  adoPrimaryRS.Close
  Set adoPrimaryRS = Nothing

End Sub

Private Sub mnuZdch_Click()
    Dim fZdch As New frmZdch
    fZdch.Show vbModal      '显示查找存款最多的储户窗口
    Set fZdch = Nothing
End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    '选择执行工具栏命令
    Select Case Button.Index
        Case 1
            mnuXjch_Click
        Case 2
            mnuChxg_Click
        Case 3
            mnuScch_Click
        Case 4
            mnuCQcl_Click
        Case 5
            mnuYe_Click
        Case 6
            mnuCxrs_Click
        Case 7
            mnuCkqk_Click
        Case 8
            mnuZdch_Click
        Case 9
            mnuXtGLYZC_Click
    End Select
End Sub

Public Function File_Open(ByVal DFfilter As String, ByVal Title As String) As String
    '显示“打开文件”对话框，搜索文件路径
    On Error GoTo ERRB
    dlgCommonDialog.CancelError = True
    dlgCommonDialog.Filter = DFfilter
    dlgCommonDialog.FilterIndex = 0
    dlgCommonDialog.Flags = cdlOFNHideReadOnly
    dlgCommonDialog.DialogTitle = Title
    dlgCommonDialog.ShowOpen
    File_Open = Trim(dlgCommonDialog.FileName)
    If Dir(File_Open, vbNormal + vbReadOnly + vbHidden + vbSystem) = "" Then
        MsgBox "找不到文件：" & File_Open, vbOKOnly + vbDefaultButton1 + vbExclamation
        File_Open = ""
    End If
ERRB:
End Function