طراحی صفحه ورود کاربران

[bdf2121]

سلام
یه جدول دارم که نام کاربری و رمز هر کاربر توش قرار داره و در فرم دو تا تکس باکس هم دارم چطور باید چک کنم کاربر نام و رمز رو درست وارد کرده یا اصلا چنین کاربری در جدول وجود داره
کدش رو قرار بدین ممنون میشم

[saeedharati]

سلام ميتوني از كد زير استفاده كني ، اميدوارم كارتو راه بندازه اگه خواستي بگو فرمشو بذارم


If User.Text <> "" Then
If Pass.Text <> "" Then
Adodc1.Recordset.Filter = "Username='" & User.Text & "'"
If Adodc1.Recordset.BOF = False Then
If Adodc1.Recordset.Fields("password") = Pass.Text Then
Unload Me
Main.Show 1
Else
MsgBox "با عرض پوزش : كاربر گرامي شما صلاحيت كار با سيستم را نداريد .", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "كنترل صلاحيت"
End
End If
End If
End If
End If

[sajad_boj70]

ابتدا یک data بزارید که به بانک و فیلد رمز عبورت متصل بشه.
بعد از این کد استفاده کن.



If Data1.Recordset.Fields(0) = Text1.Text Then
form1.Show
Form4.Hide
Else
Call MsgBox("رمز عبور اشتباه وارد شده است", vbCritical, "خطا")
Text1 = ""
Text1.SetFocus
End If