VB出现溢出错误6 怎么办

系统教程690 更新时间：2026-04-04 01:44:07

2024年1月22日发(作者：)

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName

As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal

HWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal HWnd

As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WS_MAXIMIZEBOX = &H10000

Private Const WS_MINIMIZEBOX = &H20000

Private Const GWL_STYLE = (-16)

Private Sub CheckBox1_Click() '选择修改密码

Dim xg As Boolean '定义类型

Dim last, i As Integer

xg = False '修改密码开关关闭

If = True Then '如果修改密码选项选中

If = "" Then '如果用户名空白

MsgBox "请选择用户名!", 64, "提示" '提示选择用户名

us '选择用户名框

= False '修改密码选项不选

Exit Sub '结束过程,下面不运行

End If

If = "" Then '如果没有填写密码

MsgBox "请填写密码!", 64, "提示" '提示填写密码

us '选择密码框

= False '修改密码选项不选

Exit Sub '结束过程,下面不运行

End If

'''''''''''''''''''''''''''''

'检查用户名和密码是否相符 '

' '

'''''''''''''''''''''''''''''

last = Sheets("用户管理").[a65536].End(xlUp).Row '取得"用户管理表"A列最下行号

For i = 2 To last '开始检查用户名和密码是否相符

If Sheets("用户管理").Range("a" & i).Value = And Sheets("用户管理

").Range("b" & i).Value = Then

xg = True '修改密码开关打开

End If

UserForm修改密码.Show '打开修改密码窗体

Else '如果用户名和密码不相符

MsgBox "密码不正确,请重新输入!", 64, "提示"

= "" '密码框清空

us '选择密码框

= False '修改密码选项不选

d = False '修改密码选项不可选

= False '用户管理选项不选

d = False '用户管理选项不可选

End If

End Sub

Private Sub CheckBox2_Click() '用户管理选项按纽

Dim yh As Boolean '定义类型

Dim last, i As Integer

yh = False '用户管理选项按纽

If = True Then

If = "" Then

MsgBox "请填写密码!", 64, "提示" '提示填写密码

= False '用户管理不选

us '选择密码框

Exit Sub '结束过程,下面不运行

End If

last = Sheets("用户管理").[a65536].End(xlUp).Row '取得"用户管理表"A列最下行号

For i = 2 To last '开始检查用户名和密码是否相符

If Sheets("用户管理").Range("a" & i).Value = And Sheets("用户管理").Range("b" & i).Value = Then

yh = True '如果用户名和密码相符,用户管理选项按纽开启

End If

UserForm用户管理.Show '打开用户管理窗体

End If

End Sub

Private Sub ComboBox1_Change()

= "" '如果改变用户,已输入的密码清空

d = False '修改密码框不可选

d = False '用户管理不可选

End Sub

Private Sub CommandButton1_Click()

userform档案交接.Show

End Sub

Private Sub CommandButton11_Click()

UserForm归档立卷.Show

End Sub

Private Sub CommandButton12_Click()

UserForm用户管理.Show

End Sub

Private Sub CommandButton14_Click() '登陆按纽

Dim denglu As Boolean '定义类型

Dim last, i As Integer

Dim sh As Worksheet

denglu = False '登陆开关关闭

'''''''''''''''''''''''''''''

'检查用户名和密码是否为空 '

' '

'''''''''''''''''''''''''''''

If = "" Then '如果用户名空白

MsgBox "请选择用户名!", 64, "提示" '提示选择用户名

us '选择用户名框

Exit Sub '结束过程,下面不运行

End If

If = "" Then '如果没有填写密码

MsgBox "请填写密码!", 64, "提示" '提示填写密码

us '选择密码框

Exit Sub '结束过程,下面不运行

End If

'''''''''''''''''''''''''''''

'检查用户名和密码是否相符 '

' '

'''''''''''''''''''''''''''''

last = Sheets("用户管理").[a65536].End(xlUp).Row '取得"用户管理表"A列最下行号

For i = 2 To last '开始检查用户名和密码是否相符

If Sheets("用户管理").Range("a" & i).Value = And Sheets("用户管理").Range("b" & i).Value = Then

denglu = True '如果用户名和密码相符,登陆开关开启

End If

(3, 18) =

dauser = UserForm系统界面.

Sheets("用户管理").Cells(2, 13) = UserForm系统界面.

If = "系统管理员" Then '如果是系统管理员登陆

Unload UserForm系统界面

e = True

Else

'功能按钮全部开启

d = True

e = False

e = True

n = "用户:" & dauser & "您好！"

e = True

' e = False

End If

Sheets("用户管理").Range("C2").Value = 0 '登陆次数归零

Sheets("用户管理").Select

For i = 2 To Range("A100").End(xlUp).Row

If Cells(i, 1) = Then

Cells(i, 4) = 1

Exit For

End If

Sheets("用户管理").Range("C2").Value = Sheets("用户管理").Range("C2").Value + 1 '登陆次数加1位

End If

If Sheets("用户管理").Range("C2").Value = 1 Then '如果是第1次登陆

MsgBox "密码不正确,请重新填写密码,你还有2次机会!", 64, "提示" '提示还有2次机会

d = False '修改密码不可选

d = False '用户管理不可选

= "" '清空密码框

us '选择密码框

End If

If Sheets("用户管理").Range("C2").Value = 2 Then '如果是第2次登陆

MsgBox "密码不正确,请重新填写密码,你还有1次机会!", 64, "提示" '提示还有1次机会

d = False '修改密码不可选

d = False '用户管理不可选

= "" '清空密码框

us '选择密码框

End If

If Sheets("用户管理").Range("C2").Value = 3 Then '如果是第3次登陆

MsgBox "密码不正确,无权进入系统!", 64, "提示" '提示退出

Unload UserForm系统界面 '登陆窗体关闭

If > 1 Then '如果打开的不止一个工作簿

'关闭当前工作簿

Else '如果只有一个工作簿

'退出EXCEL

End If

End Sub

Private Sub CommandButton15_Click()

'功能按钮全部失效

d = False

d = True

e = True

e = False

'登录部分初始化

Dim last, i As Integer

d = False '修改密码框不可选

d = False '用户管理不可选

UserForm系统界面. = "" '清空密码文本框

Sheets("用户管理").Select

For i = 2 To Range("A100").End(xlUp).Row

If Cells(i, 4) = 1 Then

Cells(i, 4) = 0

Exit For

End If

Private Sub CommandButton2_Click()

UserForm档案数据著录.Show

End Sub

Private Sub CommandButton4_Click()

UserForm数据备份.Show

End Sub

Private Sub CommandButton7_Click()

UserForm归档立卷.Show

End Sub

Private Sub CommandButton8_Click()

UserForm档案目录结构.Show

End Sub

Private Sub Label14_Click()

End Sub

Private Sub CommandButton6_Click()

userform档案检索.Show

form_search = True

End Sub

Private Sub Label3_Click()

End Sub

Private Sub TextBox1_Change()

Dim last, i As Integer

last = Sheets("用户管理").[a65536].End(xlUp).Row '取得"用户管理表"A列最下行号

For i = 2 To last '开始检查用户名和密码是否相符

If Sheets("用户管理").Range("a" & i).Value = And Sheets("用户管理").Range("b" & i).Value = Then

If = "系统管理员" Then '如果是系统管理员登陆

d = True '修改密码框可选

d = True '用户管理可选

Else '如果不是系统管理员登陆

d = True '修改密码框可选

End If

Private Sub UserForm_Initialize()

If Sheets("用户管理").Cells(1, 5) = 0 Then

Dim hWndForm As Long

Dim iStyle As Long

hWndForm = FindWindow("ThunderDFrame", n)

iStyle = GetWindowLong(hWndForm, GWL_STYLE)

iStyle = iStyle Or WS_MINIMIZEBOX

' iStyle = iStyle Or WS_MAXIMIZEBOX

SetWindowLong hWndForm, GWL_STYLE, iStyle

'功能按钮全部失效

d = False

d = True

e = True

e = False

'登录部分初始化

Dim last, i As Integer

last = Sheets("用户管理").[a65536].End(xlUp).Row '取得"用户管理表"A列最下行号

For i = 2 To last

m Sheets("用户管理").Range("a" & i).Value '显示用户名

d = False '用户管理不可选

deliver_row = 0

(3, 18) =

Else '不需要重复登陆

'功能按钮全部开启

d = True

e = False

e = True

n = "用户:" & Sheets("用户管理").Cells(2, 13) & "您好！"

e = True

End If

End Sub

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

'If dauser <> "系统管理员" Then

'If (MsgBox("你真的想退出吗？", vbQuestion + vbYesNo) = vbNo) Then

'Cancel = True

'Else

'

' Filename:= & "备份档案管理系统l318

Format(Date, "yyyy年mm月dd日 ") & Format(Time(), "hh时mm分ss秒")

" &

'

'End If

'End Sub

本文发布于:2024-01-22，感谢您对本站的认可！

本文链接:https://www.fzithome.com/xitong/1705910897a218097.html

VB出现溢出错误6 怎么办

发布评论取消回复

最近发表

相关推荐

标签列表

VB出现溢出错误6 怎么办

发布评论 取消回复

最近发表

相关推荐

标签列表

发布评论取消回复