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

[iman_123]

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

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

[SlowCode]

اولا سلام
دوما یه تکست باکس بزار روی فرم و یه دکمه بعد بنویس:

if text1.text="123" then

msgbox "password is true"

End if

این تاپیک رو هم بخون.

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

[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