نجوم المشاركات

السلام عليكم تفضل المطلوب... وإذا كانت هناك تعديلات أخرى تريدها، إن شاء الله تجدني في الخدمة... بن علية حاجي شهادة مدرسية 2003-2004.rar

السلام عليكم أيضا في نهاية الكود يجب كتابة ،keycode = 0 وهذا من أجل عرقلة مهام زر F1 الذي يفتح نافذة المساعده في برنامج access

دلفي (بالإنجليزية: Delphi)، أو CodeGear Delphi سابقا أو Embarcadero Delphi حاليا هي لغة برمجة كانت من إنتاج شركة بورلاند سابقا و تطورها الآن شركة امباركاديرو تكنولوجيز. هذه اللغة مبنية على لغة باسكال الكائنية حيث تعتبر تطويراً للغة باسكال القديمة، تعتبر دلفي لغة شائعة ومنتشرة حالياُ، وهي دلفي لغة مرئية و من اللغات العالية الإنتاجية. وتعتبر في مصاف اللغات القوية والسهلة معا. تستخدم دلفي لتطوير البرامج والتطبيقات بشكل سريع ولذلك يشار إليها بأنها ذات صفة بيئة تطوير متكاملة R.A.D وهذه الصفة تعني تطوير البرامج بسرعة أي Rapid Application Development وذلك يتحقق باستخدام مكونات وأدوات جاهزة تنسق بالشكل المطلوب ويتم برمجتها بكتابة عدة برامج مرتبطة بأحداث معينة خاصة بهذه المكونات أو العناصر ويشار إلي هذا النوع من البرمجة بالبرمجة بالأحداث. البرمجة بالأحداث هي برمجة تتوقف على حدوث حدث ما لعنصر ما يوجد في التطبيق بمعنى عند حدوث حدث معين مثل النقر على زر أو إغلاق إطار ، يتم تطبيق برنامج معين سبق كتابته في التطبيق ويفهم من ذلك أن لكل كائن أو عنصر Object حدث أو أكثر يمكن ربط أي منها بإجراء معين. يطلق في علم البرمجة المرئية على العنصر اسم Object وهو نفسه الكائن أو المكون Component والعناصر هي عبارة عن أي شئ تم استخدامه في البرنامج مثل الإطار (Form) أو الزر (Button) أو مربع النص (Edit) أو القائمة (Menu) ... الخ. لكل عنصر Object أحداث معينة مرتبطة به أو بمعنى آخر أحداث تحدث له في وقت معين ، فمثلاً تستخدم الأزرار كي يتم النقر عليها غالباً وعملية النقر هذه يشار إليها في علم البرمجة المرئية على أنها حدث النقر ، فعند النقر على زر ما تقوم لغة البرمجة المرئية Delphi بتطبيق الإجراء المرتبط بهذه الحدث والذي سبق وأن تمت برمجته من قبل المبرمج. أيضاً الكتابة داخل مربع النص تعتبر حدث والدخول أو الخروج من مربع النص يعتبر حدث آخر وتمرير مؤشر الماوس على أحد العناصر يعتبر أيضا حدث يمكن ربطه بإجراء (برنامج) معين... وهكذا. تسمح لغة البرمجة Delphi للمبرمج بتصميم التطبيق المطلوب باستخدام عدة عناصر Objects توضع على إطار Form واحد أو أكثر حسب الشكل الذي يحتاجه التطبيق ومن ثم يتم كتابة البرامج أو الإجراءات Procedures لكل حدث event من الأحداث المراد برمجتها بمعنى أنه لو تم استخدام زر Button في التطبيق فإنه من الطبيعي أن يتم كتابة إجراء لحدث النقر على هذا الزر . وهكذا يتم كتابة كل الإجراءات اللازمة للتطبيق. نستنتج من ذلك أن عملية تطوير التطبيقات باستخدام لغة البرمجة المرئية Delphi تمر بمرحلتين : المرحلة الأولى : هي تصميم التطبيق وفي هذه المرحلة يتم وضع وتنسيق العناصر التي يتكون منها التطبيق ويتخلل هذه المرحلة تحديد خصائص Properties كل عنصر وخصائص العنصر هي عبارة عن مواصفاته مثل الأبعاد والموقع والاسم واللون وغير ذلك ويلاحظ هنا أن لكل عنصر خصائصه وإن اشتركت بعض العناصر في بعض الخصائص. المرحلة الثانية : هي مرحلة كتابة الإجراءات المرتبطة بالأحداث وهي مرحلة البرمجة حيث يتم كتابة برامج صغيرة كانت أو كبيرة على هيئة إجراءات Procedures خاصة بأحداث معينة للعناصر المستخدمة في التطبيق. يطلق على العناصر Objects المستخدمة في تطبيقات Delphi اسم مكونات Components وأحياناً تسمى المكونات الرسومية أي Visual Components ولغة Delphi غنية بهذه المكونات وتسمى مكتبة المكونات الرسومية VCL أو Visual Component Library بحيث يمكن لمطوري التطبيقات استخدامها لإنشاء وتصميم أي تطبيق. كما أن لغة Delphi تسمح بإنشاء مكونات رسومية خاصة بمطوري التطبيقات يمكن إضافتها إلى مكتبة المكونات الرسومية VCL الخاصة بلغة Delphi لكي يمكن استخدامها في أي وقت لاحقاً.

