فتح عدة جداول - نسخة قابلة للطباعة

فتح عدة جداول - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فتح عدة جداول (/showthread.php?tid=7442)

فتح عدة جداول - السوفي - 26-01-2016

[size=medium][size=large]السلام عليكم ورحمة الله وبركاته[/size][/size]

[size=medium]اسال الله القدير ان يلقاكم سؤالي هذا وانتم تنعمون بالصحة والامان[/size]

[size=medium]اخواني[/size]

[size=medium]عندي مشروع اعمل عليه والراس معادش يشد لهذا طلبت مساعدتكم واسال الله اني القاها عندكم واو اتذكرها فاخبركم بها [/size]

[size=medium]data Moudel بها جداول عدة يعني فوق 30 table اريد تشغيلها حالة تحميل الفورم بأستعمال حلقة while او اي حلقه [/size]

[size=medium]على فكره ان قمت بها من قبل ولاني توقفت وبداءت دراسة الفيجول بيسيك و++c ودرت الكثير [/size]

[size=medium]وهذا عيبي لا ادون في كراسه اوملف وورد الله غالب[/size]

[size=medium]ارجوا منكم المساعدة قريبا[/size]

[size=medium]وشكرا مسبقا[/size]

[size=medium]السلام عليكم[/size]

RE: فتح عدة جداول - Med-01 - 26-01-2016

اخي يرجى التوضيح ما تريد ان تقصد ب حالة تحميل الفورم

RE: فتح عدة جداول - السوفي - 26-01-2016

السلام عليكم

الذي اقصده التابع الى الفورم DataMoudel في حدث الانشاء ( TDataModule2.DataModuleCreate(Sender: TObject); ) لانها لا تظهر بل تعمل في الخلفية كما تعلم لهذا قلت عند تحميل البرنامج وهو جعل الجداول مفتوح جاهزه للعمل

RE: فتح عدة جداول - محمد عبد العزيز - 26-01-2016

كود :
Var i:Integer;
begin
  for i := 0 to ComponentCount-1 do
      if( Components[ i ] is TTable )then
        (Components[ i ] as TTable).Open;
end;

RE: فتح عدة جداول - السوفي - 26-01-2016

(26-01-2016, 10:50 PM)B.M.AbdelAziZ كتب :
كود :
Var i:Integer; begin for i := 0 to ComponentCount-1 do if( Components[ i ] is TTable )then (Components[ i ] as TTable).Open; end;

الله يرحمك ووالديك وجميع المؤمنين يوم يقوم الحساب

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

RE: فتح عدة جداول - محمد عبد العزيز - 26-01-2016

لا تنسى اغلاقها في الحدث OnDestroy

كود :
Var i:Integer;
 begin
  for i := 0 to ComponentCount-1 do
      if( Components[ i ] is TTable )then
        (Components[ i ] as TTable).Close;
 end;

RE: فتح عدة جداول - السوفي - 26-01-2016

(26-01-2016, 10:59 PM)B.M.AbdelAziZ كتب : لا تنسى اغلاقها في الحدث OnDestroy

كود :
Var i:Integer; begin for i := 0 to ComponentCount-1 do if( Components[ i ] is TTable )then (Components[ i ] as TTable).Close; end;

السلام عليكم

رحمك الله ووالديك وجميع المؤمنين رحمة يدخلنا بها جنته أمين
لم يفتني الامر
وسوف اقوم بها ان شاء الله شكرا اخي الفاضل
واسف كثيرا اتعبتك معي
والسلام عليكم