[ربيع]

نضيف نموذج جديد للمشروع اسمه EditData، نضع عليه أدوات: 3 Label و 3 TextBox و Button، خصائص الأدوات:

[TABLE="class: grid, width: 500, align: right"]
[TR]
[TD]الأداة
[/TD]
[TD]خاصية الاسم Name[/TD]
[TD]خاصية النص Text[/TD]
[/TR]
[TR]
[TD]label1[/TD]
[TD][/TD]
[TD]كلمة المرور القديمة[/TD]
[/TR]
[TR]
[TD]label1[/TD]
[TD][/TD]
[TD]كلمة المرور الجديدة[/TD]
[/TR]
[TR]
[TD]label1[/TD]
[TD][/TD]
[TD]تأكيد كلمة المرور[/TD]
[/TR]
[TR]
[TD]textBox1[/TD]
[TD]opbox[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]textBox2[/TD]
[TD]npbox[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]textBox3[/TD]
[TD]vnpbox[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]button1[/TD]
[TD][/TD]
[TD]حفظ[/TD]
[/TR]
[/TABLE]

نضغط مرتين على زر الحفظ، ثم نكتب:

:#C

كود :

[align=left]DB.PhoneBookDB db = new DB.PhoneBookDB();

if (String.IsNullOrEmpty(opbox.Text.Trim()) || String.IsNullOrEmpty(npbox.Text.Trim()) || String.IsNullOrEmpty(vnpbox.Text.Trim()))
{ MessageBox.Show("يجب إكمال البيانات", Text, MessageBoxButtons.OK, MessageBoxIcon.Warning); return; }

if (npbox.Text.Trim() != vnpbox.Text.Trim())
{ MessageBox.Show("كلمة المرور غير متطابقة", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation); return; }

try
{
    var user = (from u in db.Users
    where u.Username == mf.Username
    select u).SingleOrDefault();

    if (user.Password != opbox.Text.Trim())
    { MessageBox.Show("كلمة السر خطأ، أعد الكتابة", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation); return; }

    user.Password = npbox.Text.Trim();

    db.SubmitChanges();
    MessageBox.Show("تم تعديل البيانات", Text, MessageBoxButtons.OK, MessageBoxIcon.Information);
}
catch (Exception ex) { MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error); }[/align]

:VB

كود :

[align=left]Dim db As New DB.PhoneBookDB()

If String.IsNullOrEmpty(opbox.Text.Trim()) OrElse String.IsNullOrEmpty(npbox.Text.Trim()) OrElse String.IsNullOrEmpty(vnpbox.Text.Trim()) Then
    MessageBox.Show("يجب إكمال البيانات", Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Exit Sub
End If

If npbox.Text.Trim() <> vnpbox.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 = MainForm.Username
     Select u).SingleOrDefault()

    If user.Password <> opbox.Text.Trim() Then
MessageBox.Show("كلمة السر خطأ، أعد الكتابة", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
    End If

    user.Password = npbox.Text.Trim()

    db.SubmitChanges()
    MessageBox.Show("تم تعديل البيانات", Text, MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception
    MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
[/align]

نعود للنموذج الرئيسي، ثم من القائمة التي أنشأناها، نضغط مرتين على خيار تعديل البيانات:

:#C

كود :

[align=left]EditData ed = new EditData();
ed.mf = this;
ed.ShowDialog();
[/align]

VB:

كود :

[align=left]EditUsers.ShowDialog()
[/align]

مستخدمين #c في نموذج تعديل البيانات قم بتعريف متغير عام في التصريحات العامة:

كود :

[align=left]internal MainForm mf = null;
[/align]

من القائمة في النموذج الرئيسي، نضغط على تسجيل الخروج أيضا، لنكتب:

:#C

كود :

[align=left]LogIn();
[/align]

:VB

كود :

[align=left]LogIn()
[/align]

وفي (إنهاء) من القائمة، نكتب:

:#C

كود :

[align=left]Close();
[/align]

:VB

كود :

[align=left]Close()[/align]