تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب كود
#1
السلام عليكم 
الأخوة الكرام لدى قائمة مبيعات كما مبين في الصورة اريد كود يلغى التكرار ويجعلها في سطر واحد في الكريد

(30-06-22, 01:28 PM)نهى علي كتب : السلام عليكم 
الأخوة الكرام لدى قائمة مبيعات كما مبين في الصورة اريد كود يلغى التكرار ويجعلها في سطر واحد في الكريد

file:///C:/Documents%20and%20Settings/All%20Users/Documents/My%20Pictures/Sample%20Pictures/untitled.bmp
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام
مسار الصورة مربوط بصورة في جهازك ولا يظهر الا لك.
لابد من رفع الصورة على موقع رفع مثل:

https://postimages.org/
الرد }}}
تم الشكر بواسطة: نهى علي
#3
هذه الصوره


الملفات المرفقة
.rar   نهى علي1.rar (الحجم : 34.1 ك ب / التحميلات : 5)
الرد }}}
تم الشكر بواسطة:
#4
(30-06-22, 11:16 PM)سعود كتب : شاهدت الصورة لكني لا ادري اين سبب التكرار هل هو هكذا مكررة بقاعدة البيانات ام ماذا؟

التكرار اذا تم الحفظ فإنه ينزل في قاعدة البيانات
لكن هذه القائمه مربوطه بجهاز قارء باركود
وعندما ينزل الرقم الباركود فإنه تظهر معلومات المادة والسعر الخ
وبدون ان اضغط على إضافة القائمة فإنها تنزل في الكريد 
اي يعني الزبون لو اشترى ٥ قطع من نوع واحد فإنها تنزل في الكريد مثل مافي الصوره المطلوب
عند تشابه الماده ونوعها يقوم البرنامج بجمعها مع اليسطر الاول بدون ان يسلسلها كما في الصوره
وشكرا لك
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم 
عليك انت تظيفي حلقة تكرارية بعد قراءة الباركود وتحديد رقم واسم الصنف من جدول المواد :
فتقوم الحلقة بقراءة كافة اسطر جدول العرض (Gridview) فاذا تشابهت مع مادة موجود يحدد السطر الموجودة فيه ويقوم بتعديل الكمية يقرأ الكمية المسجلة بعمود الكمية  ويقوم باضافة رقم واحد للكمية ويسجل الكمية الجديدة بعمود الكمية بنفس السطر.
اذا لم تكن المادة مسجلة مسبقاً في جدول العرض يقم باضافة سطر جديد فيه المادة الجديدة بكمية (واحد).
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: نهى علي
#6
(01-07-22, 03:57 AM)Taha Okla كتب : السلام عليكم 
عليك انت تظيفي حلقة تكرارية بعد قراءة الباركود وتحديد رقم واسم الصنف من جدول المواد :
فتقوم الحلقة بقراءة كافة اسطر جدول العرض (Gridview) فاذا تشابهت مع مادة موجود يحدد السطر الموجودة فيه ويقوم بتعديل الكمية يقرأ الكمية المسجلة بعمود الكمية  ويقوم باضافة رقم واحد للكمية ويسجل الكمية الجديدة بعمود الكمية بنفس السطر.
اذا لم تكن المادة مسجلة مسبقاً في جدول العرض يقم باضافة سطر جديد فيه المادة الجديدة بكمية (واحد).
شكرا لك 
ولكن ماهو الكود الذي اضعه للتشابه وهل استخدم اداة الشرط في ذلك ارجو توضيح ذلك
الرد }}}
تم الشكر بواسطة:
#7
على فرض أنك استخرجتي البيانات من جدول المواد من قاعدة البيانات وأصبحت جاهزة في المربعات التي فوق جدول العرض كما في الصورة 
وأصبحت جاهزة للادخال لجدول العرض - فيكون زر الاضافة لجدول العرض يحتوي على الكود المناسب للتحقق ثم الاضافة --
فيكون الكود التالي هو كود مختصر للكود الذي ستضعينه بعد التعديل ليقوم هو بالاضافة .. : 
أي هذا كود مختصر قومي بتعديله ليناسب برنامجك .. :

