mdifrmmain.frm

本需求规格说明书是为了开发《飞机订票系统》而编写的

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.MDIForm MDIFrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "华工银行储蓄管理系统"
   ClientHeight    =   6150
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   9510
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog dlg 
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu mnuAccount 
      Caption         =   "帐户"
      Begin VB.Menu mnuFileAccrual 
         Caption         =   "利率"
      End
      Begin VB.Menu mnuAccountNew 
         Caption         =   "新建"
      End
      Begin VB.Menu mnuAccountUpdata 
         Caption         =   "修改"
      End
      Begin VB.Menu mnuAccountDelete 
         Caption         =   "删除"
      End
      Begin VB.Menu mnuAccountUpdatePW 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnuFileLine1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileLogout 
         Caption         =   "注销"
      End
      Begin VB.Menu mnuFileOut 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuWork 
      Caption         =   "操作"
      Begin VB.Menu mnuWorkOAA 
         Caption         =   "开户(活期)"
      End
      Begin VB.Menu mnuWorkDeposit 
         Caption         =   "存款(活期)"
      End
      Begin VB.Menu mnuWorkFetch 
         Caption         =   "取款(活期)"
      End
      Begin VB.Menu mnuWorkLine1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQuery 
         Caption         =   "余额查询(活期)"
      End
      Begin VB.Menu mnuQueryAll 
         Caption         =   "全部查询(活期)"
      End
      Begin VB.Menu mnuWorkFQuery 
         Caption         =   "查询(定期)"
      End
      Begin VB.Menu mnuWorkLine2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFixDeposit 
         Caption         =   "存款(定期)"
      End
      Begin VB.Menu mnuFixFetch 
         Caption         =   "取款(定期)"
      End
   End
   Begin VB.Menu mnuFile 
      Caption         =   "安全"
      Begin VB.Menu mnuFileForBackup 
         Caption         =   "备份数据库"
      End
      Begin VB.Menu mnuFileBackup 
         Caption         =   "还原数据库"
      End
   End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rst As Recordset

Private Sub MDIForm_Load()
    If userPower <> "admin" Then
        mnuFileForBackup.Enabled = False
        mnuFileBackup.Enabled = False
        mnuQueryAll.Enabled = False
        mnuAccountNew.Enabled = False
        mnuAccountDelete.Enabled = False
        mnuAccountUpdata.Enabled = False
        mnuWorkFQuery.Enabled = False
        mnuFileAccrual.Enabled = False
    End If
End Sub

Private Sub mnuAccountDelete_Click()
    frmDeleteUser.Show
End Sub

Private Sub mnuAccountNew_Click()
    frmNewUser.Show
End Sub

Private Sub mnuAccountUpdata_Click()
    Set rst = New Recordset
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    rst.Open "select * from users", con, adOpenDynamic, adLockOptimistic
    rst.MoveFirst
    Do While Not rst.EOF
        frmUpdateUser.lst.AddItem (rst!name)
        rst.MoveNext
    Loop
    rst.Close
    con.Close
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    frmUpdateUser.cmb.AddItem ("admin")
    frmUpdateUser.cmb.AddItem ("user")
    frmUpdateUser.Show
End Sub

Private Sub mnuAccountUpdatePW_Click()
    frmUpdatePW.Show
End Sub

Private Sub mnuFileAccrual_Click()
    frmAccrual.Show
End Sub

Private Sub mnuFileBackup_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 mnuFileForBackup_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 mnuFileLogout_Click()
    Unload Me
    frmLand.cmbSName.Text = SName
    frmLand.Show
End Sub

Private Sub mnuFileOut_Click()
    Unload Me
End Sub

Private Sub mnuFixDeposit_Click()
    frmFixDeposit1.Show
End Sub

Private Sub mnuFixFetch_Click()
    frmFixFetch1.Show
End Sub

Private Sub mnuHelpAbout_Click()
    frmAbout.Show
End Sub

Private Sub mnuQuery_Click()
    frmQuery.Show
End Sub

Private Sub mnuQueryAll_Click()
    Set rst = New Recordset
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    On Error GoTo errFind
    rst.Open "select id from CConsumers", con, adOpenDynamic, adLockOptimistic
    rst.MoveFirst
    Do While Not rst.EOF
        frmQueryAll.lst.AddItem (rst!id)
        rst.MoveNext
    Loop
errFind:
    rst.Close
    con.Close
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    frmQueryAll.Show
End Sub

Private Sub mnuWorkDeposit_Click()
    frmDeposit.Show
End Sub

Private Sub mnuWorkFetch_Click()
    frmFetch.Show
End Sub

Private Sub mnuWorkFQuery_Click()
    On Error Resume Next
    Dim rst As New Recordset
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    rst.Open "select * from FConsumers", con, adOpenDynamic, adLockOptimistic
    rst.MoveFirst
    Do While Not rst.EOF
        frmFixQuery.lst().AddItem (rst!id)
        rst.MoveNext
    Loop
    rst.Close
    con.Close
    frmFixQuery.Show
End Sub

Private Sub mnuWorkOAA_Click()
    If MsgBox("你好，华工银行欢迎你！", vbOKCancel, "提示") = vbOK Then
        frmOAA1.Show
    End If
End Sub

Private Sub mnuWorkRemit_Click()
    frmRemit.Show
End Sub