14-03-2016, 09:18 AM
السلام عليكم ورحمة الله وبركاته ،
في الحقيقة كان كلما سألني شخص : " هل برنامجك يتستعمل الباركود" ، كان هذا السؤال يضعني في مأزق لجهلي بهذا البراكود .
لكن عزمت على استعماله في برامجي ، اشتريت جهاز الباركود منفذ USB ، و اتكلت على الله ،
وكانت المفاجأة أن هذا الجهاز ليس إلا لوحة المفاتيح ، واستعماله غاية في السهولة.
لنفرض أن لدينا جدول اسمه Articles يحوي قائمة المواد بأسمائها و لنفرض أن هذا الجدول يحوي الخصائص التالية :
CodeArticle (أي الكود)
Designation (أي التعيين)
Qte(أي الكمية الموجودة في المخزون)
Prix(أي ثمن المادة)
البريمج (تصغير برنامج
) الذي سنقوم بإنشائه هو إدخال كود المادة CodeArticle و البريمج يقوم بجلب جميع معلومات المادة.
نقوم بإنشاء برنامج جديد ، نضع المكونات التالية Edit1 ، DbEdit1 ، DbEdit2 ، DbEdit3
نضع مكون Query أو ADOQuery أو IBQuery على حسب الذوق.
في تعليمة ال Query ندخل التعليمة التالية :
حيث أن C هو باراميتر.
لحد الساعة لم نأت بشيء جديد.
المكون Edit1 نستعمله في إدخال قيمة CodeArticle .
عندما يدخل الزبون قيمة في Edit1 و يضغط على زر Enter في لوحة المفاتيح ، نقوم بالبحث عن الكود المادة.
في الحدث OnKeyDown الخاص بال Edit1 نكتب ما يلي :
لنستعمل الآن جهز الباركود ، عندما نقرأ الباركود ل مادة معينة (طبعا داخل ال Edit1) بعد قراءتها جهاز الباركود مباشرة يقوم بالحدث Enter ، وهكذا يقوم البرنامج بالبحث عن المنتوج.
بقيت طباعة الباركود (على الورق) ، يمكن استعمال مولدات التقارير مثل CrystalRepot FastReport QuickReport
كما يمكن طباعته ببرمامج الWord باستعمال نمط خط محدد مثل IDAutomationHC39M.ttf (النمط في المرفقات) ،
الطريقة سهلة جدا ...
أنشئ ملف وورد جديد ،
اكتب
**
بين النجمتين (**) أكتب الكود المراد طباعته ،
مثال
*Delphi4Arab*
قم بتظليل الكلمة كلها بما فيها النجمتين لأنها تعتبران بداية و نهاية الباركود.
ثم اختر نوع الخط (طبعا بعد تثبيته) IDAutomationHC39M
و انتهى.
أرجو أن لا أكون قد أطلت في موضوعي ،
كما أرجو أن يستفيد منه المبتدئين أمثالي.
في الحقيقة كان كلما سألني شخص : " هل برنامجك يتستعمل الباركود" ، كان هذا السؤال يضعني في مأزق لجهلي بهذا البراكود .
لكن عزمت على استعماله في برامجي ، اشتريت جهاز الباركود منفذ 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
و انتهى.
أرجو أن لا أكون قد أطلت في موضوعي ،
كما أرجو أن يستفيد منه المبتدئين أمثالي.