الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة ببرنامج سوبر ماركت مع الباركود

بدأه mohamed_nor_eldin في 30 مارس 2012 · 10 رد · 5,318 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

الاخوه الافاضل اتمنى منكم المساعدة

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

#3

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

ما اريد ان استعلم عنه هل يحتاج ذلك برمجه معينه لبورت القراه على الفجول بالنسبه للقراء و الاستقبال من جهاز الباركود

ثانيا و هى الغريبه انا اعرف انى هسجل كل منتج برقم الباركود الموجود على المنتج طيب دا هيدينى النوع و بيانات المنتج التى تم تخزينها السؤال هنا كيفية معرفه الوزن من خلال الباركود هل هذا مرتبط على ماكينه لطباعة الباركود تعطى رقم مثلا بجانب نوع الصنف كدليل على الوزن و منه تم الحساب ام ماذا ؟؟؟

اتمنى من ذو الخبره المساعده من فضلكم باسرع و قت ان امكن وفككم الله و ان كنت اتمنى الافادة من الموضوع دا مع الاس كيو ال ان امكن

تم تعديل هذه المشاركة بواسطة mohamed_nor_eldin في 31 مارس 2012 في 19:51

#4

اتمنى من اهل العلم الافادة

#5

السلام عليكم ورحمة الله

من المفترض إنك عامل جدول لتسجيل بيانات الأصناف

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

كل هذه المعلومات فى جدول الاصناف

فى شاشة البيع

اريد أن أنادى على اسم الصنف بدلالة الباركود

الكود الخاص عن البحث عن اسم الصنف يمكننى استرشد من خلاله عن كل المعلومات التى تلزمنى

مثل السعر والوزن أو عدد العبوات داخل الوحدة وعرض كل هذا فى مكانه من حقول بشاشة البيع أو الشراء ...

انت لا تحتاج برمجة بورتات ولا شئ فقط عليك فهم ذلك

الباركود ريدر يأتى بالرقم الموجدود على العلبة ثم يضغط المفتاح انتر

المطلوب انك تجعل كود البحث والعرض ينفذ مع ضغط المفتاح إنتر

بالتوفيق

#6

أخي الفاضل محمد نور الدين

طريق الادخال عن طريق قارئة الباركود لا تختلف عن طريقة الادخال بالــ Key Board العادية ولا تحتاج الي اضافة اي شيء غير ....

1- توصيل قارئة الباركود بالكمبيزتر

2- تحميل برنامج لعمل ملصقات الباركود

3- كود الباركود سيكون هو كود الصنف الموجود في جدول الاصناف

بعد ما تنتهي من هذه الجزئية ستقوم بتصميم شاشة البيع ومن خلال تعليمة برمجية ليس لها علاقة بجزئية الباركود ستكتب عندما اكتب كود الصنف فقم بجلب كافة البيانات التي احددها في هذه الشاشة بمنتهي البساطة

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#8

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

ارجو منكم الافادة افادكم الله انا شغال على قاعدة بيانات سيكول وان كانت دى مش هتفرق فى اى شئ وعارف ان الباركود بيرد فى حدث keypress طيبالقيمه بتتساوى بايه بقى

#9
Abo.Abdo.Allah كتب:

السلام عليكم ورحمة الله

من المفترض إنك عامل جدول لتسجيل بيانات الأصناف

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

كل هذه المعلومات فى جدول الاصناف

فى شاشة البيع

اريد أن أنادى على اسم الصنف بدلالة الباركود

الكود الخاص عن البحث عن اسم الصنف يمكننى استرشد من خلاله عن كل المعلومات التى تلزمنى

مثل السعر والوزن أو عدد العبوات داخل الوحدة وعرض كل هذا فى مكانه من حقول بشاشة البيع أو الشراء ...

انت لا تحتاج برمجة بورتات ولا شئ فقط عليك فهم ذلك

الباركود ريدر يأتى بالرقم الموجدود على العلبة ثم يضغط المفتاح انتر

المطلوب انك تجعل كود البحث والعرض ينفذ مع ضغط المفتاح إنتر

بالتوفيق

اخى الكريم انا ابحث عن شرح اريد أن أنادى على اسم الصنف بدلالة الباركود محتاج الموضوع دا ضرورى لعمل برنامج كاشير  ياريت الشرح وجزاكم الله خيرا

تم تعديل هذه المشاركة بواسطة atef_020 في 28 مارس 2014 في 18:03

#10

اية يا جماعة مفيش حد عاوز يفيدنى

#11

السلام عليكم ورحمة الله وبركاته

أخي العزيز الباركود ريدر وظيفته قراءة الرقم أو ما يسمى بالباركود الموجود على السلعة فقط لا غير، أما إذا أردت الباركود ريدر أن يستدعي تفاصيل أخرى مثل الإسم أو سعر المبيع أو الشراء أو الوحدة فهذا يتحقق من خلال إنشاء جدول في قاعدة البيانات بعنوان بطاقة الصنف أو بطاقة المادة تحتوي على كافة التفاصيل المذكورة أعلاه، بحيث يصبح هذا الجدول (بطاقة المادة) هو المرجع الذي يتم من خلاله استدعاء تفاصيل المادة من خلال رقم الباركود في فاتورة المبيعات أو المشتريات. 

مثال قم بإنشاء جدول في قاعدة بيانات أكسس بإسم فاتورة مبيعات  وضع بداخله الحقول التالية:

- ID

- Code

- Item

- Quantity

- UnitPrice

- Total

ثم قم بإنشاء جدول آخر بإسم بطاقة المادة وضع الحقول التالية:

- ID

- Code

- Item

- UnitPrice

 

بعد ذلك قم باستدعاء جدول فاتورة المبيعات  إلى VB.net من خلال Connection Wizard

ثم قم بإنشاء Function  بعنوان تحمل الإسم Dlookup :

Public Function DLookup(ByVal columnName As String, ByVal tableName As String, ByVal where As String, ByVal databaseName As String, Optional ByVal databasePassword As String = "") As Object
    Dim con As New OleDb.OleDbConnection("Provider=" & IIf(IO.Path.GetExtension(databaseName).ToLower = ".mdb", "Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0") & "; Data Source=" & databaseName & "; Jet OLEDB:Database Password=" & databasePassword & ";")
    Dim sql As String = "SELECT " & columnName & " FROM " & tableName & " WHERE " & where
    Dim dt As New DataTable
    Dim da As New OleDb.OleDbDataAdapter(sql, con)
    If da.Fill(dt) > 0 Then Return dt.Rows(0).Item(0)
    Return Nothing
End Function

ثم ضع الكود التالي في الحدث CellEndit للـ DataGrid الذي يحتوي حقول فاتورة المبيعات :

For Each row as DataGridViewRow in  SaleDataGridView.Rows
row.Cells(2).Value = Dlookup("Item","Sale","Code = '" & rw.Cells(1).Value & "'","D:\DataBase.acc
row.Cells(4).Value = Dlookup("UnitPrice","Sale","Code = '" & rw.Cells(1).Value & "'","D:\DataBase.ac
next

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…