منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله

السلام عليكم

الاخوة الاعزاء
عندي هذا البرنامج فجوال مع سكوال سيرفر انا ارفقت مع البرنامج سكربت قاعدة البيانات انا اختصرت البرنامج حسب ما مطلوب اخوتي

المطلوب لما ادخل على كشف حسابات المالية
بيطلع عندي كل المبيعات مع اسم العميل واسم المندوب وكم مطلوب وطبعا هو مطلوب ماخذها من حساب العملاء
وبالتالي لما اختار اسم مندوب من الكمبو بوكس واحدد الفترة من والى ما يطلع ششي او بيطلع عندي الاسماء مكرر الان ما فيه بينات كثيرة لكن في قاعدة البيانات بيطلع بيانات مكررة وللتوضيح اكثر
يعني لو العميل فراس بعته 10 فواتير بيكرر اسم فراس 10 مرات مع مفي الرصيد السابق وهذي مشكلة سببتلي
اتمنى تكون لفكرة اضحة اخوتي اليكم البرنامج وانتظار ردودككم

[attachment=20724]

ضع هذا الكود في الفورم 3 :

PHP كود :

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

        Dim StrSQL As String = "SELECT DISTINCT  CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," &
"DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " &
" From View_16 " 'Where MN_NAME='" & ComboBox1.Text & "' and SALEDATE Between '" & DateTimePicker1.Text & "' And '" &
        'DateTimePicker2.Text & "'"'

        Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True")
        Dim StrTableName As String = "View_16"
        Dim da As New SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataSet
        Dim dtview As New DataView
        da.Fill(dt, StrTableName)
        dtview = dt.Tables(StrTableName).DefaultView
        dtview.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" &
        DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'"
        DataGridView1.DataSource = dtview
    End Sub 

أعتذر منك عن عدم الرد في السابق بسبب ظروف عطل في كمبيوتري و انقطاع الكهرباء .

بالنسبة للفيو 18 هو :

PHP كود :

SELECT DISTINCT 
                         dbo.SALEBILL.MN_NAME, dbo.DET_CUSTOMERS.CUS_NAME, FORMAT(dbo.SALEBILL.SALEDATE, 'MM-yyyy', 'en-US') AS SALEDA, SUM(DISTINCT dbo.DET_CUSTOMERS.DEBIT) AS DEBIT, 
                         SUM(DISTINCT dbo.DET_CUSTOMERS.CREDIT) AS CREDIT, SUM(DISTINCT dbo.DET_CUSTOMERS.CREDIT - dbo.DET_CUSTOMERS.DEBIT) AS PALENS
FROM            dbo.DET_CUSTOMERS FULL OUTER JOIN
                         dbo.SALEBILL ON dbo.DET_CUSTOMERS.CUS_NAME = dbo.SALEBILL.CUSTOMERNAME
WHERE        (dbo.SALEBILL.MN_NAME IS NOT NULL)
GROUP BY dbo.DET_CUSTOMERS.CUS_NAME, dbo.SALEBILL.MN_NAME, dbo.SALEBILL.SALEDATE, FORMAT(dbo.SALEBILL.SALEDATE, 'MM-yyyy', 'en-US') 

(29-01-19, 03:50 PM)asemshahen5 كتب : [ -> ]ضع هذا الكود في الفورم 3 :

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim StrSQL As String = "SELECT DISTINCT CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," & "DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " & " From View_16 " 'Where MN_NAME='" & ComboBox1.Text & "' and SALEDATE Between '" & DateTimePicker1.Text & "' And '" & 'DateTimePicker2.Text & "'"' Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True") Dim StrTableName As String = "View_16" Dim da As New SqlDataAdapter(StrSQL, cn) Dim dt As New DataSet Dim dtview As New DataView da.Fill(dt, StrTableName) dtview = dt.Tables(StrTableName).DefaultView dtview.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" & DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'" DataGridView1.DataSource = dtview End Sub

أعتذر منك عن عدم الرد في السابق بسبب ظروف عطل في كمبيوتري و انقطاع الكهرباء .

بالنسبة للفيو 18 هو :

PHP كود :

SELECT DISTINCT dbo.SALEBILL.MN_NAME, dbo.DET_CUSTOMERS.CUS_NAME, FORMAT(dbo.SALEBILL.SALEDATE, 'MM-yyyy', 'en-US') AS SALEDA, SUM(DISTINCT dbo.DET_CUSTOMERS.DEBIT) AS DEBIT, SUM(DISTINCT dbo.DET_CUSTOMERS.CREDIT) AS CREDIT, SUM(DISTINCT dbo.DET_CUSTOMERS.CREDIT - dbo.DET_CUSTOMERS.DEBIT) AS PALENS FROM dbo.DET_CUSTOMERS FULL OUTER JOIN dbo.SALEBILL ON dbo.DET_CUSTOMERS.CUS_NAME = dbo.SALEBILL.CUSTOMERNAME WHERE (dbo.SALEBILL.MN_NAME IS NOT NULL) GROUP BY dbo.DET_CUSTOMERS.CUS_NAME, dbo.SALEBILL.MN_NAME, dbo.SALEBILL.SALEDATE, FORMAT(dbo.SALEBILL.SALEDATE, 'MM-yyyy', 'en-US')