PHP كود :
   
    Dim i 
As Integer
    
    With XXXGrid1      
' اسم جدول العرض

        If .Rows = 1 Then
            ' 
اذا كان عدد الاسطر بالجدول يساوي واحد أي سطر العناوين فقط نقم بإضافة سجل كامل
            
.AddItem X0x1X2X3X4
        Else
            i 
0
            Do Until i 
= .Rows
                i 
1
                    
' رقم المادة في الليبل الخاص مشابه لرقم مادة في سطر ما بالجدول
                If .TextMatrix(i, 0) = labItemNo1.Caption Then
                       ' 
مثلا عمود الكمية هو العمود الخامس نزيد على الكمية واحد أو الكمية الموجودة بتكست الكمية قبل الاضافة
                    
.TextMatrix(i4) = Val(.TextMatrix(i4)) + Val(txtQty1.Text)
 
                   ' حقل المجموع يصبح حاصل جداء حقل الكمية بعد التعديل بحقل السعر أو التكلفة وهكذا
                    .TextMatrix(i, 6) = Format(.TextMatrix(i, 3) * .TextMatrix(i, 4), "0.00")
            
                    Exit Do ' 
 ثم الخروج من الحلقة  بسبب العثور على الهدف وانتهاء التعديل
                ElseIf i 
= .Rows 1 Then
                    
' واذا انتهت الحلقة من السطر الاخير ولم تعثر على رقم مادة مشابه تقم باضافة سجل كامل
                    .AddItem X0, x1, X2, X3, X4
                    Exit Do   ' 
 تأكيد الخروج من الحلقة مع العلم بأن البرنامج سيخرج منها اساساً لانتهاء البحث دون نتيجة
                End 
If
 
           Loop
        End 
If
 
   End With
     
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: نهى علي
#8
(01-07-22, 11:34 AM)Taha Okla كتب : على فرض أنك استخرجتي البيانات من جدول المواد من قاعدة البيانات وأصبحت جاهزة في المربعات التي فوق جدول العرض كما في الصورة 
وأصبحت جاهزة للادخال لجدول العرض - فيكون زر الاضافة لجدول العرض يحتوي على الكود المناسب للتحقق ثم الاضافة --
فيكون الكود التالي هو كود مختصر للكود الذي ستضعينه بعد التعديل ليقوم هو بالاضافة .. : 
أي هذا كود مختصر قومي بتعديله ليناسب برنامجك .. :

PHP كود :
   
    Dim i 
As Integer
    
    With XXXGrid1      
' اسم جدول العرض

        If .Rows = 1 Then
            ' 
اذا كان عدد الاسطر بالجدول يساوي واحد أي سطر العناوين فقط نقم بإضافة سجل كامل
            
.AddItem X0x1X2X3X4
        Else
            i 
0
            Do Until i 
= .Rows
                i 
1
                    
' رقم المادة في الليبل الخاص مشابه لرقم مادة في سطر ما بالجدول
                If .TextMatrix(i, 0) = labItemNo1.Caption Then
                       ' 
مثلا عمود الكمية هو العمود الخامس نزيد على الكمية واحد أو الكمية الموجودة بتكست الكمية قبل الاضافة
                    
.TextMatrix(i4) = Val(.TextMatrix(i4)) + Val(txtQty1.Text)
 
                   ' حقل المجموع يصبح حاصل جداء حقل الكمية بعد التعديل بحقل السعر أو التكلفة وهكذا
                    .TextMatrix(i, 6) = Format(.TextMatrix(i, 3) * .TextMatrix(i, 4), "0.00")
            
                    Exit Do ' 
 ثم الخروج من الحلقة  بسبب العثور على الهدف وانتهاء التعديل
                ElseIf i 
= .Rows 1 Then
                    
' واذا انتهت الحلقة من السطر الاخير ولم تعثر على رقم مادة مشابه تقم باضافة سجل كامل
                    .AddItem X0, x1, X2, X3, X4
                    Exit Do   ' 
 تأكيد الخروج من الحلقة مع العلم بأن البرنامج سيخرج منها اساساً لانتهاء البحث دون نتيجة
                End 
