اذهب الي المحتوي
أوفيسنا

مكتبة Ms-AccessListviewACX1.00 اداة بخصائص جاهزة مكتبة dll من تصميمي دعوة للتطوير


Elsayed Bn Gemy

الردود الموصى بها

السلام عليكم ورحمة الله تعالى وبركاته
اخوانى الكرام منذ ان بدأت هذا المشروع ولم افكر لحظة فى ان احيد عنه

 

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

المكتبة بها اداة listview  
وبها ثلاث دوال


الدالة الاولي
 

ListFolder(ByVal FolderPath As String)
وهى دالة لعرض الملفات فى مجلد معين
حيث FolderPath هو مسار المجلد 

2.PNG.285e1557897e7799b7177fac3e9f1f60.PNG

 

ويتم استدعااء الدوال بهذا الكود

  Option Explicit
  Option Compare Database
Public listv As MsAccessListviewACX1_00.UCBySedo

Private Sub Command115_Click()
Set listv = Me.UCBySedo2.Object
call listv.ListFolder ("C:\Users\Elsayed\Desktop\New folder\")
End Sub

حيث UCBySedo2 هي اسم Activex  التى ادرجتها فى النموذج

 

 

==========================

الدالة الثانية
 

FillListviewWithRecord(ByVal CurrntDb As String, ByVal QuerySQl As String)
وهذه الدالة لتعبئة الليست فيو بالسجلات وجهلها مثل النموذج الفرعي

حيث CurrntDb هي المسار الكامل لقاعدة البيانات وهذه خاصية جيدة حيث يمكن الاتصال ياقاعدة بيانات خارجية 
واذا كنت تريد نفس قاعدة البيانات يمكنك ادراج هذه الجملة بدل المسار 
CurrentProject.FullName
==============================
QuerySQl
وهو الاستعلام المراد عرضه ويتم ادراجه بطريقة SQL 
"SELECT Accounts.ID AS [م], Customers.Customer  AS [العميل], Accounts.Debit  AS [مدين], Accounts.Credit  AS [دائن], Accounts.Dates  AS [التاريخ], Accounts.Notes  AS [البيان] FROM Accounts INNER JOIN Customers ON Accounts.Customer_ID = Customers.Customer_ID;"

طبعا انشئ الاستعلام الخاص بك واعرضه بطريقة SQL  وانسخه وادرجه 

3.PNG.69de98b4f0d9a9acb598aef0977630ff.PNG

 

=======================

الدالة الثالثة

filLvWithImage(ByVal ImgType As String, ByVal FolderPath As String)
هذه الدالة لعرض الصور 
  حيث ImgType هي نوع الصور الموجودة في المسار 
 حيث FolderPath  هو المسار المراد عرض الصور بداخله 

4.PNG.afecff75a73707eb3bddc75fda5c422a.PNG

طريقة التسجيل
 

في ١‏/١٠‏/٢٠١٩ at 18:00, Elsayed Bn Gemy said:

اما عن طريقة التسجيل   فستجد ملف من نوع .bat  ارفقته مع الاداه اسمه " تسجيل الاداة "

 

قم بفتحة با النوتباد وقم بتغيير مسار الاداه  وقم بحفظ الملف

 

وعن التسجيل قم بفتح الملف كمسؤل  وسيقوم بتسجيل المكتبةتلقائيا

5555.png.3f30ea7e264e999d40b56a725d79cfed.png

بعد التسجيل تاممكد من وجود ملف tlp  فى قائمة الريفرنس هكذا
6.PNG.56895cfa44c7452687a02581f6d453cb.PNG

ثم بعد ذلك اختر عناصر Activex  ثم ادراج جديد واختر الاداة
00.png.d2eae6e1b5d9dfbf7383e6b6e99c42b6.png

1.PNG.15df697e2589c7ca0eb4b60754f59c53.PNG

 

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

---------------------------------------------------------------------------------------------------

تعديل 12-02-2021 :

 

قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام

الدالة الاولى  وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات

قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس )

بعد اختيار الاستعلام سيتم تحويل الاستعلام الى صيغة سيكوال تلقائيا  فقط ما عليك الا ان تضغط على عرض السجلات )

3333.PNG.8faae3eeb7089626dc788d604d88bcf6.PNG

