修改完成状态（popupmenu菜单二级菜单单击事项）单击独立事件写法

 

单击独立事件写法：

procedure TForm3.N25Click(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.N26Click(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.N27Click(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';
  ShowMessage(SQL.Text);
  ExecSQL;
 end;
 //防止程序假死
 Application.ProcessMessages;
 //刷新纪录
 frmDataPool.qry需要做的事.Close;
 frmDataPool.qry需要做的事.Open;
finally
  SAdq.Free;
end;
end;

procedure TForm3.N28Click(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';
  ShowMessage(SQL.Text);
  ExecSQL;
 end;
 //防止程序假死
 Application.ProcessMessages;
 //刷新纪录
 frmDataPool.qry需要做的事.Close;
 frmDataPool.qry需要做的事.Open;
finally
  SAdq.Free;
end;
end;

 

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