+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : تقنية البرمجة Dev Express (http://vb4arb.com/vb/forumdisplay.php?fid=201)
+--- الموضوع : [مثال] التعامل مع GridControl DevExpress وعمل صب عام (/showthread.php?tid=36310)
التعامل مع GridControl DevExpress وعمل صب عام - محمد العامر - 06-09-20
اسلام عليكم ورحمة الله وبركاته
اسعد الله أوقاتكم بكل خير
مرفق لكم مثال لطريقة عمل صب عام DevExpress لأداة GridControl يمكن استدعائة على مستوى المشروع و أضافة اسم الجدول وأسم الاداة فقط
بسم بالله نبدأ:
نقوم بعمل مشروع ونضيف فيه Module ونضع بداخلة الكود التالي:
كود :
Imports System.Data.SqlClient
Module Module1
Public ConStr As String = "Data Source=.\SQLEXPRESS;Initial Catalog = Test_System;integrated security=true"
Public Con As New SqlConnection(ConStr)
'TBLName اسم الجدول المراد عرض بياناته في GridView
'Devdgv اسم GridView والذي سيتم عرض بيانات الجدول بداخله
Public Sub LoadAllDevE(ByVal TBLName As String, ByVal Devdgv As DevExpress.XtraGrid.Views.Grid.GridView)
Dim dt As New DataTable
Dim da As New SqlDataAdapter
dt.Clear()
da = New SqlDataAdapter("select * from " & TBLName & "", Con)
da.Fill(dt)
Devdgv.GridControl.DataSource = dt
End Sub
End Module[attachment=25587]
في حدث تحميل الفورم نقوم باستدعاء الصب التالي
كود :
LoadAllDevE("TBLUSER", GridViewUser)[attachment=25589]
بالتوفيق للجميع
RE: التعامل مع GridControl DevExpress وعمل صب عام - عبد العزيز البسكري - 06-09-20
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم محمد العامر على مشاركتنا الفكرة
زادك الله من علمه و فضله و أنعم عليك بما يحبه و يرضاه
تحياتي
RE: التعامل مع GridControl DevExpress وعمل صب عام - محمد العامر - 07-09-20
وعليكم السلام ورحمة الله وبركاته أخي العزيز عبدالعزيز
نحاول أن نحذو حذوكم بارك الله فيكم جميعاً اخوتي