UC知道帮忙看下有什么错误啊 谢啦！
来源：百度知道 编辑：UC知道 时间：2024/05/13 14:31:59
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
'¼Ç¼ȷ¶¨´ÎÊý
Dim miCount As Integer
Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = ""
Else
txtUserName.Text = vbNullString
End If
OK = False
miCount = 0
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
'ToDo: create test for correct password<
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
'¼Ç¼ȷ¶¨´ÎÊý
Dim miCount As Integer
Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = ""
Else
txtUserName.Text = vbNullString
End If
OK = False
miCount = 0
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
'ToDo: create test for correct password<
在通用模块定义UserName也许有用
很好 没错误 起码我没看出来
这是什么语言啊 我还没学过 好不好学啊
Explicit选项
私人声明函数GetUserName Lib“advapi32.dll中”别名“GetUserNameA”（ByVal lpbuffer作为字符串，只要nSize），只要
公共行作为Boolean
'¼ ¼清河措¶ ¨次数据
暗淡miCount为Integer
私人小组Form_Load（）
暗淡sBuffer作为字符串
只要暗淡lSize
sBuffer =空间$（255）
lSize = Len（sBuffer）
呼叫GetUserName（sBuffer，lSize）
如果lSize“0，那么
txtUserName.Text =“”
其他的
txtUserName.Text = vbNullString
完如果
行=假
miCount = 0
完子
私人小组cmdCancel_Click（）
行=假
Me.Hide
完子
私人小组cmdOK_Click（）
暗淡txtSQL作为字符串
暗淡的医学研究作为ADODB.Recordset
暗淡MsgText作为字符串
'TODO：在创建正确的密码测试
'为正确的密码检查
用户名=“”
如果修剪（txtUserName.Text =“”）然后
MsgBox“阑中意个阅读» § £ ¬ Ç&e