06-09-20, 11:33 AM
اسلام عليكم ورحمة الله وبركاته
اسعد الله أوقاتكم بكل خير
مرفق لكم مثال لطريقة عمل صب عام DevExpress لأداة GridControl يمكن استدعائة على مستوى المشروع و أضافة اسم الجدول وأسم الاداة فقط
بسم بالله نبدأ:
نقوم بعمل مشروع ونضيف فيه Module ونضع بداخلة الكود التالي:
[attachment=25587]
في حدث تحميل الفورم نقوم باستدعاء الصب التالي
[attachment=25588]
[attachment=25589]
بالتوفيق للجميع
اسعد الله أوقاتكم بكل خير
مرفق لكم مثال لطريقة عمل صب عام 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]
بالتوفيق للجميع