DBNAVIGATOR رکوردی را می خواهیم پاک کنیم

[ali_abbasi22145]

سلام
در DBNAVIGATOR رکوردی را می خواهیم پاک کنیم ابتدا یک اخطار می دهد چطور این اخطار را فارسی کنم.
اخطار عکس ذیل:

[vcldeveloper]

نمایش اخطار DBNavigator را غیرفعال کن و کد مربوط به نمایش اخطار را در رویداد OnBeforeDelete از DataSet مورد نظرت بنویس.

[ali_abbasi22145]

سلام
من چه دستوری بنویسم که اگر Yes بود پاک کند و No بود پاک نکند؟
چون هر دستوری نوشتم Yes و No بود پاک می کند!

یک دستوری مثلا شبیه زیر اگر Yes بود پاک کند و No بود پاک نکند.
if Application.MessageBox('Are you sure delete record of database?','Confrim of delete a record',MB_YESNO)= IDYES then

[m-khorsandi]

یعنی ممکنه که شما تا الان کدی برای حذف رکورد ننوشته باشید!

[vcldeveloper]

من چه دستوری بنویسم که اگر Yes بود پاک کند و No بود پاک نکند؟
چون هر دستوری نوشتم Yes و No بود پاک می کند!
تا به حال چندین بار جواب داده شد. کلمه Abort را جستجو کنید.

[szabeh]

http://barnamenevis.org/forum/showthread.php?t=82310&highlight=dbnavigator

[ali_abbasi22145]

تا به حال چندین بار جواب داده شد. کلمه Abort را جستجو کنید.

سلام
Abort جستجو کردم و جوابهایی پیدا کردم ولی هیچ کدام جواب کارم را ندادند.

[Touska]

بفرما :

قبلش
علی کشاورز : نمایش اخطار DBNavigator را غیرفعال کن


procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
IF Button = nbDelete Then
IF MessageDlg('آیا مایل به حذف هستید؟',mtConfirmation,[mbok,mbcancel],0) = mrOk Then
DBNavigator1.DataSource.DataSet.Delete;

end;

برای اینکه همه چیز فارسی باشه میتونی با استفاده از Modal Result فرم ها یکی خودت بنویسی.

[ali_abbasi22145]

سلام
IF Button = nbDelete Then
IF MessageDlg('ÂíÇ ãÇíá Èå ÍÐÝ åÓÊíÏ¿',mtConfirmation,[mbok,mbcancel],0) = mrOk Then
DBNavigator1.DataSource.DataSet.Delete
else
Abort;
کد شما موقع کنسل پاک کردن هم رکورد را پاک می کند و کد شما را به شکل بالا تغییر دادم تا موقع کنسل پاک کردن چیزی را پاک نکند.
اما در موقع پاک کردن دوتا رکورد پاک می کند نه یک رکورد!

[dkhatibi]

این خط را حذف کنید

DBNavigator1.DataSource.DataSet.Delete
برای اصلاح کد در شرط Mrcancel را قرار دهید و else را حذف نمایید.

[ali_abbasi22145]

سلام
با کمک دوست عزیز dkhatibi مشکل که فعلا تست کردم حل شد و کد کامل آن برای دوستان دیگر که بخواهند این است:

procedure TDynamicForm.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
IF Button = nbDelete Then
IF MessageDlg('ÂíÇ ãÇíá Èå ÍÐÝ åÓÊíÏ¿', mtConfirmation,[mbok,mbCancel],0) = mrCancel Then
Abort;
end;