修改优先级（单独事件写法）

修改优先级（单独事件写法）：

procedure TForm3.N29Click(Sender: TObject);
var
SAdq:TADOQuery;
begin
try
SAdq:=TADOQuery.Create(nil);
SAdq.Connection:=frmDataPool.ADOConnection1;
 with SAdq do
 begin
  close;
  SQL.Text:='UPDATE 需要做的事 SET 优先级 = ''高'' WHERE 选中 = true';
  ExecSQL;
 end;
 //防止程序假死
 Application.ProcessMessages;
 //刷新纪录
 frmDataPool.qry需要做的事.Close;
 frmDataPool.qry需要做的事.Open;
finally
  SAdq.Free;
end;
end;



procedure TForm3.N30Click(Sender: TObject);
var
SAdq:TADOQuery;
begin
try
SAdq:=TADOQuery.Create(nil);
SAdq.Connection:=frmDataPool.ADOConnection1;
 with SAdq do
 begin
  close;
  SQL.Text:='UPDATE 需要做的事 SET 优先级 = ''普通'' WHERE 选中 = true';
  ExecSQL;
 end;
 //防止程序假死
 Application.ProcessMessages;
 //刷新纪录
 frmDataPool.qry需要做的事.Close;
 frmDataPool.qry需要做的事.Open;
finally
  SAdq.Free;
end;
end;



procedure TForm3.N31Click(Sender: TObject);
var
SAdq:TADOQuery;
begin
try
SAdq:=TADOQuery.Create(nil);
SAdq.Connection:=frmDataPool.ADOConnection1;
 with SAdq do
 begin
  close;
  SQL.Text:='UPDATE 需要做的事 SET 优先级 = ''低'' WHERE 选中 = true';
  ExecSQL;
 end;
 //防止程序假死
 Application.ProcessMessages;
 //刷新纪录
 frmDataPool.qry需要做的事.Close;
 frmDataPool.qry需要做的事.Open;
finally
  SAdq.Free;
end;
end;

 

转载于:https://www.cnblogs.com/ddxxxb/p/7070380.html