طريقة عمل شاشة تسجيل دخول بلغة الفيجوال بيسك و MS Access
بسم الله الرحمن الرحيم
طريقة عمل شاشة تسجيل دخول بلغة الفيجوال بيسك و 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 لتنفيز المشروع