شكرا لك اخي العزيز ولكن الان لما بعطي قيمة البحث لتاريخ معين ما بيطلع شي عندي وكانما كل شي فاضيي

بحث التاريخ لاي فورم

(29-01-19, 09:56 PM)asemshahen5 كتب : [ -> ]بحث التاريخ لاي فورم

فورم 3

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim StrSQL As String = "SELECT DISTINCT  CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," &
"DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " &
" From View_16 "
        Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True")
        Dim StrTableName As String = "View_16"
        Dim da As New SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataSet
        Dim dtview As New DataView
        da.Fill(dt, StrTableName)
        dtview = dt.Tables(StrTableName).DefaultView
        dtview.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" &
        DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'"
        DataGridView1.DataSource = dtview
    End Sub 

هذا الكود شغال جربته عندي

(29-01-19, 10:32 PM)asemshahen5 كتب : [ -> ]
PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim StrSQL As String = "SELECT DISTINCT CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," & "DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " & " From View_16 " Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True") Dim StrTableName As String = "View_16" Dim da As New SqlDataAdapter(StrSQL, cn) Dim dt As New DataSet Dim dtview As New DataView da.Fill(dt, StrTableName) dtview = dt.Tables(StrTableName).DefaultView dtview.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" & DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'" DataGridView1.DataSource = dtview End Sub

هذا الكود شغال جربته عندي

هذي صورة من اختار تاريخ من والى واضغط على بحث ما بيطلع شي اذا تحب اعطيك تصريح للدخول ببرنامج anydisk تشوف بحاسبتي اخي
[attachment=20725]

(29-01-19, 10:36 PM)فراس الغزي كتب : [ -> ]
(29-01-19, 10:32 PM)asemshahen5 كتب : [ -> ]
PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim StrSQL As String = "SELECT DISTINCT CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," & "DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " & " From View_16 " Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True") Dim StrTableName As String = "View_16" Dim da As New SqlDataAdapter(StrSQL, cn) Dim dt As New DataSet Dim dtview As New DataView da.Fill(dt, StrTableName) dtview = dt.Tables(StrTableName).DefaultView dtview.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" & DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'" DataGridView1.DataSource = dtview End Sub

هذا الكود شغال جربته عندي

هذي صورة من اختار تاريخ من والى واضغط على بحث ما بيطلع شي اذا تحب اعطيك تصريح للدخول ببرنامج anydisk تشوف بحاسبتي اخي

طيب اخي هل هذا الفيو 16 مثل الي عندك
لو انت معدل عليه يعني

ممكن تتطلع عليه وتشوفه

كود :

SELECT DISTINCT 

                         dbo.SALEBILL.MN_NAME, FORMAT(dbo.SALEBILL.SALEDATE, 'MM-yyyy', 'en-US') AS SALEDA, dbo.SALEBILL.CUSTOMERNAME, 

                         SUM(DISTINCT dbo.DET_CUSTOMERS.DEBIT) AS DEBIT, SUM(DISTINCT dbo.DET_CUSTOMERS.CREDIT) AS CREDIT, 

                         SUM(DISTINCT dbo.DET_CUSTOMERS.CREDIT - dbo.DET_CUSTOMERS.DEBIT) AS RASEED

FROM            dbo.SALEBILL INNER JOIN

                         dbo.DET_CUSTOMERS ON dbo.SALEBILL.CUSTOMERNAME = dbo.DET_CUSTOMERS.CUS_NAME

GROUP BY dbo.SALEBILL.MN_NAME, dbo.SALEBILL.SALEDATE, dbo.SALEBILL.CUSTOMERNAME

لا اعرف ما يحصل معك :
و هذا الكود يعمل أيضا .

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim StrSQL As String = "SELECT DISTINCT  CUSTOMERNAME AS [اسم العميل], MN_NAME AS [اسم المندوب]," &
"DEBIT AS [العميل يطلب],CREDIT AS [العميل مطلوب],RASEED AS [الرصيد],SALEDATE As [التاريخ] " &
" From View_16 "
        Dim cn As New SqlConnection("Data Source=(Local);Initial Catalog=DB_SALES;Integrated Security=True")
        Dim StrTableName As String = "View_16"
        Dim da As New SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataSet
        Dim dtview As New DataView
        da.Fill(dt, StrTableName)
        dt.Tables(StrTableName).DefaultView.RowFilter = " [اسم المندوب]='" & ComboBox1.Text & "' and [التاريخ] >= '" &
        DateTimePicker1.Text & "' And [التاريخ] <='" & DateTimePicker2.Text & "'"
        DataGridView1.DataSource = dt.Tables(StrTableName)
    End Sub 

(29-01-19, 10:41 PM)asemshahen5 كتب : [ -> ]لا اعرف ما يحصل معك :

طيب ليش المشكلة ممكن من عندي ممكن ترسل لي البرنامج الي عندك بالكامل او تدخل على حاسبتي ببرنامج ال any disk وتشوف شو هي المشكلة