[فراس الغزي]

اشكرك  اخي  العزيز  

  اخي عبد  الله  هبل  ان اضع  مشروعي  هل  لــ  Dim skn As New Sunisoft.IrisSkin.SkinEngine علاقة بالتاريخ  الهجري  والميلادي  علما  انا استعمل  
 Dim ci As New System.Globalization.CultureInfo("ar-EG")

والكود الخاص بالتاريخ  بالداتا  جريد  هو  كالاتي  
طبا  هذا  كود  الصفحة بالكامل  
اخي  الغالي  

كود :

Imports MySql.Data.MySqlClient


Public Class all_com
    Dim Dtdoctor As New DataTable
    Dim Dt As New DataTable, dal As New dataaccess
    Sub fillnamedoctor()
        adapter = New MySqlDataAdapter("SELECT * FROM company", con)
        adapter.Fill(Dtdoctor)
        Comgru.DataSource = Dtdoctor
        Comgru.DisplayMember = "com_name"
        Comgru.ValueMember = "id"

    End Sub
    Sub fillpro()

        Dt.Rows.Clear()
        adapter = New MySqlDataAdapter("select * from company", con)

        adapter.Fill(Dt)
        Me.DataGrid.DataSource = Dt
        DataGrid.Columns(0).HeaderText = "التسسلسل"
        DataGrid.Columns(1).HeaderText = "أسم الشركة"
        DataGrid.Columns(2).HeaderText = "رقم الفاتورة"
        DataGrid.Columns(3).HeaderText = "مبلغ الفاتورة"
        DataGrid.Columns(4).HeaderText = "المبلغ المدفوع"
        DataGrid.Columns(5).HeaderText = "رقم الحوالة"
        DataGrid.Columns(6).HeaderText = "تاريخ التحويل"
        DataGrid.Columns(7).HeaderText = "المبلغ المتبقي"
        DataGrid.Columns(8).HeaderText = "تاريخ الشراء"
        DataGrid.Columns(9).HeaderText = "رقم الهاتف"
        DataGrid.Columns(10).HeaderText = "عنوان الشركة"
        DataGrid.Columns(11).HeaderText = "الملاحظات "
    End Sub
   
    Private Sub Butclose_Click(sender As Object, e As EventArgs) Handles Butclose.Click
        Close()

    End Sub

    Private Sub all_com_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fillpro()
        fillnamedoctor()
        Timer1.Start()

    End Sub

    Private Sub Butnew_Click(sender As Object, e As EventArgs) Handles Butnew.Click
        Dim frm As New add_com
        frm.ToDo = "add"
        frm.Text = "اضافة   شركة جديدة"
        frm.Butsave.Text = "اضافة"
        frm.ShowDialog()
    End Sub

    Private Sub Butedite_Click(sender As Object, e As EventArgs) Handles Butedite.Click
        Try
            Dim frm As New add_com
            frm.ToDo = "edite"

            frm.Text = "تعديل الشركة :" & DataGrid.CurrentRow.Cells(1).Value
            frm.Butsave.Text = "تعديل"
            frm.id = DataGrid.CurrentRow.Cells(0).Value
            frm.Textname.Text = DataGrid.CurrentRow.Cells(1).Value
            frm.Textnum.Text = DataGrid.CurrentRow.Cells(2).Value
            frm.Textmony.Text = DataGrid.CurrentRow.Cells(3).Value
            frm.Textmo_tak.Text = DataGrid.CurrentRow.Cells(4).Value
            frm.TextBsend.Text = DataGrid.CurrentRow.Cells(5).Value
            frm.DateTsend.Text = DataGrid.CurrentRow.Cells(6).Value
            frm.Texttotle.Text = DataGrid.CurrentRow.Cells(7).Value
            frm.DateT.Text = DataGrid.CurrentRow.Cells(8).Value
            frm.Textphone.Text = DataGrid.CurrentRow.Cells(9).Value
            frm.TexTloc.Text = DataGrid.CurrentRow.Cells(10).Value
            frm.Textnote.Text = DataGrid.CurrentRow.Cells(11).Value

            frm.ShowDialog()

            fillpro()
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

    Private Sub Butdelete_Click(sender As Object, e As EventArgs) Handles Butdelete.Click
        Try
            If con.State = ConnectionState.Open Then
                con.Close()
            Else
                con.Open()
            End If
            cmd = New MySqlCommand("Delete from company where id=" & DataGrid.CurrentRow.Cells(0).Value, con)


            cmd.ExecuteNonQuery()
            fillpro()
            MsgBox("تمت عملية الحذف بنجاح")
        Catch ex As Exception
        Finally

            con.Close()


        End Try
    End Sub

    Private Sub Textscrch_TextChanged(sender As Object, e As EventArgs) Handles Textscrch.TextChanged
        Try
            Dim DtCopy As DataTable = Dt.Copy

            Dim dv As DataView = DtCopy.DefaultView

            dv.RowFilter = "id+com_name+com_num_order+com_phon like '%" & Textscrch.Text & "%'"

            DataGrid.DataSource = dv

        Catch ex As Exception

        End Try
    End Sub

    Private Sub Butprint_Click(sender As Object, e As EventArgs) Handles Butprint.Click

    End Sub
   
    Private Sub LblSum_Click(sender As Object, e As EventArgs) Handles LblSum.Click



    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim temp As String
        temp = "To Purchase"
        Try
            LblSum.Text = CDbl(dal.getdata("SELECT SUM(total) FROM  company WHERE com_name='" & Comgru.Text & "'").Rows(0)(0)).ToString("n2")

        Catch ex As Exception
            MsgBox("لا يوجد اي  اموال للشركة بهذا اليوم بهذا اليوم", MsgBoxStyle.Information, "لا يوجد اموال")
        End Try
        con.Close()
       
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim tot As Integer
        For s As Decimal = 0 To Dt.Rows.Count - 1
            tot = Dt.Rows(s).Item("com_mony") + tot

        Next
        Label7.Text = tot

        Dim tot2 As Integer
        For r As Decimal = 0 To Dt.Rows.Count - 1
            tot2 = Dt.Rows(r).Item("com_mony_tak") + tot2

        Next
        Label8.Text = tot2

        Dim tot3 As Integer
        For t As Decimal = 0 To Dt.Rows.Count - 1
            tot3 = Dt.Rows(t).Item("total") + tot3

        Next
        Label9.Text = tot3

    End Sub
End Class