اقتراح بسيط من اجل الاستفادة

فكرة جميلة انني اتقد بمشروع ذاتية يكون الشرح به من البدية الى النهاية وانا الان في هذه الفترة لدي الوقت :)

ولكن المشروع في الdbe PARADOX

اما من اجل سؤالك الثاني بالنسبة الى الجداول على قاعدة البيانات المذكورة اعلاه

استعمل المكونdbeEDIT

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

شكرا لك اخي زاهر على مرورك ومشاركتك معي

بالنسبة لقواعد البيانات انا ايضا افضل ان تكون paradox ولكن اذا كان احد الاساتذة الموجودين معانا يقترح نوع اخر فلا بأس

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

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

اما عن اجابتك اخي زاهر على سؤالي فانت لم تجب :( ولكن حاولت ان توحي الي ان استخدم dbedit وهي الاسهل :rolleyes: وان اعرف كيف استخدمها ولكن انا اريد الطريقة التي استطيع من خلالها استعمال edit مع الجدول واجراء العمليات عليه :wacko: .

ولك التحية مجددا وإن شاء الله تأتينا الاجابة على السؤال ويأتينا الرد على اقتراحنا قريبا .

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

السلام عليكم..

أخي الكريم .. من ناحيتي أفضل استخدام الـedit حيث أتخلص من المشاكل غير المتوقعة من حدوث إدخال خاطئ للبيانات.

أما عن كيفية التعامل مع الجدول في هذه الحالة :

يمكن أن تستخدم المنهج insertrecords بحيث يكون ترتيب الوسائط مماثلاً لترتيب الحفول في مكون الجدول أو الاستعلام المستخدم( و ليس الجدول نفسه ) إضافة للتطابق في نوع القيم الممررة مع نوع الحقول. وهذا المنهج يقوم بإدراج السجل الجديد .

أما في حالة رغبتك في تعديل قيمة ما فتستطيع أن تستخدم الحدث onchange أو الحدث onkeypress و ضمنه تقوم بتهيئة الجدول لعملية التعديل عبر تعليمة الedit و من ثم اسناد قيمة الtext الخاصة بالedit إلى الحقل المناسب. ومن ثم تثبيت التعديل باستخدام التعليمة post .

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

اخي العزيز delphi_love شكرا لك على هذا المرور ومحاولة الاجابة على سؤالي لكن ليس هذا الذي اريده

ربما لم تفهموا سؤالي جيدا

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

ولك التحية مجددا على مرورك

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

في البداية أود أن أشكرك على الاقتراح الذي قدمته بشأن بداية مشروع وشرحه للأخوة من الصفر وحتى إلى ما شاء الله ، والله الفكرة جميلة جدا بس المشكلة في أن واحد يتبنى هذه الفكرة من الأخوة العمالقة في لغة الدلفي هنا

بالنسبة للـ Edit

إذا كنت تود استخدامها في إدخال البيانات للجدول فيمكنك كالأتي

if Edit1.Text<>'' then
begin
Table1.Open;       //فتح الجدول
Table1.Insert;      //إدراج سجل جديد
Table1fieldname.Value:=trim(edit1.Text);
Table1.Post;     // حفظ التعديل
Table1.Close;    //إغلاق الجدول
end;

أخي محمد الصغير الكود سهل وبسيك بس يجب انك تنيبه لأن الـ edit دائما خاصية التكست بيها بتكون نص حتى ولو دخلت أرقام

يعني يجب تحول النص إذا كان المدخل من '0'..'9' كالتالي إلى أرقام والعكس إذا كان قيمة الحقل بالجدول رقم وبتعرضها بـ edit يجب تحويلها من رقم إلى نص.

IntToStr();

للتحويل من integer إلى string

StrToInt();

العكس من string إلى integer

بالإضافة إلى الكثير من هذه الدوال

لجعل الـ edit تأخد ارقام فقط

procedure TFecard.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,#13])then
key:=#0;
end;

وإذا كنت تريدها تأخذ حروف من A إلى Z قم بإستبدالهما بدل 0 و ال 9

وأنا استخد ال edit بدلا من الdbedit لأنها تمتاز بمرونة أكثر

ولا تتردد في السؤال مرة آخرى

أنا مستعد ...

لكن من سيتولى شرح المثال ..

(بصراحة انا لا أملك وقت ... أعتذر من ذلك , ولكن كما ترون صاحبكم في وضع يرثى له , ورغم ذلك أصارع كل شيء وأبقى مع المنتدى)

فبيقم متبرع مشكورا بتبني الموضوع ", وسنساعد جميعا

اخي محمد الصغير ساضيف على رد الاخ بورلاند وهي عند استخدام Query بدل table وهي بالطريقة التالية

adoquery.fieldbyname('name').value := trim(edit1.text);

حيث name اسم الحقل مع الاخد بالملاحظات التي اشار عليها الاخ بورلاند

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

ADOQuery.FieldByName('name').Value:= Trim(Edit1.text)

حيث nameهي اسم الحقل مع الاخد بالملاحظات التي اشار اليها الاخ بورلاند

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

اخي العزيز Borland هذا ما كنت ابحث عنه :rolleyes:

اشكرك شكرا جزيلا على هذه الاجابة وعلى التوضيح الذي اضفته حرصا منك على ان تكون المعلمة متكاملة .

بارك الله فيك وكثر الله من امثالك وزاد الله في علمك وبلغك كل ما تتمنى

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

اخي winter16yi شكرا لك على هذا التوضيح وعلى جديتك في ان تجعل الاجابة تشمل كافة الوجوه

لك التحية وجزاك الله الف خير

اما بالنسبة لاخينا واستاذنا عروة فأنا على نفسي اتمنا ان يكون هو مشرف هذه الفكرة وان تكون كل التوجيهات منه

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

ولكن اقول له..

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

ولا يعرفوا قدر الرجال الا رجالاُ ولا يكرموا الكرام الا كريموا

فاذا تبنيتي يا اخي الفكرة فكلنا إن شاء الله سوف نتعاونو فيها ونجعلها مرجعا في هذا المنتدى

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

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

ولك كل التحية والتقدير والاحترام

وزادك الله في علمك واعطاك كل ما تتمنى

*-) *-)

السلام عليكم.

أنا أستخدم (Interbase) أو عمليا (FireBird) لا فرق كبير بينهما, و هي قاعدة بيانات تتسم بالأداء العالي و أمان سلامة المعلومات و أنها تعتمد على SQL صراحة لا أستخدم Paradox مطلقا بسبب العديد من المشاكل التي تحتويها (للأمانة استخدمتها مرة واحدة في مشروع التخرج الخاص بي و صدمت في ذلك الوقت بالمحدودية التي تفرضها على طريقة عملي على البرنامج).

إن FireBird تجمع بين شيئين مهمين في عالم البرمجيات أولا :

1- قاعدة بيانات SQL ذات أداء عالي و مستقر و موثوق.

2- قاعدة بيانات مجانية مفتوحة المصدر (و كونها مجانية هو صدقني تحدي كبير بالنسبة للتسويق لأنني يجب أن أقنع الزبون عادة بشراء ترخيص من مايكروسوفت من أجل الويندوز و من أجل SQL Server و أخيرا من أجل برنامجي حيث أنني أعمل في مجال نقاط البيع و المستودعات و المحاسبة و الإدارة ولا ننسى بيع الهاردوير أيضا )

أما عن أسلوب البرمجة في دلفي:

فإن دلفي توفر حزمة من الكومبوننتس للتعامل مع Interbase و تتميز بأنها native موروثة من أصناف أساسية و تتمتع بإتصال مباشر مع Interbase باستخدام توابع API الخاصة ب Interbase حيث لا داعي لـ BDE أو ADO أو DBExpress لإدارة الإتصال مع قاعدة البيانات حيث أظهرت إختبارات الأداء أن هذه الطريقة بالإتصال مع قاعدة البيانات هي أبطأ بــ 0.02 من الثانية من ال BDE بالنسبة للتطبيقات المحلية (أي على جهاز واحد) أما بالنسبة للشبكات فقد استغرق تنفيذ 20 استعلام( SQL )ـ 5 ثواني باستخدام ال BDE بينما اسغرقت الطريقة آنفة الذكر 2.2 ثانية بفارق زمني يصل إلى 2.8 ثانية. فإذا أردنا أن نستخدم هذه الطريقة من أجل الإتصال بقاعدة بيانات محلية على نفس الجهاز و لتنفيذ استعلام SQL (كبيييييير) يستغرق 20 ثانية بواسطة ال BDE فإنه سوف يستغرق 20.4 ثانية باستخدام هذه الطريقة أي بفرق 0.4 ثانية و هو ليس بالفرق الكبير.

أما لو كنا نسخدم قاعدة بيانات متوضعة على مخدم ضمن الشبكة المحلية فإن استعلام يستغرق 20 ثانية بوساطة ال BDE سوف يستغرق 8.8 ثانية لتنفيذه أي بفرق يصل إلى 11.2 ثانية و هو زمن كبير أكثر من الضعف.

و أنا لا استخدم TIBTable مطلقا أحيانا أستخدم TIBQuery لكن معظم الأحيان أستخدم TIBDataset التي تحمل ميزة أنني استطيع عرض و إضافة و تعديل البيانات خلالها دون الحاجة لكتابة سطر كود واحد هذا بالإضافة إلى البحث و أيضا ميزة CachedUpdates و تتميز عن TIBQuery بقدرتها على التعامل مع نوع معطيات كبير مثل 64bit الذي تدعمه Interbase

أما إذا أردت أن استخدم TEdit بدلا من TDBEdit فما أفعله عادة هو التالي:

استخدام التابعين الشهيرين في البرمجة غرضية التوجه من أجل تعويض المتحولات في قسم البرايفيت GET And SET

حيث استخدم Fill_DATA لأخذ قيم الحقول من ال Dataset إلى الحقول على الفورم ويتم استدعاء هذا الإجراء ضمن OnDataChange الــ TDataSource المرتبط بالـ DataSet المستخدمة عندما تكون DataSet.State = dsBrowse

procedure TFrmUser_Option.Fill_Data;
begin
  inherited;
  vID          := DSetMUSER_PERMISSION_ID.AsFloat;
  EdtCode.Text := DSetMPERMISSION_NUM.AsString;
  EdtName.Text := DSetMPERMISSION_NAME.AsString;
end;

من أجل تعديل البيانات من الفورم إلى ال DataSet

procedure TFrmUser_Option.Set_Data;
begin
  inherited;
  DSetMUSER_PERMISSION_ID.AsFloat := 0;
  DSetMPERMISSION_NAME.AsString   := EdtName.Text;
  DSetMPERMISSION_NUM.AsString    := EdtCode.Text;
end;

و دمتم..........

أخوك عامر.

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

شكرا لك يا اخي amersy على مرورك على الموضوع واعطاء معلومات اضافية فيه فكلما زاد الشرح والتوسع في الموضوع زادت الاستفادة :rolleyes: :rolleyes:

وكل انسان يعلم اخيه حرفا فله به حسنة والحسنة بعشر امثالها

ولكن لم تقل لنا رايك في فكرة المشروع

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

السلام عليكم

كما قلت سابقا ال Interbase جيد وبسيط ولكن قمت تجريبه على بعض البرامج التي انتجها فواجهتي مشكله عندما يكون حجم المعلومات في الحقل كبير يكون البرنامج بطيء وحتى انه يصبح لا يستجيب.؟؟؟؟

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

وكما قلت سابقا حتى الان لا انوي ترك ال Paradox .

ساقوم بعمل برنامج اختبار لفحص ال dbism , ربما يصلح ان يكون بديلا لل Paradox ؟

* سؤالي قمت بانزال الكمبوننت DBISM.VCL.Standard ..... هل هذا يكفي ليعمل برنامجي ام يجب تنزيل برنامج (Drivers ........

وشكرا

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

ويش اللي صار يا جماعة اشوف ما احد رد علينا في موضوعنا

يعني لا يوجد احد يتبنى الفكرة ويتعب معانا شوية ليش يا اخوتي والله ترى له الاجر الكبير على مثل هذه المواضيع

وانا يوم بعد يوم اقول اليوم إن شاء الله نلقى الرد بس ما فيش احد

يا جماعة انا اخاطب الكل الذي يرى في نفسه كفاءة ولو بشكل بسيط انه يتبنى هذا الاقتراح ايقول وإن شاء الله

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

يد الله مع الجماعة ومثل ما يقول المثل حمل الجماعة ريش

ولكني بالقدر الذي احترم فيه هذا المنتدى واعضاءه ارفض رفضا قاطعا ان تلغى الفكرة وتصبح اقتراحا ولا فائدة منها

انتظر الرد إن شاء الله

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

يالله وأنا ناطر معك ..

لازم حدا غير عروة يكون لازال يملك الرمق الاخير

لأنو عروة متل ماقلت بمشاركة سابقة يعاني ضغوط نفسية وجسدية وفيزيولوجية وديماغوجية وأنترابلوجية وضعف في كينونة الكارما وإرهاصات عصبية والمزيد المزيد من المت\اعب ...

بصراحة صاير عم حب المشاركات يلي بكون جوابها كلمة او سطر أو تعليمة او رابط او توجية للعمل .... أكثر من المشاركات يلي بدها كتابة كتير , وواحد متفرغ , وكتير احيان لاتعتمد على خبرة 100% , ويكون العمل الأساسي تنظيم وشرح سلس .....

لذلك أنا بالإنتظار .. من البطل\الأبطال الذي سينطلق بالمشروع ؟

سوف أشارك في هذا الموضوع ببرنامج شبه متكامل للمخزون.

البرنامج مصمم بلغة دلفي 7 ويعمل على قاعدة بيانات MS Access 2003.

مزايا النظام:

- متابعة الأصناف.

- متابعة الموردين والعملاء.

- عمليات البيع والشراء.

- وجود تقارير محدودة باستخدام QReport.

- جيد لشرح مفاهيم الربط مع قاعدة البيانات والتعامل معها باستخدام ADO 2.7.

- تنفيذ بعض الأفكار والحيل.

- وجود شاشات الحماية للدخول للنظام (غير مطبقة).

- التعامل مع مفهوم شاشات MDI.

- يدعم واجهات MS Win XP.

- يشرح كيفية استخدام SQL في الدلفي.

- وجود وحدة (Unit) للتعامل مع التاريخ الهجري وأخطاء قاعدة البيانات.

- وأخيراً البرنامج مضمن معه السورس كود.

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

جميع الحقوق متاحة للكل باستخدامه استخدام كامل وبيعه مع الترميز (Source Code) ولكن بعد تعديله.

الرابط مع المرفقات.

قم بفط الضغط مع المحافظة على تنسيق المجلدات.

لا تنسوني من دعائكم.

OrderEntry.zip

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

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

ولكن ان اريد ان اطلب منه طلب ربما نأتي به بنتيجة

اريد منك يا اخي عروة ان ترشح لنا احد من الاعضاء من ذوي الخبرة لكي يبدأ بهذا المشروع ويفضل مجموعة من الاسماء لكي تكون هناك نوع من العمومية في التعاون في هذا المنتدى وارجو من الاشخاص الذين يرشحهم لنا الاستاذ عروة ان يكون في مستوى التحدي ولا يتخادل منهم احد ولا يأتي اي منهم بحجج ايا كانت هذه الحجج فهي مرفوضة

وانا كلي امل ان لا يواجد احد يتخادل في هذا المنتدي

ولك التحية اخ عروة مجددا

من علمني حرفا صرت له عبدا

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

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

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

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

فاذا كان باستطاعتك البدء في هذا العمل فتقدم اليه ولك كل الاجر والثواب فيه إن شاء الله

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

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

شكرا bam على البرنامج المفيد ..

وشكرا على إرفاق السورس للشباب .. (أحييك)

بالنسبة للإختيار , لامشكلة محمد , ولكننا لا نستطيع إجبار أحد , فكما انا لي أعذاري ربما للآخرون أعذارهم , وأنا برأيي أن لا نضع احد تحت الضغط لعمل شيء جماعي , بل تأتي الأمور بطيب خاطر من أصحابها ..

أين الشباب .. ؟؟

(من دون أي ترتيب أذكر بعض أسماء أصدقائي في المنتدى )

02/11/2004

ماهر صرصور

amersy

hmed@

زاهر سعيد

سيف الدين

ORWAH

Borland

محمد نسمان

winter16yi

IKOSSAN

romanof

m-anas

BAM

delphi_love

والعديد العديد غيرهم ... (تطول القائمة)

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

مشكور يا استاذ عروة على الرد وإن شاء الله الشباب قاموا بالاطلاع على هذه الردود ونحن في انتظار الاجابة من احد منهم

واقول مثل ما قال الاخ / عروة وين الشباب وين :(

بسم الله الرحمن الرحيم

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

اريد ان يبدا كل يرغب بالمشاركة في هذا الموضوع بحيث نقسم المشروع الي عدة اجزاء يتم التنيسق بيننا وتحديد فترة زمنية لانجازها ويتم طرحها في المنتدي وبعد ذلك اعلم ان العديد من الاخوة سيتعاونوا معنا .الاخ محمد الصغير ارجو منك ان تكون انت المنسق لهذه العملية بما انك صاحب الفكرة .ارجو من الاخ (bam) بعض الوقت لشرح المشروع ولو بشكل مبسط مع جزيل الشكر.ارجو من الراغبين بالمشاركة ادراج اسمائهم.لا توجد شروط للمشاركين انا عن نفسي مبتدا وساشارك باذن الله بالذي اعرفه وان كان فيه خطأ فثقتي بالشباب كبيرة انهم لن يبخلو علينا بالتصحيح والنصح المهم المشاركة والجدية في التعلم وعند المناقشة نعلم افضل الطرق عن طريق النقاش وتعم الفائدة ان شاء الله

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

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

نجد احد من الذين هم على دراية كبيرة في هذه اللغة بالوقوف وقفة جدة من اجل تحقيق هذه الفكرة

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

فمن وجهة نظري ان كثرة الافكار توصل الي النتيجة او الفكرة التي تخلو بنسبة كبيرة من الخطأ

لكن لا اداري لماذا كل هذا الانهزام الذي يحدث بيننا بمجرد ان نطلب التعاون ونفع كل الاعضاء والمشاركين

وعن نفسي فاني وصلت الي مرحلة من انه لن يقوم احد بتبني هذه الفكرة ولو بعد حين

وفق الله الجميع واعانهم على فعل الخير

ولا يزال الله في عون العبد ما دام العبد في عون اخيه

اجتهد اخي ولكل مجتهد نصيب

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

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

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

والله الوقت هو اكبر مشكلة بالنسبة لجميع الأعضاء

انا عن نفسي لا اجد الوقت لتصفح المنتدى واحب السؤال القصير ثم الإجابة القصيرة

ولكن أخي الصغير ثق وتأكد انك أنت تستطيع تبني هذا المشروع وإن شاء الله ستجد الجميع بالعون

قم بتحليل نظام معين ومن ثم ستجد جميع الأعضاء كل منهم يدلي بنصيحته لك وما عليك إلا أن تقوم جمع الأفكار وجعلها فكرة واحدة وستكون أنت أكثر المستفيدين.