[RaggiTech]

كاتب الموضوع : 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