变量赋值语句放错位置，误放在with..do语句中,会导致修改数据无法修改成功

问题：变量赋值语句放错在with语句中会导致修改数据无法修改成功

原因：由于sql语句语法知识不牢固，写代码太随意，造成变量无法获得值，导致修改数据记录怎么都修改不成功；

解决方法：

源码：

procedure TFleibie.BitBtn1Click(Sender: TObject);
var
MyAdoq:TADOQuery;
LeiBie:string;
begin
  MyAdoq := TADOQuery.Create(nil);
  try
    MyAdoq.Connection := frmDataPool.ADOConnection1;
    LeiBie:=ComboBox1.text;
    with MyAdoq do
    begin
      Close;
      SQL.Text := 'UPDATE 需要做的事 SET 类别 ='+ LeiBie.QuotedString+'where 选中 = true';
      //ShowMessage(SQL.Text);
      ExecSQL;
//      Close;
//      SQL.Clear;
//      SQL.Text:='UPDATE 需要做的事 SET 选中 = false';
//      ExecSQL;
    end;
    //防止程序假死
    Application.ProcessMessages;

    //刷新纪录
  frmDataPool.qry需要做的事.Requery;

  finally
    MyAdoq.Free;
  end;