• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

MR^King

اعضاء
  • عدد المشاركات

    372
  • تاريخ الانضمام

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

السمعه بالموقع

1 عادي

عن MR^King

  • الرتبة
    عضو فعال

طرق الإتصال

  • ICQ 0
  1. أخيرا انا MCAD

    السلام عليكم ورحمة الله وبركاته جزاك الله خيرا أخ محمد وألف مبروك وأنا أيضا قريبا أبدأ الصراع مع الـ MCAD ولكن بعد الانتهاء من الـ MCTS شكرا وياريت الأعضاء يستجيبو لكلامك وكل واحد يضع لنا تجربته مع اي امتحان حتى تعم الفائدة ----------------- وللإفادة ده رابط التست كينج اللي انت كنت واضعه والرابط سليم http://www.examcollection.com/microsoft/Mi...elemejetope.vce ======================= تمنياتي بالتوفيق للجميع
  2. السلام عليكم ورحمة الله وبركاته أخي الكريم ANASS OMAR ممكن حضرتك تضع رابط موضوعك وان شاء الله نحاول نجاوب على سؤالك بقدر الامكان ----------------------- أخي layan هذه الرسالة تظهر عندما تكون حضرتك اسخدمت المكتبة دون استدعائها فكل ما عليك هو ان تذهب الى الـ References وتستدعي مكتبة الداو Data Access Objects وسيعمل البرنامج ان شاء الله بالنسبة للبرنامج الذي تريد عمله فأعتقد يمكنك استخدام مشروع الاخ جينيس والتعديل عليه بما يناسبك
  3. السلام عليكم ورحمة الله وبركاته حياكم الله جميعا وبعد غياب لمدة طويلة أعود لأتعلم من اخواني الكرام شكرا اخي جينيس على الكود وهو فعلا مهم لكثير من الناس... بالنسبة لطلب الأخ layan اذا كانت قاعدة بياناتك على المسار التالي C:\layan.mdb فمن الممكن اصلاحها وضغطها ووضعها في نفس المسار دون اظهار صندوق الحوار والاختيار يدويا وذلك عن طريق الكود التالي: x = "C:\layan.mdb" Dim dbE As New DAO.DBEngine dbE.CompactDatabase x, App.Path & "\RepairedDB" Kill x Name App.Path & "\repairedDB.mdb" As x ولكن يجب ان تعلم انك لن تلاحظ اي شئ عند التجربة لان العملية ستتم بسرعة جدا وسيتم اصلاح قاعدة البيانات وإعادتها لنفس المسار فورا وبنفس الاسم واذا أردت ان تتأكد من ان العملية تمت بنجاح ضع الكود التالي في النهاية بعد حرف الاكس & ".new" شكرا لكم على مشاركاتكم الطيبة وبالتوفيق دائما ================= إلى اللقاء
  4. السلام عليكم ورحمة الله وبركاته يا شباب البرنامج لا كلام عليه من حيث كونه جيد ادخلو موقع البرنامج وشوفو اشكاله بنفسكم واعتقد انه لا يجوز الحكم على شئ قبل تجربته لكن انا من وجهة نظري ان مشكلته انه يسبب بطئ في تشغيل البرنامج فقط لاغير (بالطبع المشكلة غير موجودة اذا كان الجهاز سريع) من ناحية التطوير يا اخي ahmed.mb الشركة لم تتوقف عن تطويره وتوجد منه نسخة تعمل على برامج الـ .NET وعندي النسختين سواء للفيجوال بيزك 6 او الدوت نت ولكن لا اعتقد ان وضع الكراكات مسموح به في المنتدى راجع المشاركة رقم 9 في هذا الموضوع ولو محتاجه ان شاء الله ارفعه لك في اقرب وقت ممكن بالتوفيق جميعا ================ الى اللقاء
  5. السلام عليكم ورحمة الله وبركاته أولا استاذة رشا للاسف انا من الصعب جدا ان شرح جميع الأسطر لان كما نرى انها تحتوي على Functions كثيرة جدا وسطور كثيرة ايضا وياريت طبعا لو احد الاعضاء عنده الوقت الكافي يقوم بشرح الاكواد وله جزيل الشكر وايضا يمكنك فهمها من خلال تجاربك السابقة والقراءة أيضا عن التشفير وجوجل ملئ بمواقع تحتوي على معلومات حول هذا الموضوع ---------------- الأخ msayed2004 ما ذكرته لم ننساه لأنه غير معقول أصلا فاذا وجدت طريقة لعكس الشفرة وارجاعها للنص الطبيعي فهذا يعني ان التقنية نفسها فاشلة تماما ولا يمكن الاعتماد عليها اما عن استخدامها فانه يتم ببساطة عن طريق تشفير النص وحفظه وعندما تريد مقارنته مع النص الذي يدخله المستخدم فانك تقوم بتشفير النص المدخل ثم تقارن بين القيمة المخزنة مسبقا والقيمة المدخلة (بعد التشفير) فاذا كانتا متساويتين فهذا يعني ان كلمة المرور مثلا صحيحة وللعلم التشفير باستخدام MD5 هو التشفير المعتمد عليه في المنتديات وطبعا اشهرها منتديات VBulletin و IPB وذلك لأنه يصعب كسرها فهي تستخدم قوة تشفير 128 بايت وهذا يتطلب جهد ووقت كبيرين جدا وخصوصا باستخدام الـ Brute Force أرجو ان اكون اضفت شئ ولو بسيط =============== الى اللقاء
  6. السلام عليكم ورحمة الله وبركاته اخي قم بوضع الكود التالي في حدث الـ Form Load Data1.DatabaseName = App.Path & "\db2.mdb" Data1.RecordSource = "select * from DIF" Data1.Refresh Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF List1.AddItem (Data1.Recordset("athen1")) Data1.Recordset.MoveNext Loop ============ الى اللقاء
  7. السلام عليكم ورحمة الله وبركاته يا أخ ياسر شرحت لحضرتك الفكرة من قبل ولم تقم تنفيذها وهي في بسيطة جدا عموما حتى لا تواجه نفس المشكلة مرة اخرى قم بمراجعة الرد الذي وضعناه في الموضوع السابق وانظر للكود المعدل في المثال قمت بعمل التعديل ولكن على جدول واحد فقط بمعنى انه سيتم طرح القيمة من جدول واحد وعليك ان تقوم انت بكتابة الكود الخاص بالجدول الثاني واعتقد ان المسألة ستكون اسهل كثيرا ولاحظ ان : في الجداول التي سيتم طرح القيمة منها يجب الا يتكرر اسم الصنف أو قم بعمل كود خاص بكل نوع (الكود لا يتكرر) واستخدمه في البحث لكي يتم طرح القيمة وطبعا يجب ان تكون القيمة المحذوفة اقل من القيمة الموجودة في الجدول الثاني والثالث ------------ لو عندك اي أسئلة او هناك شئ غير واضح اكتبه وسنحاول الاجابة عليه ان شاء الله ومعذرة اني لم استطيع المتابعة معك في الموضوع السابق بسبب ضيق الوقت ومشكلة في المنتدى ان الردود الجديدة لا تصل دائما بالتوفيق :) ============== الى اللقاء ____.rar
  8. السلام عليكم ورحمة الله وبركاته مع احترامي لرأي صديقنا COMFORT الا ان الاداة رائعة من وجهة نظري وفيها العديد من المميزات (أعني الاصدارات الحديثة ) اما بالنسبة لمشكلة الخط : كل ما عليك هو ان تقوم بتحديد الاداة وتغير خاصية الفونت وتختار الخط " Arabic Transparent" بالتوفيق ========== الى اللقاء
  9. السلام عليكم ورحمة الله وبركاته هذه هي الاداة المطلوبة http://rapidshare.com/files/3182754/MBLink.rar ========== الى اللقاء
  10. سؤال مهم فى حذف سجل

    السلام عليكم ورحمة الله وبركاته اخي الكريم ياسر اعتذر عن عدم الاستمرار معك في الموضوع السابق وذلك بسبب ضيق الوقت لعمل ذلك يمكنك اتباع الاتي نقوم بتعرف متغيرين رقميين كالتالي Dim Tot, mu as integer ثم نقوم بتخزين قيمة الكمية المباعة كالتالي Tot = RS("totalField") mu = RS("kemeyaField") ويجب ان يكون لذيك شئ فريد تستخدمه بالبحث في الجدول الاول ونفترض انه مثلا اسم الصنف sname وبما انه لا يوجد لديك اي TextBox فبالتالي لابد ان تكون بالفعل واقف على السجل قبل عملية الحذف ولذلك قم بعمل التالي Dim MyName as string MyName = RS("sname") جملة البحث كالتالي : " Select * from FirstTable where sname = '" & MyName & "'" ثم تقوم بوضع كود كالتالي: RS("totalField") = val(RS("totalField")) - val(tot) RS("kemeyaField") = val(RS("kemeyaField"))- val(mu) RS.Update وبذلك سيتم خصم الكمية والاجمالي من الجدول الاول طبعا يمكنك التعديل على الكود بحسب التقنية التي تعمل بها (ADO , DAO ) وارجو ان اكون اوضحت لك الفكرة ولو عندك اي اسئلة اخرى يا ريت تطرحها حتى تعم الفائدة بالتوفيق ============= الى اللقاء
  11. السلام عليكم ورحمة الله وبركاته يا اخ emin3m lover ليه مصمم انك تعمل عداوة بينك وبين الناس هنا لاحظ ان الناس اللي حضرتك بتعتبرهم غير متقدمين وناس قديمة انت نفسك ممكن تحتاجهم في قسم الـ VB.NET واعتقد بعد كلامك ده لن يتقدم احد منهم بمساعدتك في اللغة التي انتقلت اليها وسبحان الله تعتبرها لغة قديمة وبالطبع بالنسبة لك سهلة وفي نفس الوقت تقول ان فترة تعلمها كانت أصعب شهر ونص في حياتك .. ومع احترامي لك فهذا يدل على فشلك في ان تحقق فيها شئ ما ولذلك فضلت الانتقال لغيرها مباشرة كل ما تقوله لا يعنينا بشئ ولكن على الاقل يجب ان يكون كلامك مهذب اكثر من ذلك واعتقد ان معظم المشاركين في هذا الموضوع انتقلو للدوت نت قبلك ولم يسئ للغة التي بدأ بها ولماذا انتقل لـ VB.NET ولا انتقل الى C#.NET وللعلم اني شخصيا دخلت في اللغتين معا لماذا لا أعتبرك انت متأخر لكونك تعلمت لغة واحدة وانا تعلمت لغتين على الاقل في الدوت نت ؟؟؟ اذا اللغة في حد ذاتها ليست مقياس ولكن المهم انك تكون تعرف ما تحتاجه في عملك أرجو ان تتقبل الكلام بصدر رحب وأنصحك بعدم تكرار ذلك الكلام حتى لا يتسبب في اغلاق حسابك في المنتدى بالتوفيق لك ولكل المشاركين في هذا القسم وغيره ========= الى اللقاء
  12. commondialog

    السلام عليكم ورحمة الله وبركاته اخي شمس الزناتي المسار الذي كتبته غير صحيح لايوجد مسارات في الويندوز تستخدم / ولذلك يجب عليك تعديلها الى \ في هذا الجزء "/mzkrat/" غيره الى "\mzkrat\" وان شاء الله يشتغل معاك تمام بالتوفيق ========== الى اللقاء
  13. السلام عليكم ورحمة الله وبركاته اولا اخي layan ياريت تطلع على هذا الموضع فستجد صديقنا هاني حل المشكلة والاكواد موجودة وهو في الرابط التالي http://www.arabteam2000-forum.com/index.ph...%E1%E3%E5%E4%C7 وقد قمت بشرح تلك الفكرة مسبقا ولكن للاسف ليست لدي الوصلة عموما الفكرة كلها تتلخص فيما يلي اولا يمكنك استخدام العلاقات عن طريق الأكسس وهي الطريق الأسهل والأسرع ولكن بالطبع هي الاكثر مشاكل وانا شخصيا لا استخدم علاقات الاكسس ابدا اما عن طريق الكود فقم باتباع الاتي اولا انشئ جدول يحتوي على جميع بيانات الموظف من حيث الاسم والكود والوظيفة...الخ (لا يحتوي على اسم الدورة او تاريخها..الخ) ثم جدول اخر يحتوي على اسم الدورة وبياناتها من حيث الوقت والمدة والمكان ...الخ وايضا يحتوي على ( كود الموظف ) بالنسبة لما ستفعله بالظبط سأشرحه وعليك تطبيق الكود عند اضافة دورة جديدة اتبع التالي: 1- افتح جدول بيانات الموظفين وقم باضافة البيانات فيه ثم اغلقه 2 - افتح جدول الدورات وقم باضافة بيانات الدورة و كود الموظف وبذلك ستكون هناك علاقة بين الجدولين عن طريق كود الموظف وفي حالة عرض بيانات موظف معين ستقوم بفتح الجدول الاول لتعرض بياناته ثم تقوم بفتح الجدول الثاني وتبحث عن الدورات من خلال كود الموظف ويمكنك تعبئة أسماء الدورات وجميع بياناتها في ListBox او ComboBox حسب ما تريد --------- في حالة الحذف ستقوم بالبحث عن بيانات الموظف عن طريق الكود وتحذف بياناته ثم تفتح جدول الدورات وتبحث عن الدورات من خلال الكود وتقوم بعمل Loop عليها وتحذفها جميعا وهكذا وبذلك تكون قد صنعت علاقة many to 1 باستخدام الكود وليس الأكسس أرجو ان اكون وفقت في توضيح الفكرة وللعلم لو استطعت تطبيق الفكرة وكتابة الاكواد بنفسك سيكون هذا الأمر أسهل ما يمكن بالنسبة لك في المرات القادمة بالتوفيق ================= الى اللقاء
  14. السلام عليكم ورحمة الله وبركاته شكرا اخي على الاداة والان اصبحت جيدة :) بالتوفيق
  15. السلام عليكم ورحمة الله وبركاته اخي الكريم بعد ان تضغط الزر Build وتختار الجدول ..الخ ستجد انه بجوار الزر Build قد ظهر البروفايدر وكل ما عليك هو ان تحذف منه مسار قاعدة البيانات فقط وتتركب اسمها وامتدادها وبذلك سيعمل بشكل سليم حتى لو تم نقل البرنامج من مكانه بالتوفيق ============ الى اللقاء