[ تمّ الحل ] : عرض أسماء أعمدة التّفاصيل باللغة العربية

كود :

Public Class XtraForm1



    Dim SalesGridDataSource As New List(Of SalesGridLine) 'كود جديد



    Private Sub XtraForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        GridControl1.DataSource = SalesGridDataSource 'كود جديد

    End Sub



    Sub New()

        InitializeComponent()

        DevExpress.Skins.SkinManager.EnableFormSkins()

        DevExpress.UserSkins.BonusSkins.Register()

        DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "Caramel"

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'كود جديد

        Dim frm As New XtraForm2

        If (frm.ShowDialog() = DialogResult.OK) Then

            SalesGridDataSource.Add(frm.TheSelectedRow)

            GridControl1.RefreshDataSource()

            ' GridView1.MoveLast()



        End If



    End Sub



End Class

كود :

Imports System.Data

Imports System.Reflection

Imports DevExpress.Skins

Imports DevExpress.LookAndFeel

Imports DevExpress.UserSkins

Imports DevExpress.XtraEditors

Imports DevExpress.XtraGrid.Views.BandedGrid

Imports DevExpress.XtraGrid.Views.Base

Imports DevExpress.XtraGrid.Views.Grid

Imports DevExpress.XtraEditors.DXErrorProvider

Imports DevExpress.XtraEditors.Repository

Imports DevExpress.XtraReports.UI

Imports DevExpress.XtraGrid

Imports DevExpress.XtraGrid.Columns

Public Class XtraForm2

    Dim ds, dt As DataSet

    Public rowSelect As DataRow = Nothing



    Public TheSelectedRow As New SalesGridLine



    Private Sub XtraForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load



        Me.MaximumSize = Me.Size

        Me.MinimumSize = Me.Size







        'ألغ تظليل أسطر قاعدة البيانات

        '        Call Sondoss_Connection()

        '  Global_Fill_GridControl(GridControl1, "SELECT ITEMS_Code,ITEMS_Name,ITEMS_Unite,ITEMS_Date_Expire,ITEMS_Prix_Vente,ITEMS_Stock From TBL_ITEMS Order By ITEMS_Code")

        '   Call Flex_DataGridView_Header_Text(GridView1)





        'ظلل كود داتاتيبل التجربة

        Dim dt As DataTable = New DataTable()

        'dt.Columns.AddRange(New DataColumn(5) {New DataColumn("كود الصنف"), New DataColumn("اسم الصنف"), New DataColumn("الوحدة"), New DataColumn("السعر الإفرادي"), New DataColumn("الكمية"), New DataColumn("السعر الإجمالي")})

        dt.Columns.Add(New DataColumn("ITEMS_Code"))

        dt.Columns.Add(New DataColumn("ITEMS_Name"))

        dt.Columns.Add(New DataColumn("ITEMS_Unite"))

        dt.Columns.Add(New DataColumn("ITEMS_Date_Expire"))

        dt.Columns.Add(New DataColumn("ITEMS_Prix_Vente"))

        dt.Columns.Add(New DataColumn("ITEMS_Stock"))

        dt.Columns.Add(New DataColumn("ITEMS_Total"))



        Dim Dr As DataRow = dt.NewRow()

        Dr("ITEMS_Code") = 1

        Dr("ITEMS_Name") = "صنف1"

        Dr("ITEMS_Unite") = "وحدة1"

        Dr("ITEMS_Date_Expire") = DateTime.Today.AddDays(30)

        Dr("ITEMS_Prix_Vente") = 12

        Dr("ITEMS_Stock") = 45

        Dr("ITEMS_Total") = 12



        dt.Rows.Add(Dr)



        Dim Dr2 As DataRow = dt.NewRow()



        Dr2("ITEMS_Code") = 2

        Dr2("ITEMS_Name") = "صنف2"

        Dr2("ITEMS_Unite") = "وحدة2"

        Dr2("ITEMS_Date_Expire") = DateTime.Today.AddDays(10)

        Dr2("ITEMS_Prix_Vente") = 22

        Dr2("ITEMS_Stock") = 33

        Dr2("ITEMS_Total") = 22



        dt.Rows.Add(Dr2)



        GridControl1.DataSource = dt

        'ظلل حتى هنا



    End Sub



    Public Sub Flex_DataGridView_Header_Text(ByVal DGV As DevExpress.XtraGrid.Views.Grid.GridView)

        If DGV.RowCount > 0 Then

            With DGV

                .Columns(0).Width = 90

                .Columns(1).Width = 90

                .Columns(2).Width = 90

                .Columns(3).Width = 90

                .Columns(4).Width = 90

                .Columns(5).Width = 90

            End With

        End If

    End Sub



    Private Sub RepositoryItemButtonEdit3_Click(sender As Object, e As EventArgs) Handles RepositoryItemButtonEdit3.Click

        TheSelectedRow.ProductName = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Name")

        'TheSelectedRow.ProductBarcode = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Code")

        TheSelectedRow.ProductCode = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Code")

        TheSelectedRow.ProductPriceVente = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Prix_Vente")

        TheSelectedRow.ProductQty = 1

        TheSelectedRow.ProductStock = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Stock")

        TheSelectedRow.ProductUnite = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Unite")



        Me.DialogResult = DialogResult.OK

        'Me.Dispose()

    End Sub



    Private Sub GridView1_InitNewRow(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.InitNewRowEventArgs)

        Dim view As GridView = TryCast(sender, GridView)

        view.SetRowCellValue(e.RowHandle, view.Columns(0), 1)

        view.SetRowCellValue(e.RowHandle, view.Columns(1), 2)

        view.SetRowCellValue(e.RowHandle, view.Columns(2), 3)

    End Sub



End Class