تقييم الموضوع :
  • 2 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ازاى اعمل سلة مبيعات وفى نفس الوقت تعطينى الاجمالى للمبيعات بالفيجول بيسك؟
#1
Question 
عاوز اعمل سلة اجمع فيها كل اللى انا اشار إليه و بعد كده تظهر على شكل فاتورة ثم اطباعها ارجو الافادة
انا هربط الفيجول بالاكسيس عناصر الجداول كالاتى :
1/ جدول اسمه (معرض) عناصره (( كود / اسم الكتاب / اسم المؤلف / الكمية / سعر الوحده / التاريخ)
وياااااااااااااه لو اعمل بحث عن الكتاب ثم اشار عليه يدخل فى سلة المبيعات وثم اطباعها
اتمنى الافاده من عمالقة الفيجول ومن لديه فكرة او تجربة
جزاكم الله خيرا
الرد
تم الشكر بواسطة:
#2
لم نفهم هل تريد اكواد ام الطريقة
الرد
تم الشكر بواسطة: mgdonlz
#3
(12-11-13, 02:19 AM)asto كتب : لم نفهم هل تريد اكواد ام الطريقة

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

عليك ان تنشئ قاعدة بيانات بواسطة الفيجوال بيسك اذن

من خلال القائمة add-ins ثم visual data manager

تابع الشرح من خلال
http://www.shattalarab.net/vb/iraq47990/

الاكواد
كود الاضافة :

Data1.Recordset.AddNew

كود الحفظ :

Data1.Recordset.Update


اما اكواد التنقل

كود السجل الاول :

Data1.Recordset.MoveFirst


كود السجل الاخير :

Data1.Recordset.MoveLast


كود التالى :

Data1.Recordset.MoveNext


كود السابق

Data1.Recordset.MovePrevious

كود الاسناد الى تكست 15 مثلا
Text15.Text = Data1.Recordset.Fields!word
كود الاسناد من تكست 15 الى الحقل
Data1.Recordset.Fields!word=Text15.Text
حيث word اسم العمود في الجدول المختار من قاعدة البيانات
كود :
كود البحث :

Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
ضع اوامر لتنفيذها عند الايجاد (لمنع الاضافة لا تكتب شيئا هنا)
else
ضع اوامر لتنفيذها عند عدم الايجاد (اوامر الاضافة هنا و يمكنك وضع اية اوامر اخرى)
End If
حيث word  اسم العمود في الجدول المختار من قاعدة البيانات

تحتاج ايضا الى مجموعة من التكست بوكس3 مثلا في مصفوفة مع اظهارها و اخفائها عند الحاجة

و عدد من الكوماند 3 مثلا في مصفوفة و كوماند2 للطباعة و آخر للاضافة او حتى مجموعة كمان تتبع لمصفوفة
و هذه هي طريقة طباعة محتويات الفورم في ملف مرفق

فاذا كنت لا تعلم شيئا في الفيجوال فاذهب و تعلمه


الملفات المرفقة
.rar   الطباعة في الفيجوال بيسك.rar (الحجم : 282.71 ك ب / التحميلات : 206)
الرد
تم الشكر بواسطة:
#5
حضرك انا جزيل كل الشكر والتقدير على هذا القدر من الشرح والاستجابة والاهتمام
انا بعرف اربط الفيجول بالاكسس لكن عاوز اعمل حاجه زى سلة كل ما اختار مثلا كتاب يضاف الى السلة او تتجمع فى صفحة ثم اطبعها
واكرر جزاك الله كل خير Smile
الرد
تم الشكر بواسطة:
#6
اوك

تبحث عن اسم كتاب او مؤلف او كما تريد

بهذا الكود باستعمال اداة داتا1
كود :
كود البحث :
i=text10.text
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
تضع هنا اوامر الاسناد الى تكستات
text2(i).text=Data1.Recordset.Fields!word
text3(i).text=Data1.Recordset.Fields!price
الخ  حيث كل تكست يرتبط بحقل
و يكون لها نفس الاندكس
else
ضع اوامر لتنفيذها عند عدم الايجاد
End If
و يكون لديك كوماند اسمه اضافة يقوم ب :
i=text10.text مثلا
i=i+1
text10.text=i
يتم اظهار فيها مجموعة من التكستات ذات اندكس i الجديد حيث تكون مخفية مسبقا
"حيث تضع في الفورم لود text10.text=0 "
و بامكانك تفريغ التكست المستخدم للبحث

طبعا هنا مشكلة صغيرة سوف يظهر لك عدد الكتب لاسم كتاب معين فعليك كتابة كوماند لتغيير هذا العدد اذا ما قررت اضافته للمبيعات (الفورم الذي تريد طباعته) او هذا الكود لتكست20 مثلا بعد تغيير القيمة ضمن تكست 20 يختفي تكست 7
كود :
i=text10.text
Private Sub Text20_Change(Index As Integer)
Text7(i).Visible = False
s=text7(i).text
ss=text20(i).txext
و
كود البحث :
i=text10.text
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
text7(i).text=s-ss
Data1.Recordset.Fields!num=text7(i).text
Data1.Recordset.update

End Sub
و الملف المرفق اعلاه يبين كيفية الطباعة

ملاحظة ارقام التكستات هنا عشوائية

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعبئة صفحة ويب عن طريق MSFlexGrid بالفيجوال بيسك 6 ربوح بوبكر 1 55 19-06-18, 02:47 AM
آخر رد: عبدالله الصافي
  [سؤال] كيف افتح ملف وورد مخزون مسبقا من خلال الفيجوال بيسك nerjis ameer 14 5,114 02-04-18, 10:16 AM
آخر رد: السيد الغالي
  السلام عليكم اريد مثال اعمل كلمة سر لبرنامجي واعدلها في الاكسس بارك الله فيكم محمد جبريل 5 233 11-03-18, 10:48 AM
آخر رد: محمد جبريل
  [vb6.0] كيفية عمل قاموس ناطق بالفرنسية فى الفجوال بيسك 6.0 ahmedngah36 0 97 03-03-18, 08:02 PM
آخر رد: ahmedngah36
  برنامج لتقسيم الوقت بين توقيتين احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمج سيلفو 3 67 07-02-18, 11:57 AM
آخر رد: سيلفو
  كيف يمكن عمل هذا بالفيجوال بيسك واى اداه تدعم ذلك فى جدول رواتب العمال الحزين اوى 2 164 19-01-18, 04:06 PM
آخر رد: Amir_alzubidy
  [vb6.0] سؤال تغيير ادوات فيجوال بيسك 6 محمد حمد محمد 2 249 18-01-18, 01:48 AM
آخر رد: محمد حمد محمد
  السلام عليكم عندي مشكلة عند ربط قاعدة بيانات اكسس بالفيجول بيسك 6 عزف الرياح 2 197 25-12-17, 12:38 AM
آخر رد: عزف الرياح
  من لديه طريقه لتسريع برنامجي المعمول بالفجوال بيسك 6 مع اس كيوال 2008 scsi7000 1 141 06-12-17, 02:53 PM
آخر رد: Amir_alzubidy
  طلب حل تمارين في فيجوال بيسك devafar23 8 2,265 02-12-17, 09:13 PM
آخر رد: devafar23

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


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