الدالة الثانية

اختر المسار ونوع الصورة المراد عرضها فى المسار  ثم عرض

rfrfgbf.PNG.e7985ddaf963dfd8d5bfe76a1f9aa05e.PNG

الدالة الثالثة

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

yujyju.PNG.62d8c1b66c1bb799a3fb5389ffdcc9b9.PNG

 

MsAccessListviewACX1.01.rar

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

بارك الله فيك وحفظك الله

فيه فكرة لــ أداة قد تستفيد مه مادين 

وهي خاصه بالصور

 

 

بالتوفيق إن شاء الله

تم تعديل بواسطه ابو محمد 316
  • Like 1
رابط هذا التعليق
شارك

7 ساعات مضت, abouelhassan said:

بارك الله فيك اخى

بارك الله لك اخي 🙏🙏

2 ساعات مضت, ابو محمد 316 said:

السلام عليكم

بارك الله فيك وحفظك الله

فيه فكرة لــ أداة قد تستفيد مه مادين 

وهي خاصه بالصور

 

 

بالتوفيق إن شاء الله

وعليك السلام اخي ♥️

وما هي فكرة الاداة اخي 

رابط هذا التعليق
شارك

6 دقائق مضت, أبو إبراهيم الغامدي said:

اتبعت الخطوات التي أشرت إليها لكن..

هل لنوات الأفس دخل بالموضوع؟

لا ولكن دعنا نري ان كان أحد من الاخوة واجهته مشكلة التسجيل 

رابط هذا التعليق
شارك

ياسلام لو تعمل أداة لسحب أكثر من مرفق من الماسح الضوئي بدل الاداه الموجودة حالياً وتسحب ورقة ورقة يبقي كتر خيرك 

أما بخصوص هذه الأداة جاري التجربه

تحياتي 🌹

 

رابط هذا التعليق
شارك

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

اخي الكريم  حفظك الله

فكرة أداة  هي 

1- سحب الصور من الكاميرا او الأسكنر او من مجلد على الجهاز

2- بعد إضافة الصورة الى المجلد المخصص لها من قبل المستخدم وحفظ الرابط في قاعدة البيانات عن طريق البرنامج . يتم تشفير الصورة بحيث لا يمكن مشاهدة الصورة او معرفة المحتوى الى عن طريق البرنامج والذي يستخدم الادة في فك الصور للمشاهدة على النموذج او التقرير او الطباعة 

3- ولو توفر في الادة إمكانية فك التشفير عن الصوره واخراجه الى مجلد مستقل يكون افضل 

 

 

بالتوفيق إن شاء الله

 

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

  • Thanks 1
رابط هذا التعليق
شارك

في ١٠‏/٢‏/٢٠٢١ at 01:17, Elsayed Bn Gemy said:

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

المكتبة بها اداة listview  

كان اختيار أ. جمال بالبدء بهذه الأداة في تطويره لأدوات تعمل مع أكسس موفقا جدا!

الأداة فيها ميزات كثيرة لعرض البيانات بشكل جذاب وملفت!

أنا استخدم الأداة المتوفرة ضمن الأدوات التقلدية في ويندوز .. إلا أنها تحتاج بعض العمل من أجل عرض البيانات العربية 

أتمنى ممن حمل الأداة وعملت معه أن يخبرنا. رجاءً 

رابط هذا التعليق
شارك

3 ساعات مضت, أبو إبراهيم الغامدي said:

كان اختيار أ. جمال بالبدء بهذه الأداة في تطويره لأدوات تعمل مع أكسس موفقا جدا!

الأداة فيها ميزات كثيرة لعرض البيانات بشكل جذاب وملفت!

أنا استخدم الأداة المتوفرة ضمن الأدوات التقلدية في ويندوز .. إلا أنها تحتاج بعض العمل من أجل عرض البيانات العربية 

أتمنى ممن حمل الأداة وعملت معه أن يخبرنا. رجاءً 

استاذنا  ابو عبد الله 

راعيت اثناء التصميم  ان تعمل فى بيئة فريمورك 3.5  وهو المتاح فى ويندوز 7  ..  حتى تعمل فى اصدرات الويندوز الحديثة
989.PNG.ae4e0091aa691c1c34d6e20eb379f880.PNG

