各位老师,新人求助,我的登陆窗口与数据库连接都正常
但从登陆窗口连接到主窗口的代码该怎样写入,特求各位老师详细指点,先谢了~!!
附后半段代码

Private Sub Form_Load()
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
Me.Caption = "登陆"
intTryTimes = 0
Set dbLogin = OpenDatabase(App.Path + "\Data.mdb", False, False, "MS Access;pwd=111")
' Set rstLogin = dbLogin.OpenRecordset("select Username from User")
' If rstLogin.RecordCount <> 0 Then
' Me.txtUser = rstLogin.Fields("Username")
' End If
Show
Me.txtUser.SetFocus
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set rstLogin = Nothing
dbLogin.Close
End Sub

Private Sub txtPwd_GotFocus()
Me.txtPwd.SelStart = 0
Me.txtPwd.SelLength = Len(Me.txtPwd)
End Sub

Private Sub txtPwd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdLoginEnter_Click
End If
End Sub

Private Sub txtUser_GotFocus()
Me.txtUser.SelStart = 0
Me.txtUser.SelLength = Len(Me.txtUser)
End Sub

Private Sub txtUser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdLoginEnter_Click
End If
End Sub

就是通过登陆窗口验证后再出现下一个窗口的意思

谢版主的解答,我也是这样做的,但登陆窗口没出来就把主窗口是调出来了,有错误提示,现上截图一张,烦你详细指导一下

谢谢版主的指导,我之前就是这么做的,但执行时登陆窗口没出来主窗口调出来了,并提示出错,现上截图一张,烦您指点一下

Private Sub txtPwd_GotFocus()
Me.txtPwd.SelStart = 0
Me.txtPwd.SelLength = Len(Me.txtPwd)
End Sub

Private Sub txtPwd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdLoginEnter_Click
End If
End Sub

Private Sub txtUser_GotFocus()
Me.txtUser.SelStart = 0
Me.txtUser.SelLength = Len(Me.txtUser)
End Sub

Private Sub txtUser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdLoginEnter_Click
End If
End Sub

[ 本帖最后由 jiaz24 于 2010-12-12 20:58 编辑 ]

form1是登陆窗口,form2是下一个窗口

嗯,在这段加了form2后就是图示了

Private Sub Form_Load()
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
Me.Caption = "登陆"
intTryTimes = 0
Set dbLogin = OpenDatabase(App.Path + "\Data.mdb", False, False, "MS Access;pwd=111")
' Set rstLogin = dbLogin.OpenRecordset("select Username from User")
' If rstLogin.RecordCount <> 0 Then
' Me.txtUser = rstLogin.Fields("Username")
' End If
form2.Show
Me.txtUser.SetFocus
End Sub

我这段代码登陆窗功能和数据库连都很正常,卡在调下一个窗口上,麻烦版主详细指点一下,谢谢!!!

数据库内两组登陆名和密码   


[ 本帖最后由 jiaz24 于 2010-12-12 19:33 编辑 ]

工程代码没加form2