نعود الآن لتصميم النموذج، ونضع عليه أداة الـ MenuStrip وأداة الـ TabControl، نضبط خاصية الـ Dock لأداة الـ TabControl على القيمه Fill:
MenuStrip ستحتوي ما يلي:
[LIST=1|INDENT=2]
[*]مستخدم جديد: خاصية الـ Name = newuser
[*]حذف مستخدم: خاصية الـ Name = deluser
[*]تعديل البيانات: خاصية الـ Name = edituser
[*]تسجيل الخروج: خاصية الـ Name = signout
[*]إنهاء: خاصية الـ Name = exitapp
[/LIST]
الآن سنعمل نموذج لتسجيل الدخول، من Solution Explorer نضغط على المشروع بالزر الأيمن للفأرة، ثم نختار:
- Add
- Windows Form
ليكن اسمه LoginForm، خصائصة كما يلي:
FormBorderStyle = FixedDialog
MaximizeBox = False
MinimizeBox = False
ShowIcon = False
ShowInTaskbar = False
تسجيل الدخول = Text
نضيف من صندوق الأدوات أداتي Label وأداتي TextBox، و Button، خصائص الأدوات نضبطها كما يلي:
:textBox1
Name = unbox
:textBox2
Name = pasbox
* = PasswordChar
:button1
"دخول" = Text
في الكود الخاص بنموذج تسجيل الدخول، نعرف متغيرين عامين على النموذج:
* في #c نعرف ثلاث متغيرات.
:#C
كود :
[align=left]private DB.PhoneBookDB db = new DB.PhoneBookDB();
internal bool endapp = true;
internal MainForm mf = null;[/align]
:VB
كود :
[align=left]Private db As New DB.PhoneBookDB()
Friend endapp As Boolean = True[/align]
نضغط على زر الدخول مرتين بالفأرة لنذهب للحدث الافتراضي التابع له Click، سوف نختبر قيم النص لأداتي مربع النص فيما إذا كانت فارغة:
:#C
كود :
[align=left]if (String.IsNullOrEmpty(unbox.Text.Trim()) || String.IsNullOrEmpty(pasbox.Text.Trim()))
{
MessageBox.Show("يجب إدخال اسم المستخدم وكلمة المرور", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
return;
}
[/align]
:VB
كود :
[align=left]If String.IsNullOrEmpty(unbox.Text.Trim()) OrElse String.IsNullOrEmpty(pasbox.Text.Trim()) Then
MessageBox.Show("يجب إدخال اسم المستخدم وكلمة المرور", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
[/align]
نتبعه الكود التالي:
:#C
كود :
[align=left]try
{
var user = from u in db.Users
where u.Username == unbox.Text.Trim() && u.Password == pasbox.Text.Trim()
select u;
if (user.Count() != 0)
{
if (!user.SingleOrDefault().Active)
{
MessageBox.Show("لقد أدخلت اسم مستخدم موقوف", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
return;
}
endapp = false;
Close();
}
else MessageBox.Show("اسم المستخدم أو كلمة المرور خطأ", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
}
catch { } [/align]
:VB
كود :
[align=left]Try
Dim user = From u In db.Users
Where u.Username = unbox.Text.Trim().ToLower() AndAlso u.Password = pasbox.Text.Trim().ToLower()
Select u
If user.Count() <> 0 Then
If Not user.SingleOrDefault().Active Then
MessageBox.Show("لقد أدخلت اسم مستخدم موقوف", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
endapp = False
Close()
Else
MessageBox.Show("اسم المستخدم أو كلمة المرور خطأ", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
Catch
End Try
[/align]
جملة تحديد تم شرحها سابقاً، وباقي الكود واضح، اللهم المتغير endapp سوف يتضح بعد كتابة الكود التالي في حدث FormClosing:
:#C
كود :
[align=left]if (endapp) Application.Exit();[/align]
:VB
كود :
[align=left]If endapp Then End
[/align]
يجب علينا أن ننهي البرنامج في حالة إغلاق النموذج بدون تسجيل الدخول، كي لا يتم الدخول للبرنامج.
نعود للنموذج الرئيسي ونذهب لتبويب الكود التابع له، لنضيف إجراء كما يلي:
:#C
كود :
[align=left]private void LogIn()
{
tabControl1.SelectedIndex = 0;
LoginForm lf = new LoginForm();
lf.endapp = true;
lf.mf = this;
lf.unbox.Text = String.Empty;
lf.pasbox.Text = String.Empty;
lf.ShowDialog();
}
[/align]
:VB
كود :
[align=left]Private Sub LogIn()
TabControl1.SelectedIndex = 0
LoginForm.endapp = True
LoginForm.unbox.Text = String.Empty
LoginForm.pasbox.Text = String.Empty
LoginForm.ShowDialog()
End Sub
[/align]
في آخر كود إجراء التحميل للنموذج الرئيسي، تحت جملة الشرط نكتب:
:#C
كود :
[align=left]LogIn();[/align]
:VB
كود :
[align=left]LogIn()[/align]
الكود كاملاً داخل حدث تحميل النموذج الرئيسي:
:#C
كود :
[align=left] private void MainForm_Load(object sender, EventArgs e)
{
if (!db.DatabaseExists())
try { db.CreateDatabase(); }
catch (Exception ex) { MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error); return; }
try
{
var users = from d in db.Users
where d.Admin
select d;
if (users.Count() == 0)
{
DB.Users admin = new DB.Users();
admin.Username = "Admin";
admin.Password = "Admin";
admin.Admin = true;
admin.Active = true;
db.Users.InsertOnSubmit(admin);
db.SubmitChanges();
}
}
catch (Exception ex) { MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error); }
LogIn();
}[/align]
:VB
كود :
[align=left] Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not db.DatabaseExists() Then
Try
db.CreateDatabase()
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End If
Try
Dim users = From d In db.Users
Where d.Admin
Select d
If users.Count() = 0 Then
Dim admin As New DB.Users
admin.Username = "Admin"
admin.Password = "Admin"
admin.Admin = True
admin.Active = True
db.Users.InsertOnSubmit(admin)
db.SubmitChanges()
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
LogIn()
End Sub
[/align]
لنرى مشروعنا كيف يعمل الآن، نجرب تسجيل الدخول دون كتابة شيء في مربعات النصوص، نجرب أيضاً كتابة اسم مستخدم وكلمة مرور خطأ، وأيضاً نغلق النموذج لنرى أنه لا يعود للنموذج الرئيسي بل يخرج من البرنامج كامل، ولا ننسى أن ندخل معلومات صحيحة لنرى أنه يعمل بشكل جيد.
سوف ننهي خيارات المستخدم أولاً، لذا قبل أن نبدأ بها يجب علينا تحديد الصلاحيات، سوف نمنع المستخدمين من إضافة مستخدم جديد للبرنامج وحذف مستخدم من البرنامج، باستثناء المدير، نعود للكود داخل حدث ضغط زر تسجيل الدخول ونكتب داخل جملة الشرط الرئيسية وتحت جملة الشرط الفرعية:
:#C
كود :
[align=left]mf.newuser.Enabled = user.SingleOrDefault().Admin;
mf.deluser.Enabled = mf.newuser.Enabled;
[/align]
:VB
كود :
[align=left]MainForm.newuser.Enabled = user.SingleOrDefault().Admin
MainForm.deluser.Enabled = MainForm.newuser.Enabled
[/align]
SingleOrDefault دالة تعود بصف واحد من جملة التحديد، والصف يحتوي خاصية Admin التي أدرجناها سابقا في فئة الـ Users، أسندنا قيمتها لخاصية التمكين في خيار إضافة مستخدم جديد، كما أسندنا قيمة التمكين في خيار حذف المستخدم لتساوي قيمة التمكين في خيار إضافة مستخدم جديد، بقي أن نخزن اسم المستخدم لكي نعدل بياناته، دون الحاجة لكتابة اسمه الحالي وكلمة المرور الخاصة به الحالية في النموذج الخاص بذلك، سوف نضيف في النموذج الرئيسي خاصية نخزن بها اسم المستخدم:
:#C
كود :
[align=left]private string un = String.Empty;
internal string Username
{
get { return un; }
set { un = value; }
}
[/align]
:VB
كود :
[align=left]Private un As String = String.Empty
Friend Property Username As String
Get
Return un
End Get
Set(ByVal value As String)
un = value
End Set
End Property
[/align]
نذهب لنموذج تسجيل الدخول، لنكتب تحت سطري الصلاحيات:
:#C
كود :
[align=left]mf.Username = unbox.Text.Trim();
[/align]
:VB
كود :
[align=left]MainForm.Username = unbox.Text.Trim()
[/align]
الكود كامل في نموذج تسجيل الدخول:
:#C
كود :
[align=left] public partial class LoginForm : Form
{
public LoginForm()
{
InitializeComponent();
}
private DB.PhoneBookDB db = new DB.PhoneBookDB();
internal bool endapp = true;
internal MainForm mf = null;
private void Button1_Click(object sender, EventArgs e)
{
if (String.IsNullOrEmpty(unbox.Text.Trim()) || String.IsNullOrEmpty(pasbox.Text.Trim()))
{
MessageBox.Show("يجب إدخال اسم المستخدم وكلمة المرور", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
return;
}
try
{
var user = from u in db.Users
where u.Username == unbox.Text.Trim() && u.Password == pasbox.Text.Trim()
select u;
if (user.Count() != 0)
{
if (!user.SingleOrDefault().Active)
{
MessageBox.Show("لقد أدخلت اسم مستخدم موقوف", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
return;
}
mf.newuser.Enabled = user.SingleOrDefault().Admin;
mf.deluser.Enabled = mf.newuser.Enabled;
mf.Username = unbox.Text.Trim();
endapp = false;
Close();
}
else MessageBox.Show("اسم المستخدم أو كلمة المرور خطأ", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
}
catch { }
}
private void LoginForm_FormClosing(object sender, FormClosingEventArgs e)
{
if (endapp) Application.Exit();
}
}
[/align]
:VB
كود :
[align=left]Public Class LoginForm
Private db As New DB.PhoneBookDB()
Friend endapp As Boolean = True
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If String.IsNullOrEmpty(unbox.Text.Trim()) OrElse String.IsNullOrEmpty(pasbox.Text.Trim()) Then
MessageBox.Show("يجب إدخال اسم المستخدم وكلمة المرور", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
Try
Dim user = From u In db.Users
Where u.Username = unbox.Text.Trim().ToLower() AndAlso u.Password = pasbox.Text.Trim().ToLower()
Select u
If user.Count() <> 0 Then
If Not user.SingleOrDefault().Active Then
MessageBox.Show("لقد أدخلت اسم مستخدم موقوف", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
MainForm.newuser.Enabled = user.SingleOrDefault().Admin
MainForm.deluser.Enabled = MainForm.newuser.Enabled
MainForm.Username = unbox.Text.Trim()
endapp = False
Close()
Else
MessageBox.Show("اسم المستخدم أو كلمة المرور خطأ", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
Catch
End Try
End Sub
Private Sub LoginForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If endapp Then End
End Sub
End Class
[/align]