高手们,您好,在数据库里我新建了一个字段'排序',当我查询单个新数据,点击确认按钮实现'排序+1'的功能,但是在delphi软件下编译运行没法实

Question

begin
with datamodule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from sysdata where 提运单号 like ''%''+ :a + ''%''' );
parameters.ParamByName('a').Value :=trim(edit1.text);open;
end;
end;procedure TForm1.Button4Click(Sender: TObject);begin
with datamodule1.ADOQuery1 do
beginsql.Add('select * from sysdata where 提运单号 like ''%''+ :a + ''%''' );
 sql.Add('update sysdata set 排序=排序 + 1 where 提运单号  like ''%''+ :a + ''%''');open;
end;
end;

Answer 1

procedure TForm1.Button4Click(Sender: TObject);begin
with datamodule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('update sysdata set 排序=排序 + 1 where 提运单号 like ''%''+ :a + ''%''');
parameters.ParamByName('a').Value :=trim(edit1.text);
ExecSql;
end;
end;