• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

djamel2020

اعضاء
  • عدد المشاركات

    56
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركه بواسطة djamel2020


  1. السلام عليكم ورحمة الله تعالى وبركاته
    الأساتذة الكرام رجاءا ممكن شرح لهذا الإستعلام لأني أريد إضافة شروط أخرى فيه
     SELECT dbo.Facture_L.Num_Vent, dbo.Facture_L.Num_Fact_Vent, dbo.Facture_L.ID_Prod, dbo.Facture_L.UM, dbo.UM.Nom_UM, CAST(CASE WHEN (Facture_L.UM = 4) THEN (Facture_L.Qte_V * 0.02) 
    ELSE (Facture_L.Qte_V) END AS FLOAT) AS Qte, dbo.Facture_L.Prix_V
    FROM dbo.Facture_L INNER JOIN
    dbo.UM ON dbo.Facture_L.UM = dbo.UM.ID_UM

    فمثلا في هذا الإستعلام لو تغيرت قيمة Facture_L.UM إلى 3 النتيجة Facture_L.Qte_V * 0.1وهكذا إلى خمسة شروط

    ألف شكر لكم مسبقا

    0

  2. السلام عليكم ورحمة الله تعالى وبركاته
    الأساتذة الكرام 
    رجاءا لو سمحتم
    عندي ملف تكست به قائمة من البيانات أريد تحميلها على قريد فيو
    قمت بكاتبة هذا الكود لكن البيانات طلعت كلها في عمود واجد وبقية الأعمدة طلعت فارغة 
    الملف هو :
    medic.rar
    الكود  الذي كتبته هو :

            Dim fichierALire As String = Application.StartupPath & "\" & "Forme.txt"

            Dim champs() As String

            Dim sr As New StreamReader(fichierALire)

            While Not sr.EndOfStream
                Dim ligne As String = sr.ReadLine()
                champs = ligne.Split(CChar(vbTab))
                dgv.Rows.Add(champs)

            End While

    ألف شكر لكم مسبقا

    0

  3. السلام عليكم ورحمة الله تعالى وبركاته
    عملت إجرا كي أحذف مورد بشرط ان لا يكون له فواتير باسمه في جدول الفواتير
    جدول الفواتير اسمه Achats الحقول هي : Numr, Société,Date, Montant
    جدول الموردين اسمه Fournisseurs الحقول هي : ID, Nom, Société

    كود ألإجراء الذي عملته هو :
     Private Sub BtnSupprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupprimer.Click

            'Supprimer un enregistrement
            On Error Resume Next

            If cnn.State = ConnectionState.Open Then
                cnn.Close()
            End If

            Dim sql As String = "Select Fournisseurs From Achats"
            If Me.BindingContext(ds, "Fournisseurs").Count > 0 Then
                MsgBox("Vous Ne pouvez pas supprimer ce Fournisseurs!, car il y a des Achats a son Nom.", MsgBoxStyle.Exclamation)
                Exit Sub
            Else
                If MsgBox("Voulez vous vraiment Supprimer ce Fournisseurs ?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
                    Exit Sub
                End If
                Dim r As Integer
                Dim stqlDel1 As String
                stqlDel1 = "Delete from Fournisseurs where ID =" & CInt(dgf.CurrentRow.Cells(0).Value)
                Dim cmdDel1 As New OleDbCommand(stqlDel1, cnn)
                cnn.Open()

                r = cmdDel1.ExecuteNonQuery()
                cnn.Close()
            End If
            BtnActualiser_Click(Nothing, Nothing)
        End Sub

    لكن سواء هذا  المورد له فواتير في جدول الفواتير أم لا تطلع الرسالة المسج بوكس

    أرجوا التوضيح
    وشكرا لكم يا أساتذة

    0

  4. السلام عليكم ورحمة الله تعالى وبركاته
    الأساتذة الكرم أرجوا تصويب خطا حصل لي في الفورم

    في المثال التالي لما أقوم بعملية الحفظ أجد أن مبلغ الفاتورة الذي هو ناتج مجموع عمود في القريد فيو يحفظ في قاعدة البيانات بمبلغ غير صحيح
    أرجوا الإطلاع على المثال المرفق وتصحيح الخطأ
    ولكم جزيل الشكر

    Facture.rar

    0

  5. السلام العليكم ورحمة الله تعالى وبركاته

     

    رجاءا ممن عنده الخبر في قواعد البيانات

     

    هذه صورة لقاعدة بيانات صممتها ما يهمنا فيها هو جدولين سأشرحهما حتى يتوضح سؤالي

     

    جدول Facture: يحفظ فيه رقم الفاتورة واسم الزبون والتاريخ والمبلغ الإجمالي للفاتورة

    جدول FactureL: يحفظ اسم السلعة التي بيعت و الكمية والسعر الوحدوي للسلعة المباعة

    بمعنى آخر أن جدول FactureL هو بيان لتفاصيل كل فاتورة في جدول Facture

     

    رأيت أن هذه الطريقة مناسبة ولهذا أطلب رأيكم وتوجيهكم

    post-284746-0-53536100-1412278161_thumb.

    0

  6. مرحبا من فضلكم أريد كود مسح القريد فيو من أجل إعادة ملإها كما في فورم فاتورة بيع أي كلما طلعت الفورم تطلع القريد فيو فارغة

     

    شكرا لكم

     

    0

  7. مرحبا

    عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 2010 عن طريق سلسلة الإتصال cnn

    بالمشروع به فورم اسمه Facture به combobox اسمه cmbProd وليبل اسمه Qte

    ربطت الكل مع قاعدة البيانات GestionCom.accdb عن طريق الاتا أدابتر والبادينق سورس

    قاعدة البيانات بها كيوري اسمهSold   هذه الكيوري تحسب لي كميات السلعة لمستراة والمباعة والر صيد المتبقي

    معلت في اللكومبوبوكس (CmbProd) كلما اخترت منه سلعة يضظر الرصيد في الليبل

    المشكلة كيف أربط اليلبل مع الكيوري Sold

    الأكواد التي استنعملتها هي :

    Imports System.Data
    Imports System.Data.OleDb
    Public Class Facture
        Private cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|GestionCom.accdb")
        Dim ClientsDataAdpter As New OleDbDataAdapter("Select * From Clients Order by Société", cnn)
        Dim FactureDataAdpter As New OleDbDataAdapter("Select * From Facture", cnn)
        Dim ProduitsDataAdpter As New OleDbDataAdapter("SELECT * FROM Produits ORDER BY Produits.Désignations", cnn)
        Dim SoldDataAdapter As New OleDbDataAdapter("Select * FROM Sold", cnn)
        Dim Ds As New DataSet
        Dim ClientBS As New BindingSource
        Dim FactureBS As New BindingSource
        Dim ProduitsBS As New BindingSource
        Dim soldBS As New BindingSource
        Dim Dsview As New DataView
        Sub View()
            If cnn.State = ConnectionState.Open Then
                cnn.Close()
            End If
            cnn.Open()
            ClientsDataAdpter.Fill(Ds, "Clients")
            FactureDataAdpter.Fill(Ds, "Facture")
            ProduitsDataAdpter.Fill(Ds, "Produits")
            SoldDataAdapter.Fill(Ds, "Sold")
            cnn.Close()
            Dsview = Ds.Tables(0).DefaultView
            'ClientBS.DataSource = Dsview
            'FactureBS.DataSource = Dsview
            soldBS.DataSource = Dsview

            'Fill Tous les ComboBox
            CmbClients.DataSource = Ds.Tables("Clients")
            CmbClients.DisplayMember = "Société"
            CmbClients.ValueMember = "ID"

            CmbProd.DataSource = Ds.Tables("Produits")
            CmbProd.DisplayMember = "Désignations"
            CmbProd.ValueMember = "CodeP"

            'Vidage des ComboBoxs
            CmbClients.Text = ""
            CmbModeP.Text = ""
            CmbProd.Text = ""

            txtNFact.Focus()

       

     Private Sub Facture_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.View()
        End SubEnd Sub

     

     Private Sub CmbProd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbProd.SelectedIndexChanged
            If CmbProd.SelectedText = "" Then
                Exit Sub
            End If
            If cnn.State = ConnectionState.Open Then
                cnn.Close()
            End If

            cnn.Open()
            SoldDataAdapter.Fill(Ds, "Sold", CmbProd.SelectedValue)
            cnn.Close()
        End Sub

    أرجوا أن أكون قد وضحت الفكرة والإشكال

    0

  8. مرحبا

    عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 2010 عن طريق سلسلة الإتصال cnn

    بالمشروع به فورم اسمه Facture به combobox اسمه cmbProd وليبل اسمه Qte

    ربطت الكل مع قاعدة البيانات GestionCom.accdb عن طريق الاتا أدابتر والبادينق سورس

    قاعدة البيانات بها كيوري اسمهSold   هذه الكيوري تحسب لي كميات السلعة لمستراة والمباعة والر صيد المتبقي

    معلت في اللكومبوبوكس (CmbProd) كلما اخترت منه سلعة يضظر الرصيد في الليبل

    المشكلة كيف أربط اليلبل مع الكيوري Sold

    الأكواد التي استنعملتها هي :

    Imports System.Data
    Imports System.Data.OleDb
    Public Class Facture
        Private cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|GestionCom.accdb")
        Dim ClientsDataAdpter As New OleDbDataAdapter("Select * From Clients Order by Société", cnn)
        Dim FactureDataAdpter As New OleDbDataAdapter("Select * From Facture", cnn)
        Dim ProduitsDataAdpter As New OleDbDataAdapter("SELECT * FROM Produits ORDER BY Produits.Désignations", cnn)
        Dim SoldDataAdapter As New OleDbDataAdapter("Select * FROM Sold", cnn)
        Dim Ds As New DataSet
        Dim ClientBS As New BindingSource
        Dim FactureBS As New BindingSource
        Dim ProduitsBS As New BindingSource
        Dim soldBS As New BindingSource
        Dim Dsview As New DataView
        Sub View()
            If cnn.State = ConnectionState.Open Then
                cnn.Close()
            End If
            cnn.Open()
            ClientsDataAdpter.Fill(Ds, "Clients")
            FactureDataAdpter.Fill(Ds, "Facture")
            ProduitsDataAdpter.Fill(Ds, "Produits")
            SoldDataAdapter.Fill(Ds, "Sold")
            cnn.Close()
            Dsview = Ds.Tables(0).DefaultView
            'ClientBS.DataSource = Dsview
            'FactureBS.DataSource = Dsview
            soldBS.DataSource = Dsview

            'Fill Tous les ComboBox
            CmbClients.DataSource = Ds.Tables("Clients")
            CmbClients.DisplayMember = "Société"
            CmbClients.ValueMember = "ID"

            CmbProd.DataSource = Ds.Tables("Produits")
            CmbProd.DisplayMember = "Désignations"
            CmbProd.ValueMember = "CodeP"

            'Vidage des ComboBoxs
            CmbClients.Text = ""
            CmbModeP.Text = ""
            CmbProd.Text = ""

            txtNFact.Focus()

       

     Private Sub Facture_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.View()
        End SubEnd Sub

     

     Private Sub CmbProd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbProd.SelectedIndexChanged
            If CmbProd.SelectedText = "" Then
                Exit Sub
            End If
            If cnn.State = ConnectionState.Open Then
                cnn.Close()
            End If

            cnn.Open()
            SoldDataAdapter.Fill(Ds, "Sold", CmbProd.SelectedValue)
            cnn.Close()
        End Sub

    أرجوا أن أكون قد وضحت الفكرة والإشكال

    0

  9. السلام عليكم ورحمة الله تعالى وبركاته

    تم بحمد الله تعالى وعونه حل هذا الإشكال ولتعميم الإستفادة أحببت أن أنشره

    SELECT Produits.CodeP, [Qté des Prod par Prix Achat].Achats, Sum(FactureL.Quantité) AS Vente, [Achats]-[Vente] AS Solde
    FROM (Produits INNER JOIN [Qté des Prod par Prix Achat] ON Produits.CodeP = [Qté des Prod par Prix Achat].CodeP) INNER JOIN FactureL ON Produits.CodeP = FactureL.CodeP
    GROUP BY Produits.CodeP, [Qté des Prod par Prix Achat].Achats
    ORDER BY Produits.CodeP;
     

    0

  10. الموضوع هام جدا ومشوق أخي الكريم لكن لابد من وجود حل لما لا يعتمد في رأي الشخصي ولست ممن يقترح لعدم خبرتي ، لما للا يعتمد على التحديث المباشر للداتاسيت بعد كل عملية أو القيام بجرد كل التحديثات فيحين يتم قفل الحقول إعادة فتحها نباشرة بعد الإنتهاء من كل عملية تحديث

    والله أعلم

    0

  11. السلام عليكم ورحمة الله تعالى وبركاته

    في هذا الإستعلام قمت بحساب الكمية المشتراة والكمية المباعة لكل سلعة لكن لما أطلع النتيجة أجد أن ناتج الكميات قد تضاعف لا أدري لما

    الإستعلام هو :

    SELECT Produits.CodeP, Sum(AchatsL.Quantité) AS Achats, Sum(FactureL.Quantité) AS Vente
    FROM (Produits INNER JOIN AchatsL ON Produits.CodeP = AchatsL.Désignations) INNER JOIN FactureL ON Produits.CodeP = FactureL.CodeP
    GROUP BY Produits.CodeP;

    لما أحسب كل كمية على حدى يطلع الناتج صحيح لكن لما أحسبهم مع بعض يتلخبط كل شيئ

    أرجوا إفادتي ولكم جزيل الشكر

    post-284746-0-08353800-1411552162_thumb.

     

    0

  12. السلام عليكم ورحمة الله تعالى وبركاته

    رجاءا من الإخوة الكرام تصحيح الإستعلام التالي : 
    Dim SqlSelectAchatL2 As String = "Select Désignation, Quantité, Prix_Achat From AchatsL Where N = DataGridView1.Rows(0)"

     

    إذ في الصورة الموضحة أدناه وضعت 2 من قريد فيو 1 و2 المبدأ أنه كلما حددت سطر من القريد فيو 1 يتغير محتوى القريد فيو 2 حسب رقم الفاتورة استخدمت الإستعلام الموضح أعلاه لكنه لم يعمل فأرجوا الإفادة من الأساتذة الكرام

     

    شكرا

    post-284746-0-63750000-1411041053_thumb.

    0

  13. مرحبا

    خلاص حليتها ولمن يريد الكود هو :

     Private Sub txtSerch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerch.KeyPress
            If e.KeyChar = Chr(13) Then
                For i As Integer = 0 To DataGridView1.Rows.Count - 1
                    If txtSerch.Text = DataGridView1.Rows(i).Cells(0).Value Then
                        DataGridView1.Rows(i).Selected = False
                        'DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect
                        DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.DodgerBlue
                    Else
                        DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.White
                    End If
                Next
            End If
        End Sub

    0

  14. مرحبا

    خلاص حليتها ولمن يريد الكود هو :

     Private Sub txtSerch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerch.KeyPress
            If e.KeyChar = Chr(13) Then
                For i As Integer = 0 To DataGridView1.Rows.Count - 1
                    If txtSerch.Text = DataGridView1.Rows(i).Cells(0).Value Then
                        DataGridView1.Rows(i).Selected = False
                        'DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect
                        DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.DodgerBlue
                    Else
                        DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.White
                    End If
                Next
            End If
        End Sub

    0

  15. Private Sub txtSerch_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSerch.TextChanged
    If cnn.State = ConnectionState.Open Then
    cnn.Close()
    End If
    'On Error Resume Next
    Dim Ask As String
    cnn.Open()
    AchatsBS.Filter = "N + Société + Dates + Montant like '%" + txtSerch.Text + "%'"
    If DataGridView1.RowCount = 0 Then
    Ask = MsgBox("Ce Fournisseur N'existe Pas, Voulez vous ajouter un?", MsgBoxStyle.YesNo)
    If Ask = MsgBoxResult.Yes Then
    txtSerch.Text = ""
    frmsaisiedesfour.Show()
    End If
    End If
    cnn.Close()
    End Sub

     

    لكود يشتغل لكن ليس عن طريق رقم الفاتورة إذ لو كتبت رقم الفاتورة في الـ txtSerch لا يعمل أما الباقي Société + Dates + Montant فيشتغل جيدا أود أن اعرف لماذا ممكن ؟post-284746-0-76154700-1410814750_thumb.

    0