AQBefcl.Close;
          AQBefcl.SQL.Clear;
          AQBefcl.SQL.Add('UpData tbBefcl Set Fac=:v_Fac,Bm=:v_Bm,SGroup=:v_SGroup,SClass=:v_SClass');
          AQBefcl.SQL.Add('where CardNo='''+Trim(AQStuff.fieldbyname('CordNo').asstring)+''' and DMonth>='+Trim(Edit1.Text));
          AQBefcl.Parameters.ParamByName('v_Fac').Value:=Trim(DcFac.Text);
          AQBefcl.Parameters.ParamByName('v_Bm').Value:=Trim(DcBm.Text);
          AQBefcl.Parameters.ParamByName('v_SGroup').Value:=Trim(DcGroup.Text);
          AQBefcl.Parameters.ParamByName('v_SClass').Value:=Trim(DcClass.Text);
          AQBefcl.ExecSQL;