zoukankan      html  css  js  c++  java
  • 修改完成比例

    方法1:独立事件单独写法

    procedure TForm3.N21Click(Sender: TObject);
    var
     BiLi:string;
     SAdoq:TADOQuery;
    begin
     SAdoq:=TADOQuery.Create(nil);
     SAdoq.Connection:=frmDataPool.ADOConnection1;
     try
      //或许比例数值
      if not InputQuery('输入比例', '请输入比例值', BiLi) then
      begin
        ShowMessage('请输入完成比例值');
        Exit;
      end;
      with SAdoq do
      begin
        Close;
        SQL.Text:='UPDATE 需要做的事 SET 已完成百分比 ='+BiLi.QuotedString+'WHERE 选中 = true';
        ExecSQL;
      end;
      //防止程序假死
      Application.ProcessMessages;
      //刷新纪录显示
      frmDataPool.qry需要做的事.Close;
      frmDataPool.qry需要做的事.Open;
     finally
      SAdoq.Free;
     end;
    end;

    方法2:类写法

    unit UUpdateBiLi;
    
    interface
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Data.DB, Data.Win.ADODB,
      Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Clipbrd, Vcl.Menus,
      Vcl.StdCtrls, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh,
      EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh,EhLibADO,DBGridEhImpExp;
    type TUpdateBiLi=class
    public
    class procedure selectedupdatebili (var SAdq:TADOQuery);
    end;
    
    implementation
    
    uses FDataPool;
    class procedure TUpdateBiLi.selectedupdatebili(var SAdq: TADOQuery);
    var
     BiLi,SBiao: string;
     SAdoq:TADOQuery;
    begin
     SAdoq:=TADOQuery.Create(nil);
     SAdoq.Connection:=frmDataPool.ADOConnection1;
     SBiao:=copy(SAdq.name,4,length(SAdq.name)-3);
     try
      //或许比例数值
      if not InputQuery('输入比例', '请输入比例值', BiLi) then
      begin
        ShowMessage('请输入完成比例值');
        Exit;
      end;
      with SAdoq do
      begin
        Close;
        SQL.Text:='UPDATE '+SBiao+' SET 已完成百分比 ='+BiLi.QuotedString+'WHERE 选中 = true';
        ExecSQL;
      end;
      //防止程序假死
      Application.ProcessMessages;
      //刷新纪录显示
      SAdq.Requery();
     finally
      SAdoq.Free;
     end;
    end;
    
    end.

    类引用,记住在use里面添加引用类单元的名字UUpdateBiLi

    procedure TForm3.N21Click(Sender: TObject);
    begin
    //批量修改选中记录的完成比例
    TUpdateBiLi.selectedupdatebili(frmDataPool.qry需要做的事);
    end;
  • 相关阅读:
    APP测试--功能测试
    笨方法学python--读文件
    笨方法学python--参数,解包,变量
    Jmeter工具学习(四)——插件安装及使用(转载)
    JMeter工具学习(三)——获取全局变量 token
    FROM_UNIXTIME()时间戳转换函数
    软件测试用例编写规范总结(转载)
    Jmeter之Bean shell使用(二)(转载)
    JMeter工具学习(一)工具使用详细介绍
    JMeter工具学习(二)——获取登录 token
  • 原文地址:https://www.cnblogs.com/ddxxxb/p/7069713.html
Copyright © 2011-2022 走看看