طريقة عمل شاشة تسجيل دخول بلغة الفيجوال بيسك و MS Access

Sameh
بسم الله الرحمن الرحيم 

 طريقة عمل شاشة تسجيل دخول بلغة الفيجوال بيسك و MS Access 

الخطوة الاولى :  نقوم بتصميم جدول البيانات في MS Access Database     
                                و نسميه “tblusers.” 
الخطوة الثانية : نقوم بعمل الحقول الخاصة بقاعدة البيانات كما في الصوة التالية : 


الخطو ة الثالثة : ثم ، أضافه سجل عينه كما في الصورة التالية: 

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

الان نقوم بوضع الادوات على الفورم  
نقوم باضافة :  
الأداة  
العدد 
Text Box  
2 
Label  
2 
Button 
1 

الان انتهينى من تصميم ننتقل الى مرحلة كتابة الاكواد 

نقوم باضافة كود الاتصال قبل Public Class Form1 

Imports System.Data.OleDb 
1 

الان نذهب الى التصميم و نضغط على الزر ضغطتين متاليتين ونضيف الاكواد الاتية  
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
  
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Login.accdb") 
  
Dim cmd As OleDbCommand = New OleDbCommand( _ 
  
"SELECT * FROM tblusers WHERE USERNAME = '" & _ 
  
TextBox1.Text & "' AND [PASSCODE] = '" & TextBox2.Text & "' ", con) 
  
Dim user As String = "" 
  
Dim pass As String = "" 
  
  
  
  
con.Open() 
  
Dim sdr As OleDbDataReader = cmd.ExecuteReader() 
  
If (sdr.Read() = True) Then 
  
user = sdr("USERNAME") 
  
pass = sdr("PASSCODE") 
  
MessageBox.Show("Login Successfully!") 
  
Me.Close() 
  
Else 
  
MessageBox.Show("Invalid username or password!") 
  
End If 
  
End Sub 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 


والان نقوم بالاضغط على F5 لتنفيز المشروع 

لتحميل الكود