rober

أرجو أن يكون هذ ما تريد procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = 37) or (key = 38) or (key = 39) or (key = 40) then showmessage('th key is closed'); end;

أنت طرحت البرنامج لكن لم تطرح ما المطلوب بالضبط من البرنامج أستوحيت من كلامك أنك تريد تسجيل كل صيانة تجرى لسيارة من سيارات مؤسسة ما و إسم السائق الذي كان عند إجراء الصيانة لها إن كان كذلك فيكفيك و جود ثلاث جداول (السائق(يحتوي معلومات عنه),السيارة(يحتوي معلومات…

الحل مجرب على الإصدار 5.0 أرجو أن يكون ما تريد

ما فهمته أنك تريدين أسماء الطالبات المسجلات في سنة معينة دون تكرار أسماء المسجلات أكثر من مرة في نفس السنة ممكن أعطاء رقم دراسي خاص لكل طالبة (studyid) ؟؟؟ و لنفرض وجود طالبة (fatima) سجلت مرتين في نفس السنة (2003) بنفس رقمها الدراسي و وجود خطأ في كتابة الإسم …

السلام عليكم أرجوكم أعذروني إن كان هناك خطأ في الكود لأن درايتي بالفيجول سطحية جدا :blush: و أرجو من أحد الأخوة مراجعة الكود و أخبارنا بالأخطاء الموجودة dim i,j,sum as integer Private Sub Form_Activate() MSFlexGrid1.TextMatrix(0,0) = "accno" MSFlexGrid1.TextMa…

أخي الكريم المثال المرفق معمول بدلفي أرجو أن يفيدك قم بتشغبل الملف التنفيذي و لاحظ ما يحصل و تأكد من النتيجة بعد النقر على الزر إن نفع الحل أحاول أقلبه للـ VB الكود المستخدم في دلفي // حدث البداية procedure TForm1.FormShow(Sender: TObject); // تعريف متحول من ن…

أخي الكريم من سوء حظي لا أعرف بـ sql server لكن بحث على Google و microsoft MSDN و كانت النتيجة http://msdn.microsoft.com/en-us/library/bb630352.aspx http://msdn.microsoft.com/en-us/library/8kb3ddd4.aspx http://weblogs.sqlteam.com/jeffs/archive/2...data-types.a…

قد يفيدك الرابط /index.ph...onvert&st=0

أنا مجرب مع Delphi5 أكيد يعمل مع باقي الإصدارات بالنسبة للـ MDI هي عمل نافذة رئيسية للمشروع و باقي النوافذ تكون نوافذ فرعية كأقرب مثال (Access) و المثال المرفق يبين الطريقتين مع ملاحظة الخاصية formstyle و الحدث onclose للإطارات و أنه يتم إنشاء الإطار الفرعي عن…

السلام عليكم عند الرغبة بعرض إطار (form2) ضمن إطار أخر (form1) بدون إستخدام الـ MDI بإستختام الكود procedure TForm1.Button1Click(Sender: TObject); begin if form2 = nil then form2 := tform2.CreateParented(form1.handle); form2.show; end; تكون الخاصية Active لـ f…

السلام عليكم أظن أن كل مبرمج لديه unit خاص فيه يضع فيه ما يسرع عمله كما ذكرت و لا يضر أن يمتلك هكذا مكتبة سؤال : هل ستقوم بالعمل لوحدك أم الموضوع مفتوح ؟؟؟؟؟ :huh:

UP

السلام عليكم أخواني الكرام بالنسبة للتابع listdllexports الذي يقو بإستخراج مخرجات ملف الـ dll التابع يقوم بإستخراج التوابع لكن ينقص معرفة متحولاته و نوع القيمة التي يعيدها المرفق يقوم بإستخراج التوابع فقط dll.rar

ألف مبروك أخ Swift خير من أختاره الأخوة ليكون مشرفا للقسم و البركة بالجميع مع أطيب التنمنيات بالتوفيق و الله يعنيك علينا يا معلم

السلام عليكم أخي الكريم أرجو أن أوفق بتوضيح الفكرة لنفترض أن البرنامج مؤلف من صفحة رئيسية تحتوي على زر يقوم بفتح نافذة أخرى أسمى (بيع) عند بدء البرنامج يقوم بفتح الـ ADOConnection و عند النقر على زر نافذة (البيع) يقوم بفتح الجدول الذي يحتوي على بيانات البيع و …

مشكور أخ وائل على التوضيح و جزاك الله كل الخير

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

مشكورين يا أخوان وجدت طريقة ربما قد تكون تعمل 100% و قد تكون مفيدة if not assigned(form2) then form2 := tform2.CreateParented(form1.handle); form2.show; أخي Delphawi هذه الطريقة ممكن أن تنفع في حال كان المشروع على يحتوي على عدد كبير من الـ forms لأنه لو كان ال…

السلام عليكم بدون مقدمات لنفرض أن لدينا form رئيسي (fsMDIForm) و يحتوي على زر يقوم بفتح form فرعي (fsMDIChild) أنا أستخدم الطريقة التالية بحيث أقوم بإنشاء الفورم الفرعي عند الضغط على الزر form2 := tform2.CreateParented(form1.handel); form2.show; لكن هناك مشكلة…