又来问问题了，也很简单

[cao103jh]

我编写一个登陆验证的程序
代码如下：验证的
Public Function login(ByVal struser As String, ByVal strpwd As String) As Boolean
If struser = "admin" And strpwd = "123" Then
login = True
Else
login = False

End Function
登陆的确认按钮
Private Sub Command1_Click()
MsgBox "操作员名称：" & Text1.Text & vbCrLf & "操作员令：" & Text2.Text, vbInformation + vbOKOnly, "登陆信息"
End Sub
还有调用的login函数（*****这个应该放在submain里面吧，还是放在别处?)
If login(Trim(Text1.Text), Trim(Text2.Text)) = ture Then

Unload Me

frmempadd.Show

Else


Unload Me

End

End If
End Sub
弄完以后总是好象不验证的样子,也掉不出frmempadd窗口

那里错了？？

[cao103jh]

If struser = "admin" And strpwd = "123" Then

是不是这里：调用的text1.text 和text2.text得值没有调用呀，应该怎么赋亚

[tztz520]

这样要区分大小写的

[aiur2000]

你的程序是当用户为admin，密码为123通过，其他失败

[tztz520]

Public Function login(ByVal struser As String, ByVal strpwd As String) As Boolean
If lcase(struser) = "admin" And lcase(strpwd )= "123" Then'加个lcase函数转为小写
login = True
Else
login = False

End Function

[creazyfish]

你看！你的login(Trim(Text1.Text), Trim(Text2.Text)) = ture 写错了，应该是true,当然永远都,也掉不出frmempadd窗口了！

找我这个下面的写就可以了

Public Function login(ByVal struser As String, ByVal strpwd As String) As Boolean
If struser = "admin" And strpwd = "123" Then
login = True
Else
login = False
End If
End Function

Private Sub Command1_Click()
MsgBox "操作员名称：" & Text1.Text & vbCrLf & "操作员令：" & Text2.Text, vbInformation + vbOKOnly, "登陆信息"
If login(Trim(Text1.Text), Trim(Text2.Text)) = True Then
Unload Me
frmempadd.Show
Else
Unload Me
End
End If
End Sub

[aiur2000]

如果是楼上的原因加入：Option Compare

[cao103jh]

是呀是呀，现在主要是不清楚If struser = "admin" And strpwd = "123" Then

是不是这里：调用的text1.text 和text2.text得值没有调用呀，应该怎么赋亚
还有，用admin和密码123还是没有反应，大小写一样，可能就是没有调用值吧？？？怎么改呢？

[cao103jh]

问题还是没有解决，郁闷大家努力呀。
调用的text1.text 和text2.text得值没有调用呀
struser 和 strpwd 得值分别对应text1.text和text2.text里面的值，怎么掉才对？？
麻烦写一下，调试好了能用了在告诉我呀。。
加油！！！！！

[cao103jh]

问题还是没有解决，郁闷大家努力呀。
调用的text1.text 和text2.text得值没有调用呀
struser 和 strpwd 得值分别对应text1.text和text2.text里面的值，怎么掉才对？？
麻烦写一下，调试好了能用了在告诉我呀。。
加油！！！！！

[zuoxingyu]

错了错了，都错了

你在函数里面已经把用户名称和密码都定死了，那还要传参数做什么？
Public Function login(ByVal struser As String, ByVal strpwd As String) As Boolean
If struser = "admin" And strpwd = "123" Then
login = True
Else
login = False

End Function
登陆的确认按钮
Private Sub Command1_Click()
MsgBox "操作员名称：" & Text1.Text & vbCrLf & "操作员令：" & Text2.Text, vbInformation + vbOKOnly, "登陆信息"
’End Sub 在这里结束过程是什么意思？？？？？？？？？？？
还有调用的login函数（*****这个应该放在submain里面吧，还是放在别处?)
If login(Trim(Text1.Text), Trim(Text2.Text)) = true then '你不是连TRUE都写错吧ture Then

Unload Me

frmempadd.Show

Else


Unload Me

End

End If
End Sub

[ylsn2004]

做了一遍,creazyfish(梳分头的鱼) 的程正确,可以实现.

[jimmyge]

1.樓主跟偶一樣都屬於菜鳥級人物，要共同糞豆.

2.調用該函數其實真沒啥效果,直接對text的值進行判斷即可.(簡單,呵呵..)

[ylsn2004]

鱼: 去下面的连接帮看看
http://community.csdn.net/Expert/topic/3588/3588325.xml?temp=7.030666E-03

[homezj]

超级乱的代码，真不知是从VB工程中贴出来的，还是在帖子里手写的，这在编辑器里都不可能通过呀。
初学者不用 Option Explicit，常带来这种典型结果。
一个"ture"，VB不认识，自动声明成了变量，代码很少，眼利的人能帮你找出，要是长点，你就不用再学VB了，可以做除Bug专业选手了。不强制声明变量，后患无穷！！！

[l_tiger]

你的程序是从submain启动的吗