الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

واجهة الدخول وطريقة ربطها بالقاعدة !

بدأه munita في 16 يناير 2012 · 10 رد · 1,453 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخواني الأعضاء

إن شاء الله تكونوا بصحة وعآآآآفيه

سؤالي هو .. إني ابغى اسوي نظام مستوصف .. عند دخول المستخدم يدخل اسم المستخدم و الباسوورد ويقوم النظام بالفحص في جدول المستخدمين

إذا كانت صحيحة يدخل على الواجهة الرئيسية

وإذا كانت خاطئة يخليها يحاول 3 مرات ثم يخرجه من البرنامج بعدها

ممكن اعرف ايش طريقة الربط اللي استخدمها .. لآني جلست افكر وبصراحة محتآآآآآآره

آنتظر ردكم لأنه مشروع تخرجي بلييييييييييييز ساعدوني :sad:

شكرا

#2

السلام عليكم ورحمه الله وبركاته

اختي يمكنك استخدام الوضع المتصل اذا كانت قاعدة البيانات في نفس الجهاز, كما يمكنك استخدام الوضع المنفصل اذا كانت بيانات جدول المستخدمين قليلة, فقومي بتحميلها في الذاكره لأول مرة بعدها يمكنك الاستعلام من الذاكرة بدون اي حاجة للذهاب الى قاعدة البيانات, اما بالنسبة لتسجيل الدخول فأنصحك باستخدام خاصية البحث بالمنتدى ..

1

.:: Wish to become better and better ::.

#3

هلآ اخوي .. يعطيك العآفيه

بس آنا كان قصدي إنو هل اسوي له بروسيجر في الـ sql

وبعدين في كود الربط .. استخدم جملة IF

يعني مثلا البروسيجر يكون كذآ :

create proc loginFace
@userName nvarchar(25),@Password nchar(8)
as
select UserName,Password
from dbo.Users
#4

وكود الربط هل بهذه الصوره صحيح

Dim i As Integer = 0
        Try
            Dim logcode As New SqlClient.SqlCommand
            alhayatcon.Open()
            logcode.Connection = alhayatcon
            logcode.CommandType = CommandType.StoredProcedure
            logcode.CommandText = "loginFace"
            logcode.Parameters.Add("@username", SqlDbType.NVarChar, 25)
            logcode.Parameters.Add("@password", SqlDbType.NChar, 8)

            logcode.ExecuteScalar()

            If TextBox1.Text = logcode.Parameters("@username").Value And
 TextBox2.Text = logcode.Parameters("@password").Value Then
                Me.Hide()
                Home.Show()
            Else
                i = i + 1
                If i = 3 Then
                    MessageBox.Show("تمت المحاولة 3 مرات ، سوف يتم إغلاق البرنامج")
                    Application.Exit()
                Else
                    MsgBox("عفوا لم بتبق سوى " & vbNewLine & 3 - i & "محاولة")
                    Me.TextBox1.Focus()
                    Me.TextBox2.Focus()
                End If

            End If

        Catch ex As Exception
  MessageBox.Show(ex.Message)
        End Try

انتظر مساعدتكم ^^

تم تعديل هذه المشاركة بواسطة munita في 17 يناير 2012 في 10:47

#5

السلام عليكم ورحمه الله وبركاته

اختي يمكنك استخدام اجراء مخزن يرجع قيمة منطقية يتم فحصها لاحقا للتأكد من هوية المستخدم, كما يمكنك استخدام تقنية الـ LINQ لعمل الاستعلام في الكود

.:: Wish to become better and better ::.

#6

آهآ لو خزنت القيمة في الكود .. ايش بيسوي المستخدم

آنا اريد المستخدم يدخل اليوزر و الباسوورد الخاص فيه

ويتم فحصها في القاعدة !!

#7

السلام عليكم ورحمه الله وبركاته

اختي انا لم اقل ان تخزني القيمة في الكود؟!!

.:: Wish to become better and better ::.

#8

طيب اخوي آنآ اسفه على فهمي الخاطئ

ياريت لو تفهمني الطريقه هذي بالخطوات

#9

السلام عليكم ورحمه الله وبركاته

اختي ما عليك الا عمل اجراء مخزن في قاعدة البيانات يرجع قيمة منطقية True اذا كان المستخدم موجود او False اذا لم يكن موجود, بعدها قومي بتنفيذ الاجراء المخزن باستخدام ExecuteScalar وافحصي القيمة المرجعة فاذا كانت True فقومي باظهار الفورم الثاني والا فقومي بحساب عدد محاولات الدخول واذا وصلت 3 مثلا اغلقي البرنامج باستخدام Application.Exit

.:: Wish to become better and better ::.

#10

السلام عليكم ..

اقتباس
اجراء مخزن في قاعدة البيانات يرجع قيمة منطقية True اذا كان المستخدم موجود او False اذا لم يكن موجود

اشلون اسوي هذا الكود بوسط الإستدعاء ؟؟!! .. أنا سويت كذا بس ما ضبط معاي .. احسه مرررره ناقص بس مو عارفه اشلون اكمل

  Try
            Dim login As SqlClient.SqlCommand
            Dim c As String
            alhayatcon.Open()
            login.Connection = alhayatcon
            login.CommandType = CommandType.Text
            login.CommandText = "select @c=count(*) from dbo.Users where Username=" & TextBox1.Text & "and Password= " & TextBox2.Text
            If c > 0 Then
                Home.Show()
                Me.Hide()
            Else
                Application.Exit()
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

انتظر ردك اخوي .. بلييييز مساعده سريعه

لأنه ما بقي على التسليم إلا اسبوعين ولسه باقيلي كثير :sad:

#11

السلام عليكم ورحمه الله وبركاته

اختي ارى انك نسيتي زيادة العداد الذي يحتسب مرات تسيل الدخول الخاطئة!!

.:: Wish to become better and better ::.

مواضيع مشابهة