جستجوي ركورد قبل از حذف

[دلفی+ زندگی]

سلام
من مي خوام يه ركورد از تو جدول SQL رو از طريق دلفي حذف كنم. ارتباط دادن رو بلدم. دستور حذف رو هم بلدم. فقط ميخوام قبل حذف ركورد رو جستجو كنه ، اگه وجود داشت حذف كنه، در غير اينصورت عدم وجود ركورد رو با يه پيغام به كاربر اطلاع بده.
يعني قبل حذف يه SELECT انجام بشه.
چطور ميتونم اين كد رو بنويسم.

[delphiprog3000]

با سلام.
دوست عزیز میتونیستید در این باره جستجو کنید.

این لینک میتونه کمکت کنه:
http://barnamenevis.org/forum/showthread.php?t=118617


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

[دلفی+ زندگی]

سلام
من به لينك رفتم و كدي به صورت زيز در برنامه گذاشتم. اما در زمان حذف ركورد وقتي كه ركوردي با كد طرح وجود نداشته باشد بعد پيغام نبود طرح با كد مذبور ، پيغام زير صادر مي شود و برنامه قطع مي شود علت چيست؟
Cannot focus a disabled or invisible window.
و كد برنامه حذف ركورد:
var s1,s2:string;
begin
s1:='select * from tarh where CodeInt like '+PagesDlg.Edit1.text+'';
s2:='delete from tarh where CodeInt like '+pagesDlg.Edit1.Text+'';

with ADOQuery1 do
begin
close;
SQL.Text:=s1;
open;
if IsEmpty then
begin
ShowMessage('طرحي با اين كد وجود ندارد');
PagesDlg.edit1.SetFocus;
end
else
begin
try
close;
SQL.Add(s2);
ExecSQL;
showmessage('حذف شد');
Except

end;
end;

end;

[SYNDROME]

Cannot focus a disabled or invisible window.

پیغام فوق زمانی داده می شود که شما بخواهید Focus را بر روی کنترلی ببرید که امکان انتقال Focus بر روی ان وجود ندارد.
مثلاً Visible آن را False کرده اید.
اشکال شما در دستور زیر است.


PagesDlg.edit1.SetFocus

موفق باشید