[RaggiTech]

الاجراء Edit وهو اجراء يفيد في تصحيح الاخطاء ففي وقت معين تحتاج لترى خصائص كائن معين اثناء التنفيذ وتعدل بها فما عليك الا استدعاء هذا الاجراء وتمرر له المتغير المطلوب

كود :

[SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE][SIZE=2] Edit([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] EditableObject [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Object[/color][/SIZE][SIZE=2])[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] frm [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Form[/SIZE]
[SIZE=2][color=#0000ff]With[/color][/SIZE][SIZE=2] frm[/SIZE]
[SIZE=2].Font = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] System.Drawing.Font([/SIZE][SIZE=2][color=#800000]"Tahoma"[/color][/SIZE][SIZE=2], 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, [/SIZE][SIZE=2][color=#0000ff]CType[/color][/SIZE][SIZE=2](178, [/SIZE][SIZE=2][color=#0000ff]Byte[/color][/SIZE][SIZE=2]))[/SIZE]
[SIZE=2].ClientSize = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] System.Drawing.Size(288, 406)[/SIZE]
[SIZE=2].ShowInTaskbar = [/SIZE][SIZE=2][color=#0000ff]False[/color][/SIZE]
[SIZE=2].StartPosition = System.Windows.Forms.FormStartPosition.CenterParent[/SIZE]
[SIZE=2].Text = EditableObject.GetType.ToString & [/SIZE][SIZE=2][color=#800000]" Property"[/color][/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Pry [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] PropertyGrid[/SIZE]
[SIZE=2][color=#0000ff]With[/color][/SIZE][SIZE=2] Pry[/SIZE]
[SIZE=2].Dock = DockStyle.Fill[/SIZE]
[SIZE=2].SelectedObject = EditableObject[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]With[/color][/SIZE]
[SIZE=2].Controls.Add(Pry)[/SIZE]
[SIZE=2].ShowDialog()[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]With[/color][/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE]

يكون نموذج جديد ويضبط خصائصه
Font هذه الطريقة لتوليد متغير لبناء خط
حجم النموذج
ولا يظهر في شريط المهام
واول ظهور له في وسط نموذج المشروع
وعنوان النموذج يكون كلمة (خصائص) يليها اسم الكائن المطلوب عرض خصائصه

كود :

[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Pry [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] PropertyGrid[/SIZE]
[SIZE=2][color=#0000ff]With[/color][/SIZE][SIZE=2] Pry[/SIZE]
[SIZE=2].Dock = DockStyle.Fill[/SIZE]
[SIZE=2].SelectedObject = EditableObject[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]With[/color][/SIZE]

نعلن عن متغير من نوع الاداة PropertyGrid ونجعلها تمليء النموذج من خلال الخاصية Dock ونعلم الاداة بالكائن المطلوب استعراضه
نضيف الاداة للنموذج وننظهر النموذج

الاجراء Execute لتنفيذ اي SQL

كود :

[SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE][SIZE=2] Execute([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] SQL [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]String[/color][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]Cnn.Open()[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Cm [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] SqlCommand(SQL, Cnn)[/SIZE]
[SIZE=2]Cm.ExecuteNonQuery()[/SIZE]
[SIZE=2]Cnn.Close()[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE]

هنا يجب الانتباه الى انه يجب حفظ البيانات قبل استدعاء هذا الاجراء

الاجراء Calculate لتنفيذ اي SQL ترجع نتيجة

كود :

[SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE][SIZE=2] Calculate([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] SQL [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]String[/color][/SIZE][SIZE=2]) [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Double[/color][/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Ret [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Double[/color][/SIZE]
[SIZE=2]Cnn.Open()[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Cm [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] SqlCommand(SQL, Cnn)[/SIZE]
[SIZE=2][color=#0000ff]Try[/color][/SIZE]
[SIZE=2]Ret = Cm.ExecuteScalar[/SIZE]
[SIZE=2][color=#0000ff]Catch[/color][/SIZE][SIZE=2] ex [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] Exception[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Try[/color][/SIZE]
[SIZE=2]Cnn.Close()[/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]

الدالة Viewer ترجع DataViewer اذا رغبنا

كود :

[SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE][SIZE=2] Viewer([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] Table [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] DataTable, [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] strFilter [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]String[/color][/SIZE][SIZE=2], [/SIZE][SIZE=2][color=#0000ff]Optional[/color][/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] strSort [/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]) [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] DataView[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Ret [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] DataView = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] DataView(Table, strFilter, strSort, DataViewRowState.CurrentRows)[/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]

الدالة Reader ترجع DataReader

كود :

[SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE][SIZE=2] Reader([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] SQL [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]String[/color][/SIZE][SIZE=2]) [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] SqlDataReader[/SIZE]
[SIZE=2]Cnn.Open()[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Cm [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] SqlCommand(SQL, Cnn)[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Ret [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] SqlDataReader = Cm.ExecuteReader(CommandBehavior.CloseConnection)[/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]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Class[/color][/SIZE]

تم الكائن