كما انها مصممة حتى تعمل على النواتين 32 و 64


6336.PNG.2153a75d5a87d2d2e2aea6cef512d587.PNG

 

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

فى ملف التسجيل  يجب تعديل المسارات الاتية

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

C:\Windows\Microsoft.NET\Framework\v4.0.30319

هل هو موجود فعلا ام لا 

وهل اداة التسجيل موجودة فى الملف ام لا    regasm.exe

 

 

ثانيا   تعديل مسار الاداة  فى ملف التسجيل 

wwdw.PNG.c924f7b6860143464b533da2d62f7ed2.PNG

 

غير ذلك  يبقي ننتظر احد الاخوة   والله الموفق

 

رابط هذا التعليق
شارك

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

شاكرين ومقدرين لكم هذا الابداع 🌹🌹

علاء محمد

رابط هذا التعليق
شارك

السلام عليكم اخوانى

قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام

الدالة الاولى  وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات

قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس )

بعد اختيار الاستعلام سيتم تحويل الاستعلام الى صيغة سيكوال تلقائيا  فقط ما عليك الا ان تضغط على عرض السجلات )

3333.PNG.8faae3eeb7089626dc788d604d88bcf6.PNG

الدالة الثانية

اختر المسار ونوع الصورة المراد عرضها فى المسار  ثم عرض

rfrfgbf.PNG.e7985ddaf963dfd8d5bfe76a1f9aa05e.PNG

الدالة الثالثة

الملفات فى مجلد معين اضافة الى ايقوناتها  اختر المسار ثم عرض

yujyju.PNG.62d8c1b66c1bb799a3fb5389ffdcc9b9.PNG

قاعدة البيانات

AcxListview_V1.00.rar

  • Thanks 1
رابط هذا التعليق
شارك

8 دقائق مضت, Elsayed Bn Gemy said:

السلام عليكم اخوانى

قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام

وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق

قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور

e3.png.1c7951d671d3c625123b73351c6d9dd0.pnge2.png.6aa7acba1e768494fd3fd79a1e4023bb.pnge1.png.10e7925ff51e5ce02d7a681784face58.png

 

 

رابط هذا التعليق
شارك

2 دقائق مضت, احمد الفلاحجي said:

وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق

قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور

e3.png.1c7951d671d3c625123b73351c6d9dd0.pnge2.png.6aa7acba1e768494fd3fd79a1e4023bb.pnge1.png.10e7925ff51e5ce02d7a681784face58.png

 

 

 

اخي هل ظهرت الاداة فى عناصر Activex  ?

رابط هذا التعليق
شارك

45 دقائق مضت, احمد الفلاحجي said:

نفس الخطأ اخى

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

رابط هذا التعليق
شارك

4 ساعات مضت, Elsayed Bn Gemy said:

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

طيب اذا مكنش فيها تعب ارفق لنا المكتبه المعدله مع المثال وان شاء الله اقوم بالتجربه عليها

بالتوفيق اخى

رابط هذا التعليق
شارك

15 ساعات مضت, احمد الفلاحجي said:

وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق

قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور

e3.png.1c7951d671d3c625123b73351c6d9dd0.pnge2.png.6aa7acba1e768494fd3fd79a1e4023bb.pnge1.png.10e7925ff51e5ce02d7a681784face58.png

 

 

اخي هل يمكنك تعديل  الكود الخاص بهذا الخطأ  ليصبح
 

Dim AcxLvw As  New MsAccessListviewACX1_00.UCBySedo
Call AcxLvw.FillListviewWithRecord(CurrentProject.FullName, Me.Text11)

وجرب وقولي

رابط هذا التعليق
شارك

1 دقيقه مضت, احمد الفلاحجي said:

اعطانى الخطا

er2.png.1b46cc5ec0df4887e78175ca2c70e229.pnger1.png.e64a459d38cebe4fc3d77c2c51383c2c.png

 

طب حط نفسك مكانى انت 🤣🤣🤣🤣  نحطله الاوبجكت يقولك لا كخ  وحش ههههههههه

نشيل الاوبجكت يقولك لا انا عاوز الاوبجكت

 

 

جرب هذه المكتبة مع المرفق  اعد التسجيل ثم جرب
 

MsAccessListviewACX1.01.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information