البحث العلمي يعد البحث العلمي من أهم الأساليب المتبعة لاكتشاف النتائج والتأكد منها، وبعرف بأنه اتباع نظام متسلسل من العمليات المنظمة للبحث في أمر معين أو مشكلة وفق دراسات سابقة، وخطط منهجية موضوعة للوصول إلى أفضل النتائج أو تعديل الموجود.مناهج البحث العلمي يتكون البحث العلمي من أربعة مناهج رئيسية وهي : المنهج الوصفي المنهج التاريخي المنهج التجريبيإوسنتكلم تباعاً عن كل منهج بالتفصيل

السلام عليكم ورحمة الله استاذي الجليل @ابوخليل قبل فترة قصيرة كنت قد تسائلت عن احتساب ساعات التأخير التراكمي وكانت اجابتكم جزاكم الله خيرا جدا وافية وتم العمل عليه حيث يحتسب المثال ساعات التأخير للاشهر دون قيد اوشرط كيف يمكنني ان اجعل المثال يحتسب ساعات التأخير هذه بين تاريخين يحددها المستخدم من خلال نافذة معينة كأن يكون من 2013/5/16 الى 2013/6/15 وهكذا يجري العمل على بقية الاشهر دون فقط اي ساعات تأخير للفترة التي بعدها وهي من 2013/6/16 الى 2013/7/15 . لكم خالص الامتنان والتقدير.

تم عمل المطلوب في الاستعلام علما ان الدرجات غير مكتملة حيث لا يوجد درجات في اعمدة النتائج التبديل بين حقلين4.rar

طريقة ممتازة مثل برنامج فيس بوك و برنامج اخرى

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If ((Shift And acCtrlMask) <> 0) And (KeyCode = vbKeyF1) Then KeyCode = 0 MsgBox "vrai" End If End Sub essaye ça

شكرا للاستاذ شيفان على ما يقدمه من جهد ووقت وفائدة وشكرا لاخونا السالم على حسن خلقه وعلى وصبره تم تنقيح الموضوع وحذف المشاركات الزائدة تفضل اخونا هذه محاولة جعلت عملياتك وحسب فهمي في وحدة نمطية عامة Public Function wrWagt(time1 As Date, time2 As Date, rateb As Double, fram1 As Byte) Dim wrHour1, wrHour2, wrHour3, wrHour4 As Integer Dim tawed1, tawed2, tawed3, tawed4 As Double If time2 <= "21:00" Then wrHour1 = DateDiff("h", time1, time2) tawed1 = 0.01 ElseIf time2 > "21:00" And time2 <= "23:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", time2) tawed1 = 0.02 ElseIf time2 > "23:00" And time2 <= "23:59" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", time2) tawed3 = 0.01 ElseIf time2 > "00:01" And time2 <= "12:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", "23:59") tawed3 = 0.01 wrHour4 = DateDiff("h", "00:01", time2) tawed3 = 0.01 End If If fram1 = 1 Then wrWagt = rateb * tawed1 * wrHour1 + rateb * tawed2 * wrHour2 + rateb * tawed3 * wrHour3 + rateb * tawed4 * wrHour4 Else wrWagt = rateb * 0.05 * wrHour1 + rateb * 0.05 * wrHour2 + rateb * 0.05 * wrHour3 + rateb * tawed4 * 0.05 End If End Function التعويض عن العمل الإضافي2.rar

لماذا بدل هذه الجملة ما كتبت الاجابة ؟ لا تفكر لاننا هنا يعني نحن بطالين كل واحد بيساعد حسب وقته اتفضل اخي اولا انا غيرت اسماء الحقول الجدول الارشيف الى حروف الانكليزية ثانية انا اضفت اليه حقل اخر بنوع نعم ولا اي اذا تم الحجز سيكون علامة صح امامه وتم استخدم هذه الجملة ليتم علامة صح امام الالدرفة المحجوزة Private Sub رقمه_AfterUpdate() Dim SqlOn As String SqlOn = "UPDATE ارشيف SET ارشيف.TimAlHiciz = On WHERE (((ارشيف.RqmDulab)=[Forms]![الملفات]![دولاب]) AND ((ارشيف.RqmDerfe)=[Forms]![الملفات]![درفة]) AND ((ارشيف.RqmMilaf)=[Forms]![الملفات]![رقمه]));" DoCmd.SetWarnings False DoCmd.RunSQL (SqlOn) DoCmd.SetWarnings False End Sub اليك المرفق بعد تعديل استفسار.rar

اتفضل هذا لتكرار 1 Private Sub أمر20_Click() On Error GoTo Err_أمر20_Click Dim Eded As Integer Dim I As Integer Eded = InputBox("اکتب عدد سجلات التکرار", "عدد الكرارات") DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 For I = 1 To Eded DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append Next Exit_أمر20_Click: Exit Sub Err_أمر20_Click: MsgBox Err.Description Resume Exit_أمر20_Click End Sub وهذا للتكرار 2 Private Sub أمر21_Click() DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append Me.ملاحظات = "": Me.[رقم الملف] = "": Me.[رقم التسجيل] = "": Me.المبلغ = "": Me.الاسم = "" Me.Refresh End Sub اليك المرفق test5005.rar

وجزاك الله كل خير وللمنفعة اكثر اليك طريقة اخر Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim intShiftDown As Integer, intAltDown As Integer Dim intCtrlDown As Integer ' Use bit masks to determine which key was pressed. intShiftDown = (Shift And acShiftMask) > 0 intAltDown = (Shift And acAltMask) > 0 intCtrlDown = (Shift And acCtrlMask) > 0 ' Display message telling user which key was pressed. If KeyCode = vbKeyF1 And intShiftDown Then MsgBox "تم الضغط على مفتاح شيفت و ايف وان": KeyCode = 0 If KeyCode = vbKeyF1 And intAltDown Then MsgBox "تم الضغط علي مفتاح الت و ايف وان": KeyCode = 0 If KeyCode = vbKeyF1 And intCtrlDown Then MsgBox "تم الضغط على مفتاح كنترول و ايف وان": KeyCode = 0 End Sub

اتفضل استخدم هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 And Shift = 2 Then MsgBox "ff" KeyCode = 0 End If End Sub هو للمفتاح كنترول مع ايف وان واذا تريد تستخدم مفتاح شيفت مع ئيف وان غير رقم 2 الى رقم واحد فقط تحياتي

دلفي مكتبة ممتازة للمكونات البصرية والبصرية، Visual Component Library ل(VCL)، والمفهوم مماثل MFC في Visual Studio. يسمح VCL بين أمور أخرى الرسم بسرعة تطبيقات رسومية، وإخفاء المكالمات إلى مجمعات Windows API. منذ دلفي 1، VCL تتحسن بواسطة بورلاند في كل نسخة جديدة من دلفي مع صنع التوافق الكامل (تقريبا) في واجهة المكتبة، والذي يسمح لترحيل المشاريع عن طريق الحد من إعادة كتابة التعليمات البرمجية. C+ + منشئ يستخدم نفس المكتبة المكونات ويملك "مترجم" باسكال إلى c + +، بينما يقل c + + التي تحتوي على ملحقات محددة إلى بورلاند مفهومة من شقيق "c + + دلفي". وهكذا، يمكن أن تعمل كافة التعليمات البرمجية دلفي مع منشئ + + C. الانخفاض في دلفي: دلفي 7 إلى دلفي XE للخروج NETا.Framework من Microsoft، استخدم العديد من مطوري دلفي بسبب قوة لغته والمستوى الممتاز من التجريد الذي عرضته مكتبة المكون الخاص به. مع وصول NET و c#، قامت Microsoft بخطوة عملاقة في إنتاج أداة دمج جميع المفاهيم التي كانت شعبية دلفي: اللغة التي تتكيف مع RAD، تصميم المكونات بالسحب-والإسقاط glisser-déposer، وإطار متماسك framework cohéren، إلخ. قد تخلى العديد من مطوري دلفي الذي لعب أكثر احقية (منذ بورلاند ثم تركيز نشاطها إلى أدوات إدارة دورة حياة التطبيق) ل مايكروسوفت فيجوال ستوديو و c # (أو VB.NET). وفي الواقع، منذ اقترا حمايكروسوفت مساواة أرخص من خلال لغات وتوحيدالمجموعات المكونة التي تستثمر أكثر من بورلاند، أي هناك حقاً سبب لاستخدام دلفي. وبدا العديد من خيارات التسويق (السيئة) ونقص الموارد التي تخصصها ل"مشروع دلفي" بورلاند انخفاضا من الاستخدام، التي تحتفظ مجتمع حقيقي للبرمجة للمستخدمين. على سبيل المثال، القرار متأخراً جداً بإنشاء المحول البرمجي الأصلي 64 بت و VCL دعم Unicode اعتبر الكثيرون أنه قرار سيء للغاية وكان هناك سبب آخر لبدء عملية الانتقال إلى لغات أخرى مثل c + + أو c#. بيع فرعIDE من بورلاند، قررت في فبراير 2006،انه من المفترض أن تكون وسيلة للحصول على إطار جديد وخاصة الدعم من شركة جديدة مخصصة بالكامل لتطوير البرمجة كما كانت أدوات دلفي أو منشئ C + + . الانخفاض الغير قاتل الذي مكن بإطلاق منتوج جديد مبتكر كما فعل دلفي قبل أكثر من عشر سنوات. وإلى جانب امباركاديرو تكنولوجيز تعلن عن نمو سنوي بنسبة 15% منذ حيازتها في 20088. ومع ذلك، يظل دلفي حل فعال لتطوير تطبيقات مختلفة. وبالإضافة إلى ذلك، Microsoft في كثير من الأحيان تغير التكنولوجيا في طريقها لطمأنة بعض الشركات أو المطورين الذين يعرفون أن دلفي تحافظ على استمراريته منذ عام 1991. وعلاوة على ذلك، يظل المجتمع دلفي نشطة جداً ومتماسكة كما هو موضح في النشاط الهام دائماً من مواقع الإنترنت المكرسة للغة. واجهة تطوير دلفي واجهة التطوير و بيئة التنمية تعتمد على واجهة المستخدم الرسومية المقترنة ببرمجية المصدر للمحرر . أنه يدين بنجاحه لسهولة استخدامه لوضع الرسومات و/أو ذات الصلة بتطبيقات قواعد البيانات. وكثيراً ما يقرن ال فيجوال بيسك من مايكروسوفت بسهولة الاستخدام والبرمجة . بل يمكن أن نقول أن من متعته هزاز الحركة ، أثرت في بي (توضيح)دلفي الذي يؤثر بدوره علىفي بي (توضيح)ا(أندرس هيلسبرغ خلال الفترة التي قضاها في Microsoftt). بيئة تطوير الأنظمة البرمجية تسهل عمل المبرمج. أنه يحافظ على المراسلات التلقائية بين عرض التصميم (النافذة أن يبني المبرمج إسقاط مكونات الرسم) ومحرر التعليمات البرمجية (عرض عرض التعليمات البرمجية المصدر التي سيتم إنشاء هذه المكونات لتشغيل). يتم تخزين البيانات الخاصة بالعنصر في ملفات امتداد.DFM ثم أن مصدر التعليمات البرمجية ل"باسكال " يتم حفظها في ملفات ملحق.PAS. في حين يتم توليد التعليمات اللازمة لإنشاء مكونات واجهة لغات أخرى (مثل #c مع Winforms) وذلك بحقن مقطع من التعليمات البرمجية المصدر للبرنامج، دلفي يفصل البيانات الثابتة من وصف الواجهة، على طريقة XAML، ويستند إلىVCL لاجراءات القراءة وعرض الواجهة في وقت التشغيل. واجهة التنمية يسمح بإضافة مكونات طرف ثالث (رسومية أو لا) عن طريق نظام المكونات. والنمطية تتحقق في التصميم ولكن أيضا يمكن أن تعمل في وقت التشغيل عن طريق نظام التحميل الديناميكي لحزم التنفيذ، بورلاند وسعت مفهوم المكتبات المشتركة وتنسيق Windows DLL بإدخال مالكا لنموذج التسجيل بشكل حيوي وتصدير الطبقات بين الوحدات النمطية. سوف تولي نفس نظام مايكروسوفت ضمن فيجوال بيسك مع تنسيق VBX، ومن ثم عبر النظام مع مكونات COM و آكتيف إكس. مكونات دلفي الإطار العلوي يمكن اعتباره الإطار الرئيسي يحتوي على أشرطة الأدوات ولوحة المكونات توصلك أشرطة أدوات دلفي إلى وظائف كالفتح والتخزين والبناء وتحتوي لوحة المكونات على كثير من مكونات دلفي التي يمكن وضعها في برامجك (لافتة نصية ، علب تحرير ، مربعات سرد وأزرار وما شابه ذلك ). لتكون أكثر ملائمة فإن المكونات مقسمة إلى مجموعات ، حتى تضع مكون على برنامجك انقر على المكون ومن ثم انقر على المكان حيث تريد وضع المكون على النموذج. مفتش الكائنات[ والذي يتم بواسطتهل] تعديل الخصائص والأحداث للمكون وسوف تستخدمه بشكل دائم خلال عملك مع دلفي وهناك بابين لمفتش الكائنات هما الخصائص Properties والأحداث Events. مصطلح الخاصة Property يحتوي على خصائص لها قيم تحدد عمل المكون يتضمن باب الأحداث Events قائمة أحداث المكون . تتشكل الأحداث نتيجة لتفاعل المستخدم مع المكون مثلا عند نقر المكون يتولد حدث يخبرك بأن المكون قد نقر بإمكانك كتابة أوامر تستجيب لهذه الأحداث. مصطلح الحدث Event هو شيء ما يحصل كنتيجة لتفاعل المكون مع المستخدم أو مع ويندوز. مصطلح معامل الحدث Event Handler هو مقطع من البرمجة ينفذ استجابة للحدث. منطقة عمل دلفي[] الجزء الثالث هو منطقة عمل دلفي وعادة ما يظهر مشروعاً جديداً . في المقدمة مصمم النموذج وخلفه محرر الشيفرة الذي تدخل عبره البرمجة عند كتابة برامجك. وكلا من مفتش الكائنات ومصمم النموذج ومحرر الشيفرة تتفاعل فيما بينها عند بناء التطبيقات لتولد البرنامج . مثال تم إنشاؤه يظهر رمز التالي التي على أن دلفي يولد عند إنشاء تطبيق فارغ. وتمثل النافذة على الشاشة من قبل فئة (TForm1)، والتي سيتم إنشائها في وقت التشغيل والذي تم تعيينه إلى المتغير Form1. وتعرف أيضا مكونات أخرى مثل الطبقات التي يتم تخزينها في ملفات الكتابة أثناء استخدام وحدة رمز المصدر: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs; type TForm1 = class(TForm) private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} end. مثال لبرنامج يظهر رسالة أهلا بالعالم: 1 program Project1; 2 3 uses Windows; 4 5 begin 6 MessageBox(0, 'Hellow world', 'Message', $40); 7 end. مثال لدالة برمجية احترافية من برمجة المبرمج (Al simo siimox) تقوم بتحويل الأعداد من النظام العشري إلى الثنائي: 1 function DecToBin(I: Int64): String; 2 var R: Real; 3 begin 4 Result := ''; 5 if I <= 0 then Exit; 6 R := 1; 7 while R > 0 do begin 8 R := I / 2; 9 if Trunc(R) < R then Result := '1' + Result else Result := '0' + Result; 10 I := Trunc(R); 11 end; 12 end; ومع ذلك، هذا هو كل ما يخلق دلفي (ما عدا العناصر البرمجية وضعت عن طريق EDI). إذا حذر مبرمج من إنشاء فئات بفعالية لأفضل تصميم وهيكل البيانات الخاصة بهم، بورلاند يوفر الأدوات الأخرى على أساس UML ModelMaker من ModelMakerTools أنه يسمح لتوليد كل رمز واجهة لفئة معينة كما يسمح بتطبيق قالب التصميم (علم الحاسب) بسهولة أ ،المنتوج بورلاند الناتج عن اقتناء TogetherSoft. مستقبل دلفي دلفي XE 3: ينبغي أن يؤدي هذا المشروع إلى إنشاء منصة ترجمة باسكال للويندوز، ماك، لينكس، وiOS وأندرويد. وكل هذه المنصات لمقررة لعام 2013. أمثلة من المشاريع المعروفة في دلفيي دلفي نفسها وغيرها من الأدوات مثل بورلاند سي بلس بلس بيلدر أف إل ستوديو: المنظم / محرر الصوت توتال كومندر: مدير الملفات متقدمة ديف سي++: بيئة تطوير متكاملة لنظام التشغيل Windows Ad-Aware: وهو البرنامج الذي يزيل برامج التجسس Soldat: لعبة فيديو مجانا عمل تحت ويندوز Sensomusic Usine: والبرمجيات في الوقت الحقيقي للمشهد الموسيقى DreamMail: عميل البريد الإلكتروني BudgetExpress: وهو برنامج التمويل الشخصي Beyond Compare: وهي أداة لمقارنة ملفات Cartopro: وهو برنامج لنقل البيانات إلى نظام تحديد المواقع مقرها خريطة رقمية PL / SQL: المطور، أداة تطوير PL /SQL علجوم: أداة إدارة وتنمية قاعدة البيانات من خلال Quest Software Game Maker: لخلق برمجيات ألعاب الفيديو كاسبرسكي أنتي فيرس: مضاد للفيروسات. واجهة ويندوزسكايب البرمجيات الهاتفية عبر IP SIPInside: الهاتف الرقمي تحتGPL Omnichat: برنامج المراسلة الفورية بدون ملقم للشبكة المحلية Logicom: البرمجيات لإدارة التجارية والصناعية APEL: مطور برامج وإدارة المباني Solsuite: برامج الكمبيوتر التجارية سوليتير لعبة لنظام التشغيل ويندوز المرجع و كيبيديا https://ar.wikipedia.org/wiki/دلفي_(لغة_برمجة)

