《VB出现溢出错误6怎么办.doc》由会员分享，可在线阅读，更多相关《VB出现溢出错误6怎么办.doc（9页珍藏版）》请在三一文库上搜索。
1、Opti on ExplicitPrivate Declare Fun ction Fin dWi ndow Lib user32 Alias FindWin dowA (ByVai IpCIassNameAs Stri ng, ByVai IpWi ndowName As Stri ng) As Lo ngPrivate Declare Function GetWindowLong Lib user32 Alias GetWindowLongA(ByVaiHWnd As Long, ByVai nln dex As Long) As LongPrivate Declare Fu nction
2、 SetWi ndowLo ng Lib user32 Alias SetWi ndowLo ngA (ByVai HWndAs Long, ByVai nln dex As Long, ByVai dwNewL ong As Long) As LongPrivate Co nst WS_MAXIMIZEBOX = & H10000Private Co nst WS_MINIMIZEBOX = & H20000Private Co nst GWL_STYLE = (-16)Private Sub CheckBox1_Click()选择修改密码Dim xg As Boolean 定义类型Dim
3、last, i As In tegerxg = False 修改密码开关关闭If CheckBoxl.Vaiue = True Then 如果修改密码选项选中If ComboBoxl.Vaiue = Then 如果用户名空白MsgBox 请选择用户名!, 64,提示”提示选择用户名ComboBoxl.SetFocus 选择用户名框CheckBoxl.Vaiue = False 修改密码选项不选Exit Sub 结束过程，下面不运行End IfIf TextBoxl.Vaiue = Then 如果没有填写密码MsgBox 请填写密码!, 64,提示” 提示填写密码TextBoxl.SetFocu
4、s 选择密码框CheckBoxl.Vaiue = False 修改密码选项不选Exit Sub 结束过程，下面不运行End Ifinnnnnnnnnnnnnn检查用户名和密码是否相符IIinnnnnnnnnnnnnnlast = Sheets(用户管理”).a65536.End(xlUp).Row 取得”用户管理表A列最下行号For i = 2 To last 开始检查用户名和密码是否相符If Sheets(用户管理).Range(a & i).Vaiue = ComboBoxl.V alue And Sheets(用户管理).Ra nge(b & i).Value = TextBoxl.Va
5、lue The nxg = True 修改密码开关打开End IfNextIf xg = True Then 如果用户名和密码相符UserForm修改密码.Show 打开修改密码窗体Else如果用户名和密码不相符MsgBox 密码不正确，请重新输入!, 64,提示”TextBox1.Value =密码框清空TextBox1.SetFocus 选择密码框CheckBox1.Value = False 修改密码选项不选CheckBox1.E nabled = False 修改密码选项不可选CheckBox2.Value = False 用户管理选项不选CheckBox2.Enabled = Fal
6、se 用户管理选项不可选End IfEnd IfEnd SubPrivate Sub CheckBox2_Click()用户管理选项按纽Dim yh As Boolean 定义类型Dim last, i As In tegeryh = False 用户管理选项按纽If CheckBox2.Value = True The nIf TextBox1.Value = The nMsgBox 请填写密码!, 64,提示”提示填写密码CheckBox2.Value = False 用户管理不选TextBox1.SetFocus 选择密码框Exit Sub 结束过程，下面不运行End Iflast =
7、Sheets(用户管理”).a65536.End(xlUp).Row 取得”用户管理表A列最下行号For i = 2 To last 开始检查用户名和密码是否相符If Sheets(用户管理).Range(a & i).Value = ComboBox1.V alue And Sheets(用户管理).Ra nge(b & i).Value = TextBox1.Value The nyh = True 如果用户名和密码相符，用户管理选项按纽开启End IfNextIf yh Then 如果用户管理选项按纽开UserForm用户管理.Show 打开用户管理窗体End IfEnd IfEnd S
8、ubPrivate Sub ComboBox1_Cha nge()TextBoxl.Value =如果改变用户，已输入的密码清空CheckBoxl.E nabled = False 修改密码框不可选CheckBox2.E nabled = False 用户管理不可选End SubPrivate Sub Comma ndButto n1_Click() userform 档案交接.ShowEnd SubPrivate Sub Comma ndButto n11_Click()UserForm 归档立卷.ShowEnd SubPrivate Sub Comma ndButto n12_Click(
9、)UserForm 用户管理.ShowEnd SubPrivate Sub CommandButton 14_Click()登陆按纽Dim denglu As Boolean 定义类型Dim last, i As In tegerDim sh As Worksheetden glu = False 登陆开关关闭innnnnnnnnnnnnn检查用户名和密码是否为空IIinnnnnnnnnnnnnnIf ComboBox1.Value = Then 如果用户名空白MsgBox 请选择用户名!, 64,提示”提示选择用户名ComboBox1.SetFocus 选择用户名框Exit Sub 结束过程
10、，下面不运行End IfIf TextBox1.Value = Then 如果没有填写密码MsgBox 请填写密码!, 64,提示” 提示填写密码TextBoxl.SetFocus 选择密码框Exit Sub 结束过程，下面不运行End Ifinnnnnnnnnnnnnn检查用户名和密码是否相符innnnnnnnnnnnnnlast = Sheets(用户管理”).a65536.End(xlUp).Row 取得”用户管理表A列最下行号For i = 2 To last 开始检查用户名和密码是否相符If Sheets(用户管理).Range(a & i).Value = ComboBox1.V
11、alue And Sheets(用户管理 ).Ra nge(b & i).Value = TextBox1.Value The nden glu = True 如果用户名和密码相符，登陆开关开启End IfNextIf denglu Then 如果登陆开关开启Sheet6.Cells(3, 18) = ThisWorkbook.Pathdauser = UserForm 系统界面.ComboBox1.TextSheets(用户管理).Cells(2, 13) = UserForm 系统界面.ComboBox1.TextIf ComboBox1.Value =系统管理员Then 如果是系统管理员
12、登陆Un load UserForm 系统界面Applicatio n. Visible = TrueElse功能按钮全部开启Comma ndButt on 1.E nabled = TrueComma ndButt on 2.E nabled = TrueComma ndButt on 11.E nabled = TrueComma ndButt on4.En abled = TrueComma ndButt on 5.E nabled = TrueComma ndButt on 6.E nabled = TrueComma ndButt on 7.E nabled = TrueComma
13、ndButt on 8.E nabled = TrueComma ndButt on 10.E nabled = TrueComma ndButt on 12.E nabled = TrueComma ndButt on 15.E nabled = TrueFrame1.Visible = FalseFrame2.Visible = TrueLabel3.Caption =用户:& dauser & ” 您好！ ”Applicatio n. Visible = TrueApplicatio n. Visible = FalseEnd IfSheets(”用户管理).Range(C2).Valu
14、e = 0 登陆次数归零Sheets(”用户管理).SelectFor i = 2 To Ran ge(A100).E nd(xlUp).RowIf Cells(i, 1) = ComboBox1.Text The nCells(i, 4) = 1Exit ForEnd IfNextElse 如果登陆开关没有开启Sheets(用户管理).Range(C2).Value = Sheets(用户管理).Range(C2).Value + 1 登陆次 数加1位End IfIf Sheets(用户管理).Range(C2).Value = 1 Then 如果是第 1 次登陆MsgBox 密码不正确，请
15、重新填写密码，你还有2次机会!, 64,提示”提示还有2次机会CheckBox1.E nabled = False 修改密码不可选CheckBox2.Enabled = False 用户管理不可选TextBox1.Value =清空密码框TextBox1.SetFocus 选择密码框End IfIf Sheets(用户管理).Range(C2).Value = 2 Then 如果是第 2 次登陆MsgBox 密码不正确，请重新填写密码，你还有1次机会!, 64,提示”提示还有1次机 会CheckBox1.E nabled = False 修改密码不可选CheckBox2.Enabled = F
16、alse 用户管理不可选TextBox1.Value =清空密码框TextBox1.SetFocus 选择密码框End IfIf Sheets(用户管理).Range(C2).Value = 3 Then 如果是第 3 次登陆MsgBox 密码不正确，无权进入系统!, 64,提示提示退出Unload UserForm系统界面登陆窗体关闭If Workbooks.count 1 Then 如果打开的不止一个工作簿ThisWorkbook.Close 关闭当前工作簿Else如果只有一个工作簿Application.Quit 退出 EXCELEnd IfEnd IfEnd SubPrivate Su
17、b Comma ndButto n15_Click()功能按钮全部失效Comma ndButt on 1.E nabled = FalseComma ndButt on 2.E nabled = FalseComma ndButt on 11.E nabled = FalseComma ndButt on4.En abled = FalseComma ndButt on 5.E nabled = FalseComma ndButt on 6.E nabled = FalseComma ndButt on 7.E nabled = FalseComma ndButt on 8.E nabled
18、= FalseComma ndButt on 10.E nabled = FalseComma ndButt on 12.E nabled = FalseComma ndButt on 15.E nabled = TrueFrame1.Visible = TrueFrame2.Visible = False登录部分初始化Dim last, i As In tegerCheckBox1.E nabled = False 修改密码框不可选CheckBox2.E nabled = False 用户管理不可选UserForm系统界面.TextBox1.Value =清空密码文本框Sheets(用户管理
19、 ”).SelectFor i = 2 To Ran ge(A100).E nd(xlUp).RowIf Cells(i, 4) = 1 The nCells(i, 4) = 0Exit ForEnd IfNextEnd SubPrivate Sub Comma ndButto n2_Click()UserForm档案数据著录.ShowEnd SubPrivate Sub Comma ndButto n4_Click()UserForm 数据备份.ShowEnd SubPrivate Sub Comma ndButto n7_Click()UserForm 归档立卷.ShowEnd SubPr
20、ivate Sub Comma ndButto n8_Click()UserForm档案目录结构.ShowEnd SubPrivate Sub Label14_Click()End SubPrivate Sub Comma ndButto n6_Click()userform 档案检索.Showform_search = TrueEnd SubPrivate Sub Label3_Click()End SubPrivate Sub TextBox1_Cha nge()Dim last, i As In tegerlast = Sheets(用户管理”).a65536.End(xlUp).Row
21、 取得”用户管理表A列最下行号 For i = 2 To last 开始检查用户名和密码是否相符用户管If Sheets(用户管理).Range(a & i).Value = ComboBox1.Value And Sheets( 理).Ra nge(b & i).Value = TextBox1.Value The nIf ComboBox1.Value =系统管理员” Then 如果是系统管理员登陆CheckBox1.Enabled = True 修改密码框可选CheckBox2.Enabled = True 用户管理可选Else 如果不是系统管理员登陆CheckBoxl.Enabled
22、= True 修改密码框可选 End IfEnd IfNextEnd SubPrivate Sub UserFor mn itialize()If Sheets(用户管理).Cells(1,5) = 0 ThenDim hWndForm As LongDim iStyle As Lo nghWndForm = FindWin dow(Thu nderDFrame, Me.Capti on) iStyle = GetWi ndowLo ng(hWndForm, GWL_STYLE) iStyle = iStyle Or WS_MINIMIZEBOXiStyle = iStyle Or WS_MA
23、XIMIZEBOXSetWi ndowLo ng hWndForm, GWL_STYLE, iStyle功能按钮全部失效Comma ndButt on 1.E nabled = FalseComma ndButt on 2.E nabled = FalseComma ndButt on 11.E nabled = FalseComma ndButt on4.En abled = FalseComma ndButt on 5.E nabled = FalseComma ndButt on 6.E nabled = FalseComma ndButt on 7.E nabled = FalseCo
24、mma ndButt on 8.E nabled = FalseComma ndButt on 10.E nabled = FalseComma ndButto n12.E nabled = FalseComma ndButt on 15.E nabled = TrueFrame1.Visible = TrueFrame2.Visible = False登录部分初始化Dim last, i As In tegerlast = Sheets(用户管理”).a65536.End(xlUp).Row 取得”用户管理表A列最下行号For i = 2 To lastComboBox1.AddItem S
25、heets(用户管理).Range(a & i).Value 显示用户名NextCheckBox1.E nabled = False 修改密码框不可选CheckBox2.E nabled = False 用户管理不可选 deliver_row = 0Sheet6.Cells(3, 18) = ThisWorkbook .P athElse 不需要重复登陆功能按钮全部开启Comma ndButt on 1.E nabled = TrueComma ndButt on 2.E nabled = TrueComma ndButt on 11.E nabled = TrueComma ndButt o
26、n4.En abled = TrueComma ndButt on 5.E nabled = TrueComma ndButt on 6.E nabled = TrueComma ndButt on 7.E nabled = TrueComma ndButt on 8.E nabled = TrueComma ndButt on 10.E nabled = TrueComma ndButt on 12.E nabled = TrueComma ndButt on 15.E nabled = TrueFrame1.Visible = FalseFrame2.Visible = TrueLabel
27、3.Caption =用户：& Sheets(用户管理).Cells(2, 13) & ” 您好！ ”Applicatio n. Visible = TrueEnd IfEnd SubPrivate Sub UserForm_QueryClose(Ca ncel As In teger, CloseMode As In teger)If dauser 系统管理员 ” ThenIf (MsgBox(你真的想退出吗？ , vbQuestion + vbYesNo) = vbNo) ThenCancel = TrueElseThisWorkbook.SaveActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & 备份档案管理系统 Format(Date, yyyy 年 mm 月 dd 日 ”)& Format(Time(), hh 时 mm 分 ss 秒”)ThisWorkbook.CloseEnd IfEnd IfEnd Sub1318 &