PDA

View Full Version : سوال: مشکل در قرار دادن Datamodule در oncreate فرم



delphiprog3000
دوشنبه 03 تیر 1387, 09:49 صبح
سلام به دوستان و اساتید محترم.

اخیرا با قرار دادد یک دیتاماجول که در آن یک Adoquery ساده وجود دارد را در خاصیت oncreate یک فرم قرار دادم و با این error مواجه شدم.

این هم کدی که در خاصیت oncreate فرم قرار داده شده:


procedure TForm1.FormCreate(Sender: TObject);
begin
with DataModule2 do
begin
with ADOQuery1 do
begin
close;
sql.Text:='select * from tblcode';
open;
end;
end;
end;

دوستان در این مورد و رفع این خطا اطلاعی دارند؟

با تشکر......................

babak_delphi
دوشنبه 03 تیر 1387, 14:27 عصر
در فایل پروژه ، ترتیب create شدن فرمها را کنترل کنید
احتمالا فرم مربوط به DataModule بعد از فرم مورد نظر شما ساخته میشود
اگر اینطور باشد با جا بجا کردن آن مشکلتان حل خواهد شد.
موفق باشید

اصغر (پآچ)
دوشنبه 03 تیر 1387, 16:58 عصر
سلام دوست من

برای رفع این مشکل بهتره که این کد رو در رویداد OnShow فرم مربوطه قرار دهید

موفق و موید باشی

delphiprog3000
سه شنبه 04 تیر 1387, 11:35 صبح
با تشکر از جواب دوستان عزیزم.

میخواستم بدونم دلیل ایجاد این مشکل چیه؟

ممنون میشم اگه دوستان توضیحی در این باره بدهند.

با تشکر......................

AFTABGARDAN2006
سه شنبه 04 تیر 1387, 11:40 صبح
دلیلش اینه که دیتا ماژول شما هنوز ساخته نشده و به آن آدرسی اختصاص داده نشده که شما از اون استفاده می کنید

babak_delphi
سه شنبه 04 تیر 1387, 13:36 عصر
در پست شماره 2 توضیح داده بودم

اصغر (پآچ)
سه شنبه 04 تیر 1387, 21:14 عصر
سلام دوست من
نیگا برای حل این موضوع می تونی از گزینه project گزینه ...viewsource انتخاب کن بعد بیا تو دستورات زیر begin جای Application.CreateForm(TDataModul, DataModul); رو بیار اول همه این مدل دستورات بعد این مشکلت حل میشه.

موفق و موید باشی

delphiprog3000
سه شنبه 04 تیر 1387, 21:45 عصر
با سلام.

ممنون دوست عزیزم. متوجه منظور شما و سایر دوستان شدم. ولی در بعضی مواقع هنگام صدا زدن کوری که در دیتاماژول قرار داره به این مشکل برخوردم که با کمی دستکاری کد اونو برطرف کردم.

که دقیقا مثل این رو در برنامه ای که با Midas یا همان چندلایه ساخته بودم error ماژول رو میداد .

فقط کمی برام عجیب بود.
بازم از توجه شما و همه عزیزان تشکر میکنم.

موفق باشید....................