الاخوة الاعزاء
عندي هذا البرنامج فجوال مع سكوال سيرفر انا ارفقت مع البرنامج سكربت قاعدة البيانات انا اختصرت البرنامج حسب ما مطلوب اخوتي
المطلوب لما ادخل على كشف حسابات المالية
بيطلع عندي كل المبيعات مع اسم العميل واسم المندوب وكم مطلوب وطبعا هو مطلوب ماخذها من حساب العملاء
وبالتالي لما اختار اسم مندوب من الكمبو بوكس واحدد الفترة من والى ما يطلع ششي او بيطلع عندي الاسماء مكرر الان ما فيه بينات كثيرة لكن في قاعدة البيانات بيطلع بيانات مكررة وللتوضيح اكثر
يعني لو العميل فراس بعته 10 فواتير بيكرر اسم فراس 10 مرات مع مفي الرصيد السابق وهذي مشكلة سببتلي
اتمنى تكون لفكرة اضحة اخوتي اليكم البرنامج وانتظار ردودككم
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
29-01-19, 03:50 PM (آخر تعديل لهذه المشاركة : 29-01-19, 04:02 PM {2} بواسطة 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, 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
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
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:36 PM (آخر تعديل لهذه المشاركة : 29-01-19, 10:40 PM {2} بواسطة فراس الغزي.)
(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 تشوف بحاسبتي اخي
(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
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
29-01-19, 10:41 PM (آخر تعديل لهذه المشاركة : 29-01-19, 10:42 PM {2} بواسطة 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) 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 وتشوف شو هي المشكلة
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
test1.rar (الحجم : 146.82 ك ب / التحميلات : 18)
