zoukankan      html  css  js  c++  java
  • 修改完成状态(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;
  • 相关阅读:
    CentOS7安装注意
    ES插件安装
    CentOS7命令
    ES安装手册
    五 、redis-cluster java api
    四 、Redis 集群的搭建
    三 redis 的 java api(jedis)
    C#验证码 使用GDI绘制验证码
    云时代架构阅读笔记二——Java性能优化(二)
    【转载】Asp .Net Web Api路由路径问题
  • 原文地址:https://www.cnblogs.com/ddxxxb/p/7070042.html
Copyright © 2011-2022 走看看