إنشاء مشروع باستخدام sql server و linq وتقارير crystal report

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم تقنية LinQ (http://vb4arb.com/vb/forumdisplay.php?fid=204)
+--- الموضوع : إنشاء مشروع باستخدام sql server و linq وتقارير crystal report (/showthread.php?tid=7842)

الصفحات: 1 2 3 4 5 6 7

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 13-03-13

إقتباس :الف شكر لك اخي الحبيب

اهلا بك

إقتباس :1- ما معنى الخاصية Auto-Sync

هذه الخاصية لمزامنة الحقل في محتوى البيانات مع الحقل في قاعدة البيانات.

إقتباس :2- هل الــخاصية PersonID لها نفس خواص الــ ID في الزيادة التلقائية والــ Primary key و إلخ

حقل العلاقة يجب ان يكون من نفس النوع فقط، ولا يشترط ان يكون معرف اساسي، اما أن يكون ترقيم تلقائي فهذا خطأ، عادة ما يتم ربط العمود الذي يحمل خصائص مفتاح اساسي وترقيم تلقائي من الجدول الاساسي، مع عمود اخر يكون من نفس النوع في الجدول الفرعي، القيمة في حقل العلاقة من الجدول الفرعي تكون نفس القيمة التي بحقل الجدول الاساسي، لو افترضنا أننا أدخلنا صف في الجدول الاساسي وكان رقمه 5، عندما نضيف صف في الجدول الفرعي يكون تابع لهذا الشخص الذي رقم 5، نأخذ قيمة حقل المفتاح الأساسي ونضعها في حقل العلاقة بالجدول الفرعي، وعندما نستعلم عن البيانات، كأن نأتي ببيانات هذا الشخص 5 من الجدول الاساسي، نذهب للجدول الفرعي ونقوم بجلب البيانات من كل الصفوف التي تحمل في حقل العلاقة رقم 5.

إقتباس :3- ليه عملت كونكشن مرتين ؟؟ هههه هي مافهمتها

عندما عملنا الاتصال الأول كان للاتصال بالسيرفر فقط، قبل أن ننشئ قاعدة البيانات، ثم بعد ذلك أنشأنا قاعدة البيانات من الكود، وعدنا لمحتوى البيانات من جديد لنربطه بقاعدة البيانات.
هذه العملية نقوم بها مرة واحدة فقط عند إنشاء البرنامج، وعند توزيعه سيكون جاهز، ولن يحتاج للربط مع قاعدة البيانات....

إقتباس :4- مامعنى التسمية .\sqlexpress وخصوصا الباك سلاش والنقطة وهل يمكنني ان اسميه كما اريد

النقطة تعني الجهاز الحالي، يمكننا كتابة اسم الجهاز بدلا عنها ولكن سيكون خطأ عند تشغيل البرنامج على اجهزة أخرى، يمكن كتابة اسم سيرفر أيضا بدلا عنها في حال كان الجهاز الحالي مرتبط بسيرفر على شبكة، أو حتى من خلال الانترنت، sqlexpress هي نسخة مجانية من قواعد البيانات sql server، يمكنك استبدالها بنسخ اخرى إن أردت....

إقتباس :5- عندما كتبنا الكود التالي private DB.PhoneBookDB db = new DB.PhoneBookDB(); فنحن انشئنا الأوبجكت db من الكلاس DB اليس ذلك صحيح ؟؟ وهل تسمى هذه العملية كبسلة Encapsulation أم Abstract تجريد

سوف يأتي الجواب مع السؤال 11 إن شاء الله.

إقتباس :6- لماذا عرفنا الكود السابق على انه Private وبكلاس الفورم لود هل يصح ان نضعه في التصريحات العامة ام ماذا ؟

وضعنا هذا المتغير في قسم التصريحات العامة وليس في حدث التحميل للنموذج، لأننا استخدمناه في أكثر من مكان من الكود، اللهم في نموذج اضافة مستخدم جديد، وضعنا المتغير داخل حدث ضغط رز الاضافة، لأننا لم نكتب غيره ولا نحتاج أن يكون عام....

إقتباس :7- في هذا الكود لاحظت ان تسلسل البارامترات ليس كتسلسل البارامترات المعطى من اللغة _

MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error); return; }

حيث ان يجب ان يكون أول بارامتر هو البارامتر الأونر او المالك "لم افهم اصلاً ماذا يعني أونر والثاني هي الجملة النصية هل الـ ex.message هي الجملة النصية الا يجب ان يكون بعد القوس مباشرة علامة ,

هذا الإجراء معاد تعريفة 21 مرة، إعادة التعريف 7 تطلب هذه الوسيطات فقط....

إقتباس :8- هذا الكود اكثر شيء جنني وعملت عليه جلسة تاأمل كاملة ههههه وماكنت افهم قصته

var users = from d in db.Users
where d.Admin
select d;

ليش استخدمنا كلمة var هل هذا يعني Variant ام ماذا وليه ماعطانا الكومبايلر خطأ لاننا مااستخدمنا السيمي كولن او الــفاصلة المنقوطة في نهاية كل سطر ;

هذا الكود هو جملة التحديد في linq، تعادل:

كود :

[align=left]select * from users where admin=true

[/align]

في لغة sql.
var هي اضافة لم تكن مع الاصدارات السابقة من الفجوال (variable)، تستخدم لتعريف متغيرات مجهولة النوع، يقوم المترجم باستنتاج النوع من خلال القيمة التي يحملها المتغير.
هذه الخاصية تعطي ميزة ومرونة كبيرة في الكود، انظر لهذا الكود مثلا:

:#C

كود :

[align=left]class Person

{

    string Name { get { return "Adb Allah"; } }

    int Age { get { return 40; } }

}[/align]

:VB

كود :

[align=left]Class Person

    ReadOnly Property Name() As String

        Get

            Return "Abd Allah"

        End Get

    End Property

    ReadOnly Property Age() As Integer

        Get

            Return 40

        End Get

    End Property

End Class[/align]

اصبح بإمكاننا كتابته بهذا الشكل مباشرة:
:#C

كود :

[align=left]var Person = new { Name = "Abd Allah", Age = 40 };

[/align]

:VB

كود :

[align=left]Dim Person = New With {Key .Name = "Abd Allah", Key .Age = 40}

[/align]

إقتباس : 9- في الكود السابق مالف افهمه ايضاً ان هل نحن هنا جلبنا المدراء ام انشئنا مدير اي الكود السابق هل يستخدم لجلب البيانات ام إنشاء البيانات
10- آه يبدوا ان هذا هو الكود المسؤول عن إنشاء مدير

DB.Users admin = new DB.Users();
admin.Username = "Admin";
admin.Password = "Admin";
admin.Admin = true;
admin.Active = true;

هل هذا صحيح اخي الحبيب

الكود السابق كما قلنا هو لتحديد البيانات او لجلبها، استخدمناه لنعرف اذا ما كان هنالك مدير للبرنامج أم لا، وعند تشغيل البرنامج لأول مره، لن يكون هناك أي بيانات، لذلك علينا تسجيل مدير للبرنامج من خلال الكود الاخير في سؤالك.

إقتباس :11- وهذان السطران تسببا لي بإرتباك شديد جداً

db.Users.InsertOnSubmit(admin);
db.SubmitChanges();

نحن استخدمنا هنا الأوبجكت db الذي انشئناه من الصف او الكلاس DB اليس كذلك اخي الحبيب ولكن لمااااذا لم نستخدم الأوبجكت عندما انشئنا مديراً جديداً

نحن استخدمنا هنا الأوبجكت db الذي انشئناه من الصف او الكلاس DB اليس كذلك اخي الحبيب ولكن لمااااذا لم نستخدم الأوبجكت عندما انشئنا مديراً جديداً
محتوى البيانات يحتوي على اثنين namespace، الأول فيه فئة من جداول قاعدة البيانات، والآخر فيه فئات من اسماء الجداول وداخل كل فئة خصائص من الاعمدة التي في الجداول، اذهب لمحتوى البيانات، هنالك خاصيتين قما بكتابة DB بكل منهن، الأولى Context Namespace، والأخرى Entity Namespace، قم بتغيير الأولى لـ: CDB، واذهب للكود في النموذج، اعمل متغير من الـ DB وانظر علما يحتوي، سوف تظهر فئة من كل جدول عملناه، اعمل متغير اخر من الـ CDB وانظر علما تحتوي، يوجد بها فئة من قاعدة البيانات.
لنبسط الامر أكثر، انظر:

:#C

كود :

[align=left]namespace CDB

{

    class Users { }

    class Persons { }

    class PhoneNumbers { }

}

namespace DB

{

    class Database

    {

        public System.Data.Linq.Table<CDB.Users> Users { }

        public System.Data.Linq.Table<CDB.Persons> Persons { }

        public System.Data.Linq.Table<CDB.PhoneNumbers> PhoneNumbers { }

    }

}[/align]

:VB

كود :

[align=left]Namespace CDB

    Class Users

    End Class

    Class Persons

    End Class

    Class PhoneNumbers

    End Class

End Namespace

Namespace DB

    Class Database

        Public Users As System.Data.Linq.Table(Of CDB.Users)

        Public Persons As System.Data.Linq.Table(Of CDB.Persons)

        Public PhoneNumbers As System.Data.Linq.Table(Of CDB.PhoneNumbers)

    End Class

End Namespace[/align]

اعتقد أن الفكرة قد اتضحت....

إقتباس :12- عندما قمت اخي الحبيب بإنشاء الأوبجكت mf من الفورم الرئيسي MainForm بدأت بإستخدام العناصر الموجودة في الفورم الرئيسي من فورم آخر
كمثال :
mf.newuser.Enabled = user.SingleOrDefault().Admin;
هنا استخدمنا القائمة newuser مع العلم ان القائمة المودفاير الخاص بها هو Private ولقد ظهر لي خطأ عندما عملت كومبايل للبرنامج فأضطررت لتغيير الخاصية Modifier إلى Public حتى اختفت كل الأخطاء وقس على ذلك كل أوبجكت انشأناه من فورم ما هل مافعلته انا صحيح ام ان هناك خطأ ما ؟؟

في بسيك تكون الفئات وتوابعها معرفة كـ friend shared تعادل static internal في سي شارب، أما سي شارب كل تكون internal للفئات و private لتوابعها، لذلك دائما ما نحتاج تعريف متغير جديد من فئة، ولكي نصل لتوابعها يجب أن نغيرها من private لـ internal. مثلا عند استدعاء نموذج اضافة مستخدم جديد:

:#C

كود :

[align=left]AddNewUser anu = new AddNewUser();

anu.ShowDialog();[/align]

:VB

كود :

[align=left]AddNewUser.ShowDialog()

[/align]

إقتباس :13- لم افهم هذه الجزئية اخي الحبيب

PHP كود :

private string un = String.Empty; internal string Username { get { return un; } set { un = value; } }

هذه خاصية عملناها لنضع فيها اسم المستخدم الحالي (الذي قام بتسجيل الدخول)، سوف يأتي استخدامها في نموذج تعديل البيانات، سوف ترا ذلك إن شاء الله.

إقتباس :14- عندما كتبت انت هذا الكود

PHP كود :

unbox.Text.Trim();

هل يصح كتابته بالشكل التالي

PHP كود :

string.trim(unbox.text);

لا أدري.

إقتباس :15- هل هناك طريقة لعمل BackUP للقاعدة وعمل إستيراد وتصدير لها

سوف نأتي لها في آخر المشروع إن شاء الله.

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 13-03-13

نضيف نموذج جديد للمشروع اسمه 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]

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - tariq2812 - 13-03-13

الله يجزاك خير

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - <br> - 13-03-13

الله يعطيك ألف عافية وجزيك كل خير ياأخي العزيز ربيع وشكرا على الإجابة على الأسئلة الله يجعلها في ميزان حسناتك إن شاء الله

والله لازم الموضوع يتثبت لأنه مهم جدا جدا جدا

متابع معاك إن شاء الله خطوة خطوة والله يجزيك الخير مرة تانية

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 13-03-13

tariq2812 كتب :الله يجزاك خير

وانت كذلك

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 13-03-13

<br> كتب :الله يعطيك ألف عافية وجزيك كل خير ياأخي العزيز ربيع وشكرا على الإجابة على الأسئلة الله يجعلها في ميزان حسناتك إن شاء الله

والله لازم الموضوع يتثبت لأنه مهم جدا جدا جدا

متابع معاك إن شاء الله خطوة خطوة والله يجزيك الخير مرة تانية

الله يعافيك ويبارك فيك

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - learning.net - 14-03-13

ماهذا الابداع يا استاذ ربيع
موفق ان شاء الله
وانا اطلب من الادارة تثبيت الموضوع

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 14-03-13

learning.net كتب :ماهذا الابداع يا استاذ ربيع
موفق ان شاء الله
وانا اطلب من الادارة تثبيت الموضوع

بارك الله فيكو اخواني والله كلامكو بخجلني :o
وبخليني اتفرج على المشاركه عشر مرات قبل ما انزلها على الموضوع :p

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - Abu Ehab - 14-03-13

هــــو الربيــــــع أجمل فصول الســـــــنه وطبيعي أن يثمر فيه أكواد رائـــــــعه ومشاركات قيمة كروعة أخلاق زارعـــــــها Wink

وكل أنســــــان له من أســــــمه نصيـــــــب .
أنت عــــــارف رأأيي في الموضــــوع من غير ما أتكلم ,,, تحيــــــاتي وأحترامي لك وللجمــــيع ولا تنسى تحويله لكتـــــاب

إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 14-03-13

Abu Ehab كتب :هــــو الربيــــــع أجمل فصول الســـــــنه وطبيعي أن يثمر فيه أكواد رائـــــــعه ومشاركات قيمة كروعة أخلاق زارعـــــــها
وكل أنســــــان له من أســــــمه نصيـــــــب .
أنت عــــــارف رأأيي في الموضــــوع من غير ما أتكلم ,,, تحيــــــاتي وأحترامي لك وللجمــــيع ولا تنسى تحويله لكتـــــاب

لعل ايهاب من وهب فكيف بابيه....
شرفت الموضوع استاذنا الغالي، بارك الله فيك.