فتح عدة جداول

[السوفي]

[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]

[Med-01]

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

[السوفي]

السلام عليكم

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

[محمد عبد العزيز]

كود :

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

[السوفي]

كود :

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

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

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

[محمد عبد العزيز]

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

كود :

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

[السوفي]

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

كود :

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

السلام عليكم

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