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

Elsayed Bn Gemy

الخبراء
  • Posts

    1,162
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    11

مشاركات المكتوبه بواسطه Elsayed Bn Gemy

  1. اخواني الافاضل السلام عليكم ورحمة الله وبركاته 

    اتمنى من الاخوة الصبر فان نشر برنامج ليكون م}هل للتعامل مع الجمهور ليس بالامر السهل 
    كنت قد بدأت تصميم نسخة غير الاكسس ولكن هذه النسخة كانت مبنية على نسخة الاكسس ليس فيها اى تعديل 
     

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

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

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

    ثانيا التلقيحات  تعديل التلقيحات بما يتناسب مع كل نوع لمنع اختلاط الانساب 

    ثالثا التطعيمات   اثراء هذا الجزء بحيث النظام سيخبرك بميعاد التطعيم القادم لكل حيوان والجرعة المناسبة له 

    رابعا شجرة الانساب  تعديل هذا الجزء لمنع اختلاط الانساب  حتى لا يضر السسلات 

    الشق المحاسبي بيع وشراء 

    الادوية   والاعلاف   وخلافة 

     

    ارجو الصبر وفور اطلاق النسخة ساضع نسخة تجريبية منها هنا ان شاء الله  

    21212.png.60e39b5934fdb81f46295b9ebef6f62c.png

  2. تحديث جديد

    تم اضافة دالة لتجميع الاعمدة واسمها SumListViewItem

    Public Function SumListViewItem(ByVal ColumnIndex As Integer) As Double

     حيث ColumnIndex   هى رقم العمود المراد جمعه علما بان ترقيم الاعمدة يبدأ من 0

    ادرجت التحديث فى قاعدة البيانات المرفقة

    62565.PNG.2f6e43287bc9c0a4333dde0909df6733.PNG

     

    الاداة مع المرفق
    MsAccessListviewACX1.00.rar

    • Like 2
    • Thanks 1
  3. 5 دقائق مضت, احمد الفلاحجي said:

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

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

     

    فقط قم بتعديل مسار الاداة القديمة فى ملف الغاء التسجيل  واضغط حفظ  ثم التشغيل كمسؤول

     

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

    اعطانى الخطا

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

     

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

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

     

     

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

    MsAccessListviewACX1.01.rar

  5. 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)

    وجرب وقولي

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

    نفس الخطأ اخى

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

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

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

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

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

     

     

     

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

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

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

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

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

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

    3333.PNG.8faae3eeb7089626dc788d604d88bcf6.PNG

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

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

    rfrfgbf.PNG.e7985ddaf963dfd8d5bfe76a1f9aa05e.PNG

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

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

    yujyju.PNG.62d8c1b66c1bb799a3fb5389ffdcc9b9.PNG

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

    AcxListview_V1.00.rar

    • Thanks 1
  9. 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

     

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

     

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

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

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

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

    السلام عليكم

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

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

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

     

     

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

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

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

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

     

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

    المكتبة بها اداة 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
  12. يجري الان تصميم النظام في بيئة غير الاكسس لما لها من مشاكل واجهت العملاء   النسخة الجديدة  تدعم قواعد بيانات SQL   وبيئة .NET
    وفور اصدارها سأضع رابط التحميل هنا ان شاء الله

    33333.png.fd4b6066c3110079d1e7ca22bc7e4f4c.png

    • Thanks 1
  13. 1 دقيقه مضت, SEMO.Pa3x said:

     

    قمت بكتابة Class Library بلغة VB.NET

     

    
    Public Class KillProcessLib
        Public Shared Function kProcess(ByVal prcName As String)
            Dim prc() As Process = System.Diagnostics.Process.GetProcessesByName(prcName)
            For Each xKill In prc
                xKill.Kill()
            Next
        End Function
    End Class

     

    الان كيف سأقوم بإستدعاءه في الاكسس؟ يظهرلي ملف امتداداه .InstallLog لما استدعيه من الريفرينس يرفض

    بعد تسجيلها بالبرنامج ستجدها في الريفرنس تلقائيا  فقط قم باختيارها واستدعائها 

    ولكن هل قمت باضافة مفتاح لها وتفعيل خيار com registered في البيسك نت 

  14. منذ ساعه, SEMO.Pa3x said:

    عليكم السلام، بارك الله بك..

    سؤال 1: هل تقصد المكتبات المبرمجة بلغة اخرى يقبلها الاكسس؟

    نعم class library و Com Control 

    منذ ساعه, SEMO.Pa3x said:

    سؤال 2: هل يقبل المكتبات المبرمجة بلغة VB.NET ؟

    نعم فالمكتبة المرفقة مصممة بلغة. Net 

    منذ ساعه, ابوخليل said:

    شكرا استاذ جمال هدية جمبلة

    انا استخدم  ملف bat للنسخ والتسجل في الوقت نفسه وارفق هذا الملف ضمن حزمة التنصيب

    بارك الله فيك بصراحة انا لم اقصد برنامج التسجيل في حد ذاته بل المكتبة المرفقة 

    فهذه اول مكتبة اصممها واردت من الاخوة تجربتها في الاكسس 🙏🥰🥰

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


    اليوم اقدم لكم مرفق ليس ميكروسوفت اكسس انما .exe   وذلك لتسجيل مكتبات DLL  


    Capture332222.PNG.942ae582815e5992f85456392b0fa49d.PNG

     

     

    هذا بالنسبة للمرفق
    ارفقت المكتبة الخاصة بالمرفق يمكنك اضافتها الى برنامج الاكسس الخاص بك لتسجيل المكتبات الخاصة بك
     

    المكتبة الذى ارفقتها بها ثلاث دوال

    GetPathBySedo  وهى الدالة الخاصة باختيار ملف المراد تسجيله
    InstallService   وهى الدالة الخاصة بتسجيل المكتبة
    UnInstallService وهى الدالة الخاصة بالغاء تسجيل المكتبة
     

    بعد اضافة المكتبة فى  قاعدة البيانات الخاصة بك
    Untitled333.png.6fc020c2be17a50f39dedf9c6c395c06.png

    فى محرر اكود الاكسس تستطيع استدعاء الدوال  عن طريق الاتى

    دالة تسجيل المكتبة + دالة جلب المسار
    يمكنك الاستغناء عن دالة استدعاء المسار اذا كان مسار المكتبة المراد تسجيلها محدد

    Dim dll As New Dll_Add_Remove.ClsTest
    dll.InstallService (dll.GetPathBySedo)

     

    دالة الغاء تسجيل المكتبة
     

    Dim dll As New Dll_Add_Remove.ClsTest
       dll.UnInstallService (dll.GetPathBySedo)

    برنامج تسجيل المكتبات.rar

     

    • Like 2
    • Thanks 1
  16. 1 ساعه مضت, أبو عبدالله الحلوانى said:

    الله عليك يابطل وينك من زمان وحشانا ها الطلة (وبالعربي حمدا لله علي سلامتك 🙂)

    ولكن هل لهذا الملف صلاحيات علي الجهاز الكلينت client 

    فهذا يمثل ثغرة أمنية خطيرة ان استطاع الجهاز الكلينت الوصول الي السرفر بهذه الطريقة 😰

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

    رجاءا لا تغب عنا كثيرا - أو اترك لنا عناوينك بالمنتديات الأخري كي نتتبعك 😁

    اخي الكريم ابو عبد الله حياك الله

    للاسف هذه هي طبيعة ملفات UDL ، لا يمكنهم تخزين كلمة المرور مشفرة  انا لجأت للملف دا من تبسيط الامر على المستخدم
    ولكن اذا كانت قاعدة بياناتك  Sql  فى مسار معين وتريد اضافتها للسيرفر دون اللجوء الى ملف ‘UDL فقط ستحتاج الى تغير الكود السابق

     استبدل هذا السطر

                "Initial Catalog=MyDbVb;" & _

    بالسطر التالي
     

                "AttachDbFilename=D:\MyDbVb.mdf;" & _

     وهو مسار قاعدة البيانات الخاصة بك
     

  17. في ١٢‏/١‏/٢٠٢١ at 22:21, عبد الله قدور said:

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

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

    حياكم الله جميعا

    اخي الكريم @Elsayed Bn Gemy

    فكرة رائعة جدا لكنا نحتاج الى عدة امور تدعم هذه الفكرة منها

    1- امكانية انشاء قاعدة بيانات جديدة sql والاتصال بها برمجيا (وذلك بسبب أن برامج المحاسبة تحتاج الى قاعدة بيانات جديدة لكل سنة)

      بالنظر الى سؤالك اخى الكريم ستجد نفسك مشتت فى اكثر من جهة  وستحتاج الى مجهود جبار انت تريد انشاء قاعدة  Sql برمجيا تحتاج الى كود لانشاء كل جدول بقاعدة البيانات واختيار انواع الحقول بدقة نظرا لحساسية sql لنوع الحقول  وياجبذا لو تمتكل 20 جدول مثلا ستجد نفسك تضيع وقتك وجهدك 

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

    الخيار الثانى اذا كنت مصمم على التغيير فيكفى ان تحتفظ بقاعدة بياناتك فارغة واستبدالها بالقاعدة القديمة مع مراعاة نفس الاسم ونفس اصدار  Sql

    وان واجهك مشاكل فى ادراجها على السيرفر فاليك الاتى
     قم بانشاء ملف .*txt  فارغ وقم بحفظه بامتداد (.udl)  سيظهر لك بهذه الصورة


    Capture336.PNG.c80786e1c63d4543106563407def46d8.PNG

     ثم قم بفتحه سيظهر لك هذه النافذه

    Capture33.PNG.3bbe20e592c2dc8101a84b3fae813040.PNG

    ثم اضغط next

    Capture88.PNG.2cf98c77976e2c2284b1826cb936281f.PNG

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


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

    احفظ بياناتك وكدا القاعدة بقت على السيرفر

     

    في ١٢‏/١‏/٢٠٢١ at 22:21, عبد الله قدور said:

    2- امكانية النسخ الاحتياطي للقاعدة واستعادة النسخة الاحتياطية برمجيا

    لما الحاجة الى ذلك برمجيا اذا كنت تستخدم   Sql mangment   فهو يوفر لك تلك الخاصية
    اطلع الى الرابط التالي
     ستجد ما تريد 

    https://blogs.sap.com/2019/11/15/scheduled-automatic-sql-database-backup-using-ssms/

    3- يوجد في قواعد بيانات sql ميزة انشاء function بحيث ترسل الامر الى القاعدة عن طريق الاتصال بالفنكشن الموجود بقاعدة بيانات sql ، يا ترى اكسس يستطيع الاتصال بها ؟؟؟

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

    4- اخيرا اخي العزيز من خلال بحثي على اليوتيوب عن هذا الموضوع وجدت فيديو لادخال البيانات وتعديلها من الاكسس الى sql بدون ربط الجداول حسب ما فهمت من الفيديو ، لكني للأسف لم استطع تطبيق ذلك


    نعم يمكنك الاتصال بقاعدة Sql  برمجيا دون الحاجة الى ربط الجداول
    فقط ستحتاج الي البيامنات التالية
    اسم السيرفر
    اسم قاعدة البيانات

     ويمكنك الاتصال عن طريق هذا الكود

    
     Dim conn As New ADODB.Connection
      
            conn.Open "Provider=SQLOLEDB;" & _
                "Data Source=.\SQLEXPRESS;" & _
                "Initial Catalog=MyDbVb;" & _
                "Integrated Security=SSPI;"
    
                conn.Execute "Insert into dbo.Customers (Customer, Adress) " & _
                             "values ('" & "Elsayed" & "', '" & "Egypt" & "')"
    
            MsgBox "Customers imported."
    
            conn.Close
            Set conn = Nothing

    طبعا "Data Source=.\SQLEXPRESS;"  هو اسم السيرفر

     "Initial Catalog=MyDbVb;" & _    هو اسم قاعدة البيانات

    ---------------
     ----- ملحوظة بسيطة  فاكر الملف التكست دا
    Capture336.PNG.c80786e1c63d4543106563407def46d8.PNG

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


    Captureddf.PNG.f9f3b1bd78eed331921787a2ae176ecc.PNG

    شكرا لكم

     

     

    • Like 1
×
×
  • اضف...

Important Information