تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود في برنامج مبيعات
#1
باعمل برنامج مبيعات
وباضيف فاتورة الشراء داخل داتا جريد فيو
وعملت button خاص بحفظ البيانات من الداتا جريد فيو مرة واحدة داخل قاعدة بيانات اكسس
ومحتاج كود
عند اضافة اسم صنف
لو الصنف موجود يعمل تعديل عليه
ولو الصنف مش موجود يضيف جديد

(كود البحث عن الاصناف الموجودة داخل الجريد فيو)
الرد
تم الشكر بواسطة:
#2
ساقوم بشرح الفكرة لك نظرياً 
وانت تقوم بتطبيقها عملياً لان انت لا قمت بوضه المشوع
أو اى بيانات على قاعدة البيانات وما ذلك

فى زر الاضافة..
فى البداية ستعمل كود استعلام على ان يستعلم على اسم الصنف
من ثم التحقق من خلال IF اذا كان الاستعلام ايجابى اى يوجد ناتج
وداخل IF اذا تحقق تقوم بوضح كود التعديل بدلاً من الاضافة

واذا كان ناتج IF سلبى اي لا يوجد اسم الصنف بقاعدة البيانات
فى ذلك تضع كود الاضافة

الشرح بالاعلى ينطبق على قاعدة البيانات

طيب لو كان الامر على Datagridview

كل ما هو عليك فعله فى البداية
جلب عدد محتوى الـ Datagridview

من ثم عمل For يقوم بالعد من 0 الى قيمة محتوى Datagridview
من ثم بداخله شرط التحقق IF
يقوم بالتاكد بان Row الخاص بـ Datagridview

بحيث ان يكون كود الشرط بهذا الشكل
كود :
IF DataGridView1.Rows(i)(2).Value = "اسم الصنف" Then
'-| ضع كود التعديل |-'
Else
'-| ضع كود الاضافة |-'
End If

اتمنى ان يكون الفكرة قد وصلت لك
وان تكون الامور مبسطة لديك

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#3
(13-06-18, 01:57 PM)elgokr كتب :
ساقوم بشرح الفكرة لك نظرياً 
وانت تقوم بتطبيقها عملياً لان انت لا قمت بوضه المشوع
أو اى بيانات على قاعدة البيانات وما ذلك

فى زر الاضافة..
فى البداية ستعمل كود استعلام على ان يستعلم على اسم الصنف
من ثم التحقق من خلال IF اذا كان الاستعلام ايجابى اى يوجد ناتج
وداخل IF اذا تحقق تقوم بوضح كود التعديل بدلاً من الاضافة

واذا كان ناتج IF سلبى اي لا يوجد اسم الصنف بقاعدة البيانات
فى ذلك تضع كود الاضافة

الشرح بالاعلى ينطبق على قاعدة البيانات

طيب لو كان الامر على Datagridview

كل ما هو عليك فعله فى البداية
جلب عدد محتوى الـ Datagridview

من ثم عمل For يقوم بالعد من 0 الى قيمة محتوى Datagridview
من ثم بداخله شرط التحقق IF
يقوم بالتاكد بان Row الخاص بـ Datagridview

بحيث ان يكون كود الشرط بهذا الشكل
كود :
IF DataGridView1.Rows(i)(2).Value = "اسم الصنف" Then
'-| ضع كود التعديل |-'
Else
'-| ضع كود الاضافة |-'
End If

اتمنى ان يكون الفكرة قد وصلت لك
وان تكون الامور مبسطة لديك

تحياتى لك
وتمنياتى لك التوفيق


انا استخدمت الكود ده
PHP كود :
For xx As Integer 0 To dgv_bill.Rows.Count 1


            Dim cm 
As New OleDbCommand("select count(item_code) from items where item_code=@Column2"Conn5)


 
           Conn5.Open()
 
           If cm.ExecuteScalar 0 Then

                MsgBox
("هذا الصنف موجود مسبقا")
 
               Exit Sub

            End 
If

 
       Next 
لكن بيظهر مشكلة


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#4
اين هى قيمة @Column2

اذا كنت تريد عمل كود الاستعلام من خلال 
Parameters

فيجب عليك وضح هذه الاسطر 
كود :
cm.Parameters.Add("@Column2", SqlDbType.VarChar)
cm.Parameters("@Column2").Value = '-|رقم الصنف|-'

اعلى هذه المنطقة
كود :
Conn5.Open()

مع استبدال هذه الجملة
PHP كود :
'-|رقم الصنف|-' 

بالرقم الخاص بالاستعلام

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#5
(13-06-18, 05:36 PM)elgokr كتب :
اين هى قيمة @Column2

اذا كنت تريد عمل كود الاستعلام من خلال 
Parameters

فيجب عليك وضح هذه الاسطر 
كود :
cm.Parameters.Add("@Column2", SqlDbType.VarChar)
cm.Parameters("@Column2").Value = '-|رقم الصنف|-'

اعلى هذه المنطقة
كود :
Conn5.Open()

مع استبدال هذه الجملة
PHP كود :
'-|رقم الصنف|-' 

بالرقم الخاص بالاستعلام

تحياتى لك
وتمنياتى لك التوفيق

تسلم يا هندسة
تم وشكرا للمساعدة
الرد
تم الشكر بواسطة: elgokr
#6
الشكر لله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عايز دورة انشاء برنامج مثل الهين والامبراطورية من فضلكم omarzerrouki 5 1,019 اليوم, 12:14 AM
آخر رد: حاتمي
  [سؤال] صممت برنامج ولم استطيع ان اكمله quwery_n 3 880 09-01-19, 01:22 AM
آخر رد: اسامه الهرماوي
  برنامج لتحويل قيمة البكسل اللونيه الى عدد صحيح dyar mohammed 0 43 08-01-19, 11:46 PM
آخر رد: dyar mohammed
Big Grin سؤال حول فحص اذا كان برنامج قيد التشغيل او لا ahmadpal 4 118 07-01-19, 02:50 PM
آخر رد: elgokr
Sad برنامج الديون Kian Tech 15 3,344 05-01-19, 07:47 PM
آخر رد: ihab
  [VB.NET] كيف اجعل برنامج يعمل على شبكة السائل 2 117 05-01-19, 06:00 AM
آخر رد: السائل
  [VB.NET] مردودات مبيعات عبدالرحمن بشري عمر 10 297 01-01-19, 02:37 AM
آخر رد: new_programer
  مشكلة في تشغيل برنامج تمت صناعته بالفيجوال بيسك 2012 و فيجوال بيسك 2017 naderahly 3 126 30-12-18, 02:59 AM
آخر رد: a.wagdi
  قمت بعمل برنامج واريد اضافة سريال تفعيل له remonmary 3 117 29-12-18, 05:44 PM
آخر رد: alsouf
  [VB.NET] استفسار :- بخصوص اخذ نص من برنامج اخر WM_GETTEXT dubai.eig 0 64 24-12-18, 09:47 AM
آخر رد: dubai.eig

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


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