برنامج مكتبة المسجد (تسيير : كتب، أشرطة، أقراص مضغوطة،منخرطين،طباعة،استيراد إكسل)

kadrisoft2006 كتب:

تكملة

السلام عليكم أخي kadrisoft2006

برنامج رائع ولكن لو حبذا أن وضعت السورس لنتعلم منه

برنامج رائع جدا جدا , أنيق و شامل في عمله

بوركت أخي الكريم .

okail كتب:

السلام عليكم أخي kadrisoft2006

برنامج رائع ولكن لو حبذا أن وضعت السورس لنتعلم منه

boudras كتب:

برنامج رائع جدا جدا , أنيق و شامل في عمله

بوركت أخي الكريم .

وفيكم بارك الله

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

ولكن في هذا المنتدى يجب وضع السورس كود لاي برنامج او مشروع .

اقراء قوانين المشاركة في هذا المنتدى وخاصة البند الخامس .

قوانين المشاركة في هذا المنتدى

****

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

ماء شاء الله أخي kadrisoft2006 على البرنامج

جاري التحميل و التجريب

السلام عليكم

كان عليك اخي الكريم قراءة القوانين قبل المشاركة فولا غياب المشرفين لاغلقوا الموضوع و ضنوا انه موضوع اشهاري للبرنامج و هذا ممنوع طبعا .

انا لا اشك في كلامك ووعدك باعطاء السورس كود لكن عليك ان ان تفي بوعدك في اقرب وقت وان شاءؤ الله سيتحسن بملاحضات الاعضاء و المشاركات .

شكرا .

زكيري عبد العالي كتب:

السلام عليكم

كان عليك اخي الكريم قراءة القوانين قبل المشاركة فولا غياب المشرفين لاغلقوا الموضوع و ضنوا انه موضوع اشهاري للبرنامج و هذا ممنوع طبعا .

انا لا اشك في كلامك ووعدك باعطاء السورس كود لكن عليك ان ان تفي بوعدك في اقرب وقت وان شاءؤ الله سيتحسن بملاحضات الاعضاء و المشاركات .

شكرا .

mohfa كتب:

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

ولكن في هذا المنتدى يجب وضع السورس كود لاي برنامج او مشروع .

اقراء قوانين المشاركة في هذا المنتدى وخاصة البند الخامس .

قوانين المشاركة في هذا المنتدى

****

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

تميز2009 كتب:

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

ومشروع جميل

واجهة جميلة والهدف أسمى وأجمل

فجزاك الله خيرا وأكثر من أمثالك

للنهوض بالدولة الإسلامية ورفع راية الإسلام

لكن هدا البرنامج يحتاج الى بعض التعديل

أدكر منها

أنه عند اضافة منخرط يمكن تكراره عدة مرات

وها ليمكن يجب أن يكون شرط حيث يكون اضافة منخرط مرة واحدة وها من خلال اضافة المفتاح الرئيسي

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

وكدلك لا يوجد ما يكشف عن شكل

الإيميل ادا كان صح أو لا

أود سؤالك كيف نحصل على الواجهة كما هو في مشروعك

أي ستيل

xp

وكيف أصنع مثل

القائمة على الجهة اليمنى

تحياتي

Zed-Ljamel كتب:

ماء شاء الله أخي kadrisoft2006 على البرنامج

جاري التحميل و التجريب

بارك الله فيك

في انتظار رأيك

ملاحظة :

ارجو ان تكتب بخط اصغر لقد عدلت لك الرد الاول لكن اظن انك لم تفهمني ارجوا ذلك

و الى الامام ان شاء الله .

اول ملاحظة لي ان اغلب ال Edits تقبل ادخال الفراغ او Space .

حاول الضغط على Space_bar في لوحة المفاتيح لترى ذلك .

لتصحيح ذلك يمكن استعمال خاصية

Trim

mohfa كتب:

اول ملاحظة لي ان اغلب ال Edits تقبل ادخال الفراغ او Space .

حاول الضغط على Space_bar في لوحة المفاتيح لترى ذلك .

لتصحيح ذلك يمكن استعمال خاصية

Trim

بارك الله فيك اخي kadrisoft2006 ولكن هاته من عموميات البرمجة والتي من المفروض ان المبرمج ان يكون ملما بها .

لان خطاء كهذا قاتل لان قاعدة البيانات سوف تمتلئ بال Zero Bytes في حالة ادخال ال Spaces .

المبرمج دائما او في اغلب الاحيان يرى بعينين :

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

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

++

محمد

 procedure Tloading.Timer1Timer(Sender: TObject);
   begin
   Pb.position:= Pb.position+2;
   if Pb.position=100 then

	if datamod.tmasjid.isempty then
   begin
   masjid.Show;
   loading.hide;
   Timer1.Enabled:=false;
   end
   else
   begin
   f_menu.show;
   loading.hide;
   Timer1.Enabled:=false;
   end;
   end;

اضن انه من المستحسن ان تدع خاصية MAX لل Pb تاخذ قيمتها من Record.Count من قاعدة البيانات وتتعامل مع ال Div للحصول على ال Position .

mohfa كتب:

 procedure Tloading.Timer1Timer(Sender: TObject);
	begin
	Pb.position:= Pb.position+2;
	if Pb.position=100 then

	 if datamod.tmasjid.isempty then
	begin
	masjid.Show;
	loading.hide;
	Timer1.Enabled:=false;
	end
	else
	begin
	f_menu.show;
	loading.hide;
	Timer1.Enabled:=false;
	end;
	end;

اضن انه من المستحسن ان تدع خاصية MAX لل Pb تاخذ قيمتها من Record.Count من قاعدة البيانات وتتعامل مع ال Div للحصول على ال Position .

فكرة جيدة أخي

ولكن هل أقوم بجعلها على جيمع الجداول أو مجموعة محددة فقط

ممكن مثلا مع كل ماهو موجود هنا :

 procedure Tloading.active;
  begin
  datamod.Data.Connected:=true;
   datamod.collection.Active:=true;
	 datamod.livre.Active:=true;
	   datamod.cd.Active:=true;
		 datamod.k7.Active:=true;
		 datamod.tempr.Active:=true;
	 datamod.tmasjid.Active:=true;
	   datamod.qtakir.Active:=true;
		 datamod.exp.Active:=true;
		 datamod.membre.Active:=true;
	 datamod.qreteur.Active:=true;
	   datamod.qimplist.Active:=true;
		 datamod.qempr.Active:=true;
		 datamod.qmembemp.Active:=true;
	 datamod.qlist_mem.Active:=true;
	   datamod.qbitaka.Active:=true;
		 datamod.qlivre.Active:=true;
		 datamod.qcd.Active:=true;
	 datamod.qk7.Active:=true;


  end;

ماشاء الله لاقوة الا بالله .

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

:) :)

ما شاء الله المشروع جميل و الى الأمام

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

بارك الله فيك اخي الفاضل على هذا البرنامج وبارك الله في هذا المنتدى الجميل والقائمين عليه

أخي الفاضل ممكن تضع السورس في رابط آخر غير رابيد شير لأنه لا يعمل عندي حتى التحميل المجاني وياليت تضعه على الميديا فاير

شاكر لك مقدما وبارك الله فيك وفي أمثالك