procedure ........ table1.Refresh; with table1 do begin if messagedlg('请注意,一旦数据清空,数据将无法恢复,清空前最好先导出数据以备份',mtinformation,[mbyes,mbno],0)=mryes then begin if messagedlg('请慎重,确实要清空吗?',mtinformation,[mbyes,mbno],1)=mryes then begin active:=false; table1.EmptyTable; active:=true end else showmessage('记录内容未被清空,仍可继续使用!') end else showmessage('记录内容未被清空,仍可继续使用!') end
----------------------------------------------
-