• 0
helmy_foad

طريقة إظهار QR CODE فى تقارير أكسيس (شرح و ملفات )

سؤال

اليوم أقدم لكم موضوع يبحث عنة الكثيرين

الموضوع هو كيفية إظهار بيانات محددة فى التقرير على هيئة QR CODE  و هو الباركود الثنائى الابعاد

11.png

1 - مرفق مجلد مضغوط به ملفين DLL  احدهم للويندوز 64 بت QRCodeFont_x64.dll و الاخر للويندوز 32 بت QRCodeFont.dll

ما عليك الا وضع الملف المناسب للويندوز الخاص بك فى مجلد SYSTEM32

 

2 - و يوجد ايضا ملف MW6Matrix.TTF و هو يوضع فى مجلد C:\Windows\Fonts

 

3 - الكود التالى يتم لصقة فى محرر الفيجوال بيزك فى التقرير المراد إظهار الباركود به

Option Compare DatabasePrivate Declare Sub QRCodeEncode Lib "QRCodeFont.dll" _(ByVal Message As String, ByVal Version As Integer, ByVal Level As Integer, ByVal Mask As Integer)Private Declare Function QRCodeGetRows Lib "QRCodeFont.dll" () As IntegerPrivate Declare Function QRCodeGetCols Lib "QRCodeFont.dll" () As IntegerPrivate Declare Function QRCodeGetCharAt Lib "QRCodeFont.dll" (ByVal RowIndex As Integer, ByVal ColIndex As Integer) As IntegerPrivate Const Version = 0Private Const Level = 0Private Const Mask = 0------------------------------------------------------------------Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)Dim RowCount As LongDim ColCount As LongDim Message As StringDim EncodedMsg As StringMessage = Field1.TextMessage = Message & vbCrLf & Field2.TextMessage = Message & vbCrLf & "________"Message = Message & vbCrLf & " "Call QRCodeEncode(Message, Version, Level, Mask)RowCount = QRCodeGetRows()ColCount = QRCodeGetCols()EncodedMsg = vbCrLfFor I = 1 To RowCountFor J = 1 To ColCountEncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(I - 1, J - 1))Next JEncodedMsg = EncodedMsg & vbCrLfNext IText0.Value = EncodedMsgEnd Sub

4 - هذان السطران

Message = Field1.TextMessage = Message & vbCrLf & Field2.Text

هما يعبران عن حقلى البيانات المراد إظهارهما فى الQR CODE

الحقل Field1 و الحقل Field2

 

5 - و يمكنك إضافة المزيد من الحقول بإضافة السطر التالى

Message = Message & vbCrLf & -----------.Text

و يوضع اسم الحقل المراد إظهارة بدلا من -----------

 

 

6 - فى السطر قبل الاخير فى الكود

Text0.Value = EncodedMsg

Text0هو اسم ال textbox الذى سيظهر به الكود و يمكنك تغييرة بالإسم الذى تريدة

 

7 - اخر شئ هو تغيير نوع الفونت (الخط) الخاص بال text box  الذى سيظهر به الQR CODE إلى نوع الفونت MW6 Matrix و الذى وضعناه بمجلد الخطوط سابقا

 

و شكرا لكم

Desktop.rar

تم تعديل بواسطه helmy_foad
7

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

18 إجابة على هذا السؤال .

  • 0

39 مشاهدة و 11 تحميلات للمرفقات

و لا تعليق واحد

واضح اننى الوحيد المهتم بهذا الموضوع

:wacko: :wacko: :wacko: :wacko: :wacko: :wacko: :wacko: :wacko:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل : حلمي فؤاد

 

بارك الله بك وجزاك الله كل خير

 

معلومات مفيده وممتازه 

 

 

+1

 

بالتوفيق

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ردك على موضوعى أخت زهرة هو شرف لى

و لى الفخر بان الموضوع اعجبك

أشكرك شكراَ جزيلا

:ty: :ty: :ty:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

اخى الكريم موضوع مفيد و مميز 

ارجو نسخة باوفبس 2003

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

سأحاول عمل نسخة 2003 ، فقط حالما احصل على اوفيس 2003

لاننى استغنيت عنه منذ وقت طويل

لكن انت اذا اتبعت انت الخطوات اعتقد انك ستنجح

لان الموضوع سهل و غير معقد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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


اخى الكريم موضوع مفيد و مميز 


ارجو نسخة باوفبس 2003


 


up


0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل : حلمي فؤاد


 


بارك الله بك وجزاك الله كل خير على هذا الملف 


 


ولكن فى خطا عند تسجيل المكتبة 


post-269111-0-34305400-1392704726_thumb.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جزاك الله خيراً .

صراحة أسلوب مميز في الشر ح

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

بارك الله بك اخي العزيز وجعله الله في ميزان حسناتك

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

اخي الكريم

هل بالامكان استعمال 

QR CODE

كما نستخدم الباركود في برامج المخازن و المبيعات

واذا كان كذلك

فما هي الاجهزه التي نحتاجها  وهل هناك قاريء خاص QR CODE 

وهل من الممكن استعماله بشكل اوسع ويضاف الى البرامج الموظفين التي تستعمل البصمه

ففي البركود نحتاج قاريء الباركود مثلا

تقبل فائق الاحترام والتقدير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

صراحة الموضوع مهم وشكرا جزيلا لك وبارك الله فيك

وان شاء الله اجرب الكود واوافيك بالنتيجة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

افادة لاخينا s s m

نعم للكبو كود باركود قارئ خاص

كما يمكن استخدام هذا النوع من الباركود في كثير من المجالات

ومن مميزاته قدرته على احتواء كم بيانات في رقعة صغيرة

ولكم مني خير تحية السلام عليكم

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 

ابو فتحي :

 

اخي الفاضل : حلمي فؤاد

 

بارك الله بك وجزاك الله كل خير على هذا الملف 

 

ولكن فى خطا عند تسجيل المكتبة

 

أعتقد أن لديك نظام تشغيل 64 بت

وأنك وضعت الملف QRCodeFont_x64.dll

وأن ذلك في مجلد system32

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

فهل يمكن استخدمه بطريقة تدعم اللغة العربية 

والسلام عليكم 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكور يا غالي

جا في وقته

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .