درخواست صفحه لوگین

[iman_123]

من دنبال یک صفحه لوگین هستم که بشه بزارم توبرنامم اول که بخواد اجرا بشه برنامم یک پسورد بخواد از کاربر

پسوردشم قبلا تعریف شده باشه ممنون میشم کسی جوابمو بده :قلب::قلب::قلب::قلب::قلب:

[SlowCode]

اولا سلام
دوما یه تکست باکس بزار روی فرم و یه دکمه بعد بنویس:
if text1.text="123" then
msgbox "password is true"
End if

این تاپیک (http://barnamenevis.org/showthread.php?330698-%D9%BE%D8%B3%D9%88%D8%B1%D8%AF&p=1467423&viewfull=1#post1467423)رو هم بخون.

ای کاش به جای این سوال یکم توی نت میگشتی! لااقل توی این سایت...
چون چندین بار قبل از شما اینو پرسیدن.
یه چیزی بگم ناراحت نشو... ولی اگه میخوای اینطوری ادامه بدی اصلا ادامه ندی بهتره، چون به جایی نمیرسی.

[saber67]

ببین این سورس کارتو راه میندازه؟
پسورد قابل قبول براش 1234 هستش

[m.4.r.m]

منظور دوستمون صفحه لاگین با دیتابیس هست فکر کنم .

بیا اینک کدش فیلد هاشو خودت عوض کن

این قسمت برای نمایش تعداد یوزر های موجود در داخل کومبو باکس شما هست :

If Adodc1.Recordset.RecordCount > 0 Then
For o = 1 To Adodc1.Recordset.RecordCount
Datacombo1.AddItem Adodc1.Recordset.Fields("User")
Adodc1.Recordset.MoveNext
Next
End If


این هم کد اصلیت :

If Datacombo1.Text = "" Then
MsgBox " áØÝÇ äÇã ˜ÇÑÈÑí ÑÇ ÇäÊÎÇÈ äãÇÆíÏ ", vbExclamation, ""
Datacombo1.SetFocus
Exit Sub
End If
If Trim(Text1.Text) = "" Then
MsgBox " áØÝÇ ˜áãå ÚÈæÑ ÑÇ æÇÑÏ äãÇÆíÏ ", vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
Adodc2.RecordSource = "SELECT * FROM Login WHERE User='" & Datacombo1.Text & "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
If UCase(Adodc2.Recordset.Fields("password")) = UCase(Text1) Then
Admin = Adodc2.Recordset.Fields("admin")
Main_frm.Show
Main_frm.txtFileName.Text = App.Path + "\Dbase.mdb"
Unload Me
Else
MsgBox " ˜áãå ÚÈæÑ ÔãÇ ÇÔÊÈÇå ÇÓÊ ", vbCritical, ""
L4.Caption = L4.Caption + 1
If L4.Caption = 3 Then
End
End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
End If
End If