初学vb，有关登陆窗口的问题

Question

源码现成的一时写不出来,告诉你流程吧
1,打开数据库，以及用户表（应该会吧）
2，在登陆的事件中对用户及密码检索窗体的属性：
BorderStyle=1
密码框（文本框）的属性
PasswordChar=*找本vb入门的书学习吧，很快可以学会我要分呀:-)

Answer 1

str=select from  表 where username='"& text1 &"' and 
password='"& text2 &"'
adodc1.recordsource=str

Answer 2

to :chinareny(编程浪子)
也给我一个吧。EBOY＿2008＠YAHOO。COM。CN

Answer 3

各位大哥大姐
我的信箱是[email protected]
谢谢了~~~

Answer 4

是啊，你可试着自己做一下，我保证你肯定收获不小的，对了，你可以到
http://www.21code.com 或http://www.vbeden.com/里面找一个相似的例子，自己看着，那样子我敢肯定对你帮助不小的，你不信，可以尝试！

Answer 5

我现在就在尝试着自己做，但是老是出现一大堆错误。我去http://www.21code.com下载了不少源代码，但是有关登陆窗口的，大多是源代码指定一个密码或者是从txt或dat里取密码的。
拜托各位大虾告诉我哪个源代码比较适合我。

Answer 6

'函数说明如下：            
       '用特定的筛选条件(MySQLCondition1 )连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable)
      '其中数据表的密码为（DataBasePassword ）   
      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String，byval DataBasePassword  as string) As Recordset
  
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
   ' 打开连接。
   MyPath = getapppathparent + "database\"
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   '建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
   MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   '给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
  
End Function   '这个函数只是打开有密码的数据表，对于用户的验证，你可以另外添加代码实现

Answer 7

Option Explicit
Public m_Con As ADODB.Connection
Public m_Rs As ADODB.RecordsetPublic Sub main()
Dim ConnStr As String
Set m_Con = CreateObject("ADODB.Connection")
ConnStr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\school.mdb"
m_Con.Open ConnStr
Load frmLogin
frmLogin.Show
End Sub
Private Sub cmdOK_Click()
Dim sql As String
sql = "select * from user where username=" & "'" & txtUserName & "'" & " and password=" & "'" & txtPassword & "'"
Set m_Rs = New ADODB.Recordset
m_Rs.Open sql, m_Con, adOpenDynamic, adLockOptimistic
If Not m_Rs.EOF Then
        Me.Hide
        Load frmMain
        frmMain.Show
        Set m_Rs = Nothing
Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
End If
End Sub

Answer 8

to pl5th2001(白牙) 
你的方法确实可以实现用户登录，不过最好还是分开判断用户名和密码这样安全些，而且， 用户名和密码中不应含有' 符号否则随便输入一个用户名，然后输入密码****， 登录成功了， 这可不是我们想要的....