【VB开源代码栏目提醒】:本文主要为网学会员提供MDIFrmMain.frm,希望对需要MDIFrmMain.frm网友有所帮助,学习一下!
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIFrmMain
BackColor = &H8000000C&
Caption = "信用社业务
管理系统"
ClientHeight = 6030
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 mnuWork
Caption = "活期帐户操作(&H)"
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 mnuWorkQuery
Caption = "余额查询(活期)"
End
Begin VB.Menu mnuWorkQueryAll
Caption = "全部
查询(活期)"
End
End
Begin VB.Menu mnuFixAccount
Caption = "定期帐户操作(&D)"
Begin VB.Menu mnuFixDeposit
Caption = "存款(定期)"
End
Begin VB.Menu mnuFixFetch
Caption = "取款(定期)"
End
Begin VB.Menu mnuFixFQuery
Caption = "查询(定期)"
End
End
Begin VB.Menu mnuDbf
Caption = "数据库操作(&K)"
Begin VB.Menu mnuDbfBackup
Caption = "备份数据库"
End
Begin VB.Menu mnuDbfRestore
Caption = "还原数据库"
End
End
Begin VB.Menu mnuSetAccrual
Caption = "利率设置(&S)"
End
Begin
VB.Menu mnuSysUser
Caption = "系统用户管理(&A)"
Begin VB.Menu mnuSysUserNew
Caption = "新建"
End
Begin VB.Menu mnuSysUserDelete
Caption = "删除"
End
Begin VB.Menu mnuSysUserUpdata
Caption = "修改"
End
Begin VB.Menu mnuAccountLine1
Caption = "-"
End
Begin VB.Menu mnuSysUserUpdatePW
Caption = "修改密码"
End
End
Begin VB.Menu mnuSysLogout
Caption = "
系统注销(&X)"
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpDocument
Caption = "
文档"
End
Begin VB.Menu mnuHelpLine1
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "关于"
End
End
Begin VB.Menu mnuSysOut
Caption = "退出"
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
'登陆用户是一般用户,设置一些子菜单项的使能状态,使该用户不能进行相应的操作
mnuDbfBackup.Enabled = False
mnuDbfRestore.Enabled = False
mnuWorkQueryAll.Enabled = False
mnuSysUserNew.Enabled = False
mnuSysUserDelete.Enabled = False
mnuSysUserUpdata.Enabled = False
mnuFixFQuery.Enabled = False
mnuSetAccrual.Enabled = False
End If
End Sub
Private Sub mnuDbfBackup_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
'调用LinkDB函数设置
登陆数据库服务器时的身份验证方式
Call LinkDB(landWay, SName, "master", SUName, SUPw)
'连接数据库
con.Open
MousePointer = 11
'执行sql语句,备份数据库到指定文件
con.Execute "backup database yinhang to disk='" & dlg.FileName & "'"
'关闭数据库连接
con.Close
MousePointer = 0
MsgBox "备份成功"
End If
End Sub
Private Sub mnuDbfRestore_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
'调用LinkDB函数设置登陆数据库服务器时的身份验证方式