تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أفضل طريقة لعمل اسم مستخدم وكلمة السر لقاعدة البيانات لبرنامجك
#1
كاتب الموضوع : Friendassist

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

اولا المكتبات :

كود :
[color=#000000][COLOR=#0000bb]Imports System[/color][color=#007700].[/color][COLOR=#0000bb]Data
Imports System[/COLOR][color=#007700].[/color][COLOR=#0000bb]IO
Imports System[/COLOR][color=#007700].[/color][color=#0000bb]Data[/color][color=#007700].[/color][COLOR=#0000bb]OleDb  
[/COLOR][/COLOR]


ثانيا المتغيرات :

كود :
[color=#000000][COLOR=#0000bb] Dim fa [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#dd0000]"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password = admin ; Data Source =" [/color][color=#007700]& [/color][color=#0000bb]Application[/color][color=#007700].[/color][color=#0000bb]StartupPath [/color][color=#007700]& [/color][COLOR=#dd0000]"\secure.mdb"
    [/COLOR][color=#0000bb]Dim co [/color][color=#007700]As New [/color][color=#0000bb]OleDbConnection[/color][color=#007700]([/color][color=#0000bb]fa[/color][COLOR=#007700])
    [/COLOR][color=#0000bb]Dim da [/color][color=#007700]As New [/color][color=#0000bb]OleDbDataAdapter[/color][color=#007700]([/color][color=#0000bb]sqs[/color][color=#007700], [/color][color=#0000bb]co[/color][COLOR=#007700])
    [/COLOR][color=#0000bb]Dim ds [/color][color=#007700]As New [/color][COLOR=#0000bb]DataSet
    Dim sqs [/COLOR][color=#007700]As [/color][COLOR=#0000bb]String  
[/COLOR][/COLOR]


مع العلم ان قاعدة البيانات اسمها secure

ثالثا دالة الفحص او البحث :

كود :
[color=#000000][COLOR=#007700]Public [/color][color=#0000bb]Sub check[/color][COLOR=#007700]()
        Try
            [/COLOR][color=#0000bb]sqs [/color][color=#007700]= [/color][color=#dd0000]"SELECT * FROM secure WHERE name = '" [/color][color=#007700]& [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][COLOR=#dd0000]"'"
            [/COLOR][color=#0000bb]co[/color][color=#007700].[/color][color=#0000bb]Open[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]Dim da [/color][color=#007700]As New [/color][color=#0000bb]OleDbDataAdapter[/color][color=#007700]([/color][color=#0000bb]sqs[/color][color=#007700], [/color][color=#0000bb]co[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]ds[/color][color=#007700].[/color][color=#0000bb]Clear[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]da[/color][color=#007700].[/color][color=#0000bb]Fill[/color][color=#007700]([/color][color=#0000bb]ds[/color][color=#007700], [/color][color=#dd0000]"secure"[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]co[/color][color=#007700].[/color][color=#0000bb]Close[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]lb1[/color][color=#007700].[/color][color=#0000bb]DataBindings[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#dd0000]"Text"[/color][color=#007700], [/color][color=#0000bb]ds[/color][color=#007700], [/color][color=#dd0000]"secure.name"[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]lb2[/color][color=#007700].[/color][color=#0000bb]DataBindings[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#dd0000]"Text"[/color][color=#007700], [/color][color=#0000bb]ds[/color][color=#007700], [/color][color=#dd0000]"secure.pass"[/color][COLOR=#007700])
        Catch [/COLOR][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception
        End [/COLOR][COLOR=#007700]Try
    [/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

قم باستدعاء دالة الفحص في حدث TextBox1_KeyUp

أخيرا في حدث الضغط علي زر الدخول :

كود :
[COLOR=#000000][COLOR=#007700]Try
            If [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]lb1[/color][color=#007700].[/color][COLOR=#0000bb]Text Then
                [/COLOR][color=#007700]If [/color][color=#0000bb]TextBox2[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]lb2[/color][color=#007700].[/color][COLOR=#0000bb]Text Then
                    Form2[/COLOR][color=#007700].[/color][color=#0000bb]Show[/color][COLOR=#007700]()
                    [/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Hide[/color][COLOR=#007700]()
                Else
                    [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"اسم المستخدم او كلمة المرور غير صحيحة الرجاء المحاولة مرة أخري "[/color][COLOR=#007700])
                    [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""
                    [/COLOR][color=#0000bb]TextBox2[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""
                    [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Select[/color][COLOR=#007700]()
                [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
            Else
                [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"اسم المستخدم او كلمة المرور غير صحيحة الرجاء المحاولة مرة أخري "[/color][COLOR=#007700])
                [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""
                [/COLOR][color=#0000bb]TextBox2[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""
                [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Select[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
        Catch [/COLOR][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception
            [/COLOR][COLOR=#007700]Return
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]Try  
[/COLOR][/COLOR]

لتحميل المثال :
password.zip
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [شرح] اتصال بقاعدة بيانات اكسيس , اضافة بيان , تعديل بيان , حذف بيان , عرض البيانات . ahmed salam 20 9,115 26-09-16, 08:12 AM
آخر رد: abumuhannadzym
  طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت abdhassan 2 328 28-05-16, 02:16 PM
آخر رد: CLARO
  طريقة مميزة لعمل إعدادات Setting لحفظ اعدادات برنامجك بدون أكواد kslawy 6 1,666 26-05-16, 12:07 PM
آخر رد: CLARO
  [كود] استرجاع البيانات من ConnectionString silverlight 1 295 25-01-16, 05:08 PM
آخر رد: khodor1985
  [درس فيديو] حل مشكلة صلاحيات قواعد البيانات عند تغيير مسارها على الجهاز Operating System Error 5 أحمد النجار 1 416 31-12-15, 02:52 AM
آخر رد: WAEL ABED
  فيديو بالعربي تبادل البيانات بين Excel و VB.net أحمد النجار 0 554 03-06-15, 10:53 PM
آخر رد: أحمد النجار
Brick [مثال] طريقة سهلة مضمونة لفتح اي مشروع من اصدار مختلف الطالب 2 862 14-05-15, 07:55 PM
آخر رد: الطالب
  برمجة قواعد البيانات sql server + vb.net ابوهديل 1 5,831 13-02-14, 08:26 PM
آخر رد: Omar Mekkawy
Heart [مقال] شرح طريقة معرفة محتوى الكوكيز sooriaty03 3 1,468 27-12-13, 04:10 PM
آخر رد: رحوووم
  طريقة تغيير الوان الفورم من ListView 3booody 4 1,335 19-08-13, 05:01 PM
آخر رد: 3booody

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم