المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
19-06-2018, 10:53 PM
(آخر تعديل لهذه المشاركة: 19-06-2018, 11:00 PM بواسطة Delphi4Us.)
PHP كود :
try
IBCStoredProc1.Close;
IBCStoredProc1.ParamByName('SENDDATE').Value:= WheelPicker3.DateTime ;
ShowMessage('ok');
IBCStoredProc1.ExecProc;
except on E: Exception do
ShowMessage(e.Message);
end;
IBCStoredProc1.Close;
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
19-06-2018, 10:58 PM
(آخر تعديل لهذه المشاركة: 19-06-2018, 10:59 PM بواسطة S.FATEH.)
السلام عليكم اخ Delphi4Us فكرتني بايام زمان مع الفيربيرد قم بحذف suspend و ان شاء تنحل المشكلة
اعتقد انك لا ترغب في اعادة سجلات للبرنامج لذلك لا داعي لاستخدام suspend في حالة اردت اعادة سجلات للبرنامج استخدم suspend
في حالة اردت اعادة سجلات يمكنك استخدام Query مع استخدام Open
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
كل من 1 user says قال شكرا ل S.FATEH على المشاركة المفيدة1 user says Thank You to S.FATEH for this post
• Delphi4Us
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
جزاك الله كل خير
اجل تم حل المشكلة ، انا جديد على هذا النوع من البرمجة والاجراءات المخزنة ، وعلى الفايربيرد عموما .
شكرا اخ فتح
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
19-06-2018, 11:10 PM
(آخر تعديل لهذه المشاركة: 19-06-2018, 11:11 PM بواسطة S.FATEH.)
حتى انا جديد على الفيربيرد

في الكود الذي ارفقته رأيت اشياء جديدة لاول مرة اراها مثل returning_values مع الـ Execute procedure
بالمناسبة فاتح

و ليس حركة فتح
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
كل من 1 user says قال شكرا ل S.FATEH على المشاركة المفيدة1 user says Thank You to S.FATEH for this post
• Delphi4Us
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
19-06-2018, 11:18 PM
(آخر تعديل لهذه المشاركة: 19-06-2018, 11:22 PM بواسطة Delphi4Us.)
هههههههه الله يجعلك فاتح لابواب الخير مغلاق لابواب الشر .
هذه الفايربيرد كل يوم اكتشف فيها شيئا جديدا .
يمكن بها عمل اشياء كثيرة في اجراء واحد ، تصور الاجراء السابق يجهز مرتبات الموظفين بنقرة زر واحدة .
يجلب بيانات تم يرسلها الى اجراءات فرعية ويعود بقيم يضمها مع البيانات الاولى ويخزنها في جدول الموظفين .
لو اردت ان ابرمج هذا في الدلفي لامتلاء النموذج بالادوات والاجراءات .
وهذه الطريقة لا اعرف هل هي المتبعة ام لا لانني فكرت فيها وبرمجتها من العقيد فكري .
نقول هنا العقيد فكري في اشارة الى ان العقل اوحى لي
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
نعم الـ Stored Procedures قوية للغاية كما يمكنك استخدام Views بالنسبة لي طالما نفذة العملية بنجاح اتركها كما هي الا في حالة تأكدت ان التقنية التي تليها احسن
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
كل من 1 user says قال شكرا ل S.FATEH على المشاركة المفيدة1 user says Thank You to S.FATEH for this post
• Delphi4Us
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
يقولون في الكتب ان الاجراءات المخزنة اسرع من الاستعلامات لهذا تركت كل شئ عبارة عن اجراءات مخزنة
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 1,252
المواضيع 170
:
: 1,500
الإنتساب : Jul 2009
(19-06-2018, 11:31 PM)Delphi4Us كتب : يقولون في الكتب ان الاجراءات المخزنة اسرع من الاستعلامات لهذا تركت كل شئ عبارة عن اجراءات مخزنة
السلام عليكم ،
هل من الممكن استعمال ال Transaction مع توابعها commit و rollback داخل الإجراءات المخزنة Stored procedure ؟
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
(20-06-2018, 05:16 PM)أبو معاذ كتب : هل من الممكن استعمال ال Transaction مع توابعها commit و rollback داخل الإجراءات المخزنة Stored procedure ؟
لا
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
20-06-2018, 06:07 PM
(آخر تعديل لهذه المشاركة: 20-06-2018, 06:08 PM بواسطة Delphi4Us.)
يمكنك استخدام ذلك من الدلفي نفسها
PHP كود :
begin
dm.q_genel.Close;
dm.q_genel.SQL.Clear;
dm.q_genel.SQL.Add('EXECUTE PROCEDURE EDIT_FATURA(:p1,:p2)');
dm.q_genel.ParamByName('p1').AsInteger := fid;
dm.q_genel.ParamByName('p1').AsInteger := sayi;
try
dm.<Database>.StartTransaction;
dm.q_genel.execute;
dm.<Database>.Commit;
except
dm.<Database>.Rollback;
raise;
end;
end;
اذا كان هناك عمليتان للاضافة او التعديل او عملية اضافة وتعديل في نفس الاجراء المخزن بقاعدة البيانات
انا اقول حسب العقيد فكري انه يجب ان يتم تجزئتهم في اجرائين وتنفيدهم من الدلفي باستخدام الـ Transaction اما ان يتم تنفيدهم الاثنين او فلا
اليوم كنت اقوم بانشاء استعلام من الصباح حتى المساء وانا احاول لتحويل معاملة مالية الى المصرف ، لدرجة ان الفايربيرد كان يقول لي احيانا في رسالة ، عمليات كثيرة توقف الاجراء عن العمل .
كانت خربطة لا حدود لها ، والان فقط نجح الاستعلام بتقليل العمليات وتجزئتها مع حذف بعض الحقول الغير ضرورية والتي كانت تخرج نتائج غير منطقية
لوهلة كاد اليأس يصيبني واترك المنظومة بعد ان صرت قاب قوسين او أدنى من اكمالها
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم