[RaggiTech]

الدالة Sort لترتيب المفاتيح من الاصغر الى الاكبر

كود :

[SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE][SIZE=2] Sort() [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] IDs[/SIZE]
[SIZE=2]InnerList.Sort()[/SIZE]
[SIZE=2][color=#0000ff]Return[/color][/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE]

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

كود :

[SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE][SIZE=2] Text() [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]String[/color][/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] i [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Long[/color][/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Ret [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]String[/color][/SIZE][SIZE=2] = [/SIZE][SIZE=2][color=#800000]""[/color][/SIZE]
[SIZE=2][color=#0000ff]For[/color][/SIZE][SIZE=2] i = 0 [/SIZE][SIZE=2][color=#0000ff]To[/color][/SIZE][SIZE=2] List.Count - 1[/SIZE]
[SIZE=2]Ret &= List(i) & vbCrLf[/SIZE]
[SIZE=2][color=#0000ff]Next[/color][/SIZE]
[SIZE=2][color=#0000ff]Return[/color][/SIZE][SIZE=2] Ret[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE]

vbCrLf يمثل سطر جديد بالنص

الدالة RemoveDuplicates لالغاء المفاتيح المتكررة من التجمع

كود :

[SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE][SIZE=2] RemoveDuplicates() [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] IDs[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] RetIDs [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] IDs[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] i [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Long[/color][/SIZE]
[SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].Sort()[/SIZE]
[SIZE=2][color=#0000ff]If[/color][/SIZE][SIZE=2] List.Count > 0 [/SIZE][SIZE=2][color=#0000ff]Then[/color][/SIZE][SIZE=2] RetIDs.AddID(List(i))[/SIZE]
[SIZE=2][color=#0000ff]For[/color][/SIZE][SIZE=2] i = 0 [/SIZE][SIZE=2][color=#0000ff]To[/color][/SIZE][SIZE=2] List.Count - 2 [/SIZE][SIZE=2][color=#008000]' To Befor Last[/color][/SIZE]
[SIZE=2][color=#0000ff]If[/color][/SIZE][SIZE=2] List(i) <> List(i + 1) [/SIZE][SIZE=2][color=#0000ff]Then[/color][/SIZE]
[SIZE=2]RetIDs.AddID(List(i + 1))[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]If[/color][/SIZE]
[SIZE=2][color=#0000ff]Next[/color][/SIZE]
[SIZE=2][color=#0000ff]Return[/color][/SIZE][SIZE=2] RetIDs[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Class[/color][/SIZE]

تم الكائن

طبعا توجد بعض الاجراءات لا تستخدم في الكثير من المشاريع ولكن كي يكون جاهز لاي خدمة اضفناها
هذا الكائن بالرغم من بساطته فهو سيغنينا من التعامل مع كائنات قواعد البيانات بداخل البرنامج واذا تكلمنا على المشاريع متعددة الطبقات MutiTier فقواعد البيانات هي الطبقة السفلى اي صفر وهذا الكائن والكائنات الموجودة في المجلد Entities هي الطبقة واحد التي تتعامل مع قاعدة البيانات والنظام

كما سنلاحظ ان هذا الكائن سيكون البديل عن تعامل النظام مع جمل SQL التي نضطر لمراجعتها كل ما تم تغيير اسم احد الحقول او الجداول

في امامنا الكثير من النقاش