If
 
           Loop
        End 
If
 
   End With
     
ساقوم بتجربه واعطيك النتيجه
شكرا لك

PHP كود :
Private Sub Command1_Click()
هذا الكود الموجود في زر الاضافه'
CheckAll Me
If ck = True Then
Exit Sub
End If
With Grid


.Rows = .Rows + 1
.Row = .Rows - 1
.Col = 0
.Text = 1 + .Rows - 3
.Col = 1
.Text = CmbItemName
.Col = 2
.Text = txtQty(1)
.Col = 3
.Text = txtPrice
.Col = 4
.Text = txtQty(0)
.Col = 5
.Text = Val(PriceDlr * txtQty(0))
.Col = 6
.Text = Val(txtQty(0) * txtPrice)
'
lblTotal.Caption lblTotal.Caption + .Text
End With
ClearAllR Me
txtInNoCombo1Combo2
Text1
.Text 0
Text2
.Text 0
lblTotal
.Caption sum(6)
ck False

End Sub 
(01-07-22, 11:34 AM)Taha Okla كتب : على فرض أنك استخرجتي البيانات من جدول المواد من قاعدة البيانات وأصبحت جاهزة في المربعات التي فوق جدول العرض كما في الصورة 
وأصبحت جاهزة للادخال لجدول العرض - فيكون زر الاضافة لجدول العرض يحتوي على الكود المناسب للتحقق ثم الاضافة --
فيكون الكود التالي هو كود مختصر للكود الذي ستضعينه بعد التعديل ليقوم هو بالاضافة .. : 
أي هذا كود مختصر قومي بتعديله ليناسب برنامجك .. :

PHP كود :
   
    Dim i 
As Integer
    
    With XXXGrid1      
' اسم جدول العرض

        If .Rows = 1 Then
            ' 
اذا كان عدد الاسطر بالجدول يساوي واحد أي سطر العناوين فقط نقم بإضافة سجل كامل
            
.AddItem X0x1X2X3X4
        Else
            i 
0
            Do Until i 
= .Rows
                i 
1
                    
' رقم المادة في الليبل الخاص مشابه لرقم مادة في سطر ما بالجدول
                If .TextMatrix(i, 0) = labItemNo1.Caption Then
                       ' 
مثلا عمود الكمية هو العمود الخامس نزيد على الكمية واحد أو الكمية الموجودة بتكست الكمية قبل الاضافة
                    
.TextMatrix(i4) = Val(.TextMatrix(i4)) + Val(txtQty1.Text)
 
                   ' حقل المجموع يصبح حاصل جداء حقل الكمية بعد التعديل بحقل السعر أو التكلفة وهكذا
                    .TextMatrix(i, 6) = Format(.TextMatrix(i, 3) * .TextMatrix(i, 4), "0.00")
            
                    Exit Do ' 
 ثم الخروج من الحلقة  بسبب العثور على الهدف وانتهاء التعديل
                ElseIf i 
= .Rows 1 Then
                    
' واذا انتهت الحلقة من السطر الاخير ولم تعثر على رقم مادة مشابه تقم باضافة سجل كامل
                    .AddItem X0, x1, X2, X3, X4
                    Exit Do   ' 
 تأكيد الخروج من الحلقة مع العلم بأن البرنامج سيخرج منها اساساً لانتهاء البحث دون نتيجة
                End 
If
 
           Loop
        End 
If
 
   End With
     

لقد كتبت لك الكود الموجود في زر أضف للقائمه
ارجوا ان تدمجه مع الكود الذي كتبته لي حتى نتجنب ظهور الاخطاء
الرد }}}
تم الشكر بواسطة:
#9
لقد كتبت لك كود الموجود في زر اضافة القائمه
ارجو منك ان تدمجه مع الكو الذي كتبته لي حتى نتجنب حصول الخطا

وشكرا لك
الرد }}}
تم الشكر بواسطة:
#10
اذا كان بالامكان اضافة المشروع يكن أفضل
لأني أراى أن الكود بحاجة لتىعديل جذري ..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم