UC知道vb登录界面登录不到主界面上是怎么回事啊？哪位高手帮忙看看！
来源：百度知道 编辑：UC知道 时间：2024/06/30 23:15:39
我在做一个系统的登录模块，需要从用户窗体frmlogin点击确定进入系统的主窗体frmmain
现在数据库的连接没问题，但是调试的时候点击确定后frmlogin退出了，但是frmmain却没有打开
麻烦高手来帮我解决一下我的问题
下面是我的程序代码 是不是哪里出了问题呢？
Private Sub cmdOK_Click(Index As Integer)
'To Do-创建测试密码是否正确
'检查正确密码
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
'判断输入用户名是否为空
If Trim(txtUserName.Text & "") <> "" Then
'查找数据库中是否有相同名称的用户
txtSQL = "select * from users where id='" & Trim(txtUserName.Text & "") & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'记录是否为空
If mrc.EOF = True Then
MsgBox "没有这个用户，请再重新输入！", vbOKOnly + vbExclamation, "登录"
txtUserName.SetFocus
Else '登录成功
'判断用户密码是否正确
现在数据库的连接没问题，但是调试的时候点击确定后frmlogin退出了，但是frmmain却没有打开
麻烦高手来帮我解决一下我的问题
下面是我的程序代码 是不是哪里出了问题呢？
Private Sub cmdOK_Click(Index As Integer)
'To Do-创建测试密码是否正确
'检查正确密码
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
'判断输入用户名是否为空
If Trim(txtUserName.Text & "") <> "" Then
'查找数据库中是否有相同名称的用户
txtSQL = "select * from users where id='" & Trim(txtUserName.Text & "") & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'记录是否为空
If mrc.EOF = True Then
MsgBox "没有这个用户，请再重新输入！", vbOKOnly + vbExclamation, "登录"
txtUserName.SetFocus
Else '登录成功
'判断用户密码是否正确
不知道你下面的这段是什么意思？
Public fMainForm As frmmain
Sub Main()
Dim fLogin As New frmlogin
fLogin.Show vbModal
If Not fLogin.OK Then
End
End If
fLogin.Hide
Set fMainForm = New frmmain
fMainForm.Show
End Sub
我要是做就直接在commandok中，只要满足条件（密码用户名通过）就直接调用fmainform窗体。
我又仔细看了看，你的OK是全局变量吗？声明个全局变量试试。
你编的有c语言的影子，按f8测试一下，好像没有没执行你上边的这个过程。