UC知道用VB设计登陆窗体的源码和步骤
来源：百度知道 编辑：UC知道 时间：2024/04/27 22:24:48
本人希望用VB做一个登陆窗体，要求输入用户名，和密码后 然后出现另外一个窗体。我现在知道怎么做登陆窗体，可就是不知道怎么添加用户名和密码
所以恳请个位帮下忙，说出下详细步骤。
或者留个及时联系方法。在线等，谢谢！
麻烦说清楚点那怕我在追加50分，我不大懂，这代码是加到哪的？并且数据库怎么建立。谢谢
所以恳请个位帮下忙，说出下详细步骤。
或者留个及时联系方法。在线等，谢谢！
麻烦说清楚点那怕我在追加50分，我不大懂，这代码是加到哪的？并且数据库怎么建立。谢谢
新建一个类模块，添加如下代码
Public g_Conn As Connection
Public g_UserName As String
Public g_ShowDate As Date
Sub Main()
Dim msg As String
On Error Resume Next
'msg = ConnectToDatabase("数据库名")
msg = ConnectToSQLServer("localhost", "数据库名", "sa", "")
If msg <> "" Then
MsgBox "错误," & msg, 16, "登陆"
End
End If
frmMain.Show vbModal
End Sub
'连接到数据库
Public Function ConnectToSQLServer(strHost As String, _
strDBName As String, _
strUser As String, _
strPwd As String) As String
On Error GoTo ERR_CONN
Set g_Conn = New Connection
'连接到数据库
With g_Conn
.CursorLocation = adUseClient
.CommandTimeout = 10
' 连接到SQL Server数据库
.ConnectionString = "Provider=