高手看下这段登录窗口的源码，哪里出错了？ - VB6论坛

已结贴√ 问题点数：5 回复次数：3

高手看下这段登录窗口的源码，哪里出错了？

Private Sub Command1_Click()
Static micount As Integer
Dim sqlstr As String
sqlstr = "select * from登录where用户名= '" & Text1 & "'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
If Adodc1.Recordset.BOF Then
   MsgBox "用户名错误，重新输入", vbExclamation, "警告"
   Text1 = ""
   Text1.SetFocus
Else
If Adodc1.Recordset.Fields("密码") = Text2 Then
form2.Show
Unload Me
Else
MsgBox "密码错误，重新输入", vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
End If
End If
micount = micount + 1
If micount = 3 Then Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

搜索更多相关主题的帖子: 登录　窗口　源码　

第 2 楼

得分:0

谢谢以上两位的答复，运行中出现的问题是用户名，密码为空时，按command1按钮[microsoft][odbc sql server driver][sql server]在关键字'select'附近有语法错误，对象refesh的方法iadodc失败

第 3 楼

得分:0

以下是引用frank_tao78在2010-7-30 15:05:14的发言：

一、sqlstr = "select * from登录where用户名= '" & Text1.text & "'"
二、micount初值在Form_load的时候赋予0，定义micount为全局变量。

还是不行，运行中出现的问题是用户名，密码为空时，按command1按钮[microsoft][odbc sql server driver][sql server]在关键字'select'附近有语法错误，对象refesh的方法iadodc失败

第 4 楼

得分:0

以下是引用风吹过b在2010-7-30 15:52:57的发言：

没看到有什么错误...

你运行时有什么错误提示????

------------------------------
回2楼.
1\
VB6 的控件都有一个默认属性,当直接引用控件名时,而没有写属性时, VB6会把它当作引用默认属性处理.
所以 & text1 & 与 & text1.text & 效果等价,但编程时,建议按后面那种写.

2\他是使用了 Static 关键字定义变量, 这种定义的变量是定义在数据段中,而不是堆栈中,也就是静态变量 ,全局变量 ,都是静态变量
例外的是,固定大小的数组,定长字符串,,整个是留好内存占用. 动态数组, 变长字符串外,都是在数据段中存储指针,然后对指针进行操作的.数据区在堆中,
但因为指针在数据段中,所以也被认为是静态的变量.
在这里,因为是申明的静态变量,并且是在过程中申明的,那么 micount 值在整个程序运行过程中,均能得到保持.只是作用域的问题.
因为是在过程中申明的,所以它只能在这个过程中被访问.当然,如果你用汇编级调试时,那是可以达到全局访问的.

VB6中,变量没有赋值时,有一个默认值,数值型的为 0 ,字符串的为空串 ,变体为 Empty

运行中出现的问题是用户名，密码为空时，按command1按钮[microsoft][odbc sql server driver][sql server]在关键字'select'附近有语法错误，对象refesh的方法iadodc失败