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;
  • 相关阅读:
    Ajax基本案例详解之load的实现
    Ajax基本案例详解之$.post的实现
    Ajax基本案例详解之$.post的实现
    Ajax基本案例详解之$.get的实现
    Ajax基本案例详解之$.get的实现
    Ajax基本案例详解之$.ajax的实现
    Ajax基本案例详解之$.ajax的实现
    [置顶] 别羡慕别人的舒服,静下心来坚持奋斗!!!
    别羡慕别人的舒服,静下心来坚持奋斗!!!
    Struts文件上传与下载详解_文件的下载
  • 原文地址:https://www.cnblogs.com/ddxxxb/p/7070042.html
Copyright © 2011-2022 走看看