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;
  • 相关阅读:
    在数据集下建立FeatureClass
    打开对话框保存对话框
    C# 向数据库中添加数据
    OleDbCommand OleDbDataAdapter比较研究素材
    C# 判断数据库是否存在某张表
    AE常见问题、异常处理
    制作停靠窗体、悬浮窗Dockpanel
    11. Container With Most Water(js)
    10. Regular Expression Matching(js)
    9. Palindrome Number(js)
  • 原文地址:https://www.cnblogs.com/ddxxxb/p/7070042.html
Copyright © 2011-2022 走看看