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

[أبو معاذ]

السلام عليكم ورحمة  الله وبركاته ،
في الحقيقة كان كلما سألني شخص : "  هل برنامجك يتستعمل الباركود" ، كان هذا السؤال يضعني في مأزق لجهلي بهذا البراكود .  
لكن عزمت على استعماله في برامجي ، اشتريت جهاز الباركود منفذ USB  ، و اتكلت على الله ،
وكانت المفاجأة أن هذا الجهاز ليس إلا  لوحة المفاتيح ، واستعماله غاية في السهولة.
لنفرض أن لدينا جدول اسمه Articles  يحوي قائمة المواد بأسمائها و لنفرض أن هذا الجدول يحوي الخصائص التالية :
 CodeArticle  (أي الكود)
Designation  (أي التعيين)
Qte(أي الكمية الموجودة في المخزون)
Prix(أي ثمن المادة)
البريمج (تصغير برنامج ) الذي سنقوم بإنشائه هو إدخال كود المادة  CodeArticle  و البريمج يقوم بجلب جميع معلومات المادة.
نقوم بإنشاء برنامج جديد ، نضع المكونات التالية Edit1 ،  DbEdit1  ، DbEdit2 ، DbEdit3
نضع مكون  Query  أو  ADOQuery أو IBQuery  على حسب الذوق.
في تعليمة ال Query  ندخل التعليمة التالية :

كود :

Select Designation  ,Qte,Prix From Articles   Where CodeArticle = :C

حيث أن C  هو باراميتر.
لحد الساعة لم نأت بشيء جديد.
المكون Edit1  نستعمله في إدخال قيمة CodeArticle .
عندما يدخل الزبون قيمة في Edit1  و يضغط على زر Enter في لوحة المفاتيح ، نقوم بالبحث عن الكود المادة.
في الحدث  OnKeyDown الخاص بال Edit1  نكتب ما يلي :

كود :

If Key = Vk_Return then begin      Query1.close; Query1.ParamByName('C').AsString := Edit1.Text;     Query1.open;   end

 

كود :

if Query1.IsEmpty then showmessage('Not Found')

لنستعمل الآن جهز الباركود ، عندما نقرأ الباركود ل مادة معينة (طبعا داخل ال Edit1) بعد قراءتها جهاز الباركود مباشرة يقوم بالحدث Enter ، وهكذا يقوم البرنامج بالبحث عن المنتوج.

بقيت طباعة الباركود (على الورق)  ، يمكن استعمال مولدات التقارير مثل  CrystalRepot   FastReport QuickReport
كما يمكن طباعته ببرمامج  الWord  باستعمال نمط خط محدد  مثل IDAutomationHC39M.ttf  (النمط في المرفقات) ،
الطريقة سهلة جدا ...
أنشئ ملف وورد جديد   ،
اكتب
**
بين النجمتين (**)  أكتب الكود المراد طباعته ،
مثال
*Delphi4Arab*
قم بتظليل الكلمة كلها بما فيها النجمتين لأنها تعتبران بداية و نهاية الباركود.
ثم اختر نوع الخط (طبعا بعد تثبيته)  IDAutomationHC39M
و انتهى.

أرجو أن لا أكون قد أطلت في موضوعي ،
كما أرجو أن يستفيد منه المبتدئين أمثالي.