المشاركات : 168
المواضيع 46
الإنتساب : May 2017
السمعة :
4
الشكر: 136
تم شكره 77 مرات في 47 مشاركات
البلد:
السلام عليكم ورحمة الله وبركاته
اتمنى من اله ان يكون الجميع بخير وصحة وعافية
اخوتي الاعزاء واجهتني مشكلة في مشروع جاس اشتغل عليه وهي كالاتي
عندي جدول المنتجات وفيه الكميات وسعر الشراء وسعر البيع
وجدول المبيعات مقسم الى رأس الفاتورة الي يتوي على رقم الفاتورة واسم الموظف واسم المندوب وقيمة الفاتورة النهائية
وعندي جدول تفاصيل الفاتورة الي يحتوي على الكميات واسماء المنتجات وسعر البيع والكمية ومجموع بيع كل وحدة حسب الكمية المدخلة
الي ابيه استخرج كميةالمواد المباع لكل مندوب واعرضها في داتاجريد فيو ويكون فيها سعر الشراء والكمية المباعه وسعر البيع وكم الربح من كل فاتورة وطبعا هذا كله يكون حسب البحث في التكست بوكس عن اسم المندوب يعني لما ابحث عن مندوب بيطلع عندي الفواتير الي باعها في هذا الشهر او في هذا اليوم مع معرفة ارباحي من كل عملية بيع
اتمنى تكون الفكرة وصلت اخوتي الاعزاء وشكرا لكم بانتظار ردودكم الكريمة
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
المشاركات : 647
المواضيع 18
الإنتساب : Oct 2012
السمعة :
154
الشكر: 906
تم شكره 1471 مرات في 617 مشاركات
وعليكم السلام أخي فراس الغزي
يجب أن توفر هيكل قاعدة البيانات للأعضاء حتى يتمكنوا من بناء جملة الإستعلام كما تريد.
لن يستطيح أحد عمل أي شيء بدون رؤية الجداول وأسماء الحقول , وإشرح لهم الحقول التي تريدها لأن البعض يسمي الحقول بأسماء غريبة لا يفمها أحد.
بعدها إن شاء الله الأمور بسيطة.
المشاركات : 168
المواضيع 46
الإنتساب : May 2017
السمعة :
4
الشكر: 136
تم شكره 77 مرات في 47 مشاركات
البلد:
تمام اخي الغالي
هذا جدول المنتجات ITEMS
ID int
ITEM_NAME
ITEM_CODE
ITEM_UNIT
ITEM_TKLFA
ITEM_PRICE
ITEM_EXPIRE
NOTES
ITEM_CHEACK
ITEM_BAR
QTY
وهذا جدول تفاصيل الفاتورة SALE_DET
ID
SALECODE
ITEMCODE
ITEMNAME
UNIT
QTY
PRICE
DISCOUND
TOTAL
QTY_IN
وهذا جدول راس الفاتورة SALEBILL
ID
SALECODE
SALETYPE
SALEDATE
CUSTOMERNAME
DIBITE
MN_NAME
TYPE_MONY
NOTES
DISCOUND
TOTAL
TOTALARABIC
TOTALQTY
SALEUSER
STATE
هذي تفاصيل الجداول اخواني الاعزاء
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
المشاركات : 168
المواضيع 46
الإنتساب : May 2017
السمعة :
4
الشكر: 136
تم شكره 77 مرات في 47 مشاركات
البلد:
اخوتي الاعزاء استخدمت هذا الكود الي شرحه في وقت سابق الاخ الجوكر ولكن الان يطلع عندي الارقام مختلفة عن الواقع وبصراحة تعبت كثير في حل هذا الموضوع
كود :
Dim Cmd2Date As New SqlCommand("Select SALEBILL.SALECODE AS [رقم الفاتورة], " & _
"MAX(SALEBILL.SALEDATE) AS [تاريخ الفاتورة]," & _
" MAX(SALEBILL.MN_NAME) AS [اسم المندوب]," & _
" MAX(ITEMS.ITEM_NAME) AS [اسم المنتج]," & _
" MAX(ITEMS.ITEM_CODE) AS [كود المادة]," & _
" ITEMS.ITEM_TKLFA AS [سعر التكلفة]," & _
" MAX(SALE_DET.UNIT) AS [الوحدة]," & _
" SUM(SALE_DET.QTY) AS [الكمية]," & _
" SALE_DET.PRICE AS [سعر البيع]," & _
" SUM(SALE_DET.TOTAL) AS [اجمالي الفاتورة]," & _
" SALEBILL.TOTALQTY AS [الكميات المباعة]" & _
"From SALEBILL ,ITEMS ,SALE_DET" & _
"Where SALEBILL.SALEDATE >= @SALEDATE And SALEDATE <= @SALEDATE2 " & _
"GROUP BY SALEBILL.SALECODE,SALEBILL.TOTALQTY,ITEMS.ITEM_TKLFA,SALE_DET.PRICE ", con) '
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
المشاركات : 50
المواضيع 0
الإنتساب : Sep 2018
السمعة :
12
الشكر: 121
تم شكره 171 مرات في 75 مشاركات
ضع مشروعك بتنفيذ الفكرة التي تريدها
المشاركات : 168
المواضيع 46
الإنتساب : May 2017
السمعة :
4
الشكر: 136
تم شكره 77 مرات في 47 مشاركات
البلد:
(10-09-18, 10:30 PM)911 كتب : ضع مشروعك بتنفيذ الفكرة التي تريدها
تفضل اخي الغالي ههذ نسخة مصغرة من المشروع لالنسبة لجدال قاعدة البيانات هي كم في المشاركة الان وفقك الله
WindowsApplication1.zip (الحجم : 43.29 ك ب / التحميلات : 15)
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
المشاركات : 50
المواضيع 0
الإنتساب : Sep 2018
السمعة :
12
الشكر: 121
تم شكره 171 مرات في 75 مشاركات
(10-09-18, 11:30 PM)فراس الغزي كتب : (10-09-18, 10:30 PM)911 كتب : ضع مشروعك بتنفيذ الفكرة التي تريدها
تفضل اخي الغالي ههذ نسخة مصغرة من المشروع لالنسبة لجدال قاعدة البيانات هي كم في المشاركة الان وفقك الله
ملاحظات:
- استخدام أداة خاصة System.Windows.Forms.Ribbon ولم يتم إضافة مكتبتها
- عدم وجود قاعدة البيانات أو سكريبت لها
- عدم وجود أي اجتهاد منك في المشروع يدل على جدية طلب المساعدة
المشاركات : 168
المواضيع 46
الإنتساب : May 2017
السمعة :
4
الشكر: 136
تم شكره 77 مرات في 47 مشاركات
البلد:
11-09-18, 12:24 AM
(آخر تعديل لهذه المشاركة : 11-09-18, 12:28 AM {2} بواسطة فراس الغزي.)
(11-09-18, 12:15 AM)911 كتب : (10-09-18, 11:30 PM)فراس الغزي كتب : (10-09-18, 10:30 PM)911 كتب : ضع مشروعك بتنفيذ الفكرة التي تريدها
تفضل اخي الغالي ههذ نسخة مصغرة من المشروع لالنسبة لجدال قاعدة البيانات هي كم في المشاركة الان وفقك الله
ملاحظات:
- استخدام أداة خاصة System.Windows.Forms.Ribbon ولم يتم إضافة مكتبتها
- عدم وجود قاعدة البيانات أو سكريبت لها
- عدم وجود أي اجتهاد منك في المشروع يدل على جدية طلب المساعدة
اولا اخي اشكرك على التقييم
وثانيا انا لم استخدم الاداة مطلقا
ثالثا انا قلت لك انا لم ارفق قاعدة البيانات لاني بحاجة الى الاستعلام كما اني وضعت اسماء الجداول والحقول ولكنك ان تتعب نفسك في القراءة
اما عن عدم وجود اجتهاد مني في المشروع بالفعل لان المشروع صار اكثر من ثلاث شهور اشتغل عليه واعتقد اني نشرت صوره في الموقع هذا وليس عيبا ان اطرح مشكلة في اطلب المساعدة في حلها لان الانسان لم يخلق عالما بل تعلم لان ما نتعله في هذه الدنيا اكتسابي اناما بالنسبة اليك انت اخي فلا اظن انك خرجت للدنيا وانت عالم في الفيجوال بيسك او غيرها على العموم من يعلم بحالي يغنيه عن سؤالي
واخراً اخي العزيز اشكرك على هذه المساعدة وفقك الله
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
المشاركات : 331
المواضيع 10
الإنتساب : May 2018
السمعة :
57
الشكر: 357
تم شكره 608 مرات في 329 مشاركات
البلد:
11-09-18, 01:06 AM
(آخر تعديل لهذه المشاركة : 11-09-18, 01:13 AM {2} بواسطة asemshahen5.)
أخي العزيز ضع هذا السكربت و نفذه
كود :
/****** Object: View [dbo].[View_1] Script Date: 9/10/2018 11:59:27 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo].[View_1]
AS
SELECT DISTINCT
dbo.SALE_DET.ITEMNAME, dbo.SALEBILL.SALEUSER, dbo.SALEBILL.MN_NAME, dbo.ITEMS.ITEM_TKLFA, dbo.SALEBILL.DISCOUND, SUM(dbo.SALE_DET.QTY) AS QTYN, dbo.SALE_DET.PRICE,
SUM((dbo.SALE_DET.PRICE - dbo.ITEMS.ITEM_TKLFA) * dbo.SALE_DET.QTY) AS ALReph
FROM dbo.ITEMS INNER JOIN
dbo.SALE_DET ON dbo.ITEMS.ITEM_CODE = dbo.SALE_DET.ITEMCODE INNER JOIN
dbo.SALEBILL ON dbo.SALE_DET.SALECODE = dbo.SALEBILL.SALECODE
GROUP BY dbo.SALE_DET.ITEMNAME, dbo.SALEBILL.SALEUSER, dbo.SALEBILL.MN_NAME, dbo.ITEMS.ITEM_TKLFA, dbo.SALEBILL.DISCOUND, dbo.SALE_DET.PRICE
GO
ثم ضع هذا في الاستعلام الخاص بزر البحث :
كود :
Dim StrSQL As String = "SELECT DISTINCT ITEMNAME AS [اسم المنتج],MN_NAME AS [اسم المندوب],ITEM_TKLFA AS [سعر التكلفة],DISCOUND AS [الحسم],QTYN AS [الكمية],PRICE AS [سعر البيع],ALReph AS [الربح] From View_1 Where MN_NAME='" & ComboBox1.Text & "'"
ضع هذا الكود في حدث الفورم لود مع إضافة كومبو بوكس + داتا غريد فيوا + زر :
كود :
Dim StrSQL As String = "SELECT DISTINCT MN_NAME From View_1 "
Dim cn As New SqlConnection("Server =(local);database=Test;integrated security=True")
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
For i As Integer = 0 To dt.Rows.Count - 1
ComboBox1.Items.Add(dt.Rows(i)("MN_NAME").ToString)
Next
سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 168
المواضيع 46
الإنتساب : May 2017
السمعة :
4
الشكر: 136
تم شكره 77 مرات في 47 مشاركات
البلد:
(11-09-18, 01:06 AM)asemshahen5 كتب : أخي العزيز ضع هذا السكربت و نفذه
كود :
/****** Object: View [dbo].[View_1] Script Date: 9/10/2018 11:59:27 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo].[View_1]
AS
SELECT DISTINCT
dbo.SALE_DET.ITEMNAME, dbo.SALEBILL.SALEUSER, dbo.SALEBILL.MN_NAME, dbo.ITEMS.ITEM_TKLFA, dbo.SALEBILL.DISCOUND, SUM(dbo.SALE_DET.QTY) AS QTYN, dbo.SALE_DET.PRICE,
SUM((dbo.SALE_DET.PRICE - dbo.ITEMS.ITEM_TKLFA) * dbo.SALE_DET.QTY) AS ALReph
FROM dbo.ITEMS INNER JOIN
dbo.SALE_DET ON dbo.ITEMS.ITEM_CODE = dbo.SALE_DET.ITEMCODE INNER JOIN
dbo.SALEBILL ON dbo.SALE_DET.SALECODE = dbo.SALEBILL.SALECODE
GROUP BY dbo.SALE_DET.ITEMNAME, dbo.SALEBILL.SALEUSER, dbo.SALEBILL.MN_NAME, dbo.ITEMS.ITEM_TKLFA, dbo.SALEBILL.DISCOUND, dbo.SALE_DET.PRICE
GO
ثم ضع هذا في الاستعلام الخاص بزر البحث :
كود :
Dim StrSQL As String = "SELECT DISTINCT ITEMNAME AS [اسم المنتج],MN_NAME AS [اسم المندوب],ITEM_TKLFA AS [سعر التكلفة],DISCOUND AS [الحسم],QTYN AS [الكمية],PRICE AS [سعر البيع],ALReph AS [الربح] From View_1 Where MN_NAME='" & ComboBox1.Text & "'"
ضع هذا الكود في حدث الفورم لود مع إضافة كومبو بوكس + داتا غريد فيوا + زر :
كود :
Dim StrSQL As String = "SELECT DISTINCT MN_NAME From View_1 "
Dim cn As New SqlConnection("Server =(local);database=Test;integrated security=True")
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
For i As Integer = 0 To dt.Rows.Count - 1
ComboBox1.Items.Add(dt.Rows(i)("MN_NAME").ToString)
Next
السلام عليكم اخي الكريم بداية اشكرك اخي على هذا العمل والمساعدة
ولكن واجهتني مشكلة ايضا هي اني لما عملت المطلوب مني لما اطلب الفورم الخاص بيتاخر الا يشتغل ولما يشتغل بيطلع فاضي مع العلم اني ضفت بتم وضفت كوبو بوكس ودتا جريد فيو
اتمنى ان تساعدني في معرفة السبب
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
|