Jump to content
أوفيسنا

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


Recommended Posts

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

 

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

المكتبة بها اداة 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
Link to post
Share on other sites
7 ساعات مضت, abouelhassan said:

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

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

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

السلام عليكم

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

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

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

 

 

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

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

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

Link to post
Share on other sites
10 دقائق مضت, أبو إبراهيم الغامدي said:

أهلا أ. جمال..

واجهتني مشاكل في التسجيل 

456682957_Annotation2021-02-10154000.png.078f8ac805aa25844b83834974b48358.png

اهلا استاذنا 

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

Link to post
Share on other sites
6 دقائق مضت, أبو إبراهيم الغامدي said:

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

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

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

Link to post
Share on other sites

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

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

تحياتي 🌹

 

Link to post
Share on other sites

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

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

فكرة أداة  هي 

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

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

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

 

 

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

 

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

  • Thanks 1
Link to post
Share on other sites
في ١٠‏/٢‏/٢٠٢١ at 01:17, Elsayed Bn Gemy said:

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

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

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

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

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

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

Link to post
Share on other sites
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

 

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

 

Link to post
Share on other sites

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

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

علاء محمد

Link to post
Share on other sites

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

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

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

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

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

3333.PNG.8faae3eeb7089626dc788d604d88bcf6.PNG

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

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

rfrfgbf.PNG.e7985ddaf963dfd8d5bfe76a1f9aa05e.PNG

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

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

yujyju.PNG.62d8c1b66c1bb799a3fb5389ffdcc9b9.PNG

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

AcxListview_V1.00.rar

  • Thanks 1
Link to post
Share on other sites
8 دقائق مضت, Elsayed Bn Gemy said:

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

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

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

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

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

 

 

Link to post
Share on other sites
2 دقائق مضت, احمد الفلاحجي said:

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

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

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

 

 

 

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

Link to post
Share on other sites
45 دقائق مضت, احمد الفلاحجي said:

نفس الخطأ اخى

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

Link to post
Share on other sites
4 ساعات مضت, Elsayed Bn Gemy said:

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

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

بالتوفيق اخى

Link to post
Share on other sites
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)

وجرب وقولي

Link to post
Share on other sites
1 دقيقه مضت, احمد الفلاحجي said:

اعطانى الخطا

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

 

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

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

 

 

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

MsAccessListviewACX1.01.rar

Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...

Important Information