vb.net登录窗口问题

我上传了一个简单的图书管理系统,里面包含了简单的新增,修改,删除
你如果是刚刚进入vb.net的新手,可以下载了去看看原代码!~

实际上，VB。NET不管是与SQL还是ACCESS数据库连接时，只不过连接串不一样的，登录窗口代码是一样的。
不都是要验证用户名与密码是否一致吗？这和你学的ACCESS是一样的。

一般不建议采用这个方法，这个方法VB6.0用的多，这样做登录窗口就会一直在内存中，直到整个程序结束，它才结束
，但在VB。ENT我建议用下列方法
'检查是否启用登录口令

程序，你设置从一个模块中启动，下面是模块中的代码

Dim frmPwd As New frmPwd　
frmPwd.ShowDialog()

　　　　　　　　'frmPwd 是登录窗口
　　　　　　　　'用户输入的用户与口令是否正确，将在登录窗口中验证
　　　　　　　　’如果用户验证正确，就关闭登录窗口，并可以继续执行下面代码，否则就提示输入错误，窗口不会被关闭

'////////////////////////////////////////////////////////////
　　　　　　‘如果用户验证正确，才会到这里运行

Dim ps As New frmMain 　　　　'frmMain是程序的主窗口
ps.Text = "wjt276工作室……"　　‘设置主窗口的标题
Application.Run(ps)　　　　　　　’运行主窗口


下面是登录窗口的验证代码
‘－－－－－－－－－－－－－－－－－－－－－
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Try
Dim strole As String = "Select Count(*) From Pwd where Name = 'SystemPwd' And Pwd = '" & txtPwd.Text & "'"
If gcon.State = ConnectionState.Closed Then gcon.Open()
Dim mycom As New OleDbCommand(strole, gcon)
Dim intCount As Integer = CType(mycom.ExecuteScalar, Integer)
gcon.Close()
If intCount > 0 Then
Me.Close()
Else
MessageBox.Show("口令错误，请重新输入口令！", "口令错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtPwd.Focus()
txtPwd.SelectAll()
Exit Sub
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
gcon.Close()
End Try
End Sub


‘－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这样程序在退出时，建议采用下列语句
END
或是
Application.Exit