الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج تسيير مؤسسة تربوية

رائج
بدأه hbate_allah في 17 يناير 2009 · 717 رد · 52,020 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#601

اخي علي

اولا بالطبع الملف Gestion.ini سوف ينشئ في مجلد البرنامج بالطبع .

ثانيا

اقتباس
في السطر السابع نقوم بفتح المف الذي قمنا بتسميه من قبل وهو gest_s

اين هو الملف gest_s انا لااراه ام هناك شئ فاتني ولم اراه

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#602

شرح جيد اخ علي :clapping:

هكذا يكون الشرح ولا بلاش

#603
اقتباس
شرح جيد اخ علي :clapping:

هكذا يكون الشرح ولا بلاش

هذا يعني ايه ياختي هبة الله :tantrum: :cry:

تم تعديل هذه المشاركة بواسطة mohfa في 28 يناير 2009 في 21:17

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#604

شكرا أخي علي

اذا كنا نستخدم قاعدت بيانات امنة مثل Oracel,اوغيرها ونريد ان نضع كلمة المرور بداخلها كم ذكرت

هل يتعدى ذلك عن جدولين اسم المستخدم وكلمة المرور , وعملية مطابقة عادية . أي اذا كان اسم المستخدم وكلمة السر صحيحة إظهر الفورم مثلا

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

هذا للدخول

begin
if edit1.text<>''then
if edit2.text<>''then
begin
if edit1.Text=dm.Tpa.Fields.fieldbyname('name_user').value then
begin
if edit2.Text=dm.Tpa.Fields.fieldbyname('password').Value then
begin
 main.show;
 form5.Hide;
 end
 else
 begin
 ShowMessage('ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ');
 edit2.SetFocus;
 end;
 end
 else
 begin
 ShowMessage('ÇÓã ÇáãÓÊÎÏã ÛíÑ ÕÍíÍ');
 edit1.SetFocus;
end;
end;

وهذه لتغيير كلمة المرور واسم المستخدم , طبعا لايستطيع تغييرها حتى يدخل اسم المستخدم وكلمة المرور القديمتين

begin
if edit7.Text=edit6.Text then
begin
if edit9.Text=edit8.Text then
begin

dm.tpa.edit;
dm.Tpa.Fields.FieldByName('name_user').Value:=edit7.Text;
dm.Tpa.Fields.FieldByName('password').Value:=edit9.Text;
dm.Tpa.Post;

ShowMessage('Êã ÊÛííÑ ÇÓã ÇáãÓÊÎÏã æßáãÉ ÇáãÑæÑ');
end
else
begin
ShowMessage('ßáãÉ ÇáÓÑ ÛíÑ ãØÇÈÞÉ íÑÌì ÇáÊÃßÏ');
edit9.SetFocus;
end;
end
else
begin
ShowMessage(' ÇÓã ÇáãÓÊÎÏã ÛíÑ ãØÇÈÞ, íÑÌì ÇáÊÃßÏ');
edit7.SetFocus;
end;

end;
#605
اقتباس
اين هو الملف gest_s انا لااراه ام هناك شئ فاتني ولم اراه

لم يفتك شيء ويبدو انك رايت الرد وانا اقوم بالتعديل

تم التعديل الكامل

ممتاز اخي طلال

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

وانما ليس جددولين وانما جدول واحد

تم تعديل هذه المشاركة بواسطة علي .ع في 28 يناير 2009 في 21:22

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#606

وشرحك رائع اخي محمد

#607

لا اخ محمد انا لا اقصد هذا

لقد قطعت لي الكلام امي فقط كنت ساكمل انه حتى الروابط التي اعطاها لي اخ محمد

تفهم روعة و شرحها مبسط :thumb_up:

#608

السلام عليكم

و الله الكل جيد هنا بالقليل او بالكثير كلنا نستفيذ .

موضوع الرجيستري و ملفات config INI او XML موضوع مهم لكن لو نفتح نقاش في موضوع خاص كي لا نخرج من موضوع الاخت هبا

عندي رد الاستاد محمد و امثل مقنعة صادفتي في حياتي المهنية .

و ايضا عن لملفات INI لصديقي عليلو .

هناك الكثير من المواضيع يجب ان نتفق عليها .

في القريب سافتح موضوع خاص للمحترفين فقط نناقش فيه مجموعة من التساءلات اني في طور جمعها .

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

اخي علي لقد عملت على مشاريع مختلفة و بلغات مختلفة و احسن حل كان في احد البرامج حيت نقوم بتخزين المستخدم وكلمة السر مشفرة و في OBJECT قم في القاعدة

-------------------------------------

المهم ارجوا ان تكملوا المشروع بسرعة مع اني لم اشارك معكم بسب عملي ISAPI راه تبصصوني ومشاكلها مه apche.

ارجوا ان كلمت عليلوا لا تضايقك اخي عليلوا

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 28 يناير 2009 في 21:28

#609

اقصد حقليين أخي علي في جدول واحد

#610

اخي على هل انا اعمى مازلت لاارى اين هو ملف ال gest_s

اواه وقيل روحت فيها من هذ الميكرو

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#611

لم يبق الكثير في المشروع

لقد بقي توزيع الزمن و حساب المعدل العام

هو لما كنت اعمل بطريقتي اي دون اضافة جدول Bul

  SUM(Query1.Moy*Coef)/SUM(Query1.Coeficien

بحيث Query1 مربوط بجدول النقط

ساحاول كتابتها في البرنامج لكني لا اعلم هل اربطه في حالتنا هذه بجدول النقط ام بجدول QUERy

#612
اقتباس
ارجوا ان كلمت عليلوا لا تضايقك اخي عليلوا

لا اطلاقا في العاصمة ينادونني عليلو

اما في بسكرة فينادونني علا يعني كيما انت

علا زكيري و علا علوي

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#613

ساغيب لحظات و ارجع

#614

اين انت ياعليلو وانت ياخي طلال , السي عبد العالي خلاني نعرق في الشتاء .

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#615

أخي محمد انا كنت نصحت الاخ ذكيري بشأن الاخ علي

ولكن يبدوا انه سيطبقها على الجميع :angry:

#616

اخي طلال اصبح الاخ عبد العالي خطر علينا سوف اشكوه الى منظمة حقوق المبرمجين . :stop:

انا اظن ان الحلقة القادمة عليك فتوخى الحذر من هذا الثعلوب عبد العالي .

انا من الأن تعلمت :unsure:

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#617

اذا يجب البدء بالدعوة أخي محمد

ولكن أخشى أن تكون منظمة حقوق المبرمجين مثل هيئة الامم المتحدة

#618

لم استطع الرد البارحة لا ادري تاتيني رسالة خطا

المهم انني جربت الدالة التي تحسب المعدل لكن لم تعمل

#619

أية دالة أختي هبة الله

هل لك أن ترفعي أخر مرفق وما هو المطلوب

#620

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

اظن انها تريد حساب المعدل

انت قمت بذلك اخي طلال يرجى يرجى اضافته الى المرفق الاخير

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#621
اقتباس
اظن انها تريد حساب المعدل

نعم اقصد هذا

#622

حسننا اختي هبة الله

يمكنك استخدام هذا الكود وبدون اللجوء الى الاستعلامات

DM.Tnote.FieldByName('MoyxCoef').Value :=DM.Tnote.FieldByName('Moyenne').Value*DM.TModule.FieldByName('Coefficient').Value;
MoyG:=0;
DM.Tnote.First;
while not DM.Tnote.Eof do
begin
MoyG:=StrToFloat(DBGrid1.Fields[4].Text)+MoyG;
DM.Tnote.Next;
end;

Edit2.Text:=FloatToStr(MoyG);

لا تنسي التصريح بالمتغيير

MoyG

سيعطيك هذا الكود العدد الكلي للنقاط ومن ثم يمكنك التعامل معه بالنظام الكلاسيكي او النظام الجديد الذي اجهل عنه الكثير

تم تعديل هذه المشاركة بواسطة علي .ع في 29 يناير 2009 في 18:23

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#623

اخ زكيري ماذا عن جدول توزيع الزمن

اخت هبة الله ارجو ان تبدئي بالواجهة وساساعدك في ذلك اعدي القائمة وسيكون لنا حديث اخر

اما اخ طلال فادخرك الى عملية جديدة سنتكلم عليها لاحقا

تم تعديل هذه المشاركة بواسطة علي .ع في 29 يناير 2009 في 20:25

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#624

الوقت ضيق لا يمكنني المساعدة الان ممكن غدا ان شاء

بالتوفيق

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 29 يناير 2009 في 21:57

#625

نريده جاهزا غدا اخي عبد العالي

الوقت ليس في صالحنا

لكن اين الاخ طلال والاخت هبة الله

تم تعديل هذه المشاركة بواسطة علي .ع في 29 يناير 2009 في 22:07

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…