SQL语句 关于 Delete(50分)

if MessageBox(Handle,'删除参数将导致数据的不一致，确认要删除吗？','系统提示',mb_IconInformation+mb_OK+mb_OKCancel)=mrOK then
begin
strSQL := 'Delete from gzgl where 工人工号='+ QuotedStr(ADOQuery1.FieldByName('工人工号').AsString);
end
else begin
Abort;
end;

如果你要操作的表中没有设外键，可以这样处理：
首先在DBGrid的OnCellClick事件中写下如下代码：
DBGrid1.SelectedRows.CurrentRowSelected:=true;
然后再删除操作中作如下处理，你可以参考一下（注意：DBGrid的数据显示必须是来自TADOQuery1的）：
if DBGrid1.SelectedRows.CurrentRowSelected=true then
begin
if MessageBox(Handle,'删除参数将导致数据的不一致，确认要删除吗？','系统提 示',mb_IconInformation+mb_OK+mb_OKCancel)=mrOK then
begin
strSQL := 'Delete from gzgl where 工人工号='''+ADOQuery1.FieldByName('工人工号').AsString+'''';
//如果你的工人工号是整型变量则：
//strSQL:='Delete from gzgl where 工人工号='+ADOQuery1.FieldByName('工人工号').AsInteger;

楼主不知道你有没有在表中用关联。如果用的话我以前是这样写得：
procedure Tfrom.BitBtn4Click(Sender: TObject);
var
s,sdate1,sdate2:string;
i,xh:integer;
begin
ADOsfsele.Open;
if messagedlg('删除记录无法恢复, 确定删除吗?',
mtConfirmation, [mbYes, mbNo],0) = mrno then exit;

for i:=0 to dbgrid1.SelectedRows.Count-1 do
begin
ADOsfsele.GotoBookmark(pointer(dbgrid1.SelectedRows.Items));
s:=ADOsfsele.FieldByName('F_ID_2').AsString; //收费资料ID
if s<>'' then
s:='where F_ID in '+'('+''''+s+''''+')'; //也是收费资料ID
ADOQuery2.SQL.Text:='delete from moneymag '+ s;
ADOQuery2.ExecSQL;
end;
ADOsfsele.Close;
ADOsfsele.Open;
end;

你总应该说说到底报的是什么错误吧？

谁在啊？
大哥大姐们帮帮我吧！！我有问题啊！
新帐号没法在两天内求助，可是今天晚上就要交作业了。怎么办，我可怎么办啊！
T_T
救命啊！！！！！！！！

问题：如何让一个Shape圆形以一点为圆心做圆周运动；
Timer控制Shape们的颜色变化以产生图象动态变化效果；
Timer控制Shape组件和Form2延时显示；

看完故事帮帮我吧！！！！
QQ：85596233
（本求助于今晚6：00后失效）