1995دلفي 1 حيث تم إنشاء هذه اللغة من قبل بورلاند وقد سميت دلفي رجوعاً إلى كلمة إغريقية قديمة تعني عرافة، أو مدينة يونانية قديمة دلفي .وقد تم تصميم هذا الإصدار الأول لإصدارات 16 بت من ويندوز (ويندوز 3، 3.1، الخ.). بعد إطلاق النسخة الثانية، كان الهدف هو ويندوز 32 بت (ويندوز 95، NT، الخ.). البرنامج لم يغير جذريا بين كل إصدار، والفرق تركز أكثر حول إضافة مكونات المستخدمة في البرامج وإدماج التكنولوجيات الجديدة. و في أواخر 1990، قامت مايكروسوفت بغلق جزء كبير من الفرقة الأولية التي صممت دلفي، بما في ذلك Hejlsberg Anders(مبتكر توربو باسكال، وباسكال). Anders Hejlsberg عمل اولا على مكتبة فئة Visual J + + لغة، ثم على المشروع(NET.)وهو أيضا مخترع C #. وبعد رحيل العديد من ألاعضاء الذي تزامن مع انخفاض عام في جودة المنتج باعتباره استثمارا التسويق من قبل بورلاند،فضلا عن الافتقار إلى الاستثمار في التسويق من جانب بورلاند. ومع ذلك، في أوائل عام 2000، ضلت بورلاند هي واحدة من القليلين الناشرين (على الورق) لتطوير نفس مجموعة أدوات التطبيقات الأصلية, التطبيقاتNET. فضلا عن التطبيقات التي تعمل على لينكس مع Kylix . 2001:الطبعة الأولى من Kylix، دلفي لبيئة لينكس. 2002: Kylix 3. النجاح لم يكن منتظرا دلفي لينكس، فكان هذا الإصدار الأخير. 2006 (/فبراير): بورلاند أعلنت عن نيتها في فصل تنميته التبادل الإلكتروني للبيانات لتكريسها نفسها لإدارة التطبيقات. 2008: المحول البرمجي دلفي تخلى عن NET. لصالح " Delphi Prism"، حل اقترحه محرر ثالث، ريموبجيكتس. 2009 : دلفي 2010 يدعف و يقوي الـ UNICODE 2010 أوت : دلفي XE تجميع منصة عرض يتم إعادة دفعها للسنة التالية، التطورات كانت أقل مما كان متوقعا. 2011 : دلفي 2 XE تجميع منصة عرض لنظام التشغيل Mac OS X، ودائرة الرقابة الداخلية و Windows x 64. يتم إضافة مكتبة واجهة المستخدم الرسومية، فيريمونكي، بالإضافة إلى VCL الذي كان أيضا موجها إلى Windows. ويعتبر هذا الإصدار العديد من المراقبين كأول إصدار رئيسي لأكثر من عقد من الزمان. 2012: دلفي EX3 يضيف منصة Windows 8,2, Firemonkey 2 وإعداد جديد iso و Android . 2013 : دلفي XE4 إضافة خاصيات لدعم البرمجة في النظام IOS لأيفون 2013 : دلفي XE5 دلفي يتمم تطوير الخاصيات لدعم برمجة الأندروييد 2014 : دلفي XE6 2014 : دلفي XE7 2015 : دلفي XE8 2015 : دلفي 10 سياتل

تفضل Public adat1_, bdat2, cdat3 As Integer Public Function kmDate(d1 As Date, d2 As Date) adat1 = DateDiff("yyyy", d1, d2) If adat1 >= 4 Then bdat2 = 4 cdat3 = adat1 - bdat2 Else MsgBox "لا يوجد مدة كافية او البيانات غير صحيحة" End If End Function db1.rar

اخوي انا صححت كودك الموجود في التقرير لاحظ الخانات الموجودة في رأس الصفحة يتم تعبأتها بناء على الصف قم بالتبديل بين الصفحات لترى النتيجة ايضا في المرفق ادناه عدلت على العنوان في رأس التقرير بحيث يتناسق مع كل صفحة حسب الصف اذا المطلوب غير هذا عليك زيادة الايضاح التبديل بين حقلين3.rar

تفضل تم التعديل التبديل بين حقلين2.rar

السلام عليكم حبيبنا الاستاذ السيد جمال هذه البرامج من زمان ونحن نراها . ويمكنك الشراء منهم وتفيدنا بالحقيقة بما لا يدع مجالا للشك بالنسبة لي لن اغامر لاسباب منها : 1- ان هذا موقع رسمي ولن يعلن صريحا عن اعتداء واختراق لحقوق الغير وهو يعلم انه سيلاحق قانونا 2- من ملاحظتي عند التجربة انه يعرض المتغيرات العامة والأحداث وهذه اتوقع يمكن اصطيادها بمجرد فتح الملف حيث يوجد متغيرات عامة وأحداث عند فتح قاعدة البيانات ومتغيرات واحداث عند فتح الكائنات ومما يؤكد ذلك تغيير نوع غالب المتغيرات الموجودة في مثالي الى Variant رغم انها نصية ايضا ينقل بعضها الى داخل الاجراء وهي غير موجودة في الاصل يعني انه لا يفتح محرر الفيجول الحقيقي بل يرسم صورة مقاربة له

غير خاصية النموذج Key Preview الى True او عند فتح النموذج استخدم هذا الكود Me.KeyPreview = True وبعدين فقط عليك هذا الكود و عند الضغط بمفتاح كنترول و ايف 1 او شيفت و ايف 1 راح يظهر لك مسج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then MsgBox "dd" End If End Sub

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

سؤالك ليس واضحة بما يكفي الرد عليه

gooooood

وعليكم السلام ورحمة الله وبركاته تم عمل المطلوب في الملف المرفق... بن علية حاجي med.rar

الدرس الحادي عشر: جمل SQL هذا الدرس مخصص لشرح جمل SQL: Create: نستخدم هذه الجملة لإنشاء جدول جديد و طريقة كتابة الجملة كالتلي: Create Table table_name (field1 type_field, field2 type_field); table_name : اسم الجدول المراد إنشاؤه field1, field2 ....: أسماء الحقول type_field : نوع الحقل مثال : الكود التالي يقوم بإنشاء جدول اسمه salah و به حقلين id و nname Dim req As String req = "create table salah (id integer, nname string(12));" DoCmd.RunSQL req نستخدم الكود Docmd.RunSQL من أجل تنفيذ جمل SQL Drop: نستخدم هذه الجملة لحذف جدول معين و طريقة كتابة الجملة كالتلي: Drop Table table_name; table_name : اسم الجدول مثال : الكود التالي يقوم بحذف جدول اسمه salah Dim req As String req = "Drop Table salah;" DoCmd.RunSQL req Alter: نستخدم هذه الجملة للتعديل على تصميم جدول معين بإضافة حقول جديدة أو حذف حقول موجودة و طريقة كتابة الجملة كالتلي: Alter Table table_name Add Column new_field type_field; table_name : اسم الجدول new_field: اسم الحقل الجديد type_field: نوع الحقل الجديد مثال1 : الكود التالي يقوم بإضافة حقل جديد اسمه adress في جدول salah Dim req As String req = "Alter Table salah Add Column adress string;" DoCmd.RunSQL req مثال2 : الكود التالي يقوم بحذف حقل اسمه adress في جدول salah Dim req As String req = "Alter Table salah Column Drop adress;" DoCmd.RunSQL req Select: نستخدم هذه الجملة لاستخراج مجموعة سجلات من جدول معين (استعلام) و طريقة كتابة الجملة كالتلي: Select * table_name Where condition; table_name : اسم الجدول *: تعني اظهار جميع الحقول و يمكن كتابة بعض الحقول في مكانها condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بإستخراج السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "select * from salah where id=3;" Me.RecordSource = req السطر الأخير معناه نجعل مصدر السجلات لنموذج الحالي هو الاستعلام req Delete: نستخدم هذه الجملة لحذف مجموعة سجلات من جدول معين و طريقة كتابة الجملة كالتلي: Delete table_name Where condition; table_name : اسم الجدول condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بحذف السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "Delete From salah where id=3;" DoCmd.RunSQL req Insert: نستخدم هذه الجملة لإضافة سجل جديد إلى جدول معين و طريقة كتابة الجملة كالتلي: INSERT INTO table_name ("column1", "column2", ...) VALUES ("value1", "value2", ...) مثال : الكود التالي يقوم بإضافة سجل جديد لجدول salah Dim req As String req = "insert into salah1 (id, nname) values (11,'أوفيسنا');" DoCmd.RunSQL req Update: نستخدم هذه الجملة لتغيير قيمة سجل في حقل معين لجدول ما و طريقة كتابة الجملة كالتلي: Update table_name Set field='value' Where condition; مثال : الكود التالي يقوم بتعديل قيمة الحقل nname إلى 'محسن' في السجل الذي رقمه (id) 3 بالجدول salah Dim req As String req = "update salah set nname='محسن' where id=3;" DoCmd.RunSQL req

انا لا استخدم کاسبرسکای الیک ھذا الموضوع لعل يفيدك

ادخل الى محرر الاكواد وتابع الشرح المصور الاتى واوعى تنسى كلمة السر

الدرس التاسع: دوال الرياضيات السلام عليكم. نعود بعد مدة من الإنقطاع لنكمل ما بدأناه من هذه الدروس. هذا الدرس مخصص لشرح دوال الرياضيات: Abs: تستخدم هذه الدالة من أجل استخراج القيمة المطلقة لعدد. Abs(«رقم») Abs(-10)=10 Abs(10)=10 Cos: تستخدم هذه الدالة لاستخراج جيب تمام الزاوية. Cos(«الزاوية») pi = 3.14159265358979 Cos(pi/3)=0.5 ملاحظة: قيس الزاوية يكون بالراديان 3.14159265358979 rad = 180° Sin: تستخدم هذه الدالة لاستخراج جيب الزاوية. Sin(«الزاوية») pi = 3.14159265358979 Sin(pi/6)=0.5 Tan: تستخدم هذه الدالة لاستخراج ظل الزاوية. Tan(«الزاوية») pi = 3.14159265358979 Tan(pi/4)=1 Exp: تستخدم هذه الدالة لارجاع عدد مزدوج يحدد قيمة أساس اللوغاريتم الطبيعي مرفوع لقيمة معينة. Exp(«رقم») Exp(10)=22026.4657948067 Int: تستخدم هذه الدالة لاستخراج الجزء الصحيح من عدد. Int(«رقم») Int(4.51) =4 Sqr: تستخدم هذه الدالة لحساب الجذر التربيعي لعدد. Sqr(«رقم») Sqr(16)=4 Log: تستخدم هذه الدالة لحساب اللوغاريتم الطبيعي لعدد. Log(«رقم») Log(10)=2.30258509299405 Rnd: تستخدم هذه الدالة لتوليد رقم عشوائي من نوع مفرد. Rnd(«رقم») Rnd(2)=0.7671117 Rnd(2)=0.05350453 Round: تستخدم هذه الدالة لتقريب عدد عشري إلى عدد محدد من الفواصل العشرية. Round(«الدقة», «الرقم») Round(12.364,1)=12.4 Round(12.364,2)=12.36 Sgn: تستخدم هذه الدالة لإرجاع عدد صحيح يشير إلى رقم العدد. بحيث: يعيد 1 إذا كان العدد أكبر من الصفر (0) يعيد 0 إذا كان العدد يساوي الصفر (0) يعيد -1 إذا كان العدد أصغر من الصفر (0) Sgn(«رقم») Sgn(12)=1 Sgn(0)=0 Sgn(-3)=-1 Fix: تستخدم هذه الدالة لإرجاع الجزء الصحيح لعدد. Fix(«رقم») Fix(12.56)=12