ابواحمد

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

تكفون ياشباب الفزعة قبل يوم السبت :'(

الاخوة الكرام السلام عليكم ورحمة الله لدي قاعدة اكسس وبها ثلاث حقول من نوع مفكرة ، واجهتني مشكلة في الطباعة . كيف يمكن طباعة حقل المفكرة بحيث يزيد او ينقص حجمه على حسب الكلمات الموجوده في الحقل. علما اني استخدم QuickRep ودلفي 6 شكرا لمساعدتكم سلفا.

اخي الكريم ابو هاني ودي مساعدتك لكن ليس لدي معرفه بذلك لكن هناك موقع متخصص في ذلك يمكن الاستعانه به: http://www.tadawul.com.sa/

جزاك الله خير اخي ابو هاني على هذا الشرح الممتع

اريد ان استخدم خاصية البحث المتنوعة في ADOTable فكيف استخدم ذلك. حيث جربت FindKey و FindNearest ولم استطع استخدامها. شكرا لتجاوبكم معنا

الاخوة الكرام اذا كان هناك طريقة لفك قاعدة dbase المحمية بكلمة سر فلا تبخلو بها علينا. تحياتي

للاستفادة من هذه الوحد عليك بالاتي: اولا عليك بفك ضغط الملف في مجلد الدلفي تحت مجلد Bin ثم عندما تريدن استخدام صناديق الحوار العربية في برنامج اتبعي الخطوات التالية: 1- عرفي الوحدة التالية(ADialogs) في USES الفورم 2- عند كتابة رسالة مثلا نكتب: ArabShowMessage(…

هذا الكود يساعدك في تحديد العمود الذي تريد ان تنفذ فيه العملية: If DBGrid1.SelectedIndex = 0 then تحياتي

شكراً لردك اصبح الكود مكتملا بهذه الطريقة: var dao: OLEVariant; begin dao := CreateOleObject('DAO.DBEngine.35'); dao.CompactDatabase('C:asmm.mdb', 'C:asbaseName.mdb'); DeleteFile('C:asmm.mdb'); RenameFile ('C:asbaseName.mdb','C:asmm.mdb'); end; حيث يثوم باصلاح…

هذا الكود يقوم بعملية ضغط قاعدة الاكسس var dao: OLEVariant; begin dao := CreateOleObject('DAO.DBEngine.35'); dao.CompactDatabase('C:asmm.mdb', 'C:asbaseName.mdb'); end; الغريب ان "/" التي بين "c" و اسم المجلد لم تظهر فارجو الانتباه لها طبعا تحتاج الى تعريف com…

هذه المكون يساعد في فك الملفات ذات الامتداد Arj ولكني لم اعرف كيف استخدمها. فمن يتكرم بالشرح لنا عن طريقة الاستخدام asunarj.zip

جزاك الله خير وجعلها في موازين حسناتك

شكرا اخي A`WaR على تجاوبك طبعا البرنامج الذي ارغب في نسخ البيانات منه لم اقم بعمله . وهو يعني ينطبق عليه اجابتك في الفقرة الثانية وهي استخدام FindWindow هل بالامكان التوضيح اكثر وجزاك الله خيرا

:(

:'((clock)

طيب في امكانية من خلال قاعدة البيانات فهية اسهل بكثير

الاخوة الكرام السلام عليكم ورحمة الله وكل عام وانتم بخير لدي برنامج يقوم بنسخ قاعدة بيانات اكسس من برنامج آخر فهل هناك طريقة لمعرفة ان البرنامج شغال قبل اتمام عملية النسخ.

تفضل اخي الكريم: الكود التالي لمعرفة مجلد الوندوز: var WinDir: PChar; begin WinDir:= StrAlloc(100); GetWindowsDirectory(WinDir, 100); Label1.Caption:= WinDir; StrDispose(WinDir); End; الكود التالي لتحديد موقع برنامجك: Var Dir : String; begin Dir := GetCurrentD…

الاخوة الكرام استخدمت هذا الكود في تلوين حقل في DbGrid procedure TFqard.DBGrid3DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); const clPaleGreen = TColor($CCFFCC); clPaleRed = TColor($CCCCFF); begin DBGrid3.Canvas.